325     l:= length(p.str1);

   325     l:= length(p.str1);

   326 

   326 

   327     while i < l do

   327     while i < l do

   328     begin

   328     begin

   329         s:= DecodeBase64(copy(p.str1, i, 240));

   329         s:= DecodeBase64(copy(p.str1, i, 240));

   331         inc(i, 160)

   331         inc(i, 160)

   332     end;

   332     end;

   333 end;

   333 end;

   334 

   334 

   335 procedure handler_ERROR(var p: TCmdParamL);

   335 procedure handler_ERROR(var p: TCmdParamL);

   493 procedure handler_ROUND_FINISHED(var p: TCmdParam);

   493 procedure handler_ROUND_FINISHED(var p: TCmdParam);

   494 begin

   494 begin

   495 end;

   495 end;

   496 

   496 

   497 procedure handler_RUN_GAME(var p: TCmdParam);

   497 procedure handler_RUN_GAME(var p: TCmdParam);

   502 end;

   500 end;

   503 

   501 

   504 procedure handler_SERVER_AUTH(var p: TCmdParamS);

   502 procedure handler_SERVER_AUTH(var p: TCmdParamS);

   505 begin

   503 begin

   506 end;

   504 end;