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