GM and MOD signs

[Franky]

OK, this is real simple

The GM Sighn

Just open up Main.txt and seach for:

Code: [Select]

/away
Now under where it says:

Code: [Select]

'End IfPress the space bar.

Now copy this:

Code: [Select]

Select Case LCase(Trim(TextSay))   
    Case "/gm"
        'If GetPlayerAccess(index) >= 2 Then
            If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then
                Call PlayerMsg("", 14)
                Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1)
                Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index))
                Call SetPlayerName(index, "GM - " & GetPlayerName(index) )
                Call SendPlayerData(index)
                Exit Sub
            ElseIf GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then
                Call SetPlayerName(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName"))
                Call PlayerMsg("", 14)
                Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0)
                Call SendPlayerData(index)
                Exit Sub
            End If
        'End Ifand paste it there.

OK, now when you log in typ /gm. You should now have a GM sign next to your name.

The MOD Sign

Just open up Main.txt and seach for:

Code: [Select]

/away
NOTE: If you already did the first one, the just paste the code right under it.

Now under where it says:

Code: [Select]

'End IfPress the space bar.

Now copy this:

Code: [Select]

Select Case LCase(Trim(TextSay))   
    Case "/mod"
        'If GetPlayerAccess(index) >= 2 Then
            If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then
                Call PlayerMsg("", 14)
                Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1)
                Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index))
                Call SetPlayerName(index, "MOD - " & GetPlayerName(index) )
                Call SendPlayerData(index)
                Exit Sub
            ElseIf GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then
                Call SetPlayerName(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName"))
                Call PlayerMsg("", 14)
                Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0)
                Call SendPlayerData(index)
                Exit Sub
            End If
        'End Ifand paste it there.

OK, now when you log in typ /mod. You should now have a MOD sign next to your name.

NOTE: Just typ /gm or /mod another time to get the sign off.

This is my second script so tell me how I did!  ^-^ ^-^ ^-^

[Flaw]

Simple, but it looks right from what i read... But i'm just to lazy and sick to read it carefully right now... lol...

Well done man.

[Franky]

Hey, thanks. It didn't really take along time because I just modified the /away command. But thanks for the reply.  ^-^ ^-^ ^-^

[unixfr3ak]

nice script noticed something thoe server when you reload the scripts gave error after adding so i  took out    Select Case LCase(Trim(TextSay))   on top  so instead of

Select Case LCase(Trim(TextSay))   
    Case "/gm"

i only have
 
    Case "/gm"


works fine now 

[.:Mike:.]

dont necro post XD this is 6-7 mons old ROFL

[unixfr3ak]

that may be the case for it being old but for the ones that cant figure out howto get rid of the error and looking at this script it will help them out ... just trying to be helpfull   

[‪‫‬‭‮‪‫‬‭The Admiral]

maybe we should change the rules for necroposting?
DANG!

God still killed a kitten though!

[360236]

doesnt work for me =[




(if you say im nerco posting so are you =D0(does it matter)

[Balliztik]

It doesn't work because the original script has unended Select cases in it. Remove the first line of each script.

Also, you might want to uncomment the access requirements, or normal players can display GM and MOD as well.

[Franky]

Jesus, why do people post on these year old topics lol. It probably wont even work since it was for like TE 1  :razz: