Private Sub cmdClose_Click()
    frmGuildCP.Visible = False
End Sub

Private Sub cmdDemote_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to demote them.")
Else
    Call GuildDemotion(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub

Private Sub cmdInvite_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to invite them.")
Else
    Call GuildRequest(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub

Private Sub cmdKick_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to kick them from the guild.")
Else
    Call GuildRemoval(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub

Private Sub cmdPromote_Click()
If txtName.Text = "" Then
    Call MsgBox("You must first enter a playername to promote them.")
Else
    Call GuildPromotion(Trim(txtName.Text))
    txtName.Text = ""
End If
End Sub

    ' :::::::::::::::::::::::::
    ' :: Create Guild packet ::
    ' :::::::::::::::::::::::::
    If LCase(Parse(0)) = "createguild" Then
    Dim Z As String
   
      ' Prevent hacking
        If GetPlayerAccess(Index) < ADMIN_CREATOR Then
              Call HackingAttempt(Index, "Trying to use powers not available")
              Exit Sub
        End If
       
        ' The Player
        n = FindPlayer(Parse(1))
        ' The Guild
        Z = Trim(Parse(2))
       
        Call CreateGuild(n, Z)
        Call SetPlayerGuildAccess(n, 4)
        Call SendPlayerData(n)
        Call GlobalMsg(GetPlayerName(n) & " has joined the ranks of " & Z & ".", Black)
        Call AddLog(GetPlayerName(n) & " has joined the ranks of " & Z & ".", ADMIN_LOG)
        Exit Sub
    End If
   

        Call CreateGuild