home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / shared.dir / 00948_Striangle.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  1.1 KB  |  38 lines
  1. on mouseUp
  2.   puppetSprite(44, 1)
  3.   puppetSprite(45, 1)
  4.   puppetSprite(46, 1)
  5.   set theFrames to "11,17,23,29,35,41,47"
  6.   set theTriangle to "1,5,9,13"
  7.   set mh to the mouseH
  8.   set sph to the locH of sprite the clickOn
  9.   set whTriangle to ((mh - sph) / 27) + 1
  10.   repeat with n = 1 to 7
  11.     if the frame = item n of theFrames then
  12.       set whFrame to n
  13.       exit repeat
  14.     end if
  15.   end repeat
  16.   repeat with n = 1 to 4
  17.     if whTriangle = value(item n of theTriangle) then
  18.       set whTriangleB to n
  19.     end if
  20.   end repeat
  21.   set whCast to (whFrame * 4) + whTriangleB + 856
  22.   if voidp(whTriangleB) or (whTriangleB > 4) then
  23.     nothing()
  24.   else
  25.     clearLists()
  26.     set the castNum of sprite 44 to 889
  27.     set the locH of sprite 44 to 386
  28.     set the locV of sprite 44 to 253
  29.     set the castNum of sprite 45 to whCast
  30.     set the locH of sprite 45 to 213
  31.     set the locV of sprite 45 to 242
  32.     set the castNum of sprite 46 to whCast - 30
  33.     put EMPTY before line 1 of field (whCast - 30)
  34.     set the locH of sprite 46 to 132
  35.     set the locV of sprite 46 to 267
  36.   end if
  37. end
  38.