46 

    46 

    47 procedure SendConfig;

    47 procedure SendConfig;

    48 begin

    48 begin

    49 Send('TL');

    49 Send('TL');

    50 Send('e$gmflags 1');

    50 Send('e$gmflags 1');

    52 Send('etheme steel');

    52 Send('etheme steel');

    53 Send('eaddteam');

    53 Send('eaddteam');

    54 Send('ename team "C0CuCKAzZz"');

    54 Send('ename team "C0CuCKAzZz"');

    55 Send('ename hh0 "hh0"');

    55 Send('ename hh0 "hh0"');

    56 Send('ename hh1 "hh1');

    56 Send('ename hh1 "hh1');

   141       ParseCmd(s)

   141       ParseCmd(s)

   142       end;

   142       end;

   143 end;

   143 end;

   144 

   144 

   145 begin

   145 begin

   147 SDL_Init(0);

   147 SDL_Init(0);

   148 SDLNet_Init;

   148 SDLNet_Init;

   149 ip.host:= 0;     

   149 ip.host:= 0;     

   150 ip.port:= $27B6;

   150 ip.port:= $27B6;

   151 servsock:= SDLNet_TCP_Open(ip);

   151 servsock:= SDLNet_TCP_Open(ip);