home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / power / globe.dir / 00082_Script_82 < prev    next >
Text File  |  1996-03-11  |  487b  |  24 lines
  1. on DemoOnly SSprite , TheLoc , PrevLoc
  2.   global CurrRoll
  3.   
  4.   beep
  5.   
  6.   puppetSprite SSprite, TRUE
  7.   set the LocH of sprite SSprite to TheLoc
  8.   updateStage
  9.   
  10.   repeat while the mouseDown
  11.     updateStage
  12.   end repeat
  13.   
  14.   set STIcks = the ticks
  15.   repeat while not the mouseDown and  (the ticks - Sticks < 60 * 3)
  16.     checkQt
  17.     updateStage
  18.     rollOvers
  19.   end repeat
  20.   
  21.   set the Loch of sprite SSprite to PrevLoc
  22.   puppetSprite SSprite, FALSE
  23.   updateStage
  24. end