Subversion Repositories jumper

Compare Revisions

Regard whitespace Rev 8 → Rev 9

/trunk/Choice.pas
161,7 → 161,7
begin
if not ForceDirectories(ExtractFilePath(Application.ExeName) + LVL_PATH) then
begin
ShowMessage(Format(LNG_COULD_NOT_CREATE_DIR, [LVL_PATH]));
MessageDlg(Format(LNG_COULD_NOT_CREATE_DIR, [LVL_PATH]), mtError, [mbOK], 0);
end;
end;
 
/trunk/Finish.pas
74,25 → 74,28
if FGoalStatus = gsLastStoneInGoalRed then
begin
ExtraPoints := FieldTypeWorth(ftRed) * 100;
PerformanceMemo.Lines.Add(Format(LNG_GOAL_RED, [ExtraPoints]))
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]))
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]))
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]))
PerformanceMemo.Lines.Add(Format(LNG_GOAL_MISSED, [ExtraPoints]));
Inc(FScore, ExtraPoints);
end;
 
Inc(FScore, ExtraPoints);
PerformanceMemo.Lines.Strings[0] := Format(LNG_SCORE, [FScore]);
 
result := ShowModal;
160,7 → 163,7
begin
if NameEdit.Text = '' then
begin
showmessage(LNG_ENTER_NAME);
MessageDlg(LNG_ENTER_NAME, mtWarning, [mbOk], 0);
NameEdit.SetFocus;
Exit;
end;
179,7 → 182,7
begin
if not ForceDirectories(ExtractFilePath(Application.ExeName) + JNL_PATH) then
begin
ShowMessage(Format(LNG_COULD_NOT_CREATE_DIR, [JNL_PATH]));
MessageDlg(Format(LNG_COULD_NOT_CREATE_DIR, [JNL_PATH]), mtError, [mbOk], 0);
end;
 
LoadSettings;
/trunk/Functions.pas
115,7 → 115,7
 
if not FileExists(InputFile) then
begin
ShowMessage(Format(LNG_COULD_NOT_OPEN_FILE, [InputFile]));
MessageDlg(Format(LNG_COULD_NOT_OPEN_FILE, [InputFile]), mtError, [mbOk], 0);
Exit;
end;
 
/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) = mrYes then
if MessageDlg(LNG_ARE_YOU_SURE, mtConfirmation, mbYesNoCancel, 0) = mrYes then
begin
DeleteFile(Format(JNL_FILE, [FLevelName]));
ClearLists;
/trunk/History.pas
36,7 → 36,7
if JumpSaveDialog.Execute then
begin
JumpMemo.Lines.SaveToFile(JumpSaveDialog.FileName);
ShowMessage(LNG_SAVED);
MessageDlg(LNG_SAVED, mtInformation, [mbOk], 0);
end;
end;
 
/trunk/LevelFunctions.pas
120,12 → 120,12
begin
case error of
leNone: ;
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);
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);
end;
end;
 
/trunk/Main.pas
643,7 → 643,7
BuildPlayground(LevelArray);
if not AreJumpsPossible then
begin
ShowMessage(LNG_LVL_INVALID_NO_JUMP);
MessageDlg(LNG_LVL_INVALID_NO_JUMP, mtError, [mbOk], 0);
end;
RefreshTime;
RefreshStonesRemoved;
/trunk/Private/Konzept.txt
11,7 → 11,6
- 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?