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 @ 53

  → /GamMain.pas @ 54

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 53 → Rev 54

/GamMain.pas
334,15 → 334,6
uses
GamSplash, GamSpeicherung, ComInfo, GamCheat, MMSystem, Registry;
const
conleicht = 650 div 60; // 10
conmittel = 1000 div 60; // 16
conschwer = 1350 div 60; // 22
conmaster = 2000 div 60; // 33
StartLives = 6;
DEFAULT_ANIMSPEED = 15/1000;
ADDITIONAL_ENEMIES_PER_LEVEL = 75;
{$R *.DFM}
const
1262,10 → 1253,6
{ TMainForm }
procedure TMainForm.FormCreate(Sender: TObject);
resourcestring
SFileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
var
SavGame: TSaveData;
begin
Randomize;
1333,38 → 1320,9
DXInit;
SoundInit;
MusicInit;
ResetLevelData;
if (paramcount > 0) and (fileexists(paramstr(1))) and (ExtractFileExt(paramstr(1)).ToLower = '.sav') then
begin
SavGame := TSaveData.Create;
try
try
SavGame.LoadFromFile(paramstr(1));
FScore := SavGame.Score;
FLife := SavGame.Life;
FLevel := SavGame.Level;
FGameMode := SavGame.GameMode;
FLevelDataAlreadyLoaded := true; // do not call NewLevel() in StartSceneMain
if Assigned(SavGame.LevelData) then
begin
LevelData.Assign(SavGame.LevelData);
end;
except
on E: Exception do
begin
showmessage(SFileError + ' ' +E.Message);
GameStartClick(GameStart);
exit;
end;
end;
finally
FreeAndNil(SavGame);
end;
FNextScene := gsNewLevel;
exit;
end;
GameStartClick(GameStart);
end;
procedure TMainForm.GameStartClick(Sender: TObject);
begin
2463,6 → 2421,10
end;
procedure TMainForm.FormShow(Sender: TObject);
resourcestring
SFileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
var
SavGame: TSaveData;
begin
if Assigned(SplashForm) then
begin
2472,7 → 2434,39
dxtimer.Enabled := true;
dxtimer.ActiveOnly := true;
ResetLevelData;
if (paramcount > 0) and (fileexists(paramstr(1))) and (ExtractFileExt(paramstr(1)).ToLower = '.sav') then
begin
SavGame := TSaveData.Create;
try
try
SavGame.LoadFromFile(paramstr(1));
FScore := SavGame.Score;
FLife := SavGame.Life;
FLevel := SavGame.Level;
FGameMode := SavGame.GameMode;
FLevelDataAlreadyLoaded := true; // do not call NewLevel() in StartSceneMain
if Assigned(SavGame.LevelData) then
begin
LevelData.Assign(SavGame.LevelData);
end;
except
on E: Exception do
begin
showmessage(SFileError + ' ' +E.Message);
GameStartClick(GameStart);
exit;
end;
end;
finally
FreeAndNil(SavGame);
end;
//FNextScene := gsNewLevel;
StartScene(gsNewLevel);
exit;
end;
end;
procedure TMainForm.InformationenClick(Sender: TObject);
begin