[ED&EEB]Sistema de Guild v1.1

Código:


Function FindGuild(ByVal Name As String) As Boolean
    Dim f As Long
    Dim s As String

    FindGuild = False
    f = FreeFile
    Open App.Path & "\Contas\guildlist.txt" For Input As #f

    Do While Not EOF(f)
        Input #f, s

        If Trim$(LCase$(s)) = Trim$(LCase$(Name)) Then
            FindGuild = True
            Close #f
            Exit Function
        End If

    Loop

    Close #f
End Function


Código:


Sub AddGuildName(ByVal Name As String)
Dim f As Long

    f = FreeFile
    Open App.Path & "\Contas\guildlist.txt" For Append As #f
    Print #f, Name
    Close #f

End Sub


Código:


Sub DeleteGuildName(ByVal Name As String)
    Dim f1 As Long, f2 As Long
    Dim s As String

    Call FileCopy(App.Path & "\Contas\guildlist.txt", App.Path & "\Contas\guildtemp.txt")

    ' Retirar nome da lista de personagens
    f1 = FreeFile
    Open App.Path & "\Contas\guildtemp.txt" For Input As #f1
    f2 = FreeFile
    Open App.Path & "\Contas\guildlist.txt" For Output As #f2

    Do While Not EOF(f1)
        Input #f1, s

        If Trim$(LCase$(s)) <> Trim$(LCase$(Name)) Then
            Print #f2, s
        End If

    Loop

    Close #f1
    Close #f2
    Call Kill(App.Path & "\Contas\guildtemp.txt")
End Sub


Código:


            ' Ele já está em uma guild?
            If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then
                Call PlayerMsg(Index, "O jogador já está em uma guild.", Red)
                Exit Sub
            End If


Código:


            ' Verificamos se o nome escolhido para a guild ja esta em uso.
            If FindGuild(Parse(2)) Then
                Call PlayerMsg(Index, "O nome escolhido já está em uso.", Yellow)
                Exit Sub
            End If


Código:


            ' Se estiver tudo bem, faça a Guild
            Call SetPlayerGuild(FindPlayer(Parse(1)), (Parse(2)))
            Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 3)
            Call SendPlayerData(FindPlayer(Parse(1)))
            Exit Sub


Código:


            ' Se estiver tudo bem, faça a Guild
            Call SetPlayerGuild(FindPlayer(Parse(1)), (Parse(2)))
            Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 3)
            Call SendPlayerData(FindPlayer(Parse(1)))
            Call AddGuildName(Parse(2))
            Exit Sub


Código:


            ' Veja se ele pode sair!
            If GetPlayerGuild(Index) = vbNullString Then
                Call PlayerMsg(Index, "Você não está em uma guild.", Red)
                Exit Sub
            End If


Código:


            'Removemos o nome da guildlist
            If GetPlayerGuildAccess(FindPlayer(Parse(1))) = 3 Then
                Call DeleteGuildName(GetPlayerGuild(FindPlayer(Parse(1))))
            End If


Código:


            'Tire o jogador da Guild
            Call SetPlayerGuild(FindPlayer(Parse(1)), vbNullString)
            Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 0)
            Call SendPlayerData(FindPlayer(Parse(1)))
            Exit Sub


Código:


            'Removemos o nome da guildlist
            If GetPlayerGuildAccess(FindPlayer(Parse(1))) = 3 Then
                Call DeleteGuildName(GetPlayerGuild(FindPlayer(Parse(1))))
            End If


SkyZero escreveu:Muito bom , você Comentou sobre rank de guild você sabe fazer ?? se souber posta ai *-*

@Lukinha~ escreveu:
Off: achu que nem presisa por [ED&EEB] era so por [ALL] mais bls leva meus creditos

Spoiler:

willa escreveu:Ow aki n deleta o nome da Guild Do Arquivo Guildlist