home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / juice.dxr / Internal_29_CorrecttheMixture.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  863 b   |  32 lines
  1. on CorrecttheMixture
  2.   global gMasterMoves, gDifficultyLevel, gGameState, gGameSol, gHostSoundQueue
  3.   theComment = EMPTY
  4.   repeat with i = 1 to 3
  5.     theFruit = value(char i of item 4 of gGameSol)
  6.     if item theFruit of gGameState <> item theFruit of gGameSol then
  7.       theComment = "57413" & string(theFruit)
  8.       exit repeat
  9.     end if
  10.   end repeat
  11.   theMixture = gMasterMoves
  12.   case gDifficultyLevel of
  13.     1:
  14.       if theComment <> EMPTY then
  15.         put theComment into item 1 of theMixture
  16.       end if
  17.     2:
  18.       if theComment <> EMPTY then
  19.         put theComment & "," before theComment
  20.         repeat with i = 1 to 3
  21.           delete item 2 of theMixture
  22.         end repeat
  23.       end if
  24.     3:
  25.       if theComment <> EMPTY then
  26.         put theComment & "," before theComment
  27.       end if
  28.   end case
  29.   sound stop 2
  30.   gHostSoundQueue = theMixture
  31. end
  32.