Chat

The Chat include contains all chat-related functions

  const
CHAT_GAME    = 0;
CHAT_PUBLIC  = 1;
CHAT_PRIVATE = 2;
CHAT_CLAN    = 3;
CHAT_TRADE   = 4;
CHAT_ASSIST  = 5;

SetChat

function SetChat(state: string; chat: Integer): Boolean;

Sets Chat to desired state Game Public Private Clan Trade Assist 0 1 2 3 4 5

Note

by Wizzup?, WT-Fakawi, Starblaster100, N1ke! & Coh3n

Example:









SetAllChats


procedure SetAllChats(Game, Pub, Priv, Clan, Trade, Assist: string);





Sets all the chats to a particular state in one simple procedure.
Leave the parameter as ‘’ if you wish to leave the chat as it is.




Note


by ZephyrsFury




Example:


SetAlChats('all', 'Hide', '', 'Off', '', 'Friend');









ChatsOff


procedure ChatsOff;





Sets all Chats to off.




Note


by Starblaster100




Example:










ChatWait


procedure ChatWait;





Waits while there’s Please Wait in the chatbox.




Note


by Nielsie95




Example:










ClickContinueEx


function ClickContinueEx(Click, Wait: Boolean): Boolean;





Returns true if the blue ‘Click To Continue’ text in the chat box is found.
If will click if Click = True, calls ChatWait if Wait = True.




Note


by _ChArMz & Narcle (Original by EvilChicken!)




Example:










ClickContinue


function ClickContinue(SpaceBar, DoWait: Boolean): Boolean;





Returns true if the green button in the chat box is found.
It will SpaceBar if true otherwise will mouse it.  If DoWait = true
will wait until color count changes.




Note


by _ChArMz & Narcle (Original by EvilChicken!)




Example:










ClickToContinue


function ClickToContinue: Boolean;





Click the blue ‘Click To Continue’ text in the chat box.




Note


by ZephyrsFury




Example:










TextCoords


Function TextCoords(textn: Integer): TPoint;





Returns x, y for text. (1 to 8)




Note


by Wizzup?




Example:










GetChatBoxText


function GetChatBoxText(Line, TextCol: Integer): string;





Gets text on the line Line with colour TextCol.
(Line 1 is the top, Line 8 is the bottom line).
Colours:




    

  • clMessage/clBlack - Black text messages (“Oh Dear you are dead”, etc).
    • 

  • clChat/clBlue     - Chat messages from you and other players.
    • 

  • clTrade/clPurple  - Colour of trade request text.
    • 

  • clFriend          - Colour of friend and clan chat.
    • 





Works with other colours too.




Note


by ZephyrsFury




Example:










FindChatBoxText


function FindChatBoxText(Text: string; Line: Integer; TextCol: Integer): Boolean;





Searches for Text on Line with colour TextCol. True if found.




Note


by ZephyrsFury




Example:










IsChatBoxTextBetween


function IsChatBoxTextBetween(Text: string; TextCol, StartLine, EndLine: Integer): Boolean;





Returns true if Text with colour TextCol is found anywhere in the chat box.




Note


by ZephyrsFury




Example:










IsChatBoxTextAnyLine


function IsChatBoxTextAnyLine(Text: string; TextCol: Integer): Boolean;





Returns true if Text with colour TextCol is found anywhere in the chat box.




Note


by ZephyrsFury




Example:










ChatBoxTextArray


   function ChatBoxTextArray(TextCol: Integer): TStringArray;

Gets and return a TStringArray with the contents of each line
with the colour TextCol (see GetChatBoxText for list of colours).

Gets and return a TStringArray with the contents of each line
with the colour TextCol (see GetChatBoxText for list of colours).
   - Line 1 is Result[1]
   - Line 2 is Result[2]
   - Line 3 is Result[3]
   - Line 4 is Result[4]
   - Line 5 is Result[5]
   - Line 6 is Result[6]
   - Line 7 is Result[7]
   - Line 8 is Result[8]







Note


by ZephyrsFury




Example:










GetBlackChatMessage


function GetBlackChatMessage: String;





Gets text with color 0 in last chat line.




Note


by Wizzup?




Example:










FindBlackChatMessage


function FindBlackChatMessage(ChatMsg: String): Boolean;





Returns True if text with color 0 in last chat line is found.




Note


by Wizzup?




Example:










LastChatter


function LastChatter(var name: String): Boolean;





Returns name and true if a person was talking, or false and the text




Note


by masquerader




Example:










GetLastChatText


function GetLastChatText(var chat: String): Boolean;





Returns true if blue chat text was found




Note


by masquerader / Wizzup?




Example:










InChat


function InChat(Text: String): Boolean;





Grabs Last Chat Line and performs checks on occurence of text




Note


by WT-Fakawi




Example:










FixChat


procedure FixChat;





Scrolls ChatText scrollbar down.




Note


by WT-Fakawi, Edited Mar. 30th, 2013 by Le Jingle (time out fail safe)




Example:










SaveToChatLog


procedure SaveToChatLog;





Saves chat to log file.




Note


by WT-Fakawi & masquerader




Example:










ColorEffectAdd


function ColorEffectAdd(Color, Effect: Boolean): string;





Returns a RS chat effect based on ‘Color’ and ‘Effect’ booleans.




Note


by NiCbaZ




Example:










GetNPCChatName


function GetNPCChatName(): string;





Gets the name of the random event NPC from the top of the chat box.  The proper
font doesn’t exist yet, so it returns a random string of characters.




Note


Author: DemiseSythe
Last Modified: Jan. 22nd, 2012 by Coh3n




Example:


writeln(getNPCChatName());









AreTalking


function AreTalking(): boolean;





Returns true if player is talking to an NPC.




Note


Author: Wizzup?
Last Modified: Jan. 22nd, 2012 by Coh3n




Example:


while (areTalking()) do
  clickContinue(true, true);









DoConversation


function DoConversation(resultText: string; clickresult: boolean): boolean;





Goes through the initial dialog of a random.  Will keep clicking to continue
until the conversation’s ‘resultText’ is found.  Will click to continue when
‘resultText’ is found if ‘clickresult’ is set to true.  Set ‘resultText’ to ‘’
to click continue until conversation is over.




Note


Author: Coh3n
Last Modified: Jan. 22nd, 2012 by Coh3n




Example:


if (DoConversation('thank', true)) then
  writeln('Finished conversation');









PlayerChatActive


function PlayerChatActive: Boolean;





Return true if player chat is active.




Note


by riwu




Example: