Estados del usuario.

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

» 20 Nov 2011 22:49

Nosé si esta aportado pero lo dejo

Todo en el servidor.

Primero buscamos:

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

1. If FoundChar = 1 Then

Y lo reemplazamos por:

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

1. If FoundChar = 1 Then
2.            
3.        If UserList(TempCharIndex).flags.AdminInvisible = 0 Or UserList(UserIndex).flags.Privilegios = PlayerType.Dios Then
4.            
5.             If UserList(TempCharIndex).DescRM = "" Then
6.                 If EsNewbie(TempCharIndex) Then
7.                     Stat = " <NEWBIE>"
8.                 End If
9.                
10.                 If UserList(TempCharIndex).Faccion.ArmadaReal = 1 Then
11.                     Stat = Stat & " <Ejercito real> " & "<" & TituloReal(TempCharIndex) & ">"
12.                 ElseIf UserList(TempCharIndex).Faccion.FuerzasCaos = 1 Then
13.                     Stat = Stat & " <Legión oscura> " & "<" & TituloCaos(TempCharIndex) & ">"
14.                 End If
15.                
16.                 If UserList(TempCharIndex).guildIndex > 0 Then
17.                     Stat = Stat & " <" & modGuilds.GuildName(UserList(TempCharIndex).guildIndex) & ">"
18.                 End If
19.                
20.                 If Len(UserList(TempCharIndex).desc) > 1 Then
21.                     Stat = "Ves a " & UserList(TempCharIndex).name & Stat & " - " & UserList(TempCharIndex).desc
22.                 Else
23.                     Stat = "Ves a " & UserList(TempCharIndex).name & Stat
24.                 End If
25.                
26.                 If UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.05) Then
27.                     Stat = Stat & " [Explotó el tumor]"
28.                 ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.1) Then
29.                     Stat = Stat & " [Tumor]"
30.                 ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.25) Then
31.                     Stat = Stat & " [Hemorragia cerebral]"
32.                 ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.5) Then
33.                     Stat = Stat & " [Se le sale un cacho de pìerna]"
34.                 ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP * 0.75) Then
35.                     Stat = Stat & " [Sangre derramada por su cuerpo]"
36.                 ElseIf UserList(TempCharIndex).Stats.MinHP < (UserList(TempCharIndex).Stats.MaxHP) Then
37.                     Stat = Stat & " [Con un poco de sangre]"
38.                 Else
39.                     Stat = Stat & " [Intacto]"
40.                 End If
41.  
42.                                 If UserList(TempCharIndex).flags.Privilegios And PlayerType.RoyalCouncil Then
43.                     Stat = Stat & " [CONSEJO DE BANDERBILL]"
44.                     ft = FontTypeNames.FONTTYPE_CONSEJOVesA
45.                 ElseIf UserList(TempCharIndex).flags.Privilegios And PlayerType.ChaosCouncil Then
46.                     Stat = Stat & " [CONSEJO DE LAS SOMBRAS]"
47.                     ft = FontTypeNames.FONTTYPE_CONSEJOCAOSVesA
48.                 Else
49.                     If Not UserList(TempCharIndex).flags.Privilegios And PlayerType.User Then
50.                         Stat = Stat & " <GAME MASTER>"
51.                         ft = FontTypeNames.FONTTYPE_GM
52.                     ElseIf criminal(TempCharIndex) Then
53.                         Stat = Stat & " <CRIMINAL>"
54.                         ft = FontTypeNames.FONTTYPE_FIGHT
55.                     Else
56.                         Stat = Stat & " <CIUDADANO>"
57.                         ft = FontTypeNames.FONTTYPE_CITIZEN
58.                     End If
59.                 End If
60.             Else  'Si tiene descRM la muestro siempre.
61.                 Stat = UserList(TempCharIndex).DescRM
62.                 ft = FontTypeNames.FONTTYPE_INFOBOLD
63.             End If
64.            
65.             If LenB(Stat) > 0 Then
66.                 Call WriteConsoleMsg(UserIndex, Stat, ft)
67.             End If
68.            
69.             FoundSomething = 1
70.             UserList(UserIndex).flags.TargetUser = TempCharIndex
71.             UserList(UserIndex).flags.TargetNPC = 0
72.             UserList(UserIndex).flags.TargetNpcTipo = eNPCType.Comun
73.        End If
74.  
75.     End If

Eso es todo!

Los nombres son un poco flasheros, pero los pueden cambiar

201.212.4.181:27015

# gREEN CasTle

dame un kiz ♪♫

674

Registrado:

Ubicación: Rearmando Seventh AO ~

Mensajes: 2282

Aportes: 26

Premios: 2

Arriba

» 20 Nov 2011 23:24

Muy bueno, aunque ya está aportado

estado_del_usuario_en_consola_taEz.html

Saludos.

PointMe. ¿Serás el más votado?

Publica tu ao en Ranking AO!

© PointMe y Ranking AO by Dex Systems

Seguinos en Facebook: https://www.facebook.com/RankingAo

Cliente y servidor Dx7/Dx8 Optimizados

Midraks

Programming my world

665

Registrado:

Ubicación: Buenos Aires > Lanus Oeste

Mensajes: 3357

Aportes: 48

Premios: 2

Arriba

» 22 Nov 2011 23:31

Buen aporte, aunque copiando aportes ya existentes, y cambiando el nombre de lo que dice no va asi

Saludos

Samke

Staff Zeiked-Games

641

Registrado:

Ubicación: Castelar

Mensajes: 3414

Aportes: 66

Premios: 3

Arriba

Volver a AO 0.12.x

¿Quién está conectado?

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