home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / toplevel.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.1 KB  |  38 lines
  1. on exitFrame
  2.   global posH, posV, bgArray, dispBG, theCol, theRow
  3.   go(the frame)
  4.   if rollOver(47) then
  5.     toolsUp()
  6.   else
  7.     toolsDown()
  8.   end if
  9.   set colWidth to 68
  10.   set colHeight to 43
  11.   set offsetH to 153
  12.   set offsetV to 89
  13.   puppetSprite(3, 1)
  14.   puppetSprite(4, 1)
  15.   puppetSprite(6, 1)
  16.   set mv to the mouseV
  17.   set mh to the mouseH
  18.   set theCol to (mh - (offsetH - colWidth)) / colWidth
  19.   set theRow to (mv - (offsetV - colHeight)) / colHeight
  20.   if (theRow > 0) and (theRow < 9) and (theCol > 0) and (theCol < 8) then
  21.     set the castNum of sprite 3 to 5
  22.     set the locH of sprite 3 to value(item theCol of posH)
  23.     set the locV of sprite 3 to value(item theRow of posV)
  24.   else
  25.     set the locH of sprite 3 to -2000
  26.   end if
  27.   if dispBG = 1 then
  28.     if (theRow > 0) and (theRow < 9) and (theCol > 0) and (theCol < 8) then
  29.       set the castNum of sprite 6 to value((10 * theRow) + theCol)
  30.       set the locH of sprite 6 to value(item theCol of posH) + (colWidth / 2)
  31.       set the locV of sprite 6 to value(item theRow of posV) + (colHeight / 2)
  32.     else
  33.       set the castNum of sprite 6 to 0
  34.     end if
  35.   end if
  36.   updateStage()
  37. end
  38.