307         'a': ParseCommand('-attack', true);

   307         'a': ParseCommand('-attack', true);

   308         'S': ParseCommand('switch', true);

   308         'S': ParseCommand('switch', true);

   309         'j': ParseCommand('ljump', true);

   309         'j': ParseCommand('ljump', true);

   310         'J': ParseCommand('hjump', true);

   310         'J': ParseCommand('hjump', true);

   311         ',': ParseCommand('skip', true);

   311         ',': ParseCommand('skip', true);

   312         's': begin

   316         's': begin

   313             s:= copy(headcmd^.str, 2, Pred(headcmd^.len));

   317             s:= copy(headcmd^.str, 2, Pred(headcmd^.len));

   314             ParseCommand('chatmsg ' + s, true);

   318             ParseCommand('chatmsg ' + s, true);

   315             WriteLnToConsole(s)

   319             WriteLnToConsole(s)

   316             end;

   320             end;

   369 end;

   373 end;

   370 

   374 

   371 procedure doPut(putX, putY: LongInt; fromAI: boolean);

   375 procedure doPut(putX, putY: LongInt; fromAI: boolean);

   372 begin

   376 begin

   373 if CheckNoTeamOrHH or isPaused then exit;

   377 if CheckNoTeamOrHH or isPaused then exit;

   375 bShowFinger:= false;

   378 bShowFinger:= false;

   376 if not CurrentTeam^.ExtDriven and bShowAmmoMenu then

   379 if not CurrentTeam^.ExtDriven and bShowAmmoMenu then

   377     begin

   380     begin

   378     bSelected:= true;

   381     bSelected:= true;

   379     exit

   382     exit