Dim GMOTDGMOTD = Trim(GetVar("guilds.ini", GetPlayerGuild(index), "Motd"))
If GetPlayerGuild(index) = "" ThenCall PlayerMsg(index, "You are not in a guild!", 9)ElseCall PlayerMsg(index, GetPlayerGuild(index) & ": " & GMOTD, 9)End If
If LCase(Mid(TextSay, 1, 6)) = "/gmotd" Then If Len(TextSay) > 7 Then TextSay = Mid(TextSay, 7, Len(TextSay) - 6) If GetPlayerGuildAccess(index) < 4 Then Call PlayerMsg(index, "You must be the guild's owner to change the MOTD!", 12) Exit Sub ElseIf GetPlayerGuildAccess(index) = 4 Then Call PutVar("guilds.ini", GetPlayerGuild(index), "Motd", Trim(TextSay)) Call PlayerMsg(index, GetPlayerGuild(index) & " MOTD changed to: " & TextSay & ".", 11) End if End If Exit Sub End If