src/game/g_nethandler.pas

   1 unit g_nethandler;
   2
   3 interface
   4
   5 uses g_net, g_netmsg, ENet;
   6
   7 procedure g_Net_ClientMsgHandler(P: pENetPacket);
   8 procedure g_Net_ClientLightMsgHandler(P: pENetPacket);
   9 procedure g_Net_HostMsgHandler(S: pTNetClient; P: pENetPacket);
  10
  11 implementation
  12
  13 uses e_fixedbuffer;
  14
  15 procedure g_Net_ClientMsgHandler(P: pENetPacket);
  16 var
  17   MID: Byte;
  18   B: Pointer;
  19 begin
  20   e_Raw_Seek(0);
  21
  22   B := P^.data;
  23   if B = nil then Exit;
  24
  25   MID := e_Raw_Read_Byte(B);
  26
  27   case MID of
  28     NET_MSG_CHAT:   MC_RECV_Chat(B);
  29     NET_MSG_GFX:    MC_RECV_Effect(B);
  30     NET_MSG_SND:    MC_RECV_Sound(B);
  31     NET_MSG_SCORE:  MC_RECV_GameStats(B);
  32     NET_MSG_COOP:   MC_RECV_CoopStats(B);
  33     NET_MSG_GEVENT: MC_RECV_GameEvent(B);
  34     NET_MSG_FLAG:   MC_RECV_FlagEvent(B);
  35     NET_MSG_GSET:   MC_RECV_GameSettings(B);
  36
  37     NET_MSG_PLR:    MC_RECV_PlayerCreate(B);
  38     NET_MSG_PLRPOS: MC_RECV_PlayerPos(B);
  39     NET_MSG_PLRSTA: MC_RECV_PlayerStats(B);
  40     NET_MSG_PLRDEL: MC_RECV_PlayerDelete(B);
  41     NET_MSG_PLRDMG: MC_RECV_PlayerDamage(B);
  42     NET_MSG_PLRDIE: MC_RECV_PlayerDeath(B);
  43     NET_MSG_PLRFIRE:MC_RECV_PlayerFire(B);
  44     NET_MSG_PLRSET: MC_RECV_PlayerSettings(B);
  45
  46     NET_MSG_MSPAWN: MC_RECV_MonsterSpawn(B);
  47     NET_MSG_MPOS:   MC_RECV_MonsterPos(B);
  48     NET_MSG_MSTATE: MC_RECV_MonsterState(B);
  49     NET_MSG_MSHOT:  MC_RECV_MonsterShot(B);
  50     NET_MSG_MDEL:   MC_RECV_MonsterDelete(B);
  51
  52     NET_MSG_SHADD:  MC_RECV_CreateShot(B);
  53     NET_MSG_SHPOS:  MC_RECV_UpdateShot(B);
  54     NET_MSG_SHDEL:  MC_RECV_DeleteShot(B);
  55
  56     NET_MSG_ISPAWN: MC_RECV_ItemSpawn(B);
  57     NET_MSG_IDEL:   MC_RECV_ItemDestroy(B);
  58
  59     NET_MSG_PSTATE: MC_RECV_PanelState(B);
  60     NET_MSG_PTEX:   MC_RECV_PanelTexture(B);
  61
  62     NET_MSG_TSOUND: MC_RECV_TriggerSound(B);
  63     NET_MSG_TMUSIC: MC_RECV_TriggerMusic(B);
  64
  65     NET_MSG_TIME_SYNC:  MC_RECV_TimeSync(B);
  66     NET_MSG_VOTE_EVENT: MC_RECV_VoteEvent(B);
  67   end;
  68
  69   enet_packet_destroy(P);
  70 end;
  71
  72 procedure g_Net_ClientLightMsgHandler(P: pENetPacket);
  73 var
  74   MID: Byte;
  75   B: Pointer;
  76 begin
  77   e_Raw_Seek(0);
  78
  79   B := P^.data;
  80   if B = nil then Exit;
  81
  82   MID := e_Raw_Read_Byte(B);
  83
  84   case MID of
  85     NET_MSG_GEVENT: MC_RECV_GameEvent(B);
  86     NET_MSG_GSET:   MC_RECV_GameSettings(B);
  87
  88     NET_MSG_PLR:    if NetState <> NET_STATE_AUTH then MC_RECV_PlayerCreate(B);
  89     NET_MSG_PLRDEL: if NetState <> NET_STATE_AUTH then MC_RECV_PlayerDelete(B);
  90   end;
  91
  92   enet_packet_destroy(P);
  93 end;
  94
  95 procedure g_Net_HostMsgHandler(S: pTNetClient; P: pENetPacket);
  96 var
  97   MID: Byte;
  98   B: Pointer;
  99 begin
 100   e_Raw_Seek(0);
 101
 102   B := P^.data;
 103   if B = nil then Exit;
 104
 105   MID := e_Raw_Read_Byte(B);
 106
 107   case MID of
 108     NET_MSG_INFO: MH_RECV_Info(S, B);
 109     NET_MSG_CHAT: MH_RECV_Chat(S, B);
 110     NET_MSG_REQFST: MH_RECV_FullStateRequest(S, B);
 111
 112     NET_MSG_PLRPOS: MH_RECV_PlayerPos(S, B);
 113     NET_MSG_PLRSET: MH_RECV_PlayerSettings(S, B);
 114     NET_MSG_CHEAT:  MH_RECV_CheatRequest(S, B);
 115
 116     NET_MSG_RCON_AUTH: MH_RECV_RCONPassword(S, B);
 117     NET_MSG_RCON_CMD:  MH_RECV_RCONCommand(S, B);
 118
 119     NET_MSG_MAP_REQUEST: MH_RECV_MapRequest(S, B);
 120     NET_MSG_RES_REQUEST: MH_RECV_ResRequest(S, B);
 121
 122     NET_MSG_VOTE_EVENT: MH_RECV_Vote(S, B);
 123   end;
 124
 125   enet_packet_destroy(P);
 126 end;
 127
 128 end.