diff -r ecc2c757d0df -r 3ae448aebe7e hedgewars/uCommandHandlers.pas --- a/hedgewars/uCommandHandlers.pas Fri Jan 14 00:31:21 2011 +0100 +++ b/hedgewars/uCommandHandlers.pas Sat Jan 15 16:44:32 2011 +0100 @@ -51,6 +51,13 @@ ParseCommand('chat team', true); end; +procedure chShutdown (var s: shortstring); +begin + s:= s; // avoid compiler hint + SendIPC('H'); + GameState:= gsExit +end; + procedure chCheckProto(var s: shortstring); var i, c: LongInt; begin @@ -591,6 +598,7 @@ RegisterVariable('quit' , vtCommand, @chQuit , true ); RegisterVariable('forcequit', vtCommand, @chForceQuit , true ); RegisterVariable('confirm' , vtCommand, @chConfirm , true ); + RegisterVariable('shutdown', vtCommand, @chShutdown , true ); RegisterVariable('+speedup', vtCommand, @chSpeedup_p , true ); RegisterVariable('-speedup', vtCommand, @chSpeedup_m , true ); RegisterVariable('zoomin' , vtCommand, @chZoomIn , true );