Amuleto del lider stile tpao

SERVER

Buscamos

Código:

Public Function CanCreateGuild(UserIndex As Integer) As Boolean

todo ese Function, hasta el End Function lo reemplazamos por

Código:

Public Function CanCreateGuild(UserIndex As Integer) As Boolean
 
If Not TieneObjetos(891, 1, UserIndex) Then 'Brilcair
Call SendData(ToIndex, UserIndex, 0, "||¡¡Debes tener un Amuleto del Lider para fundar clan!!" & FONTTYPE_INFO)
Exit Function
End If
 
If UserList(UserIndex).GuildInfo.FundoClan > 0 Then
    Call SendData(ToIndex, UserIndex, 0, "8L")
    Exit Function
End If
 
If Len(UserList(UserIndex).GuildInfo.GuildName) > 0 Then
    Call SendData(ToIndex, UserIndex, 0, "||Ya perteneces a un clan." & FONTTYPE_INFO)
    Exit Function
End If
 
If UserList(UserIndex).Stats.ELV < 25 Then
    Call SendData(ToIndex, UserIndex, 0, "!Z")
    Exit Function
End If
 
 
CanCreateGuild = True
End Function

Despues buscamos en el function CreateGuild

Código:

 CreateGuild = True

y arriba del End Function Ponemos

Código:

Dim UserIndex As Integer 'Brilcair
Call QuitarObjetos(891, 1, UserIndex)
Call SendData(ToIndex, UserIndex, 0, "||El amuleto de lider se ha quebrado accidentalmente.." & FONTTYPE_INFO)

Ahora solo nos queda ir al OBJ.DAT
y ponemos

[OBJX] 'Amuleto del lider
Name=Amuleto del lider
GrhIndex=NUM DE GRH que indexaron..
NoSeCae=0

Despues tendrian que indexarlo

Saludos!