Hey I need a procedure or function to open the Grand Exchange please. I tried to make one but there is not much unique about the GE and all the colors and DTMs and Bitmaps I make don't work lol. Thanks.
Hey I need a procedure or function to open the Grand Exchange please. I tried to make one but there is not much unique about the GE and all the colors and DTMs and Bitmaps I make don't work lol. Thanks.
Oh someone made a short set of things for ge. Let me check to see if that was srl mem only, give me a sec*goes to look*
EDIT: Zytext! made some functions for ge, but none were to open it and it was srl members anyway. As soon as i release my next version of my miner i'll attempt to make one![]()
Extinct.
Formally known as Drags111.
Look for the yellow dots (the bankers and GE people) on the minimap and choose the one closest to the south, which would be a GE person. Walk over towards it, then look for his grey suite as it looks like the most unique colour of him and check the uptext.
By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.
That is what I had (minus the uptext, forgot that). I was wondering if there was a more efficient way. Thanks.
SCAR Code:program TheGrandExchange;
{.include SRL/srl.scar}
function OpenGE(side, which: String): boolean;
var
TheTPA: TPointArray;
UpTextArray: TStringArray;
i, time: integer;
begin
case Lowercase(side) of
'n': MakeCompass('s');
's': MakeCompass('n');
'e': MakeCompass('w');
'w': MakeCompass('e');
end;
case lowercase(which) of
'clerk' : begin
UpTextArray := ['Grand Exchange','Clerk','xchan'];
FindColorsSpiralTolerance(15, 41, TheTPA, 3744043, MSX1, MSY1, MSX2,MSY2, 10);
end;
'banker': begin
UpTextArray := ['Banker','anker', 'nker'];
FindColorsSpiralTolerance(15, 41, TheTPA, 5468305, MSX1, MSY1, MSX2, MSY2, 5);
end;
end;
MarkTime(Time);
if(Length(TheTPA) > 0)then
begin
for i:= 0 to High(TheTPA) do
begin
MMouse(TheTPA[i].x, TheTPA[i].y, 0, 0);
wait(100);
if(IsUpTextMultiCustom(UpTextArray))then
begin
Mouse(TheTPA[i].x, TheTPA[i].y, 0, 0, false);
if(lowercase(which)='banker')then ChooseOption('Bank');
if(lowercase(which)='clerk')then ChooseOption('Exchange');
Writeln('Found the banker or clerk!');
Result := true;
Exit;
end else Result := false;
if(TimeFromMark(Time) > 10000)then Exit;
end;
end else Result := false;
end;
begin
SetupSRL;
ActivateClient;
Wait(1000);
OpenGE('s', 'banker');
end.
Its a start![]()
This opens the clerks really well, but the bankers take a little longer because I had to use skin color.
Extinct.
Formally known as Drags111.
Mine opens ge just fineim gonna add some new functions to it now
EDIT: Heres the newest version
SCAR Code:program TheGrandExchange;
{.include SRL/srl.scar}
var
GeDTM: integer;
procedure LoadGEDtm(which: string);
begin
case lowercase(which) of
'buydtm': GeDTM := DTMFromString('78DA637CCCC0C0D0C78002361F6366E002D28' +
'C40FC1F0818416A96A1AA51E382D08C503EE37B20319F809AEB40' +
'62010135F781442B0135CF09AB0100A3F50F4E');
'selldtm': GeDTM := DTMFromString('78DA6354666460E8664001C7329919B880345' +
'086E13F103082D4B4A0AA51E382D08C503EA31E90359F801A3120' +
'6B010135E240D644026A7480AC4904D4280259CBF0AB0100B9650' +
'B73');
end;
end;
procedure FreeGeDTM;
begin
FreeDTM(GeDTM);
end;
function InGE: boolean;
var
gesymbol, x1, y1: integer;
begin
gesymbol := BitmapFromString(5, 9, 'beNpby7C1mOH5Wobnexn+/3' +
'8PZFgaSrRYQhEDAz7ZIEtNUmWrnTggslGWqCYDAEYsOlU=');
Result := false;
Result := (FindBitMapToleranceIn(gesymbol, x1, y1, 24, 24, 58, 58, 15))
Writeln(booltostr(Result));
FreeBitmap(gesymbol);
end;
function InGEOffer: boolean;
var
x1, y1: integer;
begin
Result := false;
Result := (FindColorTolerance(x1, y1, 11909574, 29, 279, 69, 312, 10));
Writeln(booltostr(Result));
end;
function OpenSlot(slot: integer): boolean;
var
SlotArray: TPointArray;
begin
if(InGEOffer)then MouseBox(39, 287, 56, 303, 1);
wait(500+Random(500));
SetLength(SlotArray, 12);
SlotArray[0].x := 70; SlotArray[0].y := 151;
SlotArray[1].x := 134; SlotArray[1].y := 151;
SlotArray[2].x := 226; SlotArray[2].y := 151;
SlotArray[3].x := 289; SlotArray[3].y := 151;
SlotArray[4].x := 383; SlotArray[4].y := 151;
SlotArray[5].x := 447; SlotArray[5].y := 151;
SlotArray[6].x := 70; SlotArray[6].y := 273;
SlotArray[7].x := 134; SlotArray[7].y := 273;
SlotArray[8].x := 226; SlotArray[8].y := 273;
SlotArray[9].x := 289; SlotArray[9].y := 273;
SlotArray[10].x := 383; SlotArray[10].y := 273;
SlotArray[11].x := 447; SlotArray[11].y := 273;
Mouse(SlotArray[(slot-1)].x, SlotArray[(slot-1)].y, 10, 10, true);
repeat
wait(500);
until(InGEOffer);
Writeln('We are in the trade screen!');
end;
function OpenGE(side: string): boolean;
var
TheTPA: TPointArray;
UpTextArray: TStringArray;
i, time: integer;
begin
case Lowercase(side) of
'n': MakeCompass('s');
's': MakeCompass('n');
'e': MakeCompass('w');
'w': MakeCompass('e');
end;
FindColorsSpiralTolerance(15, 41, TheTPA, 3744043, MSX1, MSY1, MSX2,MSY2, 10);
MarkTime(Time);
if(Length(TheTPA) > 0)then
begin
for i:= 0 to High(TheTPA) do
begin
MMouse(TheTPA[i].x, TheTPA[i].y, 0, 0);
wait(100);
if(IsUpTextMultiCustom(['Grand Exchange','Clerk','xchan']))then
begin
Mouse(TheTPA[i].x, TheTPA[i].y, 0, 0, false);
ChooseOption('Exchange');
Flag;
repeat
wait(500);
until((InGE) or (TimeFromMark(Time) > 10000));
if(TimeFromMark(Time) > 10000)then
begin
Writeln('***Failed to open GE!***');
Result := false;
Exit;
end;
Writeln('Found the banker or clerk!');
Result := true;
wait(500 + Random(500));
Exit;
end else Result := false;
if(TimeFromMark(Time) > 10000)then Exit;
end;
end else Result := false;
end;
begin
SetupSRL;
ActivateClient;
Wait(1000);
OpenGE('s');
OpenSlot(6); //Use slots 1-12.
end.
Extinct.
Formally known as Drags111.
There are currently 1 users browsing this thread. (0 members and 1 guests)