SCAR Code:
Procedure Proggy;
var
i, loads, DoXpAndIvyCount, XPEnd, XPBegin, IvysNearlyCut, CurrentXP: integer;
NewExpDiff, ReportExp : integer;
s: string;
XPGained, tmp, IvysCut : Extended;
begin
for i:= 0 to HowManyPlayers-1 do
begin
if i = CurrentPlayer then
begin
GameTab(22);
CurrentXP := GetXP('woodcutting');
Writeln(CurrentXP);
NewExpDiff := CurrentXP - StartingXP;
Writeln(NewExpDiff);
ReportExp := NewExpDiff - LastExpDiff;
Writeln(ReportExp);
Players[CurrentPlayer].Extendeds[49] := ReportExp;
IvysCut := (ReportExp / 332.5);
Writeln(IvysCut);
Players[CurrentPlayer].Extendeds[50] := IvysCut;
IncEx(Stats_CustomVars[1], Ceil(IvysCut));
IncEx(Stats_CustomVars[6], Ceil(ReportExp));
end;
TakePic;
Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked + TimeFromMark(RestTime);
end;
ClearReport;
SRLProgressReport(
ResultDebugBox, 'ProIvy', 'The Man', Version,
['Time running', 'EXP Gained'],
[TimeRunning, ReportExp]
);
s := SRLProgressReport(
ResultString, 'ProWoodcutter', 'The Man', Version,
['Time running', 'EXP Gained'],
[TimeRunning, ReportExp]
);
SRLPlayerReport(
ResultDebugBox, 0, false,
[true, true, false, false, false, true],
['Tree', 'EXP Gained', 'Ivy''s Cut'],
[], [], [0], [49,50]
);
s := s + char(#13) + SRLPlayerReport(
ResultString, 0, false,
[true, true, false, false, false, true],
['Tree', 'EXP Gained', 'Ivy''s Cut'],
[], [], [0], [49,50]
);
i := ReWriteFile(ScriptPath + ScriptName + '.txt', False);
WriteFileString(i, s);
CloseFile(i);
writeln('Progress report saved to: ' + ScriptPath + ScriptName + '.txt');
Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked - TimeFromMark(RestTime) + 5;
Stats_SendReport;
Stats_ManageAccounts;
LastExpDiff := NewExpDiff;
end;