23-12-2008, 11:24 PM
I looked at the Server Guild Creation packet:
couldn't find anything there, the is no Guild Creation Command client Side either.
Code:
' :::::::::::::::::::::::::
' :: 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
couldn't find anything there, the is no Guild Creation Command client Side either.