home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / lfcrbk1.dir / 00231_Script_231 < prev    next >
Text File  |  1996-05-28  |  487b  |  16 lines
  1. on buttonClick destination,flag
  2.   puppetSprite the clickOn, TRUE
  3.   set CastNumber = the castNum of sprite the clickOn
  4.   set CastName = the name of cast CastNumber
  5.   set NumChars = the number of chars in CastName
  6.   set ShortChars = NumChars - 3
  7.   set NewName =  char 1 to ShortChars of CastName &  "in"
  8.   set the castNum of sprite the clickOn = cast NewName
  9.   updateStage
  10.   waitTicks 15
  11.   goSection (destination,flag)
  12.   puppetSprite the clickOn, FALSE
  13.   updateStage
  14.   
  15. end
  16.