Cerrar clan (Style IAO)

Este codigo es para cerrar clan como iao.

En el servidor buscamos



Case "/FUNDARCLAN"



Y abajo ponemos



Case "/CERRARCLAN"
If Not UserList(userindex).GuildIndex >= 1 Then
Call SendData(SendTarget.ToIndex, userindex, 0, "||No perteneces a ningún clan." & FONTTYPE_GUILD)
Exit Sub
End If

If UCase$(Guilds(UserList(userindex).GuildIndex).Fundador) <> UCase$(UserList(userindex).name) Then
Call SendData(SendTarget.ToIndex, userindex, 0, "||No eres líder del clan." & FONTTYPE_GUILD)
Exit Sub
End If

If Guilds(UserList(userindex).GuildIndex).CantidadDeMiembros > 1 Then
Call SendData(SendTarget.ToIndex, userindex, 0, "||Debes hechar a todos los miembros del clan para cerrarlo." & FONTTYPE_GUILD)
Exit Sub
End If

Call SendData(SendTarget.toall, 0, 0, "||El Clan " & Guilds(UserList(userindex).GuildIndex).GuildName & " cerró." & FONTTYPE_GUILD)

Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & UserList(userindex).GuildIndex, "Founder", "NADIE")
Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & UserList(userindex).GuildIndex, "GuildName", Guilds(UserList(userindex).GuildIndex).GuildName & "(CLAN CERRADO)")
Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & UserList(userindex).GuildIndex, "Codex1", "CLAN CERRADO")
Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & UserList(userindex).GuildIndex, "Codex2", "CLAN CERRADO")
Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & UserList(userindex).GuildIndex, "Codex3", "CLAN CERRADO")
Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & UserList(userindex).GuildIndex, "Codex4", "CLAN CERRADO")
Call WriteVar(App.Path & "\guilds\guildsinfo.inf", "GUILD" & UserList(userindex).GuildIndex, "Leader", "NADIE")


Call Guilds(UserList(userindex).GuildIndex).DesConectarMiembro(userindex)
Call Guilds(UserList(userindex).GuildIndex).ExpulsarMiembro(UserList(userindex).name)
UserList(userindex).GuildIndex = 0
'UserList(UserIndex).flags.YaCerroClan = 1
Call WarpUserChar(userindex, UserList(userindex).pos.Map, UserList(userindex).pos.x, UserList(userindex).pos.y)
Exit Sub




Cliente.

Ahora bajamos este formulario y lo remplazamos por el que tenemos.

[Tienes que estar registrado y conectado para ver este vínculo]

Listo.

Saludos.