Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 45 → Rev 46

/GamMain.pas
278,7 → 278,6
FLife: integer;
FLifeAtLevelStart: integer;
FScoreAtLevelStart: integer;
FLevelDataAlreadyLoadedAtLevelStart: boolean;
FLevel: integer;
FGameMode: TGameMode;
FLevelDataAlreadyLoaded: boolean;
649,7 → 648,7
begin
Dead;
inc(mainform.FLevel);
MainForm.FLevelDataAlreadyLoaded := false;
MainForm.FLevelDataAlreadyLoaded := false; // allow NewLevel() to work again
MainForm.FNextScene := gsNewLevel;
MainForm.PlaySound(smsSceneMov, false);
MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);
1742,13 → 1741,12
FLife := StartLives;
FLevel := 0;
FScore := 0;
FLevelDataAlreadyLoaded := false;
FLevelDataAlreadyLoaded := false; // do allow NewLevel() to work again
FNotSave := true;
Cheat.enabled := false;
Neustart.enabled := false;
GamePause.enabled := false;
GameStart.enabled := false;
Spielstand.Enabled := true;
Spielgeschwindigkeit.enabled := false;
mainform.Visible := true;
MusicSwitchTrack(smmTitle);
1764,7 → 1762,6
FRestEnemies := Length(LevelData.EnemyAdventTable);
FLifeAtLevelStart := FLife; // Das ist wichtig, wenn man neu starten möchte
FScoreAtLevelStart := FScore; //
FLevelDataAlreadyLoadedAtLevelStart := FLevelDataAlreadyLoaded;
BossExists := false;
MusicSwitchTrack(smmGame);
FEnemyAdventPos := 0;
1850,7 → 1847,6
Neustart.enabled := true;
GamePause.enabled := true;
GameStart.enabled := true;
Spielstand.Enabled := true;
Spielgeschwindigkeit.enabled := true;
end;
 
1857,9 → 1853,8
procedure TMainForm.StartSceneGameOver;
begin
sleep(500);
FNotSave := true;
FNotSave := true; // Wenn man speichert, würde man LevelAdventTable vom vorherigen Level machen, das wär müll!
Cheat.enabled := false;
Spielstand.Enabled := false; // Wenn man speichert, würde man LevelAdventTable vom vorherigen Level machen, das wär müll!
Spielgeschwindigkeit.enabled := false;
Neustart.enabled := false;
GamePause.enabled := false;
1870,9 → 1865,8
procedure TMainForm.StartSceneWin;
begin
sleep(500);
FNotSave := true;
FNotSave := true; // Wenn man speichert, würde man LevelAdventTable vom vorherigen Level machen, das wär müll!
Cheat.enabled := false;
Spielstand.Enabled := false; // Wenn man speichert, würde man LevelAdventTable vom vorherigen Level machen, das wär müll!
Spielgeschwindigkeit.enabled := false;
Neustart.enabled := false;
GamePause.enabled := false;
2034,6 → 2028,7
end;
{$ENDREGION}
end;
FLevelDataAlreadyLoaded := true; // nicht nochmal NewLevel() aufrufen. Erst wieder wenn man gewonnen hat.
end;
 
procedure TMainForm.SceneTitle;
2342,12 → 2337,11
procedure TMainForm.StartSceneNewLevel;
begin
sleep(500);
FNotSave := false;
FNotSave := true; // Wenn man speichert, würde man LevelAdventTable vom vorherigen Level machen, das wär müll!
Cheat.enabled := false;
Neustart.enabled := false;
GamePause.enabled := false;
GameStart.enabled := true;
Spielstand.Enabled := false; // Wenn man speichert, würde man LevelAdventTable vom vorherigen Level machen, das wär müll!
Spielgeschwindigkeit.enabled := false;
BossExists := false;
Spielgeschwindigkeit.enabled := false;
2459,7 → 2453,6
FNextScene := gsNewLevel;
FLife := FLifeAtLevelStart;
FScore := FScoreAtLevelStart;
FLevelDataAlreadyLoaded := FLevelDataAlreadyLoaded;
end;
 
procedure TMainForm.NeustartClick(Sender: TObject);