home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / search.dir / 00093_Script_93 < prev    next >
Text File  |  1996-03-11  |  529b  |  24 lines
  1. on DemoOnly SSprite , TheLoc , PrevLoc
  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.   
  14.   repeat while not the mouseDown and (the ticks - Sticks < (60 * 3)) 
  15.     -- put the ticks - Sticks
  16.   end repeat
  17.   
  18.   if the mouseCast <> the number of cast "demo" then
  19.     set the Loch of sprite SSprite to PrevLoc
  20.     puppetSprite SSprite, FALSE
  21.     updateStage
  22.   end if
  23.   
  24. end