Hier sind: 
Inhalt getlfreesprites getfreikanal listlabels deletemarkers zeitlog


Inhalt von Sprites & Labels vom. 28.03.98

Übersicht
-- Tools for Sprites, Labels, Benchmarking


on getLFreeSprites
-- returns a list of empty sprites (D6)
-- gibt eine Liste freier Sprites

on getFreiKanal wo
-- returns the first or last empty sprite
-- gibt den ersten oder letzten freien Sprite

on listLabels
--sorgt dafür, daß man mit "put getaprop(glplabels,marker(0))"
--den Text des aktuellen Labels abfragen kann

on deleteMarkers
-- vorsicht, das vieh ist gruendlich!
-- delete all markers

on ZeitLog Param
-- log the ticks for simple benchmarking
-- Laufzeit testen


Inhalt top Callers

on getLFreeSprites
-- returns a list of empty sprites (D6)
-- gibt eine Liste freier Sprites
set Lerg=[]
repeat with kanal=1 to 120
if the membernum of sprite kanal =0 and the puppet of sprite kanal = 0 then append Lerg,kanal
end repeat

return Lerg
end


Inhalt top Callers

on getFreiKanal wo
-- returns the first or last empty sprite
-- gibt den ersten oder letzten freien Sprite
set LSprites=getLFreeSprites()

if wo=#top then
set erg=getLast(LSprites)
else
set erg=getat(LSprites,1)
end if

return erg
end



Inhalt top Callers

on listLabels
--sorgt dafür, daß man mit "put getaprop(glplabels,marker(0))"
--den Text des aktuellen Labels abfragen kann
global gLpLabels
set gLplabels=[:]
repeat with i = 1 to the number of lines in the labellist
addprop gLpLabels,label(line i of the labellist),line i of the labellist
end repeat
end



Inhalt top Callers

on deleteMarkers
-- vorsicht, das vieh ist gruendlich!
-- delete all markers

repeat while the number of lines of the labellist > 1
go frame (line 1 of the labellist)
set the framelabel = 0
updatestage
end repeat
end




Inhalt top Callers

on ZeitLog Param
-- log the ticks for simple benchmarking
-- Laufzeit testen
global gVorZeit,gZeitleiste
set tmp=the timer
if voidP(gZeitleiste) then set gZeitleiste=[:]

if param=#Init then
set gVorZeit = tmp
else
--Zeit-Test
addProp gZeitleiste,Param,tmp - gVorZeit
put gZeitleiste
end if
end





-- /IHV


 

 

 

 

 

 

 

 

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