Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: 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. | |
|