[Aportes indexados] Seguro de Clanes

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Administrador
En el servidor

en Declaraciones buscar
Código:
Seguro As Boolean
abajo poner
Código:
SeguroClan As Boolean ' [GS] Seguro de Clanes
en TCP_HandleData2 buscar
Código:
            UserList(UserIndex).flags.Seguro = Not UserList(UserIndex).flags.Seguro
            Exit Sub
abajo poner
Código:
        ' [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
Código:
If UserList(AttackerIndex).flags.Privilegios = 1 Then
    PuedeAtacar = False
Arriba poner
Código:
' [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
Código:
ElseIf Hechizos(H).SubeHP = 2 Then
abajo coloca
Código:
    ' [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]
 
Estado
Cerrado para nuevas respuestas.
Arriba