/FPS para ver los fps de los users

1- En el cliente vamos al modulo Mod_TCP y buscamos:

Citación :

Case "NAVEG"
UserNavegando = Not UserNavegando
Exit Sub

Y arriba ponemos:

Citación :

Case "FPS"
Call SendData("FPZ" & FramesPerSec)
Exit Sub

2- En el servidor, en el modulo TCP, buscamos:

Citación :

If UCase$(Left$(rData, 5)) = "/IRA " Then

Y arriba ponemos:

Citación :

If UCase$(Left$(rData, 5)) = "/FPS " Then
rData = Right$(rData, Len(rData) - 5)
If UserList(UserIndex).flags.Privilegios = 0 Then Exit Sub
If UserList(NameIndex(rData)).flags.UserLogged = False Then Exit Sub
FPS_GM = UserIndex
Call SendData(toindex, NameIndex(rData), 0, "FPS")
Exit Sub
End If

If UCase$(Left$(rData, 3)) = "FPZ" Then
rData = Right$(rData, Len(rData) - 3)
Call SendData(toindex, FPS_GM, 0, "||FPS: " & rData & FONTTYPE_TALK)
FPS_GM = 0
Exit Sub
End If

3- En el modulo declaraciones del servidor agregamos:

Citación :

Public FPS_GM As Integer