228          true);

   228          true);

   229 

   229 

   230 tmpflag:= true;

   230 tmpflag:= true;

   231 while (headcmd <> nil) and (GameTicks = headcmd^.Time) do

   231 while (headcmd <> nil) and (GameTicks = headcmd^.Time) do

   232    begin

   232    begin

   233    case headcmd^.cmd of

   234    case headcmd^.cmd of

   234         'L': ParseCommand('+left', true);

   235         'L': ParseCommand('+left', true);

   235         'l': ParseCommand('-left', true);

   236         'l': ParseCommand('-left', true);

   236         'R': ParseCommand('+right', true);

   237         'R': ParseCommand('+right', true);

   237         'r': ParseCommand('-right', true);

   238         'r': ParseCommand('-right', true);