Hi,
Sammlung aus versch. Projekten, aber es sieht dürftig aus...
Jede Leerzeile bedeutet hier, dass es nichts mit dem vorigen zu tun hat.
Delphi-Quellcode:
//Spielerstatusänderungsprocedure
procedure ProcessSpielerstatus;
begin
Beep; //Noch nicht implementiert...
end;
//WriteBuf('MTrk' + #$00#$00#$00#$04#$00#$FF#$2F#$00); //Wenns hilft?
if Lautstaerke = 0 then //Kein Ton...
const
VFakt = 5;
//Lautstärkeverringerungsfaktor
//TODO!
//...
Aus meinem
OS-Versuch:
Code:
;FAlterOS Kernel 0.0.0
;This is the Kernel of FAlterOS :-)
;TODO:
;- nearly everything
;Felix Alter, 21st June 2005 (my 17th Birthday :-D)
Eigentlich aus PHP (live-Berechnung, wie alt ich bin
)...
Code:
'.' /* Tausenderseparator
man weiß ja nie, wie alt ich mal werde ;) */
Mfg
FAlter