7 uses uFLNetTypes;

     7 uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet;

     8 

     9 type

    10     PHandler = procedure (var t: TCmdData);

    11 

    12 procedure handler_ASKPASSWORD(var p: TCmdParamS);

    13 begin

    14 end;

    15 

    16 procedure handler_BANLIST(var p: TCmdParam);

    17 begin

    18 end;

    19  

    20 procedure handler_BANLIST_s(var s: TCmdParamS);

    21 begin

    22 end;

    23 

    24 procedure handler_BYE(var p: TCmdParamSL);

    25 begin

    26 end;

    27 

    28 procedure handler_CHAT(var p: TCmdParamSL);

    29 begin

    30 end;

    31 

    32 procedure handler_CLIENT_FLAGS(var p: TCmdParamS);

    33 begin

    34 end;

    35  

    36 procedure handler_CLIENT_FLAGS_s(var s: TCmdParamS);

    37 begin

    38 end;

    39 

    40 procedure handler_CONNECTED(var p: TCmdParami);

    41 begin

    42     writeln('Connected!!!!! ', p.param1)

    43 end;

    44 

    45 procedure handler_EM(var p: TCmdParam);

    46 begin

    47 end;

    48  

    49 procedure handler_EM_s(var s: TCmdParamS);

    50 begin

    51 end;

    52 

    53 procedure handler_ERROR(var p: TCmdParamL);

    54 begin

    55 end;

    56 

    57 procedure handler_HH_NUM(var p: TCmdParam);

    58 begin

    59 end;

    60  

    61 procedure handler_HH_NUM_s(var s: TCmdParamS);

    62 begin

    63 end;

    64 

    65 procedure handler_INFO(var p: TCmdParam);

    66 begin

    67 end;

    68  

    69 procedure handler_INFO_s(var s: TCmdParamS);

    70 begin

    71 end;

    72 

    73 procedure handler_JOINED(var p: TCmdParam);

    74 begin

    75 end;

    76  

    77 procedure handler_JOINED_s(var s: TCmdParamS);

    78 begin

    79 end;

    80 

    81 procedure handler_JOINING(var p: TCmdParamS);

    82 begin

    83 end;

    84 

    85 procedure handler_KICKED(var p: TCmdParam);

    86 begin

    87 end;

    88 

    89 procedure handler_LEFT(var p: TCmdParamS);

    90 begin

    91 end;

    92  

    93 procedure handler_LEFT_s(var s: TCmdParamS);

    94 begin

    95 end;

    96 

    97 procedure handler_LOBBY_JOINED(var p: TCmdParam);

    98 begin

    99 end;

   100  

   101 procedure handler_LOBBY_JOINED_s(var s: TCmdParamS);

   102 begin

   103 end;

   104 

   105 procedure handler_LOBBY_LEFT(var p: TCmdParamSL);

   106 begin

   107 end;

   108 

   109 procedure handler_NICK(var p: TCmdParamS);

   110 begin

   111 end;

   112 

   113 procedure handler_NOTICE(var p: TCmdParamL);

   114 begin

   115 end;

   116 

   117 procedure handler_PING(var p: TCmdParam);

   118 begin

   119     sendNet('PONG')

   120 end;

   121  

   122 procedure handler_PING_s(var s: TCmdParamS);

   123 begin

   124 end;

   125 

   126 procedure handler_PROTO(var p: TCmdParami);

   127 begin

   128 end;

   129 

   130 procedure handler_ROOMS(var p: TCmdParam);

   131 begin

   132 end;

   133  

   134 procedure handler_ROOMS_s(var s: TCmdParamS);

   135 begin

   136 end;

   137 

   138 procedure handler_ROUND_FINISHED(var p: TCmdParam);

   139 begin

   140 end;

   141 

   142 procedure handler_RUN_GAME(var p: TCmdParam);

   143 begin

   144 end;

   145 

   146 procedure handler_SERVER_AUTH(var p: TCmdParamS);

   147 begin

   148 end;

   149 

   150 procedure handler_SERVER_MESSAGE(var p: TCmdParamL);

   151 begin

   152 end;

   153 

   154 procedure handler_SERVER_VARS(var p: TCmdParamSL);

   155 begin

   156 end;

   157 

   158 procedure handler_TEAM_ACCEPTED(var p: TCmdParamS);

   159 begin

   160 end;

   161 

   162 procedure handler_TEAM_COLOR(var p: TCmdParam);

   163 begin

   164 end;

   165  

   166 procedure handler_TEAM_COLOR_s(var s: TCmdParamS);

   167 begin

   168 end;

   169 

   170 procedure handler_WARNING(var p: TCmdParamL);

   171 begin

   172 end;

   173 

   174 const handlers: array[TCmdType] of PHandler = (PHandler(@handler_ASKPASSWORD),

   175     PHandler(@handler_BANLIST), PHandler(@handler_BANLIST_s),

   176     PHandler(@handler_BYE), PHandler(@handler_CHAT),

   177     PHandler(@handler_CLIENT_FLAGS), PHandler(@handler_CLIENT_FLAGS_s),

   178     PHandler(@handler_CONNECTED), PHandler(@handler_EM), PHandler(@handler_EM_s),

   179     PHandler(@handler_ERROR), PHandler(@handler_HH_NUM),

   180     PHandler(@handler_HH_NUM_s), PHandler(@handler_INFO), PHandler(@handler_INFO_s),

   181     PHandler(@handler_JOINED), PHandler(@handler_JOINED_s),

   182     PHandler(@handler_JOINING), PHandler(@handler_KICKED), PHandler(@handler_LEFT),

   183     PHandler(@handler_LEFT_s), PHandler(@handler_LOBBY_JOINED),

   184     PHandler(@handler_LOBBY_JOINED_s), PHandler(@handler_LOBBY_LEFT),

   185     PHandler(@handler_NICK), PHandler(@handler_NOTICE), PHandler(@handler_PING),

   186     PHandler(@handler_PING_s), PHandler(@handler_PROTO), PHandler(@handler_ROOMS),

   187     PHandler(@handler_ROOMS_s), PHandler(@handler_ROUND_FINISHED),

   188     PHandler(@handler_RUN_GAME), PHandler(@handler_SERVER_AUTH),

   189     PHandler(@handler_SERVER_MESSAGE), PHandler(@handler_SERVER_VARS),

   190     PHandler(@handler_TEAM_ACCEPTED), PHandler(@handler_TEAM_COLOR),

   191     PHandler(@handler_TEAM_COLOR_s), PHandler(@handler_WARNING));

    11 

   195     handlers[TCmdData(p^).cmd.cmd](TCmdData(p^))