hedgewars/uConsole.pas
changeset 415 d6d3a6a473a3
parent 393 db01cc79f278
child 495 62c1c2b4414c
equal deleted inserted replaced
414:52e6be3a0985 415:d6d3a6a473a3
   246          if InputStr[1] in ['/', '$'] then
   246          if InputStr[1] in ['/', '$'] then
   247             ParseCommand(InputStr, false)
   247             ParseCommand(InputStr, false)
   248          else
   248          else
   249             ParseCommand('/say ' + InputStr, false);
   249             ParseCommand('/say ' + InputStr, false);
   250          InputStr:= ''
   250          InputStr:= ''
   251          end;
   251          end
   252      96: begin
       
   253          GameState:= gsGame;
       
   254          cConsoleYAdd:= 0;
       
   255          ResetKbd
       
   256          end;
       
   257      else
   252      else
   258      if (Key < $80) then btw:= 1
   253      if (Key < $80) then btw:= 1
   259      else if (Key < $800) then btw:= 2
   254      else if (Key < $800) then btw:= 2
   260      else if (Key < $10000) then btw:= 3
   255      else if (Key < $10000) then btw:= 3
   261      else btw:= 4;
   256      else btw:= 4;