home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / video.dxr / 00198_zonepress.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  851 b   |  29 lines
  1. on ZONEPRESS
  2.   global box, horizontal, vertical, gright, counter, gbottom
  3.   set the visible of sprite 48 to 0
  4.   set the member of sprite 48 to member box
  5.   set vertical to the mouseV
  6.   set horizontal to the mouseH
  7.   set the locV of sprite 48 to vertical
  8.   set the locH of sprite 48 to horizontal
  9.   updateStage()
  10.   set gright to the right of sprite 48
  11.   set gbottom to the bottom of sprite 48
  12.   set counter to 0
  13.   repeat while gright > 640
  14.     set gright to gright - 1
  15.     set counter to counter + 1
  16.   end repeat
  17.   set horizontal to horizontal - counter
  18.   set counter to 0
  19.   repeat while gbottom > 480
  20.     set gbottom to gbottom - 1
  21.     set counter to counter + 1
  22.   end repeat
  23.   set vertical to vertical - counter
  24.   set the locV of sprite 48 to vertical
  25.   set the locH of sprite 48 to horizontal
  26.   set the visible of sprite 48 to 1
  27.   updateStage()
  28. end
  29.