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 >
Wrap
Text File
|
1996-05-28
|
487b
|
16 lines
on buttonClick destination,flag
puppetSprite the clickOn, TRUE
set CastNumber = the castNum of sprite the clickOn
set CastName = the name of cast CastNumber
set NumChars = the number of chars in CastName
set ShortChars = NumChars - 3
set NewName = char 1 to ShortChars of CastName & "in"
set the castNum of sprite the clickOn = cast NewName
updateStage
waitTicks 15
goSection (destination,flag)
puppetSprite the clickOn, FALSE
updateStage
end