Subversion Repositories jumper

Compare Revisions

Regard whitespace Rev 9 → Rev 8

/trunk/Finish.pas
74,28 → 74,25
if FGoalStatus = gsLastStoneInGoalRed then
begin
ExtraPoints := FieldTypeWorth(ftRed) * 100;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_RED, [ExtraPoints]));
Inc(FScore, ExtraPoints);
PerformanceMemo.Lines.Add(Format(LNG_GOAL_RED, [ExtraPoints]))
end
else if FGoalStatus = gsLastStoneInGoalYellow then
begin
ExtraPoints := FieldTypeWorth(ftYellow) * 100;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_YELLOW, [ExtraPoints]));
Inc(FScore, ExtraPoints);
PerformanceMemo.Lines.Add(Format(LNG_GOAL_YELLOW, [ExtraPoints]))
end
else if FGoalStatus = gsLastStoneInGoalGreen then
begin
ExtraPoints := FieldTypeWorth(ftGreen) * 100;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_GREEN, [ExtraPoints]));
Inc(FScore, ExtraPoints);
PerformanceMemo.Lines.Add(Format(LNG_GOAL_GREEN, [ExtraPoints]))
end
else if FGoalStatus = gsLastStoneOutsideGoal then
begin
ExtraPoints := 0;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_MISSED, [ExtraPoints]));
Inc(FScore, ExtraPoints);
PerformanceMemo.Lines.Add(Format(LNG_GOAL_MISSED, [ExtraPoints]))
end;
 
Inc(FScore, ExtraPoints);
PerformanceMemo.Lines.Strings[0] := Format(LNG_SCORE, [FScore]);
 
result := ShowModal;
163,7 → 160,7
begin
if NameEdit.Text = '' then
begin
MessageDlg(LNG_ENTER_NAME, mtWarning, [mbOk], 0);
showmessage(LNG_ENTER_NAME);
NameEdit.SetFocus;
Exit;
end;
182,7 → 179,7
begin
if not ForceDirectories(ExtractFilePath(Application.ExeName) + JNL_PATH) then
begin
MessageDlg(Format(LNG_COULD_NOT_CREATE_DIR, [JNL_PATH]), mtError, [mbOk], 0);
ShowMessage(Format(LNG_COULD_NOT_CREATE_DIR, [JNL_PATH]));
end;
 
LoadSettings;
/trunk/HighScore.pas
192,7 → 192,7
resourcestring
LNG_ARE_YOU_SURE = 'Are you really sure you want to clear the high score list?';
begin
if MessageDlg(LNG_ARE_YOU_SURE, mtConfirmation, mbYesNoCancel, 0) = mrYes then
if MessageDlg(LNG_ARE_YOU_SURE, mtConfirmation, mbYesNoCancel) = mrYes then
begin
DeleteFile(Format(JNL_FILE, [FLevelName]));
ClearLists;
/trunk/LevelFunctions.pas
120,12 → 120,12
begin
case error of
leNone: ;
leInvalidElement: MessageDlg(LNG_LVL_INVALID_ELEMENT, mtError, [mbOk], 0);
leNoIndicator: MessageDlg(LNG_LVL_INVALID_WIDTH, mtError, [mbOk], 0);
leMultipleIndicator: MessageDlg(LNG_LVL_INVALID_MULTIPLE_WIND, mtError, [mbOk], 0);
leLevelIncomplete: MessageDlg(LNG_LVL_INVALID_HEIGHT_MUTLIPLE, mtError, [mbOk], 0);
leHeaderError: MessageDlg(LNG_LVL_INVALID_HEADER, mtError, [mbOk], 0);
leInvalidGoal: MessageDlg(LNG_INVALID_GOAL, mtError, [mbOk], 0);
leInvalidElement: ShowMessage(LNG_LVL_INVALID_ELEMENT);
leNoIndicator: ShowMessage(LNG_LVL_INVALID_WIDTH);
leMultipleIndicator: ShowMessage(LNG_LVL_INVALID_MULTIPLE_WIND);
leLevelIncomplete: ShowMessage(LNG_LVL_INVALID_HEIGHT_MUTLIPLE);
leHeaderError: ShowMessage(LNG_LVL_INVALID_HEADER);
leInvalidGoal: ShowMessage(LNG_INVALID_GOAL);
end;
end;
 
/trunk/Main.pas
643,7 → 643,7
BuildPlayground(LevelArray);
if not AreJumpsPossible then
begin
MessageDlg(LNG_LVL_INVALID_NO_JUMP, mtError, [mbOk], 0);
ShowMessage(LNG_LVL_INVALID_NO_JUMP);
end;
RefreshTime;
RefreshStonesRemoved;
/trunk/Private/Konzept.txt
11,6 → 11,7
- standardbretter aus wikipedia als level entwickeln
- Setup erstellen
- level auswahl form in bildschirmmitte
- showmessage in dialoge umwandeln
- Handsymbol ändern
- modal Form blink fehler
- den ausgewählten stein irgendwie farblich markieren?
/trunk/Choice.pas
161,7 → 161,7
begin
if not ForceDirectories(ExtractFilePath(Application.ExeName) + LVL_PATH) then
begin
MessageDlg(Format(LNG_COULD_NOT_CREATE_DIR, [LVL_PATH]), mtError, [mbOK], 0);
ShowMessage(Format(LNG_COULD_NOT_CREATE_DIR, [LVL_PATH]));
end;
end;
 
/trunk/History.pas
36,7 → 36,7
if JumpSaveDialog.Execute then
begin
JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName);
MessageDlg(LNG_SAVED, mtInformation, [mbOk], 0);
ShowMessage(LNG_SAVED);
end;
end;
 
/trunk/Functions.pas
115,7 → 115,7
 
if not FileExists(InputFile) then
begin
MessageDlg(Format(LNG_COULD_NOT_OPEN_FILE, [InputFile]), mtError, [mbOk], 0);
ShowMessage(Format(LNG_COULD_NOT_OPEN_FILE, [InputFile]));
Exit;
end;