Results 1 to 7 of 7

Thread: Procedure/Function To Open Grand Exchange?

  1. #1
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Procedure/Function To Open Grand Exchange?

    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.

  2. #2
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  3. #3
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    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.

  4. #4
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That is what I had (minus the uptext, forgot that). I was wondering if there was a more efficient way. Thanks.

  5. #5
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  6. #6
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    Quote Originally Posted by The[Cheese] View Post
    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
    My function (like mixsters, only it doesnt save it to a file) just checks the ge for the price, it odes not open it

  7. #7
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mine opens ge just fine im 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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. The Grand Exchange!
    By Wizzup? in forum RuneScape News and General
    Replies: 329
    Last Post: 04-15-2009, 09:33 PM
  2. [SRL 4] The Grand Exchange
    By Drakan in forum Research & Development Lounge
    Replies: 6
    Last Post: 05-26-2008, 03:22 AM
  3. The grand exchange
    By natinsatin1 in forum RuneScape News and General
    Replies: 2
    Last Post: 11-27-2007, 12:56 AM
  4. Grand Exchange now?
    By yanix in forum RS has been updated.
    Replies: 10
    Last Post: 11-20-2007, 06:12 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •