home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / rockbal.dxr / 00012_setGame.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  674 b   |  25 lines
  1. on setGame
  2.   global gGameSol, gFrameCounter, gNumberOfMovesLeft, gMasterMoves, gDifficultyLevel, gGameState, gResponses
  3.   case gDifficultyLevel of
  4.     1:
  5.       gNumberOfMovesLeft = the maxinteger
  6.       gGameSol = value(GetResponse(1, "35678"))
  7.     2:
  8.       gNumberOfMovesLeft = 4
  9.       gGameSol = value(GetResponse(1, "35678"))
  10.     3:
  11.       gNumberOfMovesLeft = 2
  12.       gGameSol = value(GetResponse(1, "3568"))
  13.   end case
  14.   put gGameSol into item 4 of gResponses
  15.   gGameState = gGameSol
  16.   gFrameCounter = 0
  17.   puppetSprite(23, 1)
  18.   repeat with i = 37 to 46
  19.     puppetSprite(i, 1)
  20.   end repeat
  21.   repeat with i = 37 to 46
  22.     sprite(i).myLocH = sprite(i).locH
  23.   end repeat
  24. end
  25.