/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? |