home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 1 / boot-disc-1996-08.iso / bootcd.dir / 00618_Script_zylonClass < prev    next >
Text File  |  1996-07-02  |  1KB  |  57 lines
  1. property laglist,spritenum,lagcount,delta
  2.  
  3. on new me,mylagcount
  4.   repeat with index=1 to 48
  5.     if the membernum of sprite index=the number of member "probe" then
  6.       set spritenum=index
  7.       exit repeat
  8.     end if
  9.   end repeat
  10.   set delta=3
  11.   if spritenum=0 then
  12.     alert "Probe castmember not on stage"
  13.     halt
  14.   end if
  15.   puppetsprite spritenum,true
  16.   set laglist=[]
  17.   if voidP(mylagcount) then
  18.     set lagcount=the frameTempo
  19.   else
  20.     set lagcount=mylagcount
  21.   end if
  22.   set oldDelimiter=the itemdelimiter
  23.   set the itemdelimiter=quote
  24.   repeat with obj in (the actorlist)
  25.     if item 2 of string(obj)="zylonClass" then
  26.       set pos=getpos(the actorlist,obj)
  27.       deleteat the actorlist,pos
  28.     end if
  29.   end repeat
  30.   set the itemdelimiter=oldDelimiter
  31.   add the actorlist,me
  32.   return me
  33. end
  34.  
  35. on stepframe me
  36.   add laglist,the mouseH
  37.   if count(laglist)>lagcount then
  38.     deleteat laglist,1
  39.     set the locH of sprite spritenum to getat(laglist,1)
  40.     updateStage
  41.     if (getat(laglist,1)-getat(laglist,lagcount))>delta then
  42.       if not soundbusy(1) then
  43.         puppetsound "scan",1
  44.       end if
  45.     end if
  46.   end if
  47. end
  48.  
  49. on dispose me
  50.   set pos=getpos(the actorlist,me)
  51.   deleteat the actorlist,pos
  52.   puppetsprite spritenum,false
  53.   return 0
  54. end
  55.  
  56.  
  57.