|FREE SCRIPT| GuildNames/Custom Names (Difficulty: 2/5)

DESCRIPTION:
What this script does is add a custom message next to your character name, Can be used as guild names/custom names/custom status

ADVANCED SCRIPTERS:It's like the /away command just custom
WARNING: Make a copy of your Main.txt before starting, post here if you have questions

Type: /msg "Anything"
Then: /change

Example
Neo Daniel ---> Neo Daniel [ Anything ]
Neo Daniel ---> Neo Daniel [ Fury PK ]
Neo Daniel ---> Neo Daniel [ Afk~! ]

To Disable just type /change again.

NOTE: You can still PK and Train
ADVANCED SCRIPTERS: It MUST be turned OFF to keep doing quests using FlagHeight
NOTE2: BLUE TEXT IS HOW TO LOCATE WHERE TO ADD THE SCRIPT / BEGINNERS

STEP1: On main.txt ADD the next script under Sub Commands(index) After the end of the /wish command
If you haven't modified under Sub Commands look for the word "wish", paste the script after "Loop,End If,Exit Sub,End If" <- all that:

Quote

If LCase(Mid(TextSay, 1, 4)) = "/msg" Then 'Script By Neo Daniel
If Len(TextSay) > 6 Then
TextSay = Mid(TextSay, 6, Len(TextSay) - 5)
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Msg", " [ " & Trim(TextSay) & " ]")
Call PlayerMsg(index, "Message Saved!", 11)
End If
Exit Sub
End If

STEP2: On main.txt ADD the next under Select Case LCase After the /away script
Use the find tool and look for "Select Case LCase" If you haven't modified anything under, place the script after End IF

Quote

Case "/change" 'Script by Neo Daniel
'CAN BE USED FOR ADMINS WITH THIS SCRIPT-> If GetPlayerAccess(index) >= 1 Then
If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then
Call PlayerMsg(Index,"Mensaje Cambiado!", 11)
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, GetPlayerName(index) & GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Msg"))
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(Index,"Mensaje vuelto a la normalidad!", 11)
Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0)
Call SendPlayerData(index)
Exit Sub
End If
'AND ENABLING THIS-> End If

No Spam Or Websites

Recent Topics

Who's Online