home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00073.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  734 b   |  28 lines
  1. on SPUZZ
  2.   global SCOREX, SCOREY, TP, UPG, PUZZ
  3.   set PUZZ to 0
  4.   set TP to 0
  5.   repeat with n = 1 to 26
  6.     if (the mouseH > getAt(SCOREX, n)) and (the mouseH < (getAt(SCOREX, n) + 110)) then
  7.       if (the mouseV > getAt(SCOREY, n)) and (the mouseV < (getAt(SCOREY, n) + 13)) then
  8.         set TP to n
  9.       end if
  10.     end if
  11.     if (UPG = 0) and (n = 10) then
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   if TP <> 0 then
  16.     set PUZZ to TP
  17.   end if
  18.   if PUZZ <> 0 then
  19.     set the castNum of sprite 6 to 119 + PUZZ
  20.     set the castNum of sprite 7 to 119 + PUZZ
  21.     set the locH of sprite 6 to 21
  22.     set the locV of sprite 6 to 200
  23.     set the locH of sprite 7 to 575
  24.     set the locV of sprite 7 to 200
  25.     updateStage()
  26.   end if
  27. end
  28.