Seguro de clan

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.