home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / goer.dir / 00008.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  356 b   |  15 lines
  1. on mouseDown
  2.   set WhichSprite to the clickOn
  3.   puppetSprite(WhichSprite, 1)
  4.   set the castNum of sprite WhichSprite to the number of cast "Cancel lit"
  5.   repeat while the stillDown
  6.     updateStage()
  7.   end repeat
  8. end
  9.  
  10. on mouseUp
  11.   global gMyPath, gPTimerSet, gPresentationTime, gPresentingTo
  12.   set gPresentingTo to EMPTY
  13.   go(1, the pathName & "intro")
  14. end
  15.