home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 1 / boot-disc-1996-08.iso / bootcd.dir / 00542_Script_controlsClass < prev    next >
Text File  |  1996-07-02  |  1KB  |  42 lines
  1. property spritelist
  2.  
  3. on new me,placeholder
  4.   set spritelist=[:]
  5.   repeat with index=2 to the paramcount
  6.     set curcastname=string(param(index))
  7.     if the number of member curcastname<1 then
  8.       alert ("The membername "&curcastname&" was not found.")
  9.       halt
  10.     else
  11.       set castrecord=[:]
  12.       addprop castrecord,#basecast,the number of member curcastname
  13.       addprop castrecord,#hicast,the number of member (curcastname&"Hi")
  14.       preload the hicast of castrecord
  15.       repeat with cursprite=1 to 48
  16.         if the membernum of sprite cursprite=the number of member curcastname then
  17.           addprop castrecord,#spritenum,cursprite
  18.           addprop castrecord,#status,false
  19.           set cursprite=49
  20.         end if
  21.       end repeat
  22.       addprop spritelist,the spritenum of castrecord,castrecord
  23.     end if
  24.   end repeat
  25.   set oldDelimiter=the itemdelimiter
  26.   set the itemdelimiter=quote
  27.   repeat with obj in (the actorlist)
  28.     if item 2 of string(obj)="controlsClass" then
  29.       set pos=getpos(the actorlist,obj)
  30.       deleteat the actorlist,pos
  31.     end if
  32.   end repeat
  33.   set the itemdelimiter=oldDelimiter
  34.   add the actorlist,me
  35.   return me
  36. end
  37.  
  38. on stepframe me
  39.   
  40.   
  41.   
  42.