hedgewars/uFLNet.pas
branchqmlfrontend
changeset 11446 321d0ce43568
parent 11444 91f8c6ff5bab
child 11451 6e9b12864856
equal deleted inserted replaced
11445:465b4db35232 11446:321d0ce43568
   161     handleTail()
   161     handleTail()
   162 end;
   162 end;
   163 
   163 
   164 procedure handler__UNKNOWN_;
   164 procedure handler__UNKNOWN_;
   165 begin
   165 begin
   166     writeln('[NET] Unknown cmd');
   166     //writeln('[NET] Unknown cmd');
   167     handleTail();
   167     handleTail();
   168     state.l:= 0
   168     state.l:= 0
   169 end;
   169 end;
   170 
   170 
   171 const net2cmd: array[0..46] of TCmdType = (cmd_WARNING, cmd_WARNING,
   171 const net2cmd: array[0..46] of TCmdType = (cmd_WARNING, cmd_WARNING,
   292 
   292 
   293             if c = letters[state.l] then
   293             if c = letters[state.l] then
   294                 if commands[state.l] < 0 then
   294                 if commands[state.l] < 0 then
   295                 begin
   295                 begin
   296                     state.cmd:= net2cmd[-10 - commands[state.l]];
   296                     state.cmd:= net2cmd[-10 - commands[state.l]];
   297                     writeln('[NET] ', state.cmd);
   297                     //writeln('[NET] ', state.cmd);
   298                     handlers[-10 - commands[state.l]]();
   298                     handlers[-10 - commands[state.l]]();
   299                     state.l:= 0
   299                     state.l:= 0
   300                 end
   300                 end
   301                 else
   301                 else
   302                     inc(state.l)
   302                     inc(state.l)