My Trade Procedure, Function
While making my player to player merchant i was dismayed at the lack of procedures and functions. So i made 2 of my own to share with the world.
SCAR Code:
{Function FindTheTrade
By: Ransom
Description:
Returns True if purple trade color
is in the chat window}
Function FindTheTrade : Boolean;
var xx, yy : integer;
begin
if (FindColor(xx,yy,8388736,20,355,425,430) = True) Then
result := True;
end;
and
SCAR Code:
{Procedure OpenTrade;
By: Ransom
Description
Opens Trade by clicking trade chat
in chat window}
Procedure OpenTrade;
var cx, cy : integer;
begin
if (FindColor(cx,cy,8388736,20,355,425,430) = True) Then
begin
Wait(500);
CMouse(cx+10,cy+3,0,0,True);
Wait(500);
end;
end;
Hope they provide useful!
Ransom