diff -r a6dcb1412a29 -r f6a3fcb329ca hedgewars/CCHandlers.inc --- a/hedgewars/CCHandlers.inc Thu Jun 19 20:34:53 2008 +0000 +++ b/hedgewars/CCHandlers.inc Sun Jun 22 19:26:01 2008 +0000 @@ -29,9 +29,23 @@ end; //////////////////////////////////////////////////////////////////////////////// procedure chQuit(var s: shortstring); +const prevGState: TGameState = gsConfirm; begin -SendIPC('Q'); -GameState:= gsExit +if GameState <> gsConfirm then + begin + prevGState:= GameState; + GameState:= gsConfirm + end else + GameState:= prevGState +end; + +procedure chConfirm(var s: shortstring); +begin +if GameState = gsConfirm then + begin + SendIPC('Q'); + GameState:= gsExit + end end; procedure chCheckProto(var s: shortstring);