Results 1 to 8 of 8

Thread: banking, lol.

  1. #1
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default banking, lol.

    im having trouble with this banking procedure it either wont open up the bank and freeze, although it does find the color, and sometimes it doesnt deposit the bows

    SCAR Code:
    function FindBanker: boolean;
    var
      Colors: TIntegerArray;
      X, Y, I, A, M, curCTS: Integer;
      TPA: TPointArray;
      ATPA: T2DPointArray;

    begin
      Result := False;
      if not LoggedIn then exit;
      curCTS := GetColorToleranceSpeed;
      Colors := [6570832, 5322305, 5125182, 5519427];
      for I := 0 to 3 do
      begin
        ColorToleranceSpeed(3);
        FindColorsSpiralTolerance(MSCX, MSCY, TPA, Colors[I], MSX1, MSY1, MSX2, MSY2, 7);
        if Length(TPA) = 0 then exit;
        ColorToleranceSpeed(1);
        ATPA := TPAtoATPAEx(TPA, 4, 4);
        M := High(ATPA);
        for A := 0 to M do
          if MiddleTPAEx(ATPA[A], X, Y) then
          begin
            MMouse(X, Y, 6, 6);
            Wait(100 + Random(50));
            if Pos('Banker', RS_GetUpText) > 0 then
            begin
              GetMousePos(X, Y);
              Mouse(X, Y, 0, 0, False);
              waitoption('Bank', 100);
              Result := True;
              ColorToleranceSpeed(curCTS);
              Exit;
            end;
          end;
      end;
      ColorToleranceSpeed(curCTS);
    end;

    procedure Bank_U;
    var x, y: integer;
    label back;
    begin
      if findubow(x, y, mix1, miy1, mix2, miy2) or
      not finddtm(getdtm('knife'), x, y, mix1, miy1, mix2, miy2) or
      not finddtm(GetDTM('log'), x, y, mix1, miy1, mix2, miy2) then
      if not FindBanker then
        exit;
      writeln('found banker');
     
      repeat
         wait(100);
      until Pinscreen or BankScreen;
      writeln('Got Screen');
     
      if (Players[CurrentPlayer].Pin <> '') then
            InPin(Players[CurrentPlayer].Pin);
      if not bankscreen then wait(500 + random(500));
      writeln('In Teh Bank');
     
      back:
      if findubow(x, y, mix1, miy1, mix2, miy2) then
      begin
        writeln('Depositing bows');
        mmouse(x, y, 4, 4);
        if isuptext ('longbow (u)') then
        begin
          getmousepos(x, y);
          mouse(x, y, 0, 0, false);
          waitoption('All', 100);
        end else deposit(2, 28, 27);
      end else writeln('No bows in inv');
     
      if not finddtm(getdtm('knife'), x, y, mix1, miy1, mix2, miy2) then
      begin
        Withdraw(0, 1, 1);
        while not finddtm(getdtm('knife'), x, y, mix1, miy1, mix2, miy2) do wait(100 + random(10));
      end;
     
      wait(10 + random(10));
      if not finddtm(GetDTM('log'), x, y, mix1, miy1, mix2, miy2) then
        Withdraw(0, 0, 27);
       
      if not finddtm(GetDTM('log'), x, y, mix1, miy1, mix2, miy2) or
        finddtm(GetDTM('knife'), x, y, mix1, miy1, mix2, miy2) then
        goto back;
       
      freedtm(getdtm('knife'));
      freedtm(getdtm('log'));
      closebank;
      inc(players[currentplayer].banked);
    end;

    i guess its a little too over complicated, but its all to make sure the banking went smoothly, and ready for the next load

    any help is appreciated, with the bank finding or any other way to improve

    thanks
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  2. #2
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Use R_OpenBankBooth('db'); OpenBankBooth('db'); (replace db)???
    I do visit every 2-6 months

  3. #3
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    Quote Originally Posted by ZaSz View Post
    Use R_OpenBankBooth('db'); OpenBankBooth('db'); (replace db)???
    both of those are slow in finding the bank (edgevil bank at least), and the function that i use does work perfect when by its self
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  4. #4
    Join Date
    Jul 2008
    Location
    Canada
    Posts
    1,612
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OpenBankFast?

    As for your TPA, try to not edit the CTS and see what happens.

  5. #5
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    I just use cts 2 and then change it back to what it was before.

    I havent ever used cts3, so I wouldnt know. :\

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  6. #6
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    i got it fixed now i just had to change some stuff around.

    thanks for trying to help though guys, + rep, exept smarter, im not allowed to yet lol

    and garret: cts3 is suposed to be better than 2, in terms of color finding. its a fraction of a second slower though
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  7. #7
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Quote Originally Posted by Awkwardsaw View Post
    and garret: cts3 is suposed to be better than 2, in terms of color finding. its a fraction of a second slower though
    Oh cool. Is there any in depth explinations about the differences between 1,2,3 in a tut? And the modifiers and everything? I'd enjoy learning the mechanics behind it instead of just using them.

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  8. #8
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    Quote Originally Posted by 3Garrett3 View Post
    Oh cool. Is there any in depth explinations about the differences between 1,2,3 in a tut? And the modifiers and everything? I'd enjoy learning the mechanics behind it instead of just using them.
    http://www.villavu.com/forum/showthread.php?t=40686

    is the best tut that i can find, and its the one that i used
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

Thread Information

Users Browsing this Thread

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

Posting Permissions

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