Mirage Source

' :::::::::::::::::::::::::
    ' :: 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