Hier sind: 
Inhalt new werde nenn init reset verpuppe demolish kick addkick diag


Inhalt von TaktgeberObj vom. 28.03.98

Übersicht
-- Taktgeber - Objekt
--

-- Aufruf:
--new script "TaktgeberObj"

-------------

property ancestor,myLpKicks,myActive



on new me

on werde me,art

on nenn me

on init me

on reset me,LpSpiel

on verpuppe me
--

on demolish me

on Kick me

on AddKick me, dTicks,dObj

on diag me


Inhalt top Callers

on new me

set mySelf="TaktgeberObj"
set ahn ="BasisObj"

if objectP(ahn) then set the ancestor of me to ahn
else werde me,ahn

init me
return me
end



Inhalt top Callers

on werde me,art
set the ancestor of me to new (script art)
end



Inhalt top Callers

on nenn me
return mySelf
end



Inhalt top Callers

on init me
reset me
end


Inhalt top Callers

on reset me,LpSpiel
set myLpKicks=[:]
sort myLpKicks
set myActive=TRUE
end



Inhalt top Callers

on verpuppe me
--
end


Inhalt top Callers

on demolish me

end

------------------------


Inhalt top Callers

on Kick me
if myActive then
if Count(myLpKicks) > 0 then
set dTicks=getPropAt(myLpKicks,1)
if the timer >= dTicks then
set dObj = getat(myLpKicks,1)
deleteAt myLpKicks,1
if objectP(dObj) then timeKick(dObj)
end if
end if
end if
end


Inhalt top Callers

on AddKick me, dTicks,dObj
set erg=FALSE
--if objectP(dObj) then
addProp myLpKicks,dTicks,dObj
set erg=TRUE
--end if
return erg
end


--------------------


Inhalt top Callers

on diag me
set erg=[:]
addprop erg,#JobsWarten,Count(myLpKicks)
return erg
end




-- /IHV


 

 

 

 

 

 

 

 

HTML created by dp tiny script documenting xtra v0.2 28.03.98