equal
deleted
inserted
replaced
44 begin |
44 begin |
45 s:= s; // avoid compiler hint |
45 s:= s; // avoid compiler hint |
46 if GameState <> gsConfirm then |
46 if GameState <> gsConfirm then |
47 begin |
47 begin |
48 prevGState:= GameState; |
48 prevGState:= GameState; |
49 GameState:= gsConfirm |
49 GameState:= gsConfirm; |
|
50 SDL_ShowCursor(1) |
50 end else |
51 end else |
51 GameState:= prevGState |
52 begin |
|
53 GameState:= prevGState; |
|
54 SDL_ShowCursor(ord(isPaused)) |
|
55 end |
52 end; |
56 end; |
53 |
57 |
54 procedure chForceQuit(var s: shortstring); |
58 procedure chForceQuit(var s: shortstring); |
55 begin |
59 begin |
56 s:= s; // avoid compiler hint |
60 s:= s; // avoid compiler hint |
527 procedure chPause(var s: shortstring); |
531 procedure chPause(var s: shortstring); |
528 begin |
532 begin |
529 s:= s; // avoid compiler hint |
533 s:= s; // avoid compiler hint |
530 if gameType <> gmtNet then |
534 if gameType <> gmtNet then |
531 isPaused:= not isPaused; |
535 isPaused:= not isPaused; |
532 SDL_ShowCursor(ord(isPaused)) |
536 |
|
537 if isPaused then |
|
538 SDL_ShowCursor(1) |
|
539 else |
|
540 SDL_ShowCursor(ord(GameState = gsConfirm)) |
533 end; |
541 end; |
534 |
542 |
535 procedure chRotateMask(var s: shortstring); |
543 procedure chRotateMask(var s: shortstring); |
536 begin |
544 begin |
537 s:= s; // avoid compiler hint |
545 s:= s; // avoid compiler hint |