home *** CD-ROM | disk | FTP | other *** search
/ T-Shirt Design Shop / TSHIRT_Designer.ISO / data / odata1 / mcards / notes.dxr / 00161.ls < prev    next >
Encoding:
Text File  |  1998-05-02  |  3.0 KB  |  112 lines
  1. on initGame
  2.   global bottlesNum, bottlesStrtSprt, bottleNotes, index, seqMaxLength, errors, music
  3.   set the randomSeed to the ticks
  4.   set bottlesNum to 8
  5.   set bottlesStrtSprt to 10
  6.   set tmp to "so: ,la: ,si: ,do: ,re: ,mi: ,fa: ,s2: "
  7.   set bottles to [1, 2, 3, 4, 5, 6, 7, 8]
  8.   repeat with index = 1 to bottlesNum
  9.     set pos to random(count(bottles))
  10.     put getAt(bottles, pos) into char 4 of item index of tmp
  11.     deleteAt(bottles, pos)
  12.   end repeat
  13.   set comm to "set bottleNotes = [" & tmp & "]"
  14.   do(comm)
  15.   set index to 1
  16.   set music to "so,so,la,so,do,si,so,so,la,so,re,do"
  17.   set seqMaxLength to 3
  18.   set errors to 0
  19. end
  20.  
  21. on showNote goSwitch
  22.   global bottleNotes, index, seqMaxLength, music
  23.   cursor(-1)
  24.   repeat with index = 1 to seqMaxLength
  25.     set note to item index of music
  26.     puppetSound(note)
  27.     set botNum to getaProp(bottleNotes, note)
  28.     set sprt to 9 + integer(botNum)
  29.     puppetSprite(sprt, 1)
  30.     set the castNum of sprite sprt to the number of cast ("bottle " & botNum & "a")
  31.     updateStage()
  32.     repeat while the soundBusy of 1
  33.     end repeat
  34.     set the castNum of sprite sprt to the number of cast ("bottle " & botNum)
  35.     puppetSprite(sprt, 0)
  36.     updateStage()
  37.   end repeat
  38.   if goSwitch then
  39.     go("userPlay")
  40.   end if
  41. end
  42.  
  43. on startCheck
  44.   global index
  45.   set index to 1
  46. end
  47.  
  48. on checkNote theBottle
  49.   global bottlesNum, bottlesStrtSprt, bottleNotes, index, seqMaxLength, errors, music
  50.   set pos to getPos(bottleNotes, theBottle)
  51.   set note to getPropAt(bottleNotes, pos) & EMPTY
  52.   puppetSound(note & EMPTY)
  53.   set sprt to 9 + theBottle
  54.   puppetSprite(sprt, 1)
  55.   set the castNum of sprite sprt to the number of cast ("bottle " & theBottle & "a")
  56.   updateStage()
  57.   repeat while the soundBusy of 1
  58.   end repeat
  59.   set the castNum of sprite sprt to the number of cast ("bottle " & theBottle)
  60.   puppetSprite(sprt, 0)
  61.   updateStage()
  62.   cursor(-1)
  63.   if item index of music = note then
  64.     if index = seqMaxLength then
  65.       if seqMaxLength = the number of items in music then
  66.         cursor(200)
  67.         go("finished")
  68.       else
  69.         set seqMaxLength to seqMaxLength + 3
  70.         set index to 1
  71.         startTimer()
  72.         repeat while the timer < 30
  73.         end repeat
  74.         go(label("start") + 1)
  75.       end if
  76.     else
  77.       set index to index + 1
  78.       cursor([8, 9])
  79.     end if
  80.   else
  81.     set errors to errors + 1
  82.     if errors = 2 then
  83.       go("failed")
  84.     else
  85.       go("error1/2")
  86.     end if
  87.   end if
  88. end
  89.  
  90. on myDelay theTicks
  91.   startTimer()
  92.   repeat while the timer < theTicks
  93.   end repeat
  94. end
  95.  
  96. on play1Note
  97.   global bottleNotes, index, seqMaxLength, music
  98.   set note to item index of music
  99.   puppetSound(note)
  100.   set botNum to getaProp(bottleNotes, note)
  101.   set sprt to 9 + integer(botNum)
  102.   puppetSprite(sprt, 1)
  103.   set the castNum of sprite sprt to the number of cast ("bottle " & botNum & "a")
  104.   updateStage()
  105.   repeat while the soundBusy of 1
  106.   end repeat
  107.   set the castNum of sprite sprt to the number of cast ("bottle " & botNum)
  108.   puppetSprite(sprt, 0)
  109.   updateStage()
  110.   set index to index + 1
  111. end
  112.