Rev 50 | Rev 54 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 50 | Rev 51 | ||
|---|---|---|---|
| Line 277... | Line 277... | ||
| 277 | EnemyCounter: integer; |
277 | EnemyCounter: integer; |
| 278 | FBossImLevel: boolean; |
278 | FBossImLevel: boolean; |
| 279 | FBossLife: integer; |
279 | FBossLife: integer; |
| 280 | Crash: boolean; |
280 | Crash: boolean; |
| 281 | crashsound: boolean; |
281 | crashsound: boolean; |
| 282 | FLifeAtLevelStart: integer; |
- | |
| 283 | FScoreAtLevelStart: integer; |
- | |
| 284 | FLevelDataAlreadyLoaded: boolean; |
- | |
| 285 | public |
282 | public |
| 286 | FNextScene: TGameScene; |
283 | FNextScene: TGameScene; |
| 287 | FScore: Integer; |
284 | FScore: Integer; |
| 288 | FNotSave: boolean; |
285 | FNotSave: boolean; |
| 289 | FLife: integer; |
286 | FLife: integer; |
| 290 | FLevel: integer; |
287 | FLevel: integer; |
| 291 | FGameMode: TGameMode; |
288 | FGameMode: TGameMode; |
| 292 | - | ||
| - | 289 | FLifeAtLevelStart: integer; |
|
| - | 290 | FScoreAtLevelStart: integer; |
|
| - | 291 | FLevelDataAlreadyLoaded: boolean; |
|
| 293 | FRestEnemies: integer; |
292 | FRestEnemies: integer; |
| 294 | FCheat: boolean; |
293 | FCheat: boolean; |
| 295 | { VCL-Ersatz } |
294 | { VCL-Ersatz } |
| 296 | dxdraw: TDxDraw; |
295 | dxdraw: TDxDraw; |
| 297 | imagelist: TDxImageList; |
296 | imagelist: TDxImageList; |
| Line 2013... | Line 2012... | ||
| 2013 | {$ENDREGION} |
2012 | {$ENDREGION} |
| 2014 | end |
2013 | end |
| 2015 | else |
2014 | else |
| 2016 | begin |
2015 | begin |
| 2017 | {$REGION 'Normal game'} |
2016 | {$REGION 'Normal game'} |
| 2018 | if fileexists(GetLevelFileName(lev)) then |
2017 | if fileexists(GetLevelFileName(lev,false)) then |
| 2019 | begin |
2018 | begin |
| 2020 | try |
2019 | try |
| 2021 | LevelData.RasterErzwingen := false; |
2020 | LevelData.RasterErzwingen := false; |
| 2022 | LevelData.LoadFromFile(GetLevelFileName(lev)); |
2021 | LevelData.LoadFromFile(GetLevelFileName(lev,false)); |
| 2023 | except |
2022 | except |
| 2024 | showmessage(Format(LNG_LEVEL_INVALID, [lev])); |
2023 | showmessage(Format(LNG_LEVEL_INVALID, [lev])); |
| 2025 | ResetLevelData; |
2024 | ResetLevelData; |
| 2026 | end; |
2025 | end; |
| 2027 | end; |
2026 | end; |
| Line 2084... | Line 2083... | ||
| 2084 | 2083 | ||
| 2085 | // Weiter mit Leertaste oder Enter |
2084 | // Weiter mit Leertaste oder Enter |
| 2086 | if (isButton1 in DXInput.States) or (isButton2 in DXInput.States) then |
2085 | if (isButton1 in DXInput.States) or (isButton2 in DXInput.States) then |
| 2087 | begin |
2086 | begin |
| 2088 | FLevel := 1; |
2087 | FLevel := 1; |
| 2089 | if ((FGameMode=gmLevels) and not fileexists(GetLevelFileName(FLevel))) or ((FGameMode=gmRandom) and (FLevel > 20)) then |
2088 | if ((FGameMode=gmLevels) and not fileexists(GetLevelFileName(FLevel,false))) or ((FGameMode=gmRandom) and (FLevel > 20)) then |
| 2090 | begin |
2089 | begin |
| 2091 | //PlaySound('Frage', False); |
2090 | //PlaySound('Frage', False); |
| 2092 | exit; |
2091 | exit; |
| 2093 | end; |
2092 | end; |
| 2094 | PlaySound(smsSceneMov, False); |
2093 | PlaySound(smsSceneMov, False); |
| Line 2325... | Line 2324... | ||
| 2325 | Neustart.enabled := false; |
2324 | Neustart.enabled := false; |
| 2326 | GamePause.enabled := false; |
2325 | GamePause.enabled := false; |
| 2327 | GameStart.enabled := true; |
2326 | GameStart.enabled := true; |
| 2328 | Spielgeschwindigkeit.enabled := false; |
2327 | Spielgeschwindigkeit.enabled := false; |
| 2329 | Spielgeschwindigkeit.enabled := false; |
2328 | Spielgeschwindigkeit.enabled := false; |
| 2330 | if ((FGameMode=gmLevels) and (not fileexists(GetLevelFileName(FLevel)))) |
2329 | if ((FGameMode=gmLevels) and (not fileexists(GetLevelFileName(FLevel,false)))) |
| 2331 | // or ((FGameMode=gmRandom) and (FLevel > 25)) |
2330 | // or ((FGameMode=gmRandom) and (FLevel > 25)) |
| 2332 | or (FLevel > MaxPossibleLevels) then |
2331 | or (FLevel > MaxPossibleLevels) then |
| 2333 | begin |
2332 | begin |
| 2334 | //PlaySound('SceneMov', False); |
2333 | //PlaySound('SceneMov', False); |
| 2335 | PalleteAnim(RGBQuad(0, 0, 0), 300); |
2334 | PalleteAnim(RGBQuad(0, 0, 0), 300); |