home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / main.dir / 00140_Script_140 < prev    next >
Text File  |  1996-03-11  |  478b  |  22 lines
  1. on DemoOnly SSprite , TheLoc , PrevLoc
  2.   global TheSprite
  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)  and not rollover(9)
  16.     rollOvers
  17.   end repeat
  18.   
  19.   set the Loch of sprite SSprite to PrevLoc
  20.   puppetSprite SSprite, FALSE
  21.   updateStage
  22. end