GS-Zone
Facebook Twitter

Al agregar Jerarquia Administrador Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

25

Nota » 07 Feb 2012 17:19

Búeno,quiero agregar jerarquia Administrador pero me tira error de Compilacion en

"ELSE"

Link del CODIGO:

agregar_jerarquia_administrador_t4Bl.html

Dejo foto

Imagen

Imagen
Nicolas P
Empezando Dhayrum Ao
443
Destructor de Mentes [1]
Registrado: Enero 2012
Ubicación: En Dhayrum AO
Mensajes: 509
Aportes: 2
Arriba

Nota » 07 Feb 2012 17:24

Copiaste mal el Código
El Else sería como decir "Sino", por ejemplo

If es preguntar algo
Por ejemplo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If 1 = 1 Then ' Then significa "Entonces"
  2. A = True 'La variable A es Verdaera
  3. Else 'Sino
  4. A = False 'la variable A es falsa
  5. End If 'Fin


En fin, Else se utiliza para decir "Si no se cumple" o "si no es"

Y el programa te está diciendo el error, arriba de else no hay un If.
Fijate de que hayas copiado bien el Código...

Feer es mi fan, por eso me tiene en su firma jakjka
Pobrecito

Imagen
Alkair
-Rezniaq
730
Destructor de Mentes [11]
Registrado: Septiembre 2011
Ubicación: Zárate
Mensajes: 1034
Aportes: 20
Arriba

Nota » 07 Feb 2012 17:26

Lo copie Re Bien,Océa Probe Bocha de veces,Te doy Monedas si me ayudas a Arreglar el Tema.

Imagen
Nicolas P
Empezando Dhayrum Ao
443
Destructor de Mentes [1]
Registrado: Enero 2012
Ubicación: En Dhayrum AO
Mensajes: 509
Aportes: 2
Arriba

Nota » 07 Feb 2012 17:31

Nicolas P escribió:Lo copie Re Bien,Océa Probe Bocha de veces,Te doy Monedas si me ayudas a Arreglar el Tema.


Ahora veo que seguramente no está la parte de los Rolemasters... Ahora veo si te arreglo el código...
Espera que edite

EDIT:

Probá así

Buscá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ElseIf EsDios(name) Then
  2.     UserList(UserIndex).flags.Privilegios = PlayerType.Dios
  3.     Call LogGM(UserList(UserIndex).name, "Se conecto con ip:" & UserList(UserIndex).ip, False)


Arriba poné

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If EsAdministrador(name) Then
  2.     UserList(UserIndex).flags.Privilegios = PlayerType.Admin
  3.     Call LogGM(UserList(UserIndex).name, "Se conecto con ip:" & UserList(UserIndex).ip, False)


Buscá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'Si es dios o Admins no podemos salvo que nosotros también lo seamos
  2.     If (EsDios(rData) Or EsAdmin(rData)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then _
  3.         Exit Sub


Y lo reemplazas por

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'Si es dios o Admins no podemos salvo que nosotros también lo seamos
  2.     If (EsDios(rData) Or EsAdministrador(rData)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then _
  3.         Exit Sub


Buscá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'No permitimos mirar dioses
  2.         If EsDios(rData) Or EsAdmin(rData) Then Exit Sub


Y reemplazalo por

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'No permitimos mirar dioses
  2.         If EsDios(rData) Or EsAdministrador(rData) Then Exit Sub


Buscá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'A los dioses y admins no vale susurrarles si no sos uno vos mismo (así no pueden ver si están conectados o no)
  2. If (EsDios(tName) Or EsAdmintName)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then
  3. Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes susurrarle a los Dioses y Admins." & FONTTYPE_INFO)
  4. Exit Sub
  5. End If


Reemplazalo por

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. 'A los dioses y admins no vale susurrarles si no sos uno vos mismo (así no pueden ver si están conectados o no)
  2.             If (EsDios(tName) Or EsAdministrador(tName)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then
  3.                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes susurrarle a los Dioses y Admins." & FONTTYPE_INFO)
  4.                 Exit Sub
  5.             End If


Buscá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ElseIf EsDios(name) Then
  2.     UserDarPrivilegioLevel = 3


Arriba poné

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If EsAdministrador(name) Then
  2.     UserDarPrivilegioLevel = 4


Buscá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Function EsDios(ByVal name As String) As Boolean


Arriba pone

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Function EsAdministrador(ByVal name As String) As Boolean
  2. Dim NumWizs As Integer
  3. Dim WizNum As Integer
  4. Dim NomB As String
  5.  
  6. NumWizs = val(GetVar(IniPath & "Server.ini", "INIT", "Administradores"))
  7.  
  8. For WizNum = 1 To NumWizs
  9.     NomB = UCase$(GetVar(IniPath & "Server.ini", "Administradores", "Administrador" & WizNum))
  10.     If Left(NomB, 1) = "*" Or Left(NomB, 1) = "+" Then NomB = Right(NomB, Len(NomB) - 1)
  11.     If UCase$(name) = NomB Or UCase$(name) = "KenJin" Then
  12.         EsAdministrador = True
  13.         Exit Function
  14.     End If
  15. Next WizNum
  16. EsAdministrador = False
  17.  
  18. End Function


Buscá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ElseIf Criminal(TempCharIndex) Then
  2. Stat = Stat & " <CRIMINAL> ~255~0~0~1~0"
  3. Else
  4. Stat = Stat & " <CIUDADANO> ~0~0~200~1~0"
  5. End If
  6. End If
  7. Else
  8. Stat = UserList(TempCharIndex).DescRM & " " & FONTTYPE_INFOBOLD
  9. End If


Y abajo poné

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(TempCharIndex).flags.Privilegios > 3 Then
  2.                         Stat = Stat & " <Administrador> ~216~251~1~1~0"
  3.                     ElseIf UserList(TempCharIndex).flags.Privilegios > 2 Then
  4.                         Stat = Stat & " <Dios> ~255~255~255~1~0"
  5.                     ElseIf UserList(TempCharIndex).flags.Privilegios > 1 Then
  6.                         Stat = Stat & " <Semi-Dios> ~255~128~64~1~0"
  7.                     ElseIf UserList(TempCharIndex).flags.Privilegios > 0 Then
  8.                         Stat = Stat & " <Consejero> ~128~255~255~1~0"
  9.  
  10. End If


Y después tenés que agregar al Servidor lo otro de los Admins que es una boludes.
Fijate si así anda y sino veo otra forma...
Última edición por Alkair el 07 Feb 2012 17:38, editado 1 vez en total

Feer es mi fan, por eso me tiene en su firma jakjka
Pobrecito

Imagen
Alkair
-Rezniaq
730
Destructor de Mentes [11]
Registrado: Septiembre 2011
Ubicación: Zárate
Mensajes: 1034
Aportes: 20
Arriba

Nota » 07 Feb 2012 17:33

Ahi quise otra ves agregarlo pero sigue el Mismo error,Muchas Gracias.

Las monedas son Tullas xD

Edit:

Ahora el ERROR ES :

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function UserDarPrivilegioLevel(ByVal name As String) As Long
  2. If EsAdministrador(name) Then
  3.     UserDarPrivilegioLevel = 4
  4. If EsDios(name) Then
  5.     UserDarPrivilegioLevel = 3
  6. ElseIf EsSemiDios(name) Then
  7.     UserDarPrivilegioLevel = 2
  8. ElseIf EsConsejero(name) Then
  9.     UserDarPrivilegioLevel = 1
  10. Else
  11.     UserDarPrivilegioLevel = 0
  12. End If
  13. [b][i]End Function <<<El Erro lo tira Ahí[/i][/b]


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.  
  3. ERROR:Bloque if sin end if

Imagen
Nicolas P
Empezando Dhayrum Ao
443
Destructor de Mentes [1]
Registrado: Enero 2012
Ubicación: En Dhayrum AO
Mensajes: 509
Aportes: 2
Arriba

Nota » 07 Feb 2012 17:59

Nicolas P escribió:Ahi quise otra ves agregarlo pero sigue el Mismo error,Muchas Gracias.

Las monedas son Tullas xD

Edit:

Ahora el ERROR ES :

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function UserDarPrivilegioLevel(ByVal name As String) As Long
  2. If EsAdministrador(name) Then
  3.     UserDarPrivilegioLevel = 4
  4. If EsDios(name) Then
  5.     UserDarPrivilegioLevel = 3
  6. ElseIf EsSemiDios(name) Then
  7.     UserDarPrivilegioLevel = 2
  8. ElseIf EsConsejero(name) Then
  9.     UserDarPrivilegioLevel = 1
  10. Else
  11.     UserDarPrivilegioLevel = 0
  12. End If
  13. [b][i]End Function <<<El Erro lo tira Ahí[/i][/b]


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.  
  3. ERROR:Bloque if sin end if


IGNORA ESTE MENSAJE, PERDÓN POR DESVIARTUAR
Última edición por YoSoyProo el 07 Feb 2012 18:04, editado 1 vez en total
YoSoyProo
Usuario Registrado
5
Newbie [1]
Registrado: Enero 2012
Mensajes: 5
Arriba

Nota » 07 Feb 2012 18:03

Nicolas P escribió:Ahi quise otra ves agregarlo pero sigue el Mismo error,Muchas Gracias.

Las monedas son Tullas xD

Edit:

Ahora el ERROR ES :

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function UserDarPrivilegioLevel(ByVal name As String) As Long
  2. If EsAdministrador(name) Then
  3.     UserDarPrivilegioLevel = 4
  4. If EsDios(name) Then
  5.     UserDarPrivilegioLevel = 3
  6. ElseIf EsSemiDios(name) Then
  7.     UserDarPrivilegioLevel = 2
  8. ElseIf EsConsejero(name) Then
  9.     UserDarPrivilegioLevel = 1
  10. Else
  11.     UserDarPrivilegioLevel = 0
  12. End If
  13. [b][i]End Function <<<El Erro lo tira Ahí[/i][/b]


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.  
  3. ERROR:Bloque if sin end if



Arriba de End Function pone "End If" de nuevo

Quedaría así:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function UserDarPrivilegioLevel(ByVal name As String) As Long
  2. If EsAdministrador(name) Then
  3.     UserDarPrivilegioLevel = 4
  4. If EsDios(name) Then
  5.     UserDarPrivilegioLevel = 3
  6. ElseIf EsSemiDios(name) Then
  7.     UserDarPrivilegioLevel = 2
  8. ElseIf EsConsejero(name) Then
  9.     UserDarPrivilegioLevel = 1
  10. Else
  11.     UserDarPrivilegioLevel = 0
  12. End If
  13. End If
  14. End Function

Feer es mi fan, por eso me tiene en su firma jakjka
Pobrecito

Imagen
Alkair
-Rezniaq
730
Destructor de Mentes [11]
Registrado: Septiembre 2011
Ubicación: Zárate
Mensajes: 1034
Aportes: 20
Arriba

Nota » 07 Feb 2012 18:10

La jerarquia admin no viene en 11.5 virgen?

Y en el error original era poner todo ese else arriba del elseif criminal -.-

Imagen


Gaara escribió:Me Caen Mal El Tipo De Personas Que Cuando Estas leveleando En Gathering(Por ejemplo)
Viene Un Neutro y te mata...Volves y Te Mata Lo Bardeas y le avisa al Gm y Te banea :@
Lekasak
Barrilete cósmico ^^
354
Aprendiz [6]
Registrado: Años de membresía
Ubicación: en mi casa
Mensajes: 437
Aportes: 2
Arriba

Nota » 07 Feb 2012 18:17

Lekasak escribió:La jerarquia admin no viene en 11.5 virgen?

Y en el error original era poner todo ese else arriba del elseif criminal -.-


Por si no te fijaste estaba puesto así, y se confundieron los Ifs entonces quedó mal el código >.<

Mirá bien.

Feer es mi fan, por eso me tiene en su firma jakjka
Pobrecito

Imagen
Alkair
-Rezniaq
730
Destructor de Mentes [11]
Registrado: Septiembre 2011
Ubicación: Zárate
Mensajes: 1034
Aportes: 20
Arriba

Nota » 07 Feb 2012 19:03

Me Tíro Bocha de Errores,Nadie tiene Codigo de Jerarquia que no este Llenos de Bug?

Imagen
Nicolas P
Empezando Dhayrum Ao
443
Destructor de Mentes [1]
Registrado: Enero 2012
Ubicación: En Dhayrum AO
Mensajes: 509
Aportes: 2
Arriba

Nota » 07 Feb 2012 19:07

Nicolas P escribió:Me Tíro Bocha de Errores,Nadie tiene Codigo de Jerarquia que no este Llenos de Bug?


Probá haciendo lo que te dejo Lekasak xd
YoSoyProo
Usuario Registrado
5
Newbie [1]
Registrado: Enero 2012
Mensajes: 5
Arriba

Nota » 08 Feb 2012 03:15

Podes de dejar de Robar post Inutíl,Te tendrían que Advertir por Doble Post.

Vuelvo al Tema,Alguna otra SolucióN?

Imagen
Nicolas P
Empezando Dhayrum Ao
443
Destructor de Mentes [1]
Registrado: Enero 2012
Ubicación: En Dhayrum AO
Mensajes: 509
Aportes: 2
Arriba

Nota » 08 Feb 2012 09:54

Deci parte por parte donde esta el error ponelo q te ayudo.

Imagen
Pentra~
Intento de Programer
301
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1124
Aportes: 10
Arriba

Nota » 08 Feb 2012 10:51

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function UserDarPrivilegioLevel(ByVal name As String) As Long
  2. If EsAdministrador(name) Then
  3.     UserDarPrivilegioLevel = 4
  4. ElseIf EsDios(name) Then
  5.     UserDarPrivilegioLevel = 3
  6. ElseIf EsSemiDios(name) Then
  7.     UserDarPrivilegioLevel = 2
  8. ElseIf EsConsejero(name) Then
  9.     UserDarPrivilegioLevel = 1
  10. Else
  11.     UserDarPrivilegioLevel = 0
  12. End If
  13. End Function

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba

Nota » 08 Feb 2012 13:10

Nicolas P escribió:Podes de dejar de Robar post Inutíl,Te tendrían que Advertir por Doble Post.

Vuelvo al Tema,Alguna otra SolucióN?


Primero que nada, yo te dí la solución del mensaje de arriba, indicando que lo que dijo Lekasak está bien.
El usuario al que insultaste soy yo y no me cayó nada bien.
Para no desvirtuar en unos minutos voy a editar con una posible solución, pero intenta no insultar a cualquiera la próxima...

EDIT:

Abajo de

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                    ElseIf UserList(TempCharIndex).flags.Privilegios > 0 Then
  2.                         Stat = Stat & " <Consejero> ~128~255~255~1~0"


Poné

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Else
  2. Stat = UserList(TempCharIndex).DescRM & " " & FONTTYPE_INFOBOLD


Y después más abajo donde te tira el error borrá

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Else
  2. Stat = UserList(TempCharIndex).DescRM & " " & FONTTYPE_INFOBOLD

Feer es mi fan, por eso me tiene en su firma jakjka
Pobrecito

Imagen
Alkair
-Rezniaq
730
Destructor de Mentes [11]
Registrado: Septiembre 2011
Ubicación: Zárate
Mensajes: 1034
Aportes: 20
Arriba
Siguiente

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados