home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / power / ue.dir / 00280_Script_280 < prev    next >
Text File  |  1996-03-13  |  616b  |  31 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)
  16.     if marker(0) = label("map") then
  17.       go the frame
  18.     else
  19.       rollOvers
  20.     end if
  21.   end repeat
  22.   
  23.   if the mouseCast <> the number of cast "demo" then
  24.     set the Loch of sprite SSprite to PrevLoc
  25.     puppetSprite SSprite, FALSE
  26.     updateStage
  27.   end if
  28.  
  29. end  
  30.  
  31.