[Aporte] Seguro de clanes Fénix AO.

agush · 27-oct-2008, 15:23

Bueno este codigo sirve para activar/desactivar seguro de clanes en fénix ao, si lo desactivas.. podes atacar a los miembros
de tu clan y si lo activas NO.
CLIENTE

buscas:

Código:

Case "/ABANDONAR"
        ReplaceData = "#4"

abajo:

Código:

Case "/SEGUROCLAN"
    ReplaceData = "#€"

SERVIDOR:

Vamos al mod declaraciones y buscamos :

Código:

Public Const FONTTYPE_PARTY = "~50~175~175~1~0"

Abajo de eso ponemos :

Código:

Public Const FONTTYPE_SEGURO = "~256~0~256~0~0"

Luego :

buscas

Código:

Case "#4"

arriba:

Código:

Case "#€"
If Len(UserList(UserIndex).GuildInfo.GuildName) = 0 Then exit sub
with userlist(userindex).guildinfo
.seguro = not .seguro
if .seguro then
 Call SendData(toindex, Userindex, 0, "|| Seguro de clanes activado." & FONTTYPE_SEGURO)
else
 Call SendData(toindex, Userindex, 0, "|| Seguro de clanes desactivado." & FONTTYPE_SEGURO)
end if
end with
exit sub

buscas:

Código:

GuildName As String

arriba:

Código:

Seguro as boolean

buscas:

Código:

Public Function PuedeAtacar(ByVal AttackerIndex As Integer, ByVal VictimIndex As Integer) As Boolean

abajo:

Código:

If userlist(attackerindex).guildinfo.seguro and UserList(AttackerIndex).GuildInfo.GuildName = UserList(VictimIndex).GuildInfo.GuildName Then
    Call SendData(toidnex, AttackerIndex, 0, "|| No puedes atacar a usuarios de tu clan. Para hacerlo tipea /SEGUROCLAN." & FONTTYPE_SEGURO)
    Exit Function
End If

Eso es todo, espero que les sirva

saludos.

CODIGO TESTEADO & 100 % FUNCIONAL.