Rev 1 | Rev 6 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1 | Rev 4 | ||
|---|---|---|---|
| Line 400... | Line 400... | ||
| 400 | if not AreJumpsPossible then |
400 | if not AreJumpsPossible then |
| 401 | begin |
401 | begin |
| 402 | MPauseTime.Enabled := false; |
402 | MPauseTime.Enabled := false; |
| 403 | Timer.Enabled := false; |
403 | Timer.Enabled := false; |
| 404 | RefreshTime; |
404 | RefreshTime; |
| - | 405 | if MEnableSound.Checked then |
|
| - | 406 | begin |
|
| - | 407 | if LevelRemovedStones = LevelTotalStones then |
|
| 405 | if MEnableSound.Checked then PlaySound(RES_FINISH, HInstance, SND_ASYNC or SND_NOWAIT or SND_RESOURCE); |
408 | PlaySound(RES_FINISH, HInstance, SND_ASYNC or SND_NOWAIT or SND_RESOURCE) |
| - | 409 | else |
|
| - | 410 | PlaySound(RES_LOSE, HInstance, SND_ASYNC or SND_NOWAIT or SND_RESOURCE); |
|
| - | 411 | end; |
|
| 406 | res := FinishForm.Execute(ExtractFileNameWithoutExt(LevelFile), Points, LevelTotalStones, LevelRemovedStones, CountedSeconds, JumpHistory); |
412 | res := FinishForm.Execute(ExtractFileNameWithoutExt(LevelFile), Points, LevelTotalStones, LevelRemovedStones, CountedSeconds, JumpHistory); |
| 407 | if (res = mrOK) and FinishForm.ReplayCheckbox.Checked then RestartLevel; |
413 | if (res = mrOK) and FinishForm.ReplayCheckbox.Checked then RestartLevel; |
| 408 | end; |
414 | end; |
| 409 | end; |
415 | end; |
| 410 | 416 | ||