Hmm are you sure??? all you gotta do is possibly mess with this...
SCAR Code:
{*******************************************************************************
procedure SendSRLReport;
By: Dankness
Description: Sends Current Stats to web server
*******************************************************************************}
procedure SendSRLReport;
var
I : Integer;
S : String;
M, Worked : Integer;
begin
if ( SRLID <> '' ) and ( SRLPassword <> '' ) then
begin
SRLClient := InitializeHTTPClient ( false, false );
Wait ( 10 );
M := ( GetTimeRunning ) div 1000 div 60;
Worked := M - LastMins2;
ClearPostData ( SRLClient );
Wait ( 10 );
AddPostVariable ( SRLClient, 'id', SRLID );
AddPostVariable ( SRLClient, 'pass', SRLPassword );
if ( ScriptID <> '' ) then
begin
AddPostVariable ( SRLClient, 'script', ScriptID );
try
for I := 0 to 19 do
begin
if ReportVars[I] > 0 then
begin
S := 'var' + IntToStr ( I + 1 );
AddPostVariable ( SRLClient, S, IntToStr ( ReportVars[I] ));
end;
end;
except
end;
end;
try
if ( Worked - LastScriptReport.Worked > 0 ) then
AddPostVariable ( SRLClient, 'Worked', IntToStr ( Worked - LastScriptReport.Worked ));
if ( Banks - LastScriptReport.Banked > 0 ) then
AddPostVariable ( SRLClient, 'Banked', IntToStr ( Banks - LastScriptReport.Banked ));
if ( NewBoxes - LastScriptReport.Boxes > 0 ) then
AddPostVariable ( SRLClient, 'Boxes', IntToStr ( NewBoxes - LastScriptReport.Boxes));
if ( Frogs - LastScriptReport.Frogs > 0 ) then
AddPostVariable ( SRLClient, 'Frogs', IntToStr ( Frogs - LastScriptReport.Frogs ));
if ( SRL_Logs - LastScriptReport.Logs > 0 ) then
AddPostVariable ( SRLClient, 'Logged', IntToStr ( SRL_Logs - LastScriptReport.Logs ));
if ( Plants - LastScriptReport.Plants > 0 ) then
AddPostVariable ( SRLClient, 'Plants', IntToStr ( Plants - LastScriptReport.Plants ));
if ( Lamps - LastScriptReport.Lamps > 0 ) then
AddPostVariable ( SRLClient, 'Lamps', IntToStr ( Lamps - LastScriptReport.Lamps ));
if ( Fights - LastScriptReport.Fights > 0 ) then
AddPostVariable ( SRLClient, 'Fights', IntToStr ( Fights - LastScriptReport.Fights ));
if ( Talks - LastScriptReport.Talks > 0 ) then
AddPostVariable ( SRLClient, 'Talks', IntToStr ( Talks - LastScriptReport.Talks ));
if ( Deaths - LastScriptReport.Deaths > 0 ) then
AddPostVariable ( SRLClient, 'Deaths', IntToStr ( Deaths - LastScriptReport.Deaths ));
if ( Certers - LastScriptReport.Certers > 0 ) then
AddPostVariable ( SRLClient, 'Certers', IntToStr ( Certers - LastScriptReport.Certers ));
if ( Sandwiches - LastScriptReport.Sandwiches > 0 ) then
AddPostVariable ( SRLClient, 'Sandwiches', IntToStr ( Sandwiches - LastScriptReport.Sandwiches ));
if ( Ricks - LastScriptReport.Ricks > 0 ) then
AddPostVariable ( SRLClient, 'Ricks', IntToStr ( Ricks - LastScriptReport.Ricks ));
if ( Dwarfs - LastScriptReport.Dwarfs > 0 ) then
AddPostVariable ( SRLClient, 'Dwarfs', IntToStr ( Dwarfs - LastScriptReport.Dwarfs ));
if ( Caps - LastScriptReport.Caps > 0 ) then
AddPostVariable ( SRLClient, 'Caps', IntToStr ( Caps - LastScriptReport.Caps ));
if ( Oldmen - LastScriptReport.Oldmen > 0 ) then
AddPostVariable ( SRLClient, 'Oldmen', IntToStr ( Oldmen - LastScriptReport.Oldmen ));
if ( Trades - LastScriptReport.Trades > 0 ) then
AddPostVariable ( SRLClient, 'Trades', IntToStr ( Trades - LastScriptReport.Trades ));
if ( Mods - LastScriptReport.Mods > 0 ) then
AddPostVariable ( SRLClient, 'Mods', IntToStr ( Mods - LastScriptReport.Mods ));
if ( Mimes - LastScriptReport.Mimes > 0 ) then
AddPostVariable ( SRLClient, 'Mimes', IntToStr ( Mimes - LastScriptReport.Mimes ));
if ( Mazes - LastScriptReport.Mazes > 0 ) then
AddPostVariable ( SRLClient, 'Mazes', IntToStr ( Mazes - LastScriptReport.Mazes ));
if ( ScapeRunes - LastScriptReport.ScapeRunes > 0 ) then
AddPostVariable ( SRLClient, 'ScapeRunes', IntToStr ( ScapeRunes + ScapeRunes - LastScriptReport.ScapeRunes ));
if ( EntsAvoided - LastScriptReport.EntsAvoided > 0 ) then
AddPostVariable ( SRLClient, 'EntsAvoided', IntToStr ( EntsAvoided - LastScriptReport.EntsAvoided ));
if ( Whirlpools - LastScriptReport.Whirlpools > 0 ) then
AddPostVariable ( SRLClient, 'Whirlpools', IntToStr ( Whirlpools - LastScriptReport.Whirlpools ));
if ( RodsFound - LastScriptReport.RodsFound > 0 ) then
AddPostVariable ( SRLClient, 'RodsFound', IntToStr ( RodsFound - LastScriptReport.RodsFound ));
if ( AxeAttaches - LastScriptReport.AxeAttaches > 0 ) then
AddPostVariable ( SRLClient, 'AxeAttaches', IntToStr ( AxeAttaches - LastScriptReport.AxeAttaches ));
if ( Birdsnest - LastScriptReport.Birdsnest > 0 ) then
AddPostVariable ( SRLClient, 'Birdsnest', IntToStr ( Birdsnest - LastScriptReport.Birdsnest ));
if ( PickAxeAttached - LastScriptReport.PickAxeAttached > 0 ) then
AddPostVariable ( SRLClient, 'PickAxeAttached', IntToStr ( PickAxeAttached - LastScriptReport.PickAxeAttached ));
if ( Jekylls - LastScriptReport.Jekylls > 0 ) then
AddPostVariable ( SRLClient, 'Jekylls', IntToStr ( Jekylls - LastScriptReport.Jekylls ));
if ( SGuard - LastScriptReport.SGuard > 0 ) then
AddPostVariable ( SRLClient, 'SGuard', IntToStr ( SGuard - LastScriptReport.SGuard ));
S := PostHTTPPageEx ( SRLClient, 'http://www.stats.srl-forums.com/Stat.php' );
if ( Length ( S ) > 32 ) then
if ( S[32] = ':' ) then
begin
WriteLn ( S );
SRLID := '';
end;
Wait ( 10 );
if ( DebugStats ) then
WriteLn ( S );
except
end;
FreeHTTPClient( SRLClient );
LastMins2 := M;
SetLastCommitVars;
Wait ( 10 );
end;
end;
