Boot Disc 2/boot-disc-1996-10.iso/bootcd.dir/00295_Script_zylonClass

Text File | 1996-08-09 | 2KB | 67 lines

property laglist,spritenum,lagcount,delta

on new me,mylagcount
  repeat with index=1 to 48
    if the membernum of sprite index=the number of member "probe" then
      set spritenum=index
      exit repeat
    end if
  end repeat
  set delta=3
  if spritenum=0 then
    alert "Probe castmember not on stage"
    halt
  end if
  puppetsprite spritenum,true
  set laglist=[]
  if voidP(mylagcount) then
    set lagcount=the frameTempo
  else
    set lagcount=mylagcount
  end if
  set delta=30
  set oldDelimiter=the itemdelimiter
  set the itemdelimiter=quote
  repeat with obj in (the actorlist)
    if item 2 of string(obj)="zylonClass" 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
  --  add laglist,the mouseH
  --  if count(laglist)>lagcount then
  --    deleteat laglist,1
  --    set the locH of sprite spritenum to getat(laglist,1)
  --    updateStage
  --    --if (getat(laglist,1)-getat(laglist,lagcount))>delta then
  --    if not soundbusy(1) then
  --      puppetsound "scan",4
  --    end if
  --    --end if
  --  end if
  set the locH of sprite spritenum=the locH of sprite spritenum+delta
  updateStage
  if the locH of sprite spritenum>600 then
    set delta=-abs(delta)
  else
    if the locH of sprite spritenum<40 then
      set delta=abs(delta)
    end if
  end if
end

on dispose me
  set pos=getpos(the actorlist,me)
  deleteat the actorlist,pos
  puppetsprite spritenum,false
  return 0
end