home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / seven.dxr / trees_143_7812_PickMe.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  735 b   |  42 lines
  1. property myTree
  2.  
  3. on beginSprite me
  4.   whichSprite = me.spriteNum
  5.   set the cursor of sprite whichSprite to 280
  6.   me.myTree = whichSprite - 6
  7. end
  8.  
  9. on endSprite me
  10.   whichSprite = me.spriteNum
  11.   set the cursor of sprite whichSprite to 0
  12. end
  13.  
  14. on mouseDown me
  15.   global gGameSol, gNumberOfMovesLeft, gExiting
  16.   gNumberOfMovesLeft = gNumberOfMovesLeft - 1
  17.   if gGameSol = me.myTree then
  18.     gExiting = 1
  19.     case me.myTree of
  20.       1:
  21.         go("784134b")
  22.       2:
  23.         go("784132b")
  24.       3:
  25.         go("784133b")
  26.       4:
  27.         go("784131b")
  28.     end case
  29.   else
  30.     case me.myTree of
  31.       1:
  32.         go("784124b")
  33.       2:
  34.         go("784122b")
  35.       3:
  36.         go("784123b")
  37.       4:
  38.         go("784121b")
  39.     end case
  40.   end if
  41. end
  42.