Ok, my srl stats are WAY wrong.
What happens is this:
- CurrentWins := 0.
- Wins := 15. CurrentWins := 15 - 0.
- CurrentWins is now 15.
- So the next time, CurrentWins := 20 - 15.
- But it still reports 20.
Anyone have any ideas? Do the Locals in this need to be Globals?
SCAR Code:
Procedure ProgressReporting;
Var
CurrentDuels, CurrentWins, CurrentLosses, Currentdenied : Integer;
Begin
ClearDebug;
Duels := Wins + Lost;
CurrentWins := Wins - CurrentWins;
ReportVars[0] := CurrentWins;
CurrentLosses := Lost - CurrentLosses;
ReportVars[1] := CurrentLosses;
CurrentDuels := Duels - CurrentDuels;
ReportVars[2] := CurrentDuels;
Currentdenied := denied - Currentdenied;
ReportVars[3] := Currentdenied;
WriteLn('You won: ' + IntToStr(Wins) + ' duels.');
WriteLn('You lost: ' + IntToStr(Lost) + ' duels.');
WriteLn('You have dueled: ' + IntToStr(Duels) + ' times.');
WriteLn('You have denied ' + IntToStr(Denied) + ' duels');
WriteLn('The script has been running for: ' + TimeRunning);
WriteLn('Thanks for using the Duel Arena Trainer by Sandstorm!');
SRLRandomsReport;
Marktime(Marking);
End;