Gratz!
Can we expect some uberleet birthday (even uber leet scripts arent made in one day ;) ) script?
Hugolord are you sure vodka is good for you?
Meh I dont have any "presents" neither, but
program SRLTool;
var
Reqz: TStringArray;
procedure LoadRequirements;
begin
SetArrayLength(Reqz, 7);
Reqz[0] := '[*]DTMs / DDTMs';
Reqz[1] := '[*]RadialWalk / DDTM Walking';
Reqz[2] := '[*]MultiPlayer';
Reqz[3] := '[*]FailSafes';
Reqz[4] := '[*]Break out of potential endless loops';
Reqz[5] := '[*]Standards! Without them no one reads script';
Reqz[6] := '[*]Decent complex working script.';
end;
procedure Ban(BanD: Boolean; WhichBan: Integer);
begin
if(BanD)then
begin
case WhichBan of
0: Writeln('BUSTED! Ban shampoo!');
1: Writeln('Please, copy a working script which fills the requirements!');
2: Writeln('Sorry, copy a better script next time');
3: Writeln('Burn in hell pl0x?');
4: Writeln('You copyed the script I made today?!');
end;
end;
end;
procedure PrintRequirements;
var
I, C, I2: Integer;
var
Printd: array[0..6] of Boolean;
begin
LoadRequirements;
repeat
if(not(Printd[i]))then
begin
Writeln(Reqz[i]);
Printd[i] := True;
end;
I := Random(7);
I2 := I2 + 1;
until(I2 = 7);
end;
procedure KThxBaiiNoob(NoobLevel: Integer);
begin
case NoobLevel of
1: begin
// noob of the level 1
Writeln('Sorry, better luck next time');
end;
2: begin
// :O "2" we are witnessing history
Writeln('Geez you are wasting the time of both of us! No script, auto-deny');
end;
3: begin
// :O :O :O *Funeral church bells ringin* the level 3 noob. "How to use searx"
Writeln('omfg I made a fucking tutorial for search button, go home!');
end;
end;
if(NoobLevel = 0)then
begin
Writeln('Good try, better luck next time');
end;
Writeln('[LIST]');
PrintRequirements;
Writeln('/LIST]');
// Ye ye go home nub..
end;
begin
KThxBaiiNoob(3);
end.
Though staying mature would be using only the KThxBaiiNoob(0) and (1) :)
2,3 are for special occasions, if you nowadays can call blank apps or copyed scripts special :p