639 

   639 

   640 procedure chPause(var s: shortstring);

   640 procedure chPause(var s: shortstring);

   641 begin

   641 begin

   642 s:= s; // avoid compiler hint

   642 s:= s; // avoid compiler hint

   643 if gameType <> gmtNet then

   643 if gameType <> gmtNet then

   647     SDL_ShowCursor(1)

   649     SDL_ShowCursor(1)

   648     else

   650     else

   649     SDL_ShowCursor(ord(GameState = gsConfirm))

   651     SDL_ShowCursor(ord(GameState = gsConfirm))

   650 end;

   652 end;

   651 

   653