spacemissionalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /GamMain.pas @ 37

  → /GamMain.pas @ 38

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 37 → Rev 38

/GamMain.pas
271,6 → 271,7
procedure StartSceneNewLevel;
procedure SceneNewLevel;
procedure EndSceneNewLevel;
procedure LevelNeuStarten;
public
FNextScene: TGameScene;
FScore: Integer;
623,7 → 624,7
begin
FCounter := 0;
State := pesDeadVanished;
Visible := false;
Visible := false; // Cannot use "Dead;" because we need to still be able to handle pesDeadVanished
end;
end
else if State = pesDeadVanished then
630,10 → 631,13
begin
if FCounter>2000 then
begin
MainForm.LevelNeuStarten;
(*
MainForm.FNextScene := gsGameOver;
MainForm.PlaySound(smsSceneMov, false);
MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);
Sleep(200);
*)
end;
end
else if State = pesFlyaway then
2329,7 → 2333,7
Spielgeschwindigkeit.enabled := false;
BossExists := false;
Spielgeschwindigkeit.enabled := false;
if ((FGameMode=gmLevels) and (not fileexists(GetLevelFileName(FLevel)))) or ((FGameMode=gmRandom) and (FLevel > 25)) then
if ((FGameMode=gmLevels) and (not fileexists(GetLevelFileName(FLevel)))) {or ((FGameMode=gmRandom) and (FLevel > 25))} then
begin
//PlaySound('SceneMov', False);
PalleteAnim(RGBQuad(0, 0, 0), 300);
2430,7 → 2434,7
speicherungform.showmodal;
end;
procedure TMainForm.NeustartClick(Sender: TObject);
procedure TMainForm.LevelNeuStarten;
var
tmpLifeAtLevelStart, tmpScoreAtLevelStart: integer;
begin
2437,11 → 2441,16
NewLevel(FLevel);
tmpLifeAtLevelStart := FLifeAtLevelStart;
tmpScoreAtLevelStart := FScoreAtLevelStart;
StartScene(gsMain);
FNextScene := gsNewLevel;
FLife := tmpLifeAtLevelStart;
FScore := tmpScoreAtLevelStart;
end;
procedure TMainForm.NeustartClick(Sender: TObject);
begin
LevelNeuStarten;
end;
procedure TMainForm.LeichtClick(Sender: TObject);
begin
leicht.checked := true;