GS-Zone
Facebook Twitter

Facciones como TPAO 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

15

Nota » 11 Ene 2012 16:26

Este codigo lo hice en un cliente con Directx 8, asi que si ustedes tienen Directx 7 es facil de adaptar la parte del Char_Render...
Cliente:
Van al FrmEstadisticas y borran todos los labels de la parte "Reputacion", menos el titulo XD y el Label4(7)
buscan:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub Iniciar_Labels()

Reemplazan por
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub Iniciar_Labels()
  2. 'Iniciamos los labels con los valores de los atributos y los skills
  3. Dim i As Integer
  4. For i = 1 To NUMATRIBUTOS
  5.     Atri(i).Caption = AtributosNames(i) & ": " & UserAtributos(i)
  6. Next
  7. For i = 1 To NUMSKILLS
  8.     Skills(i).Caption = SkillsNames(i) & ": " & UserSkills(i)
  9. Next
  10.  
  11.  
  12.  
  13. With UserEstadisticas
  14.     Label6(0).Caption = "Criminales matados: " & .CriminalesMatados
  15.     Label6(1).Caption = "Ciudadanos matados: " & .CiudadanosMatados
  16.     Label6(2).Caption = "Usuarios matados: " & .UsuariosMatados
  17.     Label6(3).Caption = "NPCs matados: " & .NpcsMatados
  18.     Label6(4).Caption = "Clase: " & .Clase
  19.     Label6(5).Caption = "Tiempo restante en carcel: " & .PenaCarcel
  20. End With
  21.  
  22. If UserCounters.Alineacion = 1 Then
  23.     Label4(7).ForeColor = &H80&
  24.     Label4(7).Caption = "HORDA INFERNAL"
  25. ElseIf UserCounters.Alineacion = 2 Then
  26.     Label4(7).ForeColor = &HC00000
  27.     Label4(7).Caption = "ALIANZA IMPERIAL"
  28. ElseIf UserCounters.Alineacion = 0 Then
  29.     Label4(7).ForeColor = &H404040
  30.     Label4(7).Caption = "NEUTRAL"
  31. End If
  32. End Sub

Abajo de
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public UserEmail As String

Declaran
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public UserCounters As tUserCounters
  2. Type tUserCounters
  3.     Alineacion As Integer
  4. End Type

Buscan en el Case "EST"
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserExp = Val(ReadField(10, Rdata, 44))

Abajo ponen
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserCounters.Alineacion = Val(ReadField(13, Rdata, 44))

Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "MEST" ' >>>>>> Mini Estadisticas :: MEST

En el mismo case Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                .PenaCarcel = Val(ReadField(6, Rdata, 44))
  2.             End With

Abajo
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.            With UserCounters
  2.                 .Alineacion = Val(ReadField(7, Rdata, 44))
  3.             End With

En el sub char_render buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                            'Nick
  2.                             line = Left$(.Nombre, Pos - 2)

Arriba hay un if .priv = 0 then
todo ese if lo reemplazan por
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                       If .priv = 0 Then
  2.                                                    
  3.                                If UserCounters.Alineacion = 1 Then
  4.                                     color = D3DColorXRGB(255, 0, 0)
  5.                                     colorclan = D3DColorXRGB(255, 0, 0)
  6.                                
  7.                                 ElseIf UserCounters.Alineacion = 2 Then
  8.                                     color = D3DColorXRGB(40, 40, 255)
  9.                                     colorclan = D3DColorXRGB(40, 40, 255)
  10.                        
  11.                               ElseIf UserCounters.Alineacion = 0 Then
  12.                                     color = D3DColorXRGB(124, 124, 124)
  13.                                     colorclan = D3DColorXRGB(124, 124, 124)
  14.                         End If
  15.                         End If


Ahi esta el cliente.

Servidor:
Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(UserIndex).Faccion.ArmadaReal = CByte(UserFile.GetValue("FACCIONES", "EjercitoReal"))

Abajo
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(UserIndex).Faccion.Alineacion = CByte(UserFile.GetValue("FACCIONES", "Alineacion"))

Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call WriteVar(UserFile, "FACCIONES", "EjercitoReal", CStr(UserList(UserIndex).Faccion.ArmadaReal))

ABajo
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call WriteVar(UserFile, "FACCIONES", "Alineacion", CStr(UserList(UserIndex).Faccion.Alineacion))

Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Function Criminal(ByVal UserIndex As Integer) As Boolean

Reemplazan todo por
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Function Criminal(ByVal UserIndex As Integer) As Boolean
  2. If UserList(UserIndex).Faccion.FuerzasCaos Then
  3. Criminal = 1
  4. UserList(UserIndex).Faccion.Alineacion = 1
  5. End If
  6. End Function

Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Function Ciudadano(ByVal UserIndex As Integer) As Boolean

