SRL Archive - Other Scripts

Random but cool

sirlaughsalot

2008-05-28 22:27:14

Put


program New;
begin
repeat
writeln(''+inttostr(gettickcount))
until (false)
end.

into scar and you will see the current time in milliseconds lol

EvilChicken!

2008-05-29 01:48:47

A WriteLn takes over ~2 MS. Correct way (as I see it) without crashing SCAR due to lag.

program New;
begin
  ClearDebug;
  WriteLn(IntToStr(GetTickCount));
  repeat
    ReplaceDebugLine(0, IntToStr(GetSystemTime));
    if random(100) = 1 then Wait(1);
  until false;
end.