Como bien dice el título , alguno me podría ayudar , para que los GMS no cuenten como un usuario del mapa?

muchas gracias

Saludos

Samke escribió:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub HandleOnlineMap(ByVal UserIndex As Integer)
2. '***************************************************
3. 'Author: Nicolas Matias Gonzalez (NIGO)
4. 'Last Modification: 23/03/2009
5. '23/03/2009: ZaMa - Ahora no requiere estar en el mapa, sino que por defecto se toma en el que esta, pero se puede especificar otro
6. '***************************************************
7.     With UserList(UserIndex)
8.         'Remove packet ID
9.         Call .incomingData.ReadByte
10.        
11.         Dim map As Integer
12.         map = .incomingData.ReadInteger
13.        
14.         If .flags.Privilegios And (PlayerType.User Or PlayerType.Consejero) Then Exit Sub
15.        
16.         Dim LoopC As Long
17.         Dim list As String
18.         Dim priv As PlayerType
19.        
20.         priv = PlayerType.User Or PlayerType.Consejero Or PlayerType.SemiDios
21.         If .flags.Privilegios And (PlayerType.Dios Or PlayerType.Admin) Then priv = priv + (PlayerType.Dios Or PlayerType.Admin)
22.        
23.         For LoopC = 1 To LastUser
24.             If LenB(UserList(LoopC).Name) <> 0 And UserList(LoopC).Pos.map = map Then
25.                 If UserList(LoopC).flags.Privilegios And (PlayerType.User Or PlayerType.Consejero) Then _
26.                     list = list & UserList(LoopC).Name & ", "
27.             End If
28.         Next LoopC
29.        
30.         If Len(list) > 2 Then list = Left$(list, Len(list) - 2)
31.        
32.         Call WriteConsoleMsg(UserIndex, "Usuarios en el mapa: " & list, FontTypeNames.FONTTYPE_INFO)
33.     End With
34. End Sub

Saludos

pero commo hago para q no cuente a los gms?
ese handle es el mismo que el q tengo yo

Fixed escribió:

Samke escribió:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub HandleOnlineMap(ByVal UserIndex As Integer)
2. '***************************************************
3. 'Author: Nicolas Matias Gonzalez (NIGO)
4. 'Last Modification: 23/03/2009
5. '23/03/2009: ZaMa - Ahora no requiere estar en el mapa, sino que por defecto se toma en el que esta, pero se puede especificar otro
6. '***************************************************
7.     With UserList(UserIndex)
8.         'Remove packet ID
9.         Call .incomingData.ReadByte
10.        
11.         Dim map As Integer
12.         map = .incomingData.ReadInteger
13.        
14.         If .flags.Privilegios And (PlayerType.User Or PlayerType.Consejero) Then Exit Sub
15.        
16.         Dim LoopC As Long
17.         Dim list As String
18.         Dim priv As PlayerType
19.        
20.         priv = PlayerType.User Or PlayerType.Consejero Or PlayerType.SemiDios
21.         If .flags.Privilegios And (PlayerType.Dios Or PlayerType.Admin) Then priv = priv + (PlayerType.Dios Or PlayerType.Admin)
22.        
23.         For LoopC = 1 To LastUser
24.             If LenB(UserList(LoopC).Name) <> 0 And UserList(LoopC).Pos.map = map Then
25.                 If UserList(LoopC).flags.Privilegios And (PlayerType.User Or PlayerType.Consejero) Then _
26.                     list = list & UserList(LoopC).Name & ", "
27.             End If
28.         Next LoopC
29.        
30.         If Len(list) > 2 Then list = Left$(list, Len(list) - 2)
31.        
32.         Call WriteConsoleMsg(UserIndex, "Usuarios en el mapa: " & list, FontTypeNames.FONTTYPE_INFO)
33.     End With
34. End Sub

Saludos

pero commo hago para q no cuente a los gms?
ese handle es el mismo que el q tengo yo

Lo acabo de modificar, sino no lo pondria -.-"

Saludos

Eso no es lo que el quiere Samke

El busca para que NO LO CUENTE COMO UN USUARIO EN EL MAPA ¿entendes?

onda que si vos pones en un codigo (ejemplo el npc informativo de shak) .. si el gm está en el mapa , el npc siga diciendo "cupos: 0/10"

o eso creo si no entendi mal


saludos

Anelark escribió:Eso no es lo que el quiere Samke

El busca para que NO LO CUENTE COMO UN USUARIO EN EL MAPA ¿entendes?

onda que si vos pones en un codigo (ejemplo el npc informativo de shak) .. si el gm está en el mapa , el npc siga diciendo "cupos: 0/10"

o eso creo si no entendi mal


saludos

Entendistes mal, el quiere /onlinemap num, no diga los gms.

Saludos

Samke escribió:

Anelark escribió:Eso no es lo que el quiere Samke

El busca para que NO LO CUENTE COMO UN USUARIO EN EL MAPA ¿entendes?

onda que si vos pones en un codigo (ejemplo el npc informativo de shak) .. si el gm está en el mapa , el npc siga diciendo "cupos: 0/10"

o eso creo si no entendi mal


saludos

Entendistes mal, el quiere /onlinemap num, no diga los gms.

Saludos

Nono , es como dice anelark , eso eso quiero , por eso te decia..

me podes ayudar? o anelark? gracias

Bisca

'Update new Map Users

MapInfo(Map).NumUsers = MapInfo(Map).NumUsers + 1

'Update old Map Users

MapInfo(OldMap).NumUsers = MapInfo(OldMap).NumUsers - 1
If MapInfo(OldMap).NumUsers < 0 Then
MapInfo(OldMap).NumUsers = 0
End If

y reemplazalo por

'Update new Map Users
If PlayerType.User Or PlayerType.RoyalCouncil Or PlayerType.ChaosCouncil Then
MapInfo(Map).NumUsers = MapInfo(Map).NumUsers + 1
End If
'Update old Map Users
If PlayerType.User Or PlayerType.RoyalCouncil Or PlayerType.ChaosCouncil Then
MapInfo(OldMap).NumUsers = MapInfo(OldMap).NumUsers - 1
End If
If MapInfo(OldMap).NumUsers < 0 Then
MapInfo(OldMap).NumUsers = 0
End If

gracias solucioinado