GS-Zone
Facebook Twitter

CUANDO FUNDAS CLAN QUE TE SAQUE LA GEMA 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

10
Este tema se encuentra cerrado.

Nota » 07 Feb 2012 00:26

Buenas,
Agrege el sistema de fundar clan aportado por kenjin, que nesesitas una gema.
Pero cuando fundas clan no te saca la gema, alguien sabe como hacer para que te la saque cuando fundas?
Desde ya muchas gracias.
Saludos.

Elkity.-@hotmail.com



kOENMA Escribio:
yo soy chileno y se que casi todos ustedes son argentinos, pero eso no me importa, la verdad amo los Argentums y admiro a los Argentinos

Buena frase.
EL KITY
Conocedor
146
Destructor de Mentes [6]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 773
Aportes: 1
Premios: 1
Embajador (1)
Arriba

Nota » 07 Feb 2012 13:38

Call Quitaritem, creo que es... Fíjate si encontras un sub parecido.

El más grande, lejos.
Imagen

Alkair escribió:32px alto x 32px ancho, en total creo que unos 64cm2

Jajajajaja xD

Rta:
Sobre lo de los centímetros, y bue, estaba viendo como pasarlo.
64pixels2 (?


1024 px^2
Germax
¡Libertad con responsabilidad!
743
Moderador
Registrado: Años de membresíaAños de membresía
Ubicación: San Francisco
Mensajes: 4948
Aportes: 38
Premios: 6
Campeón de Futbol (1) Mejor amigo del año (1) Usuario omnipresente (1) Embajador (3)
Arriba

Nota » 07 Feb 2012 13:51

Call QuitarObjetos(Parametros) o QuitarObjeto no me acuerdo.

Saludos!

Imagen

Imagen

TE AMO SKYFUN SOS MI FANNNNNNNNNNNNNNNNNNNNN
SimP
HAO Staff
409
Dragon Ancestral [2]
Registrado: Años de membresía
Ubicación: Buenos Aires
Mensajes: 2745
Aportes: 28
Premios: 1
Embajador (1)
Arriba

Nota » 07 Feb 2012 15:24

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


Abajo Pones
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call QuitarObjetos(NUMERODEITEM, 1, Index)


Saludos.
adzuu
Usuario Registrado
100
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 7
Arriba

Nota » 07 Feb 2012 23:42

Me tira variable no definida en "index"

Elkity.-@hotmail.com



kOENMA Escribio:
yo soy chileno y se que casi todos ustedes son argentinos, pero eso no me importa, la verdad amo los Argentums y admiro a los Argentinos

Buena frase.
EL KITY
Conocedor
146
Destructor de Mentes [6]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 773
Aportes: 1
Premios: 1
Embajador (1)
Arriba

Nota » 08 Feb 2012 00:26

Que raro, ami me funciona perfecto :/. Proba con UserIndex
adzuu
Usuario Registrado
100
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 7
Arriba

Nota » 08 Feb 2012 21:12

Adzuu,
Call QuitarObjetos(411, 1, UserIndex)

Hay anda , pero no me saca 1 gema, me saca 2 y sino no funda.

El 1 ese no es la cantidad de item a sacar?

Elkity.-@hotmail.com



kOENMA Escribio:
yo soy chileno y se que casi todos ustedes son argentinos, pero eso no me importa, la verdad amo los Argentums y admiro a los Argentinos

Buena frase.
EL KITY
Conocedor
146
Destructor de Mentes [6]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 773
Aportes: 1
Premios: 1
Embajador (1)
Arriba

Nota » 09 Feb 2012 15:36

EL KITY escribió:Adzuu,
Call QuitarObjetos(411, 1, UserIndex)

Hay anda , pero no me saca 1 gema, me saca 2 y sino no funda.

El 1 ese no es la cantidad de item a sacar?


Mira yo lo hice así:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function CanCreateGuild(UserIndex As Integer) As Boolean
  2.  
  3. If UserList(UserIndex).GuildInfo.FundoClan > 0 Then
  4.     Call SendData(ToIndex, UserIndex, 0, "8L")
  5.     Exit Function
  6. End If
  7.  
  8. If Len(UserList(UserIndex).GuildInfo.GuildName) > 0 Then
  9.     Call SendData(ToIndex, UserIndex, 0, "||Ya perteneces a un clan." & FONTTYPE_INFO)
  10.     Exit Function
  11. End If
  12.  
  13. If UserList(UserIndex).Stats.UserAtributos(Carisma) < 16 Then
  14.         Call SendData(ToIndex, UserIndex, 0, "||Tienes que tener 16 en carisma.!!" & FONTTYPE_INFO)
  15.     Exit Function
  16. End If
  17.  
  18. If UserList(UserIndex).Stats.UserAtributos(Inteligencia) < 15 Then
  19.         Call SendData(ToIndex, UserIndex, 0, "||Tienes que tener 15 en inteligencia!" & FONTTYPE_INFO)
  20.     Exit Function
  21. End If
  22.  
  23. If Not UserList(UserIndex).Stats.ELV = 45 Then
  24.     Call SendData(ToIndex, UserIndex, 0, "||Tienes que ser level 45 para poder fundar clan.!" & FONTTYPE_INFO)
  25.     Exit Function
  26. End If
  27.  
  28.  If Not UserList(UserIndex).Clase = PIRATA Then
  29.     Call SendData(ToIndex, UserIndex, 0, "||Para fundar un clan en Istherius, tienes que ser Pirata." & FONTTYPE_INFO)
  30.     Exit Function
  31. End If
  32.  
  33. If Not UserList(UserIndex).Stats.UserSkills(Liderazgo) = 100 Then
  34.     Call SendData(ToIndex, UserIndex, 0, "||Tiene que tener 100 skills en Liderazgo!!" & FONTTYPE_INFO)
  35.     Exit Function
  36. End If
  37.  
  38. If Not TieneObjetos(407, 1, UserIndex) Then
  39.     Call SendData(ToIndex, UserIndex, 0, "||¡¡Debes tener una esmeralda de Anubis para fundar clan!!." & FONTTYPE_INFO)
  40.     Exit Function
  41. End If
  42.        
  43. CanCreateGuild = True
  44. End Function

tengo eso dentro del sub de arriba:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If Not TieneObjetos(407, 1, UserIndex) Then
  2.     Call SendData(ToIndex, UserIndex, 0, "||¡¡Debes tener una esmeralda de Anubis para fundar clan!!." & FONTTYPE_INFO)
  3.     Exit Function
  4. End If


y en el:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Function CreateGuild(ByVal FounderName As String, ByVal Index As Integer, ByVal GuildInfo As String) As Boolean
  2. Dim i As Integer
  3.  
  4. If Not CanCreateGuild(Index) Then
  5.     CreateGuild = False
  6.     Exit Function
  7. End If
  8.  
  9. Dim miClan As New cGuild
  10.  
  11. If Not miClan.Initialize(GuildInfo, FounderName) Then
  12.     CreateGuild = False
  13.     Call SendData(ToIndex, Index, 0, "!2")
  14.     Exit Function
  15. End If
  16.  
  17. If ExisteGuild(miClan.GuildName) Then
  18.     CreateGuild = False
  19.     Call SendData(ToIndex, Index, 0, "!3")
  20.     Exit Function
  21. End If
  22.  
  23. Call miClan.Members.Add(UCase$(UserList(Index).Name))
  24.  
  25. Call Guilds.Add(miClan, miClan.GuildName)
  26.  
  27. UserList(Index).GuildInfo.FundoClan = 1
  28. UserList(Index).GuildInfo.EsGuildLeader = 1
  29.  
  30. Call AddtoVar(UserList(Index).GuildInfo.VecesFueGuildLeader, 1, 10000)
  31. Call AddtoVar(UserList(Index).GuildInfo.ClanesParticipo, 1, 10000)
  32.  
  33. UserList(Index).GuildInfo.ClanFundado = miClan.GuildName
  34. UserList(Index).GuildInfo.GuildName = UserList(Index).GuildInfo.ClanFundado
  35.  
  36. Call GiveGuildPoints(5000, Index)
  37. Call QuitarObjetos(407, 1, Index)
  38.  
  39. Call SendData(ToIndex, Index, 0, "||Has agotado una esmeralda al crear el clan!!." & FONTTYPE_INFO)
  40. Call SendData(ToAll, 0, 0, "!4" & UserList(Index).Name & "," & UserList(Index).GuildInfo.GuildName)
  41.  
  42. For i = 1 To LastUser
  43.     If UserList(i).flags.UserLogged Then UserList(i).flags.InfoClanEstatica = 0
  44. Next
  45.  
  46. CreateGuild = True
  47.  
  48. Call SaveGuildsNew
  49.  
  50. End Function

Y dentro del sub de arriba tengo:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call QuitarObjetos(407, 1, Index)


y listo saca una, cuando se crea el clan.

El más grande, lejos.
Imagen

Alkair escribió:32px alto x 32px ancho, en total creo que unos 64cm2

Jajajajaja xD

Rta:
Sobre lo de los centímetros, y bue, estaba viendo como pasarlo.
64pixels2 (?


1024 px^2
Germax
¡Libertad con responsabilidad!
743
Moderador
Registrado: Años de membresíaAños de membresía
Ubicación: San Francisco
Mensajes: 4948
Aportes: 38
Premios: 6
Campeón de Futbol (1) Mejor amigo del año (1) Usuario omnipresente (1) Embajador (3)
Arriba

Nota » 09 Feb 2012 16:20

EL KITY escribió:Adzuu,
Call QuitarObjetos(411, 1, UserIndex)

Hay anda , pero no me saca 1 gema, me saca 2 y sino no funda.

El 1 ese no es la cantidad de item a sacar?

Que loco eso :/
La funcion en si es:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call QuitarObjetos(NumeroObjeto, Cantidad, Userindex o lo que fuese)


Germax yo lo tengo igual que vos pero nada mas que lo puse en donde le dije a el xd
adzuu
Usuario Registrado
100
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 7
Arriba

Nota » 10 Feb 2012 09:16

Muchas gracias a los dos, ese como dijo germax :)
Saludos, pueden cerrar.

Elkity.-@hotmail.com



kOENMA Escribio:
yo soy chileno y se que casi todos ustedes son argentinos, pero eso no me importa, la verdad amo los Argentums y admiro a los Argentinos

Buena frase.
EL KITY
Conocedor
146
Destructor de Mentes [6]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 773
Aportes: 1
Premios: 1
Embajador (1)
Arriba
Este tema se encuentra cerrado.

Volver a AO 0.9.9z / Fenix

¿Quién está conectado?

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