o hai der
Woot, never knew I was credited in that script. Thanks! 
Anway, your proggy really bugs be. Srysly.
Enjoy:
SCAR Code:
procedure Proggy;
var
I: Byte;
JX2:integer;
begin
SRLRandomsReport;
ClearDebug;
WriteLn('[===========================================]');
WriteLn('[ ' + ScriptName + ' ' + ScriptVersion + ' by Rasta Magician ]');
WriteLn('[===========================================]');
WriteLn('[ ' + Padr('Written ' + (TheTime) + ' on ' + (TheDate(3)) + '.', 42) + ']');
WriteLn('[ ' + Padr('Time Running: '+TimeRunning, 42) + ']');
WriteLn('[ ' + Padr('Players: ' + IntToStr(HowManyPlayers), 42) + ']');
WriteLn('[ ' + Padr('Current Player: ' + Players[CurrentPlayer].Nick, 42) + ']');
WriteLn('[ ' + Padr('Total Loads: ' + IntToStr(TotalLoads), 42) + ']');
WriteLn('[ ' + Padr('Total Logs: ' + IntToStr(TotalLoads * 27), 42) + ']');
WriteLn('[===========================================]');
WriteLn('');
WriteLn('[===========================================]');
WriteLn('[ Nick | Loc | Level | Tree | Logs | Active ]');
for i:=0 to HowManyPlayers - 1 do
begin
Players[CurrentPlayer].Active := False;
WriteLn('[ ' + Left(Players[I].Nick, 3) + ' | ' + Padr(Players[i].Loc, 3) +
' | ' + Padr(IntToStr(Players[I].Level[20]), 5) + ' | ' +
Padr(Players[i].Strings[0], 4) + ' | ' + Padr(IntToStr(Players[I].Integers[0]), 4) +
' | ' + Padr(BoolToStr(Players[i].Active), 5) + ' ]');
end;
WriteLn('[===========================================]');
if SaveProggyToFile then
begin
JX2 := ReWriteFile(ScriptPath + 'RM Cutter Proggy.txt', False);
WriteFileString(JX2, GetDebugText);
CloseFile(JX2);
WriteLn('Progress report saved to: ' + ScriptPath + 'RM Cutter Proggy.txt');
end;
Disguise(' A: '+IntToStr(HowManyActive) + '/' + IntToStr(HowManyPlayers) +
' Logs: ' + IntToStr(TotalLoads * 27));
end;
(Seriously, please use it. At least tell me how you liked it. Because I spent some time on it. Liek. 30 minz. kkuwbai )