SRL Archive - Other Scripts

Lol no comment =]]

is there a way to unObfuscate scrips?

If you know how they are made then yeah sure

its cool to make scrips like that, good for pay scrips

k-'); WriteLn(''); WriteLn(''); WriteLn(''); WriteLn('                        ' + IntToStr(SSec) + ' Seconds ' + IntToStr(MMin) + ' Minutes ' + IntToStr(HHou) + ' Hours'); WriteLn(''); WriteLn(''); WriteLn(''); WriteLn('By Derek-                                                      By Derek-'); Wait(1000); Dec(SSec); ClearDebug; if (SSec <= 0) then PASDFGHJKL; until (Done); WriteLn('Now wasn''t that fun!!'); end.
var SSec, MMin, HHou, Times : Integer; Done : Boolean; Procedure QWERTYUIO; begin Dec(HHou); MMin := 59; SSec := 59; end; Procedure PASDFGHJKL; begin Dec(MMin); SSec := 59; if (MMin <= 0) then if (HHou > 0) then QWERTYUIO else Inc(Times); if (Times >= 2) then Done := True; end; begin SSec := NumOfSeconds; MMin := NumOfMinutes; HHou := NumOfHours; repeat WriteLn('By Derek-              

Omg i haxed you. lol.

Nice timer =D

:p

You should use GetSystemTime and calculate what time to end; wait(1000) + all the other things you have repeating will set it off by a few ms every second.

EDIT: :) Made me think of my first script http://www.moparisthebest.com/smf/index.php/topic,58441.0.html

Lol wasn't really meaning to have it time on the ms but…. lol

plus it skips a second every minute anyway I think it makes up for it =]