unit Finish;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MMSystem, Math, ExtCtrls, Registry, LevelFunctions;
type
TFinishForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
SaveBtn: TButton;
CancelBtn: TButton;
NameEdit: TEdit;
PerformanceMemo: TMemo;
Label3: TLabel;
CupImage: TImage;
ReplayCheckBox: TCheckBox;
JumpHistoryLink: TLabel;
procedure CancelBtnClick(Sender: TObject);
procedure SaveBtnClick(Sender: TObject);
procedure JumpHistoryLinkClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
FLevel: String;
FScore: integer;
FStonesTotal: integer;
FStonesRemoved: integer;
FSeconds: integer;
FHistory: TStringList;
FGoalStatus: TGoalStatus;
procedure SaveToJournal(PlayerName: String; Score, StonesTotal, StonesRemoved, Seconds: Integer);
procedure LoadSettings;
public
procedure SaveSettings;
function Execute(LevelName: String; Score, StonesTotal, StonesRemoved, Seconds: Integer; GoalStatus: TGoalStatus; JumpHistory: TStringList): Integer;
end;
var
FinishForm: TFinishForm;
implementation
uses
History, Constants;
{$R *.dfm}
procedure TFinishForm.CancelBtnClick(Sender: TObject);
begin
Close;
end;
function TFinishForm.Execute(LevelName: String; Score, StonesTotal, StonesRemoved, Seconds: Integer; GoalStatus: TGoalStatus; JumpHistory: TStringList): Integer;
resourcestring
LNG_SCORE = 'Score: %d';
LNG_REMAINING = 'Remaining stones: %d (%f%%)'; // Jumping stone not counted!
LNG_TIME_SECONDS = 'Time: %d seconds';
LNG_POINTS_PER_MINUTE = '%d points per minute';
LNG_GOAL_RED = 'Red stone in target field (%d points)';
LNG_GOAL_YELLOW = 'Yellow stone in target field (%d points)';
LNG_GOAL_GREEN = 'Green stone in target field (%d points)';
LNG_GOAL_MISSED = 'No stone in target field (%d points)';
var
ExtraPoints: Integer;
begin
FLevel := LevelName;
FScore := Score;
FStonesTotal := StonesTotal;
FStonesRemoved := StonesRemoved;
FSeconds := Seconds;
FGoalStatus := GoalStatus;
FHistory := JumpHistory;
PerformanceMemo.Lines.Clear;
PerformanceMemo.Lines.Add('');
PerformanceMemo.Lines.Add(Format(LNG_REMAINING, [FStonesTotal - 1 - FStonesRemoved,
RoundTo(((FStonesTotal - 1 - FStonesRemoved) / FStonesTotal * 100), -2)]));
PerformanceMemo.Lines.Add(Format(LNG_TIME_SECONDS, [FSeconds]));
PerformanceMemo.Lines.Add(Format(LNG_POINTS_PER_MINUTE, [Round(FScore / FSeconds * 60)]));
if FGoalStatus = gsLastStoneInGoalRed then
begin
ExtraPoints := FieldTypeWorth(ftRed) * 100;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_RED, [ExtraPoints]));
Inc(FScore, ExtraPoints);
end
else if FGoalStatus = gsLastStoneInGoalYellow then
begin
ExtraPoints := FieldTypeWorth(ftYellow) * 100;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_YELLOW, [ExtraPoints]));
Inc(FScore, ExtraPoints);
end
else if FGoalStatus = gsLastStoneInGoalGreen then
begin
ExtraPoints := FieldTypeWorth(ftGreen) * 100;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_GREEN, [ExtraPoints]));
Inc(FScore, ExtraPoints);
end
else if FGoalStatus = gsLastStoneOutsideGoal then
begin
ExtraPoints := 0;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_MISSED, [ExtraPoints]));
Inc(FScore, ExtraPoints);
end;
PerformanceMemo.Lines.Strings[0] := Format(LNG_SCORE, [FScore]);
result := ShowModal;
end;
procedure TFinishForm.SaveToJournal(PlayerName: String; Score, StonesTotal, StonesRemoved, Seconds: Integer);
var
f: textfile;
tmp: string;
begin
tmp := Format(JNL_FILE, [FLevel]);
AssignFile(f, tmp);
if FileExists(tmp) then
Append(f)
else
ReWrite(f);
// TODO: Maybe we should do much more details, like, how many green stones were removed, how many yellows etc., and which stone was in the goal?
WriteLn(f, Format(JNL_ENTRY, [DateTimeToStr(now()), NameEdit.Text, FScore, FSeconds, FStonesRemoved, FStonesTotal-1]));
CloseFile(f);
end;
procedure TFinishForm.SaveSettings;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey(REG_KEY, true) then
begin
reg.WriteString(REG_PLAYERNAME, NameEdit.Text);
reg.WriteBool(REG_REPLAY, ReplayCheckbox.Checked);
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
procedure TFinishForm.LoadSettings;
var
reg: TRegistry;
begin
NameEdit.Text := '';
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKeyReadOnly(REG_KEY) then
begin
if reg.ValueExists(REG_PLAYERNAME) then
NameEdit.Text := reg.ReadString(REG_PLAYERNAME);
if reg.ValueExists(REG_REPLAY) then
ReplayCheckBox.Checked := reg.ReadBool(REG_REPLAY);
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
procedure TFinishForm.SaveBtnClick(Sender: TObject);
resourcestring
LNG_ENTER_NAME = 'Please enter your name to get added to the high score lists.';
begin
if NameEdit.Text = '' then
begin
MessageDlg(LNG_ENTER_NAME, mtWarning, [mbOk], 0);
NameEdit.SetFocus;
Exit;
end;
SaveToJournal(NameEdit.Text, FScore, FStonesTotal, FStonesRemoved, FSeconds);
ModalResult := mrOK;
end;
procedure TFinishForm.JumpHistoryLinkClick(Sender: TObject);
begin
HistoryForm.JumpMemo.Lines.Assign(FHistory);
HistoryForm.ShowModal();
end;
procedure TFinishForm.FormCreate(Sender: TObject);
begin
if not ForceDirectories(ExtractFilePath(Application.ExeName) + JNL_PATH) then
begin
MessageDlg(Format(LNG_COULD_NOT_CREATE_DIR, [JNL_PATH]), mtError, [mbOk], 0);
end;
LoadSettings;
end;
end.