Advertisement
Guest User

Untitled

a guest
Oct 18th, 2015
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Procedure.b Network_Client_Input_Read_Byte();Client_ID)     ; don't need pass client id which is already set in Network_Client()\ID
  2.  
  3.   ;List_Store(*Network_Client_Old, Network_Client()) ; not needed, client id is loop ForEach, return to last id won't change anything
  4.  
  5.   ;If Network_Client_Select(Client_ID) ; not needed, client id is already select
  6.     If Network_Client()\Buffer_Input_Available >= 1
  7.    
  8.       Value.b = PeekB(Network_Client()\Buffer_Input + Network_Client()\Buffer_Input_Offset)
  9.      
  10.       Network_Client()\Buffer_Input_Offset + 1
  11.       Network_Client()\Buffer_Input_Available - 1
  12.       If Network_Client()\Buffer_Input_Offset >= #Network_Buffer_Size
  13.         Network_Client()\Buffer_Input_Offset - #Network_Buffer_Size
  14.       EndIf
  15.     EndIf
  16.   ;EndIf
  17.  
  18.   ;List_Restore(*Network_Client_Old, Network_Client())
  19.  
  20.   ProcedureReturn Value.b
  21.  
  22. EndProcedure
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement