home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 1
/
boot-disc-1996-08.iso
/
bootcd.dir
/
00542_Script_controlsClass
< prev
next >
Wrap
Text File
|
1996-07-02
|
1KB
|
42 lines
property spritelist
on new me,placeholder
set spritelist=[:]
repeat with index=2 to the paramcount
set curcastname=string(param(index))
if the number of member curcastname<1 then
alert ("The membername "&curcastname&" was not found.")
halt
else
set castrecord=[:]
addprop castrecord,#basecast,the number of member curcastname
addprop castrecord,#hicast,the number of member (curcastname&"Hi")
preload the hicast of castrecord
repeat with cursprite=1 to 48
if the membernum of sprite cursprite=the number of member curcastname then
addprop castrecord,#spritenum,cursprite
addprop castrecord,#status,false
set cursprite=49
end if
end repeat
addprop spritelist,the spritenum of castrecord,castrecord
end if
end repeat
set oldDelimiter=the itemdelimiter
set the itemdelimiter=quote
repeat with obj in (the actorlist)
if item 2 of string(obj)="controlsClass" then
set pos=getpos(the actorlist,obj)
deleteat the actorlist,pos
end if
end repeat
set the itemdelimiter=oldDelimiter
add the actorlist,me
return me
end
on stepframe me