Olá, sou eu de novo! Alguém saberia me dizer como impedir de se criar uma guild com o mesmo nome de outra? E também bloquear a opção de mudar nome de guild? Quero que as guilds sejam únicas, assim como não se pode criar dois personagens com o mesmo nome. Obrigado!

(Levando em consideração que seja o Sistema Comum de Guild By: Scott )

Basta você ir no Editor da Guild. Vulgo, frmGuild_Admin (algo assim)

E poem os componentes de Text; (local onde digitaria o novo nome da guild/ trocaria o nome da guild) para Visible = false.

Visible é uma capacidade do Componente.

Nisso já tornará impossível a mudança do nome pelo Painel ou por Jogadores. Se não me engano ele já não deixa usar o mesmo nome da guild ;c

Faça o teste, caso você consiga criar 2 guild com o mesmo Name, então avise aqui que ajudo a resolver.

Att

Profane~ Consigo criar duas guilds com o mesmo nome. acabei de fazer o teste

Procure por

Código:

Public Sub MakeGuild(Founder_Index As Long, Name As String, Tag As String)

Dentro do ModGuild vai encontrar essa Sub ai.

Adicione a variavel:

Código:

Dim GuildA As String, GuildB As String

Nele procure por abaixo disso aqui.

Código:

 GuildFileId = Find_Guild_Save
    GuildSlot = FindOpenGuildSlot
   
    If Not isPlaying(Founder_Index) Then Exit Sub
   
    'We are unable for an unknown reason
    If GuildSlot = 0 Or GuildFileId = 0 Then
        PlayerMsg Founder_Index, "Incapaz de fazer a Guild, Desculpe.", BrightRed
        Exit Sub
    End If
   
    If Name = "" Then
        PlayerMsg Founder_Index, "Sua Guild precisa de um Nome!", BrightRed
        Exit Sub
    End If
   
    ' Check level
    If GetPlayerLevel(Founder_Index) < Options.Buy_Lvl Then
        PlayerMsg Founder_Index, "Você precisa estar Level:  " & Options.Buy_Lvl & " para fundar uma Guild!", BrightRed
        Exit Sub
    End If

 Abaixo disto:

Código:

    GuildFileId = Find_Guild_Save
    GuildSlot = FindOpenGuildSlot

Adicionei isto:

Código:

    GuildA = Name
    GuildB = GuildData(i).Guild_Name

Agora abaixo de :

Código:

' Check level
    If GetPlayerLevel(Founder_Index) < Options.Buy_Lvl Then
        PlayerMsg Founder_Index, "Você precisa estar Level:  " & Options.Buy_Lvl & " para fundar uma Guild!", BrightRed
        Exit Sub
    End If

Adicione isto:

Código:

For i = 1 To MAX_GUILD_SAVES
        If GuildA = GuildB Then
            PlayerMsg Founder_Index, "Este nome de Guild já está em uso.", BrightRed
            Exit Sub
        End If
    Next
   

  Bom, fiz rapido Zz, Creio que funcione.

Faça o teste e me diga xD

Att

ao tentar criar uma guild de qualquer forma ele esta derrubando o servidor, Profane!

Passe o debug e traga aonde quebra e qual erro =P

Bata print. Aponte a linha xD

Qq coisa chama no face:

edited'*

Att

te chamei no face!

Resolvido o/

Pode trancar.