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