diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index 0231bc8c5858249a2d24586d2772aacd879cb359..ca0bea81dcbceb186b04afd137886b03d74542a6 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
procedure SystemCommands(P: SSArray);
var
cmd: string;
- a: Integer;
begin
cmd := LowerCase(P[0]);
case cmd of