Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Seguro de clan

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Seguro de clan   Miér Jul 02, 2008 3:51 am

Buscan
Citación :

Seguro As Boolean
abajo ponen
Citación :

SeguroClan As Boolean '[GS] Seguro de Clanes
buscan
Citación :

UserList(UserIndex).flags.Seguro = Not UserList(UserIndex).flags.Seguro
Exit Sub
y abajo ponen
Citación :

'[GS] Seguro de Clanes
Case "/SEGCLAN"
If UserList(UserIndex).flags.SeguroClan Then
Call SendData(ToIndex, UserIndex, 0, "||Has desactivado el Seguro de Clan." & FONTTYPE_WARNING)
Else
Call SendData(ToIndex, UserIndex, 0, "||Has activado el Seguro de Clan." & FONTTYPE_GUILD)
End If
UserList(UserIndex).flags.SeguroClan = Not UserList(UserIndex).flags.SeguroClan
Exit Sub
'[/GS]
En SistemaCombate buscar
Citación :

If UserList(AttackerIndex).flags.Privilegios = 1 Then
PuedeAtacar = False
arriba ponen
Citación :

' [GS] Seguro de Clanes
If UserList(AttackerIndex).flags.SeguroClan Then
If UserList(VictimIndex).GuildInfo.GuildName = UserList(AttackerIndex).GuildInfo.GuildName And UserList(AttackerIndex).GuildInfo.GuildName <> "" Then
Call SendData(ToIndex, AttackerIndex, 0, "||No puedes atacar a tu propio Clan con el seguro activado, escribe /SEGCLAN para desactivarlo." & FONTTYPE_FIGHT)
Exit Function
End If
End If
' [/GS]
En ModHechizos busca
Citación :

ElseIf Hechizos(H).SubeHP = 2 Then
y abajo ponen
Citación :

' [GS] Seguro de Clanes
If UserList(UserIndex).flags.SeguroClan Then
If UserList(tempChr).GuildInfo.GuildName = UserList(UserIndex).GuildInfo.GuildName And UserList(UserIndex).GuildInfo.GuildName <> "" Then
Call SendData(ToIndex, UserIndex, 0, "||No puedes atacar a tu propio Clan con el seguro activado, escribe /SEGCLAN para desactivarlo." & FONTTYPE_FIGHT)
Exit Function
End If
End If
' [/GS]
funciona para todas las verciones, solamente lo tienen que adaptar.
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Seguro de clan
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Firmas del clan Reloaded
» El mejor clan los RSA admirenlos xD
» peticion ingreso clan raven
» Solicitud de Ingreso en algun clan de RDR Xartako PS3
» Nuevo clan

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.2-
Cambiar a: