Guild MOTD

[Topher]

****************
*Guild MOTD Script.*
****************
-Scripted By Topher892
-Debugged by Emblem
-This Script allows guild owners (with Guild Access 4) to set a MOTD that their Guild Members will see when they log on.
INSTALLATION
STEP 1
Add This to your Sub JoinGame(index):

Code: [Select]


Dim GMOTD
GMOTD = Trim(GetVar("guilds.ini", GetPlayerGuild(index), "Motd"))

And then this to the bottom of the sub JoinGame(index)[/color]

Code: [Select]


If GetPlayerGuild(index) = "" Then
Call PlayerMsg(index, "You are not in a guild!", 9)
Else
Call PlayerMsg(index, GetPlayerGuild(index) & ": " & GMOTD, 9)
End If

STEP 2
Add this to your commands sub, under the /warpto command:

Code: [Select]

   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

USING THIS SCRIPT
The owner of the guild (guild member with level 4 access) can use the command "/gmotd [insert desired Guild MOTD here]" to set their guild's message. They can change the message whenever they like as long as they have access 4 in the guild.

This script is tested and does work! Thanks,
Topher & Emblem

[Rogue]

nice

[The Emblem]

I did help him debug this but, most(if not 100%) of the credit goes to Topher! Hes an awesome scripter!

[Topher]

:D  Thanks!  :D

[Haxxor]

uhh...GMOTD is not set equal to anything...

Code: [Select]

Dim GMOTD
GMOTD = Trim(GetVar("guilds.ini", GetPlayerGuild(index), "Motd"))

[Topher]

EDIT: Ok I see what you mean here....yeah sorry about that  :oops:

[Topher]

Fixed  :D

[XManiaK]

I can't do the Step 2 i dont know where the commands sub are and i dont find where it says /warpto

 


STEP 2
Add this to your commands sub, under the /warpto command:

ok i found it! and the script works!! very cool gratz for the script! =D

[kenny]

Not bad at all, but all you did was modify a script and a variable

[Riley [Firon3]]

[Edit]

My bad, I misread the script... No need to reply this post...