home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / DEMO / PRG / CIRCLES.ZIP / CI_MAIN.DIX / 00014_LED&MU.ls < prev    next >
Encoding:
Text File  |  1995-05-01  |  3.9 KB  |  158 lines
  1. on initArLEDS
  2.   global ARLEDs
  3.   set ARLEDs to Array(mnew)
  4.   ARLEDs(mput, 1, "023602400")
  5.   ARLEDs(mput, 2, "034405300")
  6.   ARLEDs(mput, 3, "042613500")
  7.   ARLEDs(mput, 4, "045624600")
  8.   ARLEDs(mput, 5, "041736500")
  9.   ARLEDs(mput, 6, "034343500")
  10.   ARLEDs(mput, 7, "023646100")
  11.   ARLEDs(mput, 8, "011742900")
  12.   ARLEDs(mput, 9, "004835900")
  13.   ARLEDs(mput, 10, "001524500")
  14.   ARLEDs(mput, 11, "004413600")
  15.   ARLEDs(mput, 12, "012305500")
  16. end
  17.  
  18. on ledklick lbutton
  19.   global areon, LED_1, LED_2, fcommand, mixedloop
  20.   set fcommand to EMPTY
  21.   set firstLED to 13
  22.   set reqLEDidx to 1
  23.   set dummypos to 1
  24.   set reqLEDidx to value(chars(lbutton, 3, 4))
  25.   if (reqLEDidx < 1) or (reqLEDidx > 12) then
  26.     set reqLEDidx to 1
  27.   end if
  28.   set dummypos to chars(ARLEDs(mget, reqLEDidx), 2, 7)
  29.   repeat with i = 1 to 12
  30.     set s to ARLEDs(mget, i)
  31.     if chars(s, 1, 1) = "1" then
  32.       set firstLED to i
  33.     end if
  34.   end repeat
  35.   set tmpon to areon
  36.   if tmpon = 0 then
  37.     set no to getspritenum("LED1")
  38.     set x to value(chars(ARLEDs(mget, reqLEDidx), 2, 4))
  39.     set y to value(chars(ARLEDs(mget, reqLEDidx), 5, 7))
  40.     sprite_show(no, x, y)
  41.     ARLEDs(mput, reqLEDidx, "1" & dummypos & string(4) & "0")
  42.     set LED_1 to reqLEDidx
  43.     set LED_2 to 13
  44.     set areon to 1
  45.   else
  46.     if tmpon = 1 then
  47.       if not (LED_1 = reqLEDidx) then
  48.         set no to getspritenum("LED2")
  49.         set x to value(chars(ARLEDs(mget, reqLEDidx), 2, 4))
  50.         set y to value(chars(ARLEDs(mget, reqLEDidx), 5, 7))
  51.         sprite_show(no, x, y)
  52.         ARLEDs(mput, reqLEDidx, "1" & dummypos & string(5) & "0")
  53.         set LED_2 to reqLEDidx
  54.         set areon to 2
  55.         if LED_1 > LED_2 then
  56.           set tmpLED to LED_1
  57.           set LED_1 to LED_2
  58.           set LED_2 to tmpLED
  59.         end if
  60.       end if
  61.     else
  62.       if tmpon = 2 then
  63.         ledclear()
  64.         set no to getspritenum("LED1")
  65.         set x to value(chars(ARLEDs(mget, reqLEDidx), 2, 4))
  66.         set y to value(chars(ARLEDs(mget, reqLEDidx), 5, 7))
  67.         sprite_show(no, x, y)
  68.         ARLEDs(mput, reqLEDidx, "1" & dummypos & string(4) & "0")
  69.         set LED_1 to reqLEDidx
  70.         set LED_2 to 1
  71.         set areon to 1
  72.       end if
  73.     end if
  74.   end if
  75.   updateStage()
  76.   repeat while the mouseDown
  77.     nothing()
  78.   end repeat
  79.   set mixedloop to 0
  80. end
  81.  
  82. on ledclear
  83.   global areon, LED_1, LED_2
  84.   set areon to 0
  85.   set LED_1 to 1
  86.   set LED_2 to 13
  87.   set no to getspritenum("LED1")
  88.   sprite_blank(no)
  89.   set no to getspritenum("LED2")
  90.   sprite_blank(no)
  91.   initArLEDS()
  92. end
  93.  
  94. on muteklick lbutton
  95.   global MUTE, fcommand, last_mute
  96.   set fcommand to EMPTY
  97.   if last_mute = 0 then
  98.     if MUTE = 2 then
  99.       mute1On()
  100.       set MUTE to 1
  101.     else
  102.       mute2On()
  103.       set MUTE to 2
  104.     end if
  105.     updateStage()
  106.   else
  107.     segmentselect(1)
  108.     mute0off()
  109.     if last_mute = 1 then
  110.       mute1On()
  111.     else
  112.       mute2On()
  113.     end if
  114.     set last_mute to 0
  115.     circlemaster()
  116.     updateStage()
  117.   end if
  118. end
  119.  
  120. on mute0on
  121.   set tmpsprite to getspritenum("MUTE")
  122.   set the castNum of sprite tmpsprite to the number of cast "TRACKI"
  123.   set the ink of sprite tmpsprite to 8
  124.   sprite_show(tmpsprite, 584, 107)
  125. end
  126.  
  127. on mute0off
  128.   set tmpsprite to getspritenum("MUTE")
  129.   set the castNum of sprite tmpsprite to the number of cast "TRACKI"
  130.   sprite_blank(tmpsprite)
  131. end
  132.  
  133. on mute1On
  134.   set tmpsprite to getspritenum("MUTE")
  135.   set the castNum of sprite tmpsprite to the number of cast "TRACK1"
  136.   set the ink of sprite tmpsprite to 8
  137.   sprite_show(tmpsprite, 584, 107)
  138. end
  139.  
  140. on mute1off
  141.   set tmpsprite to getspritenum("MUTE")
  142.   set the castNum of sprite tmpsprite to the number of cast "TRACK1"
  143.   sprite_blank(tmpsprite)
  144. end
  145.  
  146. on mute2On
  147.   set tmpsprite to getspritenum("MUTE")
  148.   set the castNum of sprite tmpsprite to the number of cast "TRACK2"
  149.   set the ink of sprite tmpsprite to 8
  150.   sprite_show(tmpsprite, 584, 107)
  151. end
  152.  
  153. on mute2off
  154.   set tmpsprite to getspritenum("MUTE")
  155.   set the castNum of sprite tmpsprite to the number of cast "TRACK2"
  156.   sprite_blank(tmpsprite)
  157. end
  158.