home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / DEMO / PRG / CIRCLES.ZIP / CI_MAIN.DIX / 00002_FRAME.ls next >
Encoding:
Text File  |  1995-05-01  |  3.5 KB  |  132 lines
  1. on enterFrame
  2.   global fcommand, scommand, ecommand, fl_msg, acwin, framecnt, butisflash, idsw
  3.   if fcommand = "LOOP" then
  4.     circleloopplay()
  5.     midi_active()
  6.   else
  7.     if framecnt < 1 then
  8.       midi_active()
  9.       if acwin = "MAIN" then
  10.         if not (fcommand = EMPTY) then
  11.           if fcommand = "FS_O" then
  12.             fsel_open()
  13.           else
  14.             if fcommand = "FS_L" then
  15.               fsel_load()
  16.             else
  17.               if fcommand = "FS_C" then
  18.                 fsel_clear()
  19.               else
  20.                 if fcommand = "CWIN" then
  21.                   ci_sup_ok()
  22.                 else
  23.                   if fcommand = "IWIN" then
  24.                     ci_ins_ok()
  25.                   else
  26.                     if fcommand = "REMX" then
  27.                       remix(0)
  28.                     else
  29.                       if fcommand = "STR1" then
  30.                         circle_start1()
  31.                       else
  32.                         if fcommand = "STR2" then
  33.                           circle_start2()
  34.                         else
  35.                           if fcommand = "ENDE" then
  36.                             circleend()
  37.                           else
  38.                             if fcommand = "HPOP" then
  39.                               help_load(hp_page)
  40.                             end if
  41.                           end if
  42.                         end if
  43.                       end if
  44.                     end if
  45.                   end if
  46.                 end if
  47.               end if
  48.             end if
  49.           end if
  50.         else
  51.           if ecommand = "SFop" then
  52.             selfname("SOUND")
  53.           else
  54.             if ecommand = "SFoc" then
  55.               selfname("CIRCLE")
  56.             else
  57.               if not (scommand = EMPTY) then
  58.                 if scommand = "LOST" then
  59.                   loadlost()
  60.                 else
  61.                   if scommand = "CIlo" then
  62.                     circleloadrun()
  63.                   else
  64.                     if scommand = "CISa" then
  65.                       circlesaverun()
  66.                     else
  67.                       if scommand = "MXSa" then
  68.                         do_savemix()
  69.                       end if
  70.                     end if
  71.                   end if
  72.                 end if
  73.               else
  74.                 if butisflash then
  75.                   but_reflash()
  76.                 end if
  77.               end if
  78.             end if
  79.           end if
  80.         end if
  81.       else
  82.         if acwin = "SFNA" then
  83.           if ecommand = "SFdo" then
  84.             if idsw then
  85.               selfname_do_id()
  86.             else
  87.               selfname_do()
  88.             end if
  89.           else
  90.             if ecommand = "SFop" then
  91.               selfname()
  92.             else
  93.               if ecommand = "SFcl" then
  94.                 selfname_cl()
  95.               else
  96.                 if ecommand = "SFpa" then
  97.                   selfname_pa()
  98.                 end if
  99.               end if
  100.             end if
  101.           end if
  102.         else
  103.           if acwin = "FSEL" then
  104.             if fcommand = "HPOP" then
  105.               help_load(hp_page)
  106.             end if
  107.             if fl_msg = "chkp" then
  108.               fl_chkp()
  109.             end if
  110.           else
  111.             if acwin = "EFFE" then
  112.               if fcommand = "HPOP" then
  113.                 help_load(hp_page)
  114.               end if
  115.             end if
  116.           end if
  117.         end if
  118.       end if
  119.     else
  120.       put "frame>" & framecnt
  121.       set framecnt to framecnt - 1
  122.     end if
  123.   end if
  124. end
  125.  
  126. on exitFrame
  127.   global fcommand
  128.   if fcommand <> "QUIT" then
  129.     play frame 7
  130.   end if
  131. end
  132.