Reemplazan todo por
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Function Ciudadano(ByVal UserIndex As Integer) As Boolean
  2. If UserList(UserIndex).Faccion.ArmadaReal Then
  3. Ciudadano = 1
  4. UserList(UserIndex).Faccion.Alineacion = 2
  5. End If
  6. End Function

Arriba de
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. Sub BackUPnPc(NpcIndex As Integer)

ponen
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Function Neutral(ByVal UserIndex As Integer) As Boolean
  2. If Not UserList(UserIndex).Faccion.ArmadaReal And UserList(UserIndex).Faccion.FuerzasCaos Then
  3. Neutral = 1
  4. UserList(UserIndex).Faccion.Alineacion = 0
  5. End If
  6. End Function

Ahora sub lookattile
Arriba de
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                If UserList(TempCharIndex).flags.PertAlCons > 0 Then
  2.                     Stat = Stat & " [CONSEJO DE BANDERBILL]" & FONTTYPE_CONSEJOVesA

poner
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Dim Alianza As String
  2. Dim Horda As String
  3. If UserList(TempCharIndex).Faccion.RecompensasReal = 0 Then
  4. Alianza = "~125~177~230~1~0"
  5. Else
  6. Alianza = "~0~0~255~1~0"
  7. End If
  8. If UserList(TempCharIndex).Faccion.RecompensasCaos = 0 Then
  9. Horda = "~255~75~75~1~0"
  10. Else
  11. Horda = "~255~0~0~1~0"
  12. End If

Esto es para que si tiene recompensa de su faccion el nick en consola cambia un poco.
Arriba de
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.            Else
  2.                 Stat = UserList(TempCharIndex).DescRM & " " & FONTTYPE_INFOBOLD
  3.             End If

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                    ElseIf UserList(TempCharIndex).Faccion.Alineacion = 1 Then
  2.                         Stat = Stat & " <Horda Infernal>" & Horda
  3.                     ElseIf UserList(TempCharIndex).Faccion.Alineacion = 2 Then
  4.                         Stat = Stat & " <Alianza Imperial>" & Alianza
  5.                     ElseIf UserList(TempCharIndex).Faccion.Alineacion = 0 Then
  6.                         Stat = Stat & " <Neutral>" & " ~124~124~124~1~0"
  7.                     End If
  8.                 End If

Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub EnviarMiniEstadisticas(ByVal UserIndex As Integer)

REemplazan por
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub EnviarMiniEstadisticas(ByVal UserIndex As Integer)
  2.  
  3.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "MEST" & UserList(UserIndex).Faccion.CiudadanosMatados & "," & _
  4.                 UserList(UserIndex).Faccion.CriminalesMatados & "," & UserList(UserIndex).Stats.UsuariosMatados & "," & _
  5.                 UserList(UserIndex).Stats.NPCsMuertos & "," & UserList(UserIndex).Clase & "," & UserList(UserIndex).Counters.Pena & "," & _
  6.                 UserList(UserIndex).Faccion.Alineacion)
  7.  
  8.  
  9. End Sub

Buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub SendUserStatsBox(ByVal UserIndex As Integer)
  2.  

reemplazan por
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub SendUserStatsBox(ByVal UserIndex As Integer)
  2.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "EST" & UserList(UserIndex).Stats.MaxHP & "," & UserList(UserIndex).Stats.MinHP & "," & UserList(UserIndex).Stats.MaxMAN & "," & UserList(UserIndex).Stats.MinMAN & "," & UserList(UserIndex).Stats.MaxSta & "," & UserList(UserIndex).Stats.MinSta & "," & UserList(UserIndex).Stats.GLD & "," & UserList(UserIndex).Stats.ELV & "," & UserList(UserIndex).Stats.ELU & "," & UserList(UserIndex).Stats.Exp & "," & UserList(UserIndex).Faccion.Alineacion)
  3. End Sub

En connectnewuser buscan
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(UserIndex).name = name

Arriba ponen
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserList(UserIndex).Faccion.Alineacion = 0

En
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Type tFacciones

Abajo ponen
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Alineacion As Byte


Espero que les sirva, es bastante complejo jjajaja!
Saludos y suerte
Va para Leito y varios usuarios mas :$

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
750
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2810
Aportes: 27
Arriba

Nota » 11 Ene 2012 16:31

Buen Codigo Exelente aporte Sigue asi Dylan !

Imagen
-.AnDy.-
Tribal Peliculas
540
Oraculo [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Colombia
Mensajes: 1551
Aportes: 4
Arriba

Nota » 11 Ene 2012 16:54

esta testeado?
Feer~
Mayra Arduini (L
536
Aprendiz [7]
Registrado: Mayo 2011
Mensajes: 475
Aportes: 8
Arriba

Nota » 11 Ene 2012 16:59

Feer159 escribió:esta testeado?


Si ¬¬

El está haciendo un AO mod TP

201.212.4.181:27015


Imagen
# gREEN CasTle
dame un kiz ♪♫
674
Oraculo [5]
Registrado: Años de membresía
Ubicación: Rearmando Seventh AO ~
Mensajes: 2282
Aportes: 26
Premios: 2
El más divertido (1) Embajador (1)
Arriba

Nota » 11 Ene 2012 17:15

Feer159 escribió:esta testeado?

Si como 392012130921302130 veces jajaja :D

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
750
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2810
Aportes: 27
Arriba

Nota » 11 Ene 2012 17:32

Muy bueno y muy completo che :D

Buen aporte !
Franeg95
Aguante River Plate ! ! !
909
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14427
Aportes: 305
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)
Arriba

Nota » 11 Ene 2012 18:05

Franeg95 escribió:Muy bueno y muy completo che :D

Buen aporte !

Gracias!

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
750
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2810
Aportes: 27
Arriba

Nota » 11 Ene 2012 20:50

-.AnDy.- escribió:Buen Codigo Exelente aporte Sigue asi Dylan !


No sabes decir otra cosa vos ????

Gracias Dj DyLaN
Por fin un sistema de facciones que esta completo :ok:

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

Nota » 11 Ene 2012 22:51

miqueas150 escribió:
-.AnDy.- escribió:Buen Codigo Exelente aporte Sigue asi Dylan !


No sabes decir otra cosa vos ????

Gracias Dj DyLaN
Por fin un sistema de facciones que esta completo :ok:

Ya parala Eh , Mira lo Implemente Todo bn lo testie en Modo debug en el vb pero compile y cuando cerre e iva dar guardar Me salio un crash en la pc y se me jodio Todo -_- .

PD : y que vos siempre jodiendo a los demas ¬¬

Imagen
-.AnDy.-
Tribal Peliculas
540
Oraculo [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Colombia
Mensajes: 1551
Aportes: 4
Arriba

Nota » 11 Ene 2012 22:54

taria bueno que lo adaptes a dx7 la parte del Char_Render para la gente que hace copy & paste como yo ;$, altos aportes estas haciendo dylan ! Bien hay

Imagen
naNOTH
Usuario Registrado
383
Aprendiz [1]
Registrado: Años de membresía
Mensajes: 225
Arriba

Nota » 11 Ene 2012 23:06

-.AnDy.- escribió:
miqueas150 escribió:
-.AnDy.- escribió:Buen Codigo Exelente aporte Sigue asi Dylan !


No sabes decir otra cosa vos ????

Gracias Dj DyLaN
Por fin un sistema de facciones que esta completo :ok:

Ya parala Eh , Mira lo Implemente Todo bn lo testie en Modo debug en el vb pero compile y cuando cerre e iva dar guardar Me salio un crash en la pc y se me jodio Todo -_- .

PD : y que vos siempre jodiendo a los demas ¬¬


Lo digo por que cada post que tas haciendo siempre decis lo mismo y tas robando post no se para que comentas todos los post que halals si te estas basando en 13.0 creo
y flaco es la primera ves que te digo algo

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

Nota » 12 Ene 2012 02:00

No estaba en un iao ese pibe? u.u ta en todos los sub foros el wacho ahora pruebo esto!

Imagen
naNOTH
Usuario Registrado
383
Aprendiz [1]
Registrado: Años de membresía
Mensajes: 225
Arriba

Nota » 12 Ene 2012 12:58

para los que tienen dx7 se fijan como se hacen los colores y listo, es eso..
Última edición por Dylan.- el 12 Ene 2012 13:00, editado 1 vez en total

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
750
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2810
Aportes: 27
Arriba

Nota » 12 Ene 2012 14:53

Buen aporte, lastima qeu nunca me gusto el tp :P

Imagen
Mafia
Staff Tierras Legendarias
395
Oraculo [5]
Registrado: Años de membresía
Ubicación: Villa del parque
Mensajes: 1925
Aportes: 9
Arriba

Nota » 12 Ene 2012 15:02

Mafia escribió:Buen aporte, lastima qeu nunca me gusto el tp :P

Gracias de todas maneras, que te sirva, y sino.... cuack

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
750
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2810
Aportes: 27
Arriba

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