GS-Zone
Facebook Twitter

Agregar Caos 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

11
Este tema se encuentra cerrado.

Nota » 19 Jul 2009 17:01

Bueno aca agregamos Una c"Clase" Mas = Caos

Server:

Arriba de
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. /echar
ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UCase$(Left$(rdata, 15)) = "/acepcaos" Then
  2.             rdata = Right$(rdata, Len(rdata) - 15)
  3.             tIndex = NameIndex(rdata)
  4. If userlist(userindex).flags.privilegios < 3 then
  5. Call senddata(toadmins,0,"||Tienes que ser dios para hacer esto." & Fonttype_talk)
  6.             Call senddata(ToIndex, UserIndex, 0, "||Has sido aceptado en el consejo." & FONTTYPE_TALK)
  7.             If estadesconectado Then
  8.             Call SendData(ToAdmins, 0, "||El usuario esta desconectado." & FONTTYPE_TALK)
  9.             If MapInfo(UserList(UserIndex).POS.Map).Pk = True Then
  10.             Call SendData(ToAdmins, 0, "||El user esta en zona insegura." & FONTTYPE_TALK)
  11.             End If
  12.             Exit Sub


Luego buscamos en el server:

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


Y arriva agregaos:

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


Luego Buscamos:

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


y arriva poner

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



Luego buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(TempCharIndex).flags.Muerto Then
  2.                     Stat = "2K" & UserList(TempCharIndex).Name
  3.                 ElseIf UserList(TempCharIndex).Faccion.Bando = Real Then
  4.                     Stat = "3K" & Stat
  5.                 ElseIf UserList(TempCharIndex).Faccion.Bando = Caos Then
  6.                     Stat = "4K" & Stat
  7.                 ElseIf EsNewbie(TempCharIndex) Then
  8.                     Stat = "H0" & Stat
  9.                 Else
  10.                   Stat = "1&" & Stat
  11.                End If
  12.            End If
  13.  

Abajo ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserList(TempCharIndex).flags.Privilegios = 1 Then
  2.     Stat = Stat & " <Consejero> "
  3.     ElseIf UserList(TempCharIndex).flags.Privilegios = 2 Then
  4.     Stat = Stat & " <Semidios> "
  5.     ElseIf UserList(TempCharIndex).flags.Privilegios = 3 Then
  6.     Stat = Stat & " <Dios> "
  7.     ElseIf UserList(TempCharIndex).flags.Privilegios = 0 Then
  8.     Stat = Stat & " <Caos> "
  9.     End If

Luego vamos al server.ini y ponemos

Arriva de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Dioses=X


Ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Caoticos=X


Abajo de:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. [PJsQuest]
  2. PJQuest1=


Ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. [Caoticos]
  2. Caos1=Name


Por ultimo buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call SendData(ToIndex, UserIndex, 0, Stat)


Y arriba pones:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(TempCharIndex).flags.EsCaosMalo Then
  2. Stat = Stat & " <Consejo de Banderbill>" & ~98~204~255~1~0)
  3. End If If


Nota: El name lo tienen que remplazar por el nombre de su administrador, obviamente que puede poner mas admin, la X la remplazas x la cantidad de administradores

Luego hacemos lo smimo con el caos

Salu2

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 19 Jul 2009 17:10

Buen aporte pero a que te referis con un administrador caos? no entiendo :?:

" La mas linda del amor , que un tonto ha visto soñar "
McKeyN
Ex-Nosferatuz
14
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Mercedes , Bs As
Mensajes: 1865
Aportes: 4
Arriba

Nota » 19 Jul 2009 17:24

Viste caos,Alianza,Bueno aca agregas el caos,Si kieren pueden hacer lo mismo con alianza,Losd mismo pasos,Si kieren integrar a alguien en el caos lo hacen desde el .ini o el /acepcaos

Saludos

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 16 Ago 2009 17:29

:evil: pero.. este code ya está en 0.11.2 y más en aoready.. es más, yo cuando lo descarge ya venia con consilio y consejo :/
perdon si me equivoco.. pero.. este code ya esta implementado de 0.11.2 en adelante

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Beledrian
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5
Arriba

Nota » 16 Ago 2009 22:00


"Dios, sospecho que eres un intelectual de izquierda."

-Grafiti del Mayo Francés
ArzenaTh
La venganza es un placer
693
Moderador Global
Registrado: 5 Años de membresía!Años de membresía
Mensajes: 8571
Aportes: 26
Premios: 1
Campeón de Truco (1)
Arriba

Nota » 16 Ago 2009 22:21

Jaja está re mal este código, habría que cerrar ya el tema o borrarlo, ademas, no podes poner "End Function", como mucho, seria "Exit Function"

Imagen
Naaan!
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)
Arriba

Nota » 16 Ago 2009 22:33

Lo que no entiendo yo..para que otro caos..si ya viene.. ¬¬

" La mas linda del amor , que un tonto ha visto soñar "
McKeyN
Ex-Nosferatuz
14
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Mercedes , Bs As
Mensajes: 1865
Aportes: 4
Arriba

Nota » 17 Ago 2009 00:07

claro.. es eso loque yo tampoco entiendo..
en fin.. es un aporte..


Pero antes de hacer aportes, tiene que ser funcional el code y especificar cada cosa..
tampoco hace falta que el code este completo.. pero sí que sea funcional..
En fin.. no cumple los requisitos.. pero vale la intención..

Suerte!

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Beledrian
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5
Arriba

Nota » 19 Ago 2009 14:42

Bueno loco,Pensev ke no venia,AShi repare los errores,Me comi algunos,Arzenath klien te crees que sos Vos,Andas puteando a la gente por Mp,Justo a mi eh¡¡¡

Sonter dijo : Dios es el admin de nuestro mundo virtual (? es decir nuestro mundo actual. Nosotros somos usuarios y nos peleamos porque no nos da items y como no nos da items nos vamos a la luna y a otros servers porque hay mejores Game Masters ( Recomiendo Plutón , Lindo server muchos colorees aunque en todos los mapas hace mucho fio)
Sonter
Usuario Registrado
Oraculo [4]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 1849
Aportes: 18
Arriba

Nota » 19 Ago 2009 15:42

Ya que todos critican.. LOS COMANDOS VAN EN MAYUSCULA.

Jejeje, la intension estuvo :)

Imagen
Lerviat
Usuario Registrado
Aprendiz [1]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 237
Aportes: 3
Arriba

Nota » 19 Ago 2009 17:46

Edit: Cierro el tema, por si responden, asi no se genera mas conflicto, el código no es funcional, aca abajo dejé un par de aclaraciones, y 11.2 ya tiene Caos.

Sonter escribió:Bueno loco,Pensev ke no venia,AShi repare los errores,Me comi algunos,Arzenath klien te crees que sos Vos,Andas puteando a la gente por Mp,Justo a mi eh¡¡¡


1) Hay que saber escribir.
2) Mira lo que te dejé en negrita en el quote, y... mira todo lo que te digo ahora:

Explicame unas cosas, de este código, pensemos:

Comando:
1)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call senddata(toadmins,0,"||Tienes que ser dios para hacer esto." & Fonttype_talk)


1) Tiene 3 parametros, y los del call senddata son 4, te falta el tIndex o UserIndex.

2)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UCase$(Left$(rdata, 15)) = "/acepcaos" Then
  2. rdata = Right$(rdata, Len(rdata) - 15)


2) No tiene 15 caracteres, nose porque pones 15, copy paste no sirve, y además, va en mayusculas el comando.

3)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If estadesconectado Then


3) Es If tIndex <= 0 Then para que diga que esta desconectado :S!


Function Caos:

1)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. EsAdministrador = True


1) Lo hace administrador? Copiaste y pegaste, y solo cambiaste el nombre de la función.

2)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. NumWizs = val(GetVar(IniPath & "Server.ini", "INIT", "Administradores"))


2) Lee administradores? si este codigo es de Caos.

Sub LookAtTile:

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


1) Asique, le diria CAOS a todos los usuarios ? porque todos los usuarios tienen privilegio 0 :S.

2)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(TempCharIndex).flags.EsCaosMalo Then
  2.     Stat = Stat & " <Consejo de Banderbill>" & ~98~204~255~1~0)
  3.    End If If


2) *Donde declaraste EsCaosMalo en los flags?.
*Si es caos malo le dice Consejo de Banderbill? No sirve copy paste.
*El end if termina con IF IF, o solo con IF ?

Creo que sería todo, a estudiar.

Imagen
Naaan!
UNUNQUADiO
24
Legendario Inmortal [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 4899
Aportes: 51
Premios: 2
Embajador (1) Detector de Bugs (1)
Arriba
Este tema se encuentra cerrado.

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

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