home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 December (Bonus) / HAWKING.ISO / 06.DIR / 00310.ls < prev    next >
Encoding:
Text File  |  1995-04-03  |  627 b   |  22 lines
  1. on mouseDown
  2.   global gDestNumber
  3.   set lCastName to the name of cast the castNum of sprite the clickOn
  4.   if lCastName contains gDestNumber then
  5.     exit
  6.   end if
  7.   puppetSprite(28, 0)
  8.   set the movieTime of sprite 16 to 0
  9.   set the movieRate of sprite 16 to 0
  10.   set lCastNum to the castNum of sprite 16
  11.   set the directToStage of cast lCastNum to 0
  12.   set the castNum of sprite 16 to the number of cast "BlankS.MOV"
  13.   updateStage()
  14.   puppetSprite(16, 0)
  15.   set gDestNumber to string(the clickOn - 6)
  16.   puppetSprite(15, 0)
  17.   TurnOffRollovers()
  18.   TurnOffMovies()
  19.   set lFrame to "Dest" && string(the clickOn - 6)
  20.   go(lFrame)
  21. end
  22.