Results 1 to 4 of 4

Thread: Fally bank opener

  1. #1
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Fally bank opener

    While making my air rune crafter (begin released very soon) I realised that all the openbank procedures sucked wang for opening fally west bank for some reason, so I made my own procedure. Works perfect for me, so I thought I might release it seperatly as well. Also I need feedback if this works also. Just run it with the bank booths visible in the main screen and it should find them and click open-quickly.

    Use it if you like but just make sure you credit me


    SCAR Code:
    {***************************Custom Bank Opener*********************************}
    function bankOpener : boolean;

    var
    tolerance:integer;
    found:boolean;
    begin
    bankBooth1 := BitmapFromString(13, 9, 'z78DAADCD490E8340104' +
             '3D12BF550D8AE65D3C3FD8F14225004A291B260F356D6379D010B' +
             '770B2370D687BB1B2B3338B1D1A0B3320AA598575FB455B14E245' +
             '7D4896245BBD839302E0E0586BB1E9518272665A64308CC17B93D' +
             'DB446DFFCB4497FFECAAC4839C38D4A8BB256AD045288FD72CA8F' +
             '6ED063376C0F4E4BE99D8D02D1D3A86F5478166F52FF77284ACBC' +
             'E50733879C1F');

      bankBooth2 := BitmapFromString(11, 1, 'z78DAB33034B33071B4A' +
             '0800400DD030E45');

      bankBooth3 := BitmapFromString(14, 1, 'z78DA3335333132B2302' +
           '582347204626CA4AB913310229100E65111DD');

      makecompass('N')
      tolerance:=10
      repeat
      repeat
      if (findbitmaptolerancein(bankBooth1,x,y,msx1,msy1,msx2,msy2,tolerance)) or
      (findbitmaptolerancein(bankBooth2,x,y,msx1,msy1,msx2,msy2,tolerance)) or
      (findbitmaptolerancein(bankBooth3,x,y,msx1,msy1,msx2,msy2,tolerance)) then
      begin
        mmouse(x,y,3,3)
        tolerance := tolerance + 1
        if (isuptextmulti('booth','ank','nk bo')) then
        begin
          found := true
        end;
      end;
        if tolerance >=250 then
      begin
        writeln('Could not find booth')
        result:=false
        break;
      end;
      until((found = true) or not(loggedin))



      if (not (loggedin)) then
      begin
       loginplayer
      end;

      if found then
      begin

        mouse(x,y,4,4,false)

        if clickoption('Use-quickly',1) then
        begin
          result:=true
          clickedbank:=true
          flag;
        end else
        begin
          clickoption('Cancel',1)
         end;
            end else
      begin
        writeln('Could not find bank')
        result:=false
       end;
       until(clickedbank=true)
         freebitmap(bankbooth1)
        freebitmap(bankbooth2)
        freebitmap(bankbooth3)
    end;

  2. #2
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Would you mind if i used this in my script?

  3. #3
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nope thats what it's there for

  4. #4
    Join Date
    Dec 2006
    Posts
    354
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good man, i made my own too, a while ago. it's the way to go if you dont like the SRL ones
    Thick As Blood

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Draynor Bank Opener
    By TViYH in forum Research & Development Lounge
    Replies: 6
    Last Post: 05-17-2008, 06:50 PM
  2. Door Opener Procedure?
    By USMC in forum OSR Help
    Replies: 17
    Last Post: 05-30-2007, 12:08 AM

Posting Permissions

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