- #include "pd/net.h" 
-   
- #include "brender/brender.h" 
- #include "dr_types.h" 
- #include "errors.h" 
- #include "globvrpb.h" 
- #include "harness/config.h" 
- #include "harness/hooks.h" 
- #include "harness/trace.h" 
- #include "harness/winsock.h" 
- #include "network.h" 
- #include "pd/net.h" 
- #include "pd/sys.h" 
- #include <ctype.h> 
- #include <stdlib.h> 
- #include <string.h> 
-   
- // dethrace: have switched out IPX implementation for IP 
-   
- tU32 gNetwork_init_flags; 
- tPD_net_game_info* gJoinable_games; 
- int gMatts_PC; 
- tU16 gSocket_number_pd_format; 
- //_IPX_ELEMENT gListen_elements[16]; 
- char gLocal_ipx_addr_string[32]; 
- //_IPX_ELEMENT gSend_elements[16]; 
- struct sockaddr_in* gLocal_addr_ipx; 
- char gReceive_buffer[512]; 
- tPD_net_player_info gRemote_net_player_info; 
- struct sockaddr_in* gBroadcast_addr_ipx; 
- tPD_net_player_info gLocal_net_player_info; 
- char gSend_buffer[512]; 
- tIPX_netnum gNetworks[16]; 
- struct sockaddr_in* gRemote_addr_ipx; 
- tU8* gSend_packet; 
- // W32 gListen_segment; 
- tU8* gSend_packet_ptr; 
- // W32 gSend_segment; 
- tU8* gListen_packet; 
- tU8* gListen_packet_ptr; 
- size_t gMsg_header_strlen; 
- int gNumber_of_networks; 
- int gNumber_of_hosts; 
- //_IPX_HEADER gLast_received_IPX_header; 
- tU16 gSocket_number_network_order; 
- // unsigned short gECB_offset; 
- tU16 gListen_selector; 
- tU16 gSend_selector; 
-   
- struct sockaddr_in gLocal_addr; 
- struct sockaddr_in gRemote_addr; 
- struct sockaddr_in gBroadcast_addr; 
- struct sockaddr_in gLast_received_addr; 
- int gSocket; 
-   
- #define MESSAGE_HEADER_STR "CW95MSG" 
- #define JOINABLE_GAMES_CAPACITY 16 
-   
- // IDA: void __cdecl ClearupPDNetworkStuff() 
- void ClearupPDNetworkStuff(void) { 
-     LOG_TRACE("()"); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: void __usercall MATTMessageCheck(char *pFunction_name@<EAX>, tNet_message *pMessage@<EDX>, int pAlleged_size@<EBX>) 
- void MATTMessageCheck(char* pFunction_name, tNet_message* pMessage, int pAlleged_size) { 
-     LOG_TRACE("(\"%s\", %p, %d)", pFunction_name, pMessage, pAlleged_size); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: int __usercall GetProfileText@<EAX>(char *pDest@<EAX>, int pDest_len@<EDX>, char *pFname@<EBX>, char *pKeyname@<ECX>) 
- int GetProfileText(char* pDest, int pDest_len, char* pFname, char* pKeyname) { 
-     //FILE* fp; // Pierre-Marie Baty -- unused variable 
-     //char in_buf[256]; // Pierre-Marie Baty -- unused variable 
-     //int i; // Pierre-Marie Baty -- unused variable 
-     //int j; // Pierre-Marie Baty -- unused variable 
-     //int len; // Pierre-Marie Baty -- unused variable 
-     LOG_TRACE("(\"%s\", %d, \"%s\", \"%s\")", pDest, pDest_len, pFname, pKeyname); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: int __cdecl GetSocketNumberFromProfileFile() 
- int GetSocketNumberFromProfileFile(void) { 
-     //char str[256]; // Pierre-Marie Baty -- unused variable 
-     //int sscanf_res; // Pierre-Marie Baty -- unused variable 
-     //tU32 socknum; // Pierre-Marie Baty -- unused variable 
-     LOG_TRACE("()"); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // tU32 EthernetAddressToU32(SOCKADDR_IPX_* pAddr_ipx) { 
- //     LOG_TRACE("(%p)", pAddr_ipx); 
- //     NOT_IMPLEMENTED(); 
- // } 
-   
- void NetNowIPXLocalTarget2String(char* pString, struct sockaddr_in* pSock_addr_ipx) { 
-     LOG_TRACE("(\"%s\", %p)", pString, pSock_addr_ipx); 
-   
-     char portbuf[10]; 
-   
-     inet_ntop(AF_INET, &pSock_addr_ipx->sin_addr, pString, 32); 
-     sprintf(- portbuf , ":%d",-  ntohs (- pSock_addr_ipx ->- sin_port ));
 
- } 
-   
- // IDA: int __usercall GetMessageTypeFromMessage@<EAX>(char *pMessage_str@<EAX>) 
- int GetMessageTypeFromMessage(char* pMessage_str) { 
-     char* real_msg; 
-     int msg_type_int; 
-     LOG_TRACE("(\"%s\")", pMessage_str); 
-   
-     real_msg = &pMessage_str[4]; 
-     msg_type_int = 0; 
-   
-     // FIXME: "CW95MSG" value is used in and depends on platform 
-     if (strncmp(- real_msg ,-  MESSAGE_HEADER_STR ,-  gMsg_header_strlen ) == 0) {
 
-         if (isdigit(- real_msg [- gMsg_header_strlen ])) {
 
-             msg_type_int = real_msg[gMsg_header_strlen] - '0'; 
-         } 
-         if (msg_type_int != 0 && msg_type_int < 3) { 
-             return msg_type_int; 
-         } 
-     } 
-     return 999; 
- } 
-   
- int SameEthernetAddress(struct sockaddr_in* pAddr_ipx1, struct sockaddr_in* pAddr_ipx2) { 
-     LOG_TRACE("(%p, %p)", pAddr_ipx1, pAddr_ipx2); 
-   
-     return memcmp(- pAddr_ipx1 ,-  pAddr_ipx2 , sizeof(struct-  sockaddr_in )) == 0;
 
- } 
-   
- /*SOCKADDR_IPX_* */ void* GetIPXAddrFromPlayerID(tPlayer_ID pPlayer_id) { 
-     //int i; // Pierre-Marie Baty -- unused variable 
-     //tU8* nodenum; // Pierre-Marie Baty -- unused variable 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: void __usercall MakeMessageToSend(int pMessage_type@<EAX>) 
- void MakeMessageToSend(int pMessage_type) { 
-     LOG_TRACE("(%d)", pMessage_type); 
-   
- #ifdef DETHRACE_FIX_BUGS 
-     sprintf(- gSend_buffer , "XXXX%s%1d",-  MESSAGE_HEADER_STR ,-  pMessage_type );
 
- #else 
-     sprintf(- gSend_buffer , "XXXX%s%0.1d",-  MESSAGE_HEADER_STR ,-  pMessage_type );
 
- #endif 
- } 
-   
- // IDA: int __cdecl ReceiveHostResponses() 
- int ReceiveHostResponses(void) { 
-     char str[256]; 
-     int i; 
-     int already_registered; 
-     LOG_TRACE("()"); 
-   
-     char addr_string[32]; 
-     unsigned int sa_len; 
-     int wsa_error; 
-   
-     sa_len = sizeof(gRemote_addr); 
-     while (1) { 
-         if (recvfrom(gSocket, gReceive_buffer, sizeof(gReceive_buffer), 0, (struct sockaddr*)&gRemote_addr, &sa_len) == -1) { 
-             break; 
-         } 
-         NetNowIPXLocalTarget2String(addr_string, gRemote_addr_ipx); 
-         dr_dprintf("ReceiveHostResponses(): Received string '%s' from %s", gReceive_buffer, addr_string); 
-   
-         if (SameEthernetAddress(gLocal_addr_ipx, gRemote_addr_ipx)) { 
-             dr_dprintf("*** Discounting the above 'cos we sent it ***"); 
-             continue; 
-         } 
-         if (GetMessageTypeFromMessage(gReceive_buffer) != 2) { 
-             dr_dprintf("*** Discounting the above 'cos it's not a host reply ***"); 
-             continue; 
-         } 
-   
-         dr_dprintf("*** It's a host reply! ***"); 
-         already_registered = 0; 
-         for (i = 0; i < gNumber_of_hosts; i++) { 
-             if (SameEthernetAddress(&gJoinable_games[i].addr_in, gRemote_addr_ipx)) { 
-                 already_registered = 1; 
-                 break; 
-             } 
-         } 
-         if (already_registered) { 
-             dr_dprintf("That game already registered"); 
-             gJoinable_games[i].last_response = PDGetTotalTime(); 
-         } else { 
-             dr_dprintf("Adding joinable game to slot #%d", gNumber_of_hosts); 
-             gJoinable_games[gNumber_of_hosts].addr_in = *gRemote_addr_ipx; 
-             gJoinable_games[gNumber_of_hosts].last_response = PDGetTotalTime(); 
-             gNumber_of_hosts++; 
-             dr_dprintf("Number of games found so far: %d", gNumber_of_hosts); 
-         } 
-         if (gNumber_of_hosts) { 
-             dr_dprintf("Currently registered net games:"); 
-             for (i = 0; i < gNumber_of_hosts; i++) { 
-                 NetNowIPXLocalTarget2String(str, &gJoinable_games[i].addr_in); 
-                 dr_dprintf("%d: Host addr %s", i, str); 
-             } 
-         } 
-     } 
-     wsa_error = WSAGetLastError() != WSAEWOULDBLOCK; 
-     if (wsa_error == 0) { 
-         return 1; 
-     } 
-     dr_dprintf("ReceiveHostResponses(): Error on recvfrom() - WSAGetLastError=%d", wsa_error); 
-     return 0; 
- } 
-   
- // IDA: int __cdecl BroadcastMessage() 
- int BroadcastMessage(void) { 
-     int i; 
-     int errors; 
-     char broadcast_addr_string[32]; 
-     //char* real_msg; // Pierre-Marie Baty -- unused variable 
-     LOG_TRACE("()"); 
-   
-     errors = 0; 
-     for (i = 0; i < gNumber_of_networks; i++) { 
-         //*(_DWORD*)gBroadcast_addr_ipx->sa_netnum = gNetworks[i]; 
-         NetNowIPXLocalTarget2String(broadcast_addr_string, gBroadcast_addr_ipx); 
-         dr_dprintf("Broadcasting on address '%s'", broadcast_addr_string); 
-         if (- sendto (- gSocket ,-  gSend_buffer , strlen(- gSend_buffer ) + 1, 0, (struct-  sockaddr *)&- gBroadcast_addr , sizeof(- gBroadcast_addr )) == -1) {
 
-             dr_dprintf("BroadcastMessage(): Error on sendto() - WSAGetLastError=%d", WSAGetLastError()); 
-             errors = 1; 
-         } 
-     } 
-     return errors == 0; 
- } 
-   
- // IDA: int __cdecl PDNetInitialise() 
- int PDNetInitialise(void) { 
-     //tU32 timenow; // Pierre-Marie Baty -- unused variable 
-     //char profile_string[32]; // Pierre-Marie Baty -- unused variable 
-     //char key_name[32]; // Pierre-Marie Baty -- unused variable 
-     //int sscanf_res; // Pierre-Marie Baty -- unused variable 
-     //int i; // Pierre-Marie Baty -- unused variable 
-     //tU32 netnum; // Pierre-Marie Baty -- unused variable 
-     //char str[256]; // Pierre-Marie Baty -- unused variable 
-     //int mess_num; // Pierre-Marie Baty -- unused variable 
-   
-     struct linger so_linger; 
-     unsigned int sa_len; 
-     WSADATA wsadata; 
-     LOG_TRACE("()"); 
-   
-     sa_len = sizeof(struct sockaddr_in); 
-     dr_dprintf("PDNetInitialise()"); 
-     int ipx_socket_num = 12286; 
-     // Dont bother to handle network.ini 
-     // if (gWin32_should_load_network_ini) { 
-     //     if (GetPrivateProfileStringA( 
-     //             "Network", 
-     //             "IPXSocket", 
-     //             Default, 
-     //             (LPSTR)ReturnedString, 
-     //             0x20u, 
-     //             gNetwork_profile_fname)) { 
-     //         v11 = sscanf(ReturnedString, "%x", &v9); 
-     //         if (v11) { 
-     //             if (v11 != -1) { 
-     //                 dr_dprintf("New IPX socket %4.4x", v9); 
-     //                 ipx_socket_num = sub_454930(v9); 
-     //             } 
-     //         } 
-     //     } 
-     // } 
-     gLocal_addr_ipx = &gLocal_addr; 
-     gRemote_addr_ipx = &gRemote_addr; 
-     gBroadcast_addr_ipx = &gBroadcast_addr; 
-     memset(&- gLocal_addr , 0, sizeof(struct-  sockaddr_in ));
 
-     memset(&- gRemote_addr , 0, sizeof(struct-  sockaddr_in ));
 
-     memset(&- gBroadcast_addr , 0, sizeof(struct-  sockaddr_in ));
 
-   
-     // gLocal_addr_ipx->sa_family = AF_IPX; 
-     // gRemote_addr_ipx->sa_family = AF_IPX; 
-     // gBroadcast_addr_ipx->sa_family = AF_IPX; 
-     // gLocal_addr_ipx->sa_socket = ipx_socket_num; 
-     // gRemote_addr_ipx->sa_socket = ipx_socket_num; 
-     // gBroadcast_addr_ipx->sa_socket = ipx_socket_num; 
-   
-     // // IPX broadcast 
-     // gBroadcast_addr_ipx->sa_nodenum[0] = -1; 
-     // gBroadcast_addr_ipx->sa_nodenum[1] = -1; 
-     // gBroadcast_addr_ipx->sa_nodenum[2] = -1; 
-     // gBroadcast_addr_ipx->sa_nodenum[3] = -1; 
-     // gBroadcast_addr_ipx->sa_nodenum[4] = -1; 
-     // gBroadcast_addr_ipx->sa_nodenum[5] = -1; 
-   
-     gLocal_addr.sin_family = AF_INET; 
-     gLocal_addr.sin_port = htons(12286); 
-     gLocal_addr.sin_addr.s_addr = INADDR_ANY; 
-     gRemote_addr.sin_family = AF_INET; 
-     gRemote_addr.sin_port = htons(12286); 
-     gBroadcast_addr.sin_family = AF_INET; 
-     gBroadcast_addr.sin_port = htons(12286); 
-   
-     // original code was using MAKEWORD(1, 1) 
-     if (WSAStartup(MAKEWORD(2, 2), &wsadata) == -1) { 
-         dr_dprintf("PDNetInitialise(): WSAStartup() failed"); 
-         return -1; 
-     } 
-   
-     // gSocket = socket(6, 2, 1000); 
-     gSocket = socket(AF_INET, SOCK_DGRAM, 0); 
-     if (gSocket == -1) { 
-         dr_dprintf("PDNetInitialise(): Failed to create socket - WSAGetLastError=%d", WSAGetLastError()); 
-         WSACleanup(); 
-         return -1; 
-     } 
-     int broadcast = 1; 
-     setsockopt(gSocket, SOL_SOCKET, SO_BROADCAST, (void *) &broadcast, sizeof(broadcast)); // Pierre-Marie Baty -- added portable type cast 
-     so_linger.l_onoff = 1; 
-     so_linger.l_linger = 0; 
-     setsockopt(gSocket, SOL_SOCKET, SO_LINGER, (void *) &so_linger, sizeof(so_linger)); // Pierre-Marie Baty -- added portable type cast 
-   
-     unsigned long nobio = 1; 
-     if (ioctlsocket(gSocket, FIONBIO, &nobio) == -1) { 
-         dr_dprintf("Error on ioctlsocket() - WSAGetLastError=%d", WSAGetLastError()); 
-         closesocket(gSocket); 
-         WSACleanup(); 
-         return -1; 
-     } 
-   
-     if (harness_game_config.no_bind == 0) { 
-         if (bind(gSocket, (struct sockaddr*)&gLocal_addr, sizeof(gLocal_addr)) == -1) { 
-             dr_dprintf("Error on bind() - WSAGetLastError=%d", WSAGetLastError()); 
-             closesocket(gSocket); 
-             WSACleanup(); 
-             return -1; 
-         } 
-     } 
-   
-     int res = getsockname(gSocket, (struct sockaddr*)&gLocal_addr, &sa_len); 
-     NetNowIPXLocalTarget2String(gLocal_ipx_addr_string, gLocal_addr_ipx); 
-     // gNetworks[0] = *(tIPX_netnum*)gLocal_addr_ipx->sa_netnum; 
-     gNumber_of_networks = 1; 
-   
-     // if (gWin32_should_load_network_ini) { 
-     //     for (i = 1; i <= 15; ++i) { 
-     //         sprintf(KeyName, "%s%d", "Network", i); 
-     //         if (GetPrivateProfileStringA( 
-     //                 "Network", 
-     //                 KeyName, 
-     //                 Default, 
-     //                 (LPSTR)ReturnedString, 
-     //                 0x20u, 
-     //                 gNetwork_profile_fname)) { 
-     //             v11 = sscanf(ReturnedString, "%x", &network_nbr); 
-     //             if (v11) { 
-     //                 if (v11 != -1) { 
-     //                     dr_dprintf("Found network number '%x' in INI file", network_nbr); 
-     //                     gNetworks[gNumber_of_networks].bNetwork[0] = HIBYTE(network_nbr); 
-     //                     gNetworks[gNumber_of_networks].bNetwork[1] = (network_nbr & 0xFF0000u) >> 16; 
-     //                     gNetworks[gNumber_of_networks].bNetwork[2] = BYTE1(network_nbr); 
-     //                     gNetworks[gNumber_of_networks].bNetwork[3] = network_nbr; 
-     //                     if (gNetworks[gNumber_of_networks].bNetwork[0] != gLocal_addr_ipx->sa_netnum[0] 
-     //                         || gNetworks[gNumber_of_networks].bNetwork[1] != gLocal_addr_ipx->sa_netnum[1] 
-     //                         || gNetworks[gNumber_of_networks].bNetwork[2] != gLocal_addr_ipx->sa_netnum[2] 
-     //                         || gNetworks[gNumber_of_networks].bNetwork[3] != gLocal_addr_ipx->sa_netnum[3]) { 
-     //                         ++gNumber_of_networks; 
-     //                     } 
-     //                 } 
-     //             } 
-     //         } 
-     //     } 
-     //     dr_dprintf("Total networks = %d", gNumber_of_networks); 
-     // } 
-     // byte_536440 = *gLocal_addr_ipx; 
-   
-     dr_dprintf("Socket bound OK; local address is '%s'", gLocal_ipx_addr_string); 
-     gMsg_header_strlen = 7; 
-     if (strstr(- gLocal_ipx_addr_string , "00a0240f9fac")) {
 
-         gMatts_PC = 1; 
-     } 
-     return 0; 
- } 
-   
- // IDA: int __cdecl PDNetShutdown() 
- int PDNetShutdown(void) { 
-     LOG_TRACE("()"); 
-   
-     dr_dprintf("PDNetShutdown()"); 
-     if (gSocket != -1) { 
-         closesocket(gSocket); 
-     } 
-     gSocket = -1; 
-     return 0; 
- } 
-   
- // IDA: void __cdecl PDNetStartProducingJoinList() 
- void PDNetStartProducingJoinList(void) { 
-     LOG_TRACE("()"); 
-   
-     dr_dprintf("PDNetStartProducingJoinList()"); 
-     gNumber_of_hosts = 0; 
-     gJoinable_games = BrMemAllocate(sizeof(tPD_net_game_info) * JOINABLE_GAMES_CAPACITY, 0x80u); 
-     if (gJoinable_games == NULL) { 
-         PDFatalError("Can't allocate memory for joinable games"); 
-     } 
- } 
-   
- // IDA: void __cdecl PDNetEndJoinList() 
- void PDNetEndJoinList(void) { 
-     LOG_TRACE("()"); 
-   
-     dr_dprintf("PDNetEndJoinList()"); 
-     if (gJoinable_games) { 
-         BrMemFree(gJoinable_games); 
-     } 
-     gJoinable_games = NULL; 
- } 
-   
- // IDA: int __usercall PDNetGetNextJoinGame@<EAX>(tNet_game_details *pGame@<EAX>, int pIndex@<EDX>) 
- int PDNetGetNextJoinGame(tNet_game_details* pGame, int pIndex) { 
-     static tU32 next_broadcast_time = 0; 
-     int i; 
-     int j; 
-     int number_of_hosts_has_changed; 
-     //char str[256]; // Pierre-Marie Baty -- unused variable 
-     LOG_TRACE9("(%p, %d)", pGame, pIndex); 
-   
-     dr_dprintf("PDNetGetNextJoinGame(): pIndex is %d", pIndex); 
-     if (pIndex == 0) { 
-         do { 
-             number_of_hosts_has_changed = 0; 
-             for (i = 0; i < gNumber_of_hosts; i++) { 
-                 if (gJoinable_games[i].last_response + 10000 < (tU32) PDGetTotalTime()) { // Pierre-Marie Baty -- added type cast 
-                     number_of_hosts_has_changed = 1; 
-                     for (j = i; j < gNumber_of_hosts - 1; j++) { 
-                         memcpy(&- gJoinable_games [- j ], &- gJoinable_games [- j  + 1], sizeof(- tPD_net_game_info ));
 
-                     } 
-                 } 
-             } 
-             if (number_of_hosts_has_changed) { 
-                 gNumber_of_hosts--; 
-             } 
-         } while (number_of_hosts_has_changed); 
-         if ((tU32) PDGetTotalTime() > next_broadcast_time) { // Pierre-Marie Baty -- added type cast 
-             next_broadcast_time = PDGetTotalTime() + 3000; 
-             MakeMessageToSend(1); 
-             if (BroadcastMessage() == 0) { 
-                 dr_dprintf("PDNetGetNextJoinGame(): Error on BroadcastMessage()"); 
-             } 
-         } 
-     } 
-     ReceiveHostResponses(); 
-     if (gNumber_of_hosts <= pIndex) { 
-         return 0; 
-     } 
-     dr_dprintf("PDNetGetNextJoinGame(): Adding game."); 
-     memcpy(&- pGame ->- pd_net_info. addr_in, &- gJoinable_games [- pIndex ]- . addr_in, sizeof(- pGame ->- pd_net_info. addr_in));
 
-     return 1; 
- } 
-   
- // IDA: void __usercall PDNetDisposeGameDetails(tNet_game_details *pDetails@<EAX>) 
- void PDNetDisposeGameDetails(tNet_game_details* pDetails) { 
-     LOG_TRACE("(%p)", pDetails); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: int __usercall PDNetHostGame@<EAX>(tNet_game_details *pDetails@<EAX>, char *pHost_name@<EDX>, void **pHost_address@<EBX>) 
- int PDNetHostGame(tNet_game_details* pDetails, char* pHost_name, void** pHost_address) { 
-     LOG_TRACE("(%p, \"%s\", %p)", pDetails, pHost_name, pHost_address); 
-   
-     dr_dprintf("PDNetHostGame()"); 
-     *pHost_address = &gLocal_addr; 
-     return 1; 
- } 
-   
- // IDA: int __usercall PDNetJoinGame@<EAX>(tNet_game_details *pDetails@<EAX>, char *pPlayer_name@<EDX>) 
- int PDNetJoinGame(tNet_game_details* pDetails, char* pPlayer_name) { 
-     LOG_TRACE("(%p, \"%s\")", pDetails, pPlayer_name); 
-   
-     dr_dprintf("PDNetJoinGame()"); 
-     return 0; 
- } 
-   
- // IDA: void __usercall PDNetLeaveGame(tNet_game_details *pDetails@<EAX>) 
- void PDNetLeaveGame(tNet_game_details* pDetails) { 
-     LOG_TRACE("(%p)", pDetails); 
-   
-     dr_dprintf("PDNetLeaveGame()"); 
- } 
-   
- // IDA: void __usercall PDNetHostFinishGame(tNet_game_details *pDetails@<EAX>) 
- void PDNetHostFinishGame(tNet_game_details* pDetails) { 
-     LOG_TRACE("(%p)", pDetails); 
-   
-     dr_dprintf("PDNetHostFinishGame()"); 
- } 
-   
- // IDA: tU32 __usercall PDNetExtractGameID@<EAX>(tNet_game_details *pDetails@<EAX>) 
- tU32 PDNetExtractGameID(tNet_game_details* pDetails) { 
-     LOG_TRACE("(%p)", pDetails); 
-   
-     dr_dprintf("PDNetExtractGameID()"); 
-     return ntohs(pDetails->pd_net_info.addr_in.sin_port); // PDGetTotalTime(); 
- } 
-   
- // IDA: tPlayer_ID __usercall PDNetExtractPlayerID@<EAX>(tNet_game_details *pDetails@<EAX>) 
- tPlayer_ID PDNetExtractPlayerID(tNet_game_details* pDetails) { 
-     LOG_TRACE("(%p)", pDetails); 
-   
-     dr_dprintf("PDNetExtractPlayerID()"); 
-     return ntohs(gLocal_addr_ipx->sin_port); 
- } 
-   
- // IDA: void __usercall PDNetObtainSystemUserName(char *pName@<EAX>, int pMax_length@<EDX>) 
- void PDNetObtainSystemUserName(char* pName, int pMax_length) { 
-     int result; 
-     char* found; 
-     dr_dprintf("PDNetObtainSystemUserName()"); 
-   
-     result = gethostname(pName, pMax_length); 
-     if (result == 0) { 
-     } 
-   
-     while (1) { 
-         found  = strpbrk(- pName , "_=(){}[]<>!$%^&*/:@~;'#,?\\|`\"");
-         if (found == NULL) { 
-             break; 
-         } 
-         *found = '-'; 
-     } 
- } 
-   
- // IDA: int __usercall PDNetSendMessageToPlayer@<EAX>(tNet_game_details *pDetails@<EAX>, tNet_message *pMessage@<EDX>, tPlayer_ID pPlayer@<EBX>) 
- int PDNetSendMessageToPlayer(tNet_game_details* pDetails, tNet_message* pMessage, tPlayer_ID pPlayer) { 
-     //char str[256]; // Pierre-Marie Baty -- unused variable 
-     // SOCKADDR_IPX_* remote_addr_ipx; 
-     LOG_TRACE("(%p, %p, %d)", pDetails, pMessage, pPlayer); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: int __usercall PDNetSendMessageToAllPlayers@<EAX>(tNet_game_details *pDetails@<EAX>, tNet_message *pMessage@<EDX>) 
- int PDNetSendMessageToAllPlayers(tNet_game_details* pDetails, tNet_message* pMessage) { 
-     //char str[256]; // Pierre-Marie Baty -- unused variable 
-     int i; 
-     LOG_TRACE("(%p, %p)", pDetails, pMessage); 
-   
-     for (i = 0; i < gNumber_of_net_players; ++i) { 
-         if (i == gThis_net_player_index) { 
-             continue; 
-         } 
-         if (sendto(gSocket, (const char*)pMessage, pMessage->overall_size, 0, (struct sockaddr*)&gNet_players[i].pd_net_info.addr_in, sizeof(gNet_players[i].pd_net_info.addr_in)) == -1) { 
-             dr_dprintf("PDNetSendMessageToAllPlayers(): Error on sendto() - WSAGetLastError=%d", WSAGetLastError()); 
-             NetDisposeMessage(pDetails, pMessage); 
-             return 1; 
-         } 
-     } 
-     NetDisposeMessage(pDetails, pMessage); 
-     return 0; 
- } 
-   
- // IDA: tNet_message* __usercall PDNetGetNextMessage@<EAX>(tNet_game_details *pDetails@<EAX>, void **pSender_address@<EDX>) 
- tNet_message* PDNetGetNextMessage(tNet_game_details* pDetails, void** pSender_address) { 
-     char* receive_buffer; 
-     char str[256]; 
-     int msg_type; 
-     LOG_TRACE("(%p, %p)", pDetails, pSender_address); 
-   
-     char addr_str[32]; 
-     unsigned int sa_len; 
-     int res; 
-     tNet_message* msg; 
-   
-     sa_len = sizeof(gRemote_addr); 
-     msg = NetAllocateMessage(512); 
-     receive_buffer = (char*)msg; 
-     res = recvfrom(gSocket, receive_buffer, 512, 0, (struct sockaddr*)&gRemote_addr, &sa_len); 
-     res = res != -1; 
-     if (res == 0) { 
-         res = WSAGetLastError() != WSAEWOULDBLOCK; 
-         if (res) { 
-             sprintf(- str , "PDNetGetNextMessage(): Error on recvfrom() - WSAGetLastError=%d",-  res );
 
-             PDFatalError(str); 
-         } 
-     } else { 
-         NetNowIPXLocalTarget2String(addr_str, gRemote_addr_ipx); 
-         if (!SameEthernetAddress(gLocal_addr_ipx, gRemote_addr_ipx)) { 
-             msg_type = GetMessageTypeFromMessage(receive_buffer); 
-             switch (msg_type) { 
-             case 1: 
-                 if (gNet_mode == eNet_mode_host) { 
-                     dr_dprintf("PDNetGetNextMessage(): Received '%s' from '%s', replying to joiner", receive_buffer, addr_str); 
-                     MakeMessageToSend(2); 
-                     if (- sendto (- gSocket ,-  gSend_buffer , strlen(- gSend_buffer ) + 1, 0, (struct-  sockaddr *)&- gRemote_addr , sizeof(- gRemote_addr )) == -1) {
 
-                         dr_dprintf("PDNetGetNextMessage(): Error on sendto() - WSAGetLastError=%d", WSAGetLastError()); 
-                     } 
-                 } 
-                 break; 
-             case 2: 
-                 // no-op 
-                 break; 
-             default: 
-                 dr_dprintf("PDNetGetNextMessage(): res is %d, received message type %d from '%s', passing up", res, msg->contents.header.type, addr_str); 
-                 memcpy(&- gLast_received_addr ,-  gRemote_addr_ipx , sizeof(- gLast_received_addr ));
 
-                 *pSender_address = &gLast_received_addr; 
-                 return msg; 
-             } 
-         } 
-     } 
-     msg->guarantee_number = 0; 
-     NetDisposeMessage(pDetails, msg); 
-     return 0; 
- } 
-   
- // IDA: tNet_message* __usercall PDNetAllocateMessage@<EAX>(tU32 pSize@<EAX>, tS32 pSize_decider@<EDX>) 
- tNet_message* PDNetAllocateMessage(tU32 pSize, tS32 pSize_decider) { 
-     LOG_TRACE("(%d, %d)", pSize, pSize_decider); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: void __usercall PDNetDisposeMessage(tNet_game_details *pDetails@<EAX>, tNet_message *pMessage@<EDX>) 
- void PDNetDisposeMessage(tNet_game_details* pDetails, tNet_message* pMessage) { 
-     LOG_TRACE("(%p, %p)", pDetails, pMessage); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: void __usercall PDNetSetPlayerSystemInfo(tNet_game_player_info *pPlayer@<EAX>, void *pSender_address@<EDX>) 
- void PDNetSetPlayerSystemInfo(tNet_game_player_info* pPlayer, void* pSender_address) { 
-     LOG_TRACE("(%p, %p)", pPlayer, pSender_address); 
-   
-     dr_dprintf("PDNetSetPlayerSystemInfo()"); 
-     memcpy(&- pPlayer ->- pd_net_info ,-  pSender_address , sizeof(- pPlayer ->- pd_net_info ));
 
- } 
-   
- // IDA: void __usercall PDNetDisposePlayer(tNet_game_player_info *pPlayer@<EAX>) 
- void PDNetDisposePlayer(tNet_game_player_info* pPlayer) { 
-     LOG_TRACE("(%p)", pPlayer); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: int __usercall PDNetSendMessageToAddress@<EAX>(tNet_game_details *pDetails@<EAX>, tNet_message *pMessage@<EDX>, void *pAddress@<EBX>) 
- int PDNetSendMessageToAddress(tNet_game_details* pDetails, tNet_message* pMessage, void* pAddress) { 
-     char str[256]; 
-     LOG_TRACE("(%p, %p, %p)", pDetails, pMessage, pAddress); 
-   
-     NetNowIPXLocalTarget2String(str, (struct sockaddr_in*)pAddress); 
-     if (pDetails->pd_net_info.addr_in.sin_port == 0) { 
-         int i = 0; 
-     } 
-   
-     if (sendto(gSocket, (const char*)pMessage, pMessage->overall_size, 0, (const struct sockaddr*)pAddress, sizeof(struct sockaddr)) == -1) { 
-         dr_dprintf("PDNetSendMessageToAddress(): Error on sendto() - WSAGetLastError=%d", WSAGetLastError()); 
-         NetDisposeMessage(pDetails, pMessage); 
-         return 1; 
-     } 
-   
-     NetDisposeMessage(pDetails, pMessage); 
-     return 0; 
- } 
-   
- // IDA: int __usercall PDNetInitClient@<EAX>(tNet_game_details *pDetails@<EAX>) 
- int PDNetInitClient(tNet_game_details* pDetails) { 
-     LOG_TRACE("(%p)", pDetails); 
-     NOT_IMPLEMENTED(); 
- } 
-   
- // IDA: int __cdecl PDNetGetHeaderSize() 
- int PDNetGetHeaderSize(void) { 
-     LOG_TRACE("()"); 
-   
-     return 0; 
- } 
-