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