Results 1 to 17 of 17

Thread: this script is bugging me...

  1. #1
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default this script is bugging me...

    First things first... Dont tell me about the standards.

    Currently:
    Chops full load of willows and sits there and doesnt go to bank.

    May anyof you please help me get this script to Chop Willows and bank them and restart?

    SCAR Code:
    program ChopAndDrop;
    {.include srl/srl.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}

    const
    TreeColor1 = 2592888;
    TreeColor2 = 2785392;
    TreeColor3 = 4544608;
    Tree = 'Willow';



    Procedure Welcome;
    begin
    Writeln(' Welcome to my power chopper');
    end;






    procedure DeclarePlayers;
    begin
    HowManyPlayers := 5;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := '*';//USername
    Players[0].Pass := '*';//password
    Players[0].Nick := 'new';//3-4 letters of username
    Players[0].Active:=True;

    Players[1].Name := '*';
    Players[1].Pass := '*';
    Players[1].Nick := 'new';
    Players[1].Active:=True;

    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := '';
    Players[2].Active:=True;

    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := '';
    Players[3].Active:=True;

    Players[4].Name := '';
    Players[4].Pass := '';
    Players[4].Nick := '';
    Players[4].Active:=True;

    end;

    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;

    Procedure CheckMate;
    begin
    if not (LoggedIn) then
    begin
    TerminateScript;
    exit;
    end;
    end;

    procedure Chop;
    begin
    repeat
    checkmate;
    if(FindColorTolerance(x, y, TreeColor1, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor3, msx1, msy1, msx2, msy2, 4))then
    begin
    Mouse(x,y,1,2,true);
    wait(1000 + random(200));
    FindHead;
    FindNormalRandoms;
    Randoms;
    wait(8500 + random(1000));
    FindEnt(TreeColor1);
    end;
    until (InvFull);
    end;


    procedure loadbitmats;
    var
    banksymbol, fish:integer;
    begin
    banksymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
    '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
    '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
    'A1997F9B842865493890F734C9301ACE46928');

    fish:= BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
    '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
    '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
    'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
    'BB6B6878');
    end;

    procedure walktobank;
    var
    banksymbol:integer;
    begin
    if(FindBitmap(banksymbol, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    openbank3;
    Writeln('At the bank dudes')
    end;
    end;

    procedure DepositsAll;
    begin
    if (BankScreen) then
    Deposit(1, 28, 2);
    closebank;
    end;

    procedure walktowillows;
    var
    fish:integer;
    begin
    if(FindBitmap(fish, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    wait(1000)
    writeln('woot at willows');
    end;
    end;







    begin
    Setupsrl;
    declareplayers;
    cleardebug;
    welcome;
    if not (loggedin) then
    begin
    loginplayer;
    begin
    FindNormalRandoms;
    chop;
    Randoms;
    findnormalrandoms;
    Walktobank;
    Depositsall;
    Walktowillows;

    end;
    end;
    end.

  2. #2
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Standards please.
    Use a repeat loop.

  3. #3
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by bullzeye95 View Post
    Standards please.
    Use a repeat loop.
    Dude whats the first thing i said in my thread JEEZ... and ive tried and dont no where to put the repeat loops. please help.. i script for people to use not learn from

  4. #4
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    SCAR Code:
    procedure walktobank;
    var
    banksymbol:integer;
    begin
    if(FindBitmap(banksymbol, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    openbank3;
    Writeln('At the bank dudes')
    end;
    end;
    you need to declare banksymbol at the beginning of the script and take it out of the dtm procedure otherwise it just gets used there and erased when you make the new procedure

  5. #5
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by jhildy View Post
    SCAR Code:
    procedure walktobank;
    var
    banksymbol:integer;
    begin
    if(FindBitmap(banksymbol, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    openbank3;
    Writeln('At the bank dudes')
    end;
    end;
    you need to declare banksymbol at the beginning of the script and take it out of the dtm procedure otherwise it just gets used there and erased when you make the new procedure
    thanks for not posting about standards and trying to help.. let me try

    ill post my script ... and ive never used bitmaps before.. so dont get all angry lol

    SCAR Code:
    program ChopAndDrop;
    {.include srl/srl.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}

    const
    TreeColor1 = 2592888;
    TreeColor2 = 2785392;
    TreeColor3 = 4544608;
    Tree = 'Willow';



    Procedure Welcome;
    begin
    Writeln(' Welcome to my power chopper');
    end;

    procedure loadbitmats;
    var
    banksymbol, fish:integer;
    begin
    banksymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
    '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
    '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
    'A1997F9B842865493890F734C9301ACE46928');

    fish:= BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
    '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
    '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
    'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
    'BB6B6878');
    end;






    procedure DeclarePlayers;
    begin
    HowManyPlayers := 5;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := '*';//USername
    Players[0].Pass := '*';//password
    Players[0].Nick := 'new';//3-4 letters of username
    Players[0].Active:=True;

    Players[1].Name := '*';
    Players[1].Pass := '*';
    Players[1].Nick := 'new';
    Players[1].Active:=True;

    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := '';
    Players[2].Active:=True;

    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := '';
    Players[3].Active:=True;

    Players[4].Name := '';
    Players[4].Pass := '';
    Players[4].Nick := '';
    Players[4].Active:=True;

    end;

    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;

    Procedure CheckMate;
    begin
    if not (LoggedIn) then
    begin
    TerminateScript;
    exit;
    end;
    end;

    procedure Chop;
    begin
    repeat
    checkmate;
    if(FindColorTolerance(x, y, TreeColor1, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor3, msx1, msy1, msx2, msy2, 4))then
    begin
    Mouse(x,y,1,2,true);
    wait(1000 + random(200));
    FindHead;
    FindNormalRandoms;
    Randoms;
    wait(8500 + random(1000));
    FindEnt(TreeColor1);
    end;
    until (InvFull);
    end;


    procedure walktobank;
    var
    banksymbol:integer;
    begin
    if(FindBitmap(banksymbol, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    openbank3;
    Writeln('At the bank dudes')
    end;
    end;

    procedure DepositsAll;
    begin
    if (BankScreen) then
    Deposit(1, 28, 2);
    closebank;
    end;

    procedure walktowillows;
    var
    fish:integer;
    begin
    if(FindBitmap(fish, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    wait(1000)
    writeln('woot at willows');
    end;
    end;







    begin
    Setupsrl;
    declareplayers;
    cleardebug;
    welcome;
    loadbitmaps;
    if not (loggedin) then
    begin
    loginplayer;
    begin
    FindNormalRandoms;
    chop;
    Randoms;
    findnormalrandoms;
    Walktobank;
    Depositsall;
    Walktowillows;

    end;
    end;
    end.

  6. #6
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    SCAR Code:
    program ChopAndDrop;
    {.include srl/srl.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}
     
    const
    TreeColor1 = 2592888;
    TreeColor2 = 2785392;
    TreeColor3 = 4544608;
    Tree = 'Willow';
     

    var banksymbol, fish:integer;
     
     
    Procedure Welcome;
    begin
    Writeln(' Welcome to my power chopper');
    end;
     
    procedure loadbitmats;
    begin
    banksymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
    '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
    '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
    'A1997F9B842865493890F734C9301ACE46928');
     
    fish:= BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
    '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
    '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
    'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
    'BB6B6878');
    end;
     
     
     
     
     
     
    procedure DeclarePlayers;
    begin
    HowManyPlayers := 5;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
     
    Players[0].Name := '*';//USername
    Players[0].Pass := '*';//password
    Players[0].Nick := 'new';//3-4 letters of username
    Players[0].Active:=True;
     
    Players[1].Name := '*';
    Players[1].Pass := '*';
    Players[1].Nick := 'new';
    Players[1].Active:=True;
     
    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := '';
    Players[2].Active:=True;
     
    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := '';
    Players[3].Active:=True;
     
    Players[4].Name := '';
    Players[4].Pass := '';
    Players[4].Nick := '';
    Players[4].Active:=True;
     
    end;
     
    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;
     
    Procedure CheckMate;
    begin
    if not (LoggedIn) then
    begin
    TerminateScript;
    exit;
    end;
    end;
     
    procedure Chop;
    begin
    repeat
    checkmate;
    if(FindColorTolerance(x, y, TreeColor1, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor3, msx1, msy1, msx2, msy2, 4))then
    begin
    Mouse(x,y,1,2,true);
    wait(1000 + random(200));
    FindHead;
    FindNormalRandoms;
    Randoms;
    wait(8500 + random(1000));
    FindEnt(TreeColor1);
    end;
    until (InvFull);
    end;
     
     
    procedure walktobank;
    begin
    if(FindBitmap(banksymbol, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    openbank3;
    Writeln('At the bank dudes')
    end;
    end;
     
    procedure DepositsAll;
    begin
    if (BankScreen) then
    Deposit(1, 28, 2);
    closebank;
    end;
     
    procedure walktowillows;
    var
    begin
    if(FindBitmap(fish, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    wait(1000)
    writeln('woot at willows');
    end;
    end;
     
     
     
     
     
     
     
    begin
    Setupsrl;
    declareplayers;
    cleardebug;
    welcome;
    loadbitmaps;
    if not (loggedin) then
    begin
    loginplayer;
    begin
    FindNormalRandoms;
    chop;
    Randoms;
    findnormalrandoms;
    Walktobank;
    Depositsall;
    Walktowillows;
     
    end;
    end;
    end.

    there i fixed the bitmap part but theres already a function to find symbols

    SCAR Code:
    // * function FindSymbol(var rx, ry: Integer; Name: String): Boolean; // * by Stupid3ooo

    if you need an explanation of that tell me.

  7. #7
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by jhildy View Post
    SCAR Code:
    program ChopAndDrop;
    {.include srl/srl.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}
     
    const
    TreeColor1 = 2592888;
    TreeColor2 = 2785392;
    TreeColor3 = 4544608;
    Tree = 'Willow';
     

    var banksymbol, fish:integer;
     
     
    Procedure Welcome;
    begin
    Writeln(' Welcome to my power chopper');
    end;
     
    procedure loadbitmats;
    begin
    banksymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
    '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
    '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
    'A1997F9B842865493890F734C9301ACE46928');
     
    fish:= BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
    '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
    '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
    'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
    'BB6B6878');
    end;
     
     
     
     
     
     
    procedure DeclarePlayers;
    begin
    HowManyPlayers := 5;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
     
    Players[0].Name := '*';//USername
    Players[0].Pass := '*';//password
    Players[0].Nick := 'new';//3-4 letters of username
    Players[0].Active:=True;
     
    Players[1].Name := '*';
    Players[1].Pass := '*';
    Players[1].Nick := 'new';
    Players[1].Active:=True;
     
    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := '';
    Players[2].Active:=True;
     
    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := '';
    Players[3].Active:=True;
     
    Players[4].Name := '';
    Players[4].Pass := '';
    Players[4].Nick := '';
    Players[4].Active:=True;
     
    end;
     
    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;
     
    Procedure CheckMate;
    begin
    if not (LoggedIn) then
    begin
    TerminateScript;
    exit;
    end;
    end;
     
    procedure Chop;
    begin
    repeat
    checkmate;
    if(FindColorTolerance(x, y, TreeColor1, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Treecolor3, msx1, msy1, msx2, msy2, 4))then
    begin
    Mouse(x,y,1,2,true);
    wait(1000 + random(200));
    FindHead;
    FindNormalRandoms;
    Randoms;
    wait(8500 + random(1000));
    FindEnt(TreeColor1);
    end;
    until (InvFull);
    end;
     
     
    procedure walktobank;
    begin
    if(FindBitmap(banksymbol, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    openbank3;
    Writeln('At the bank dudes')
    end;
    end;
     
    procedure DepositsAll;
    begin
    if (BankScreen) then
    Deposit(1, 28, 2);
    closebank;
    end;
     
    procedure walktowillows;
    var
    begin
    if(FindBitmap(fish, x, y))then
    begin
    Mouse(x, y, 1, 1, True);
    wait(1000)
    writeln('woot at willows');
    end;
    end;
     
     
     
     
     
     
     
    begin
    Setupsrl;
    declareplayers;
    cleardebug;
    welcome;
    loadbitmaps;
    if not (loggedin) then
    begin
    loginplayer;
    begin
    FindNormalRandoms;
    chop;
    Randoms;
    findnormalrandoms;
    Walktobank;
    Depositsall;
    Walktowillows;
     
    end;
    end;
    end.

    there i fixed the bitmap part but theres already a function to find symbols

    SCAR Code:
    // * function FindSymbol(var rx, ry: Integer; Name: String): Boolean; // * by Stupid3ooo

    if you need an explanation of that tell me.
    ill test it out in the morniing man .. thanks dude u deserve a SPOT

  8. #8
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    ill test it out in the morniing man .. thanks dude u deserve a SPOT
    now it doesnt compile...
    identifier expected in script line 132

  9. #9
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    oh sorry in line 131 remove the var.

  10. #10
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by jhildy View Post
    oh sorry in line 131 remove the var.

    Unknown identifier in my main loop: Load bitmaps .. thanks for your help... should i just use radial walking?

    edit: screw me... i cant spell ... i spelled bitmaps wrong and wrote bitmats =D
    ima test it out now.

  11. #11
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    ok good luck

  12. #12
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by jhildy View Post
    ok good luck
    i fixed minor errors and now you have to start at willows and it gets a full load but searches the whole screen for the bank booth... how do i get it to click the minimap symbol then search the screen for the booth... oh and i moved it closer to the bank and it deposited the willows and walked back.. so the only problem is getting it to the bank.. (which should be easy i hope) and wen walking to willows it usaly doesnt even do the stuff i tell it to do .. i tell it to make compass s and then it sees a willow so it goes to chop it =D

  13. #13
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Standardised:

    SCAR Code:
    rogram ChopAndDrop;
    {.include srl/srl.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}

    const
      TreeColor1 = 2592888;
      TreeColor2 = 2785392;
      TreeColor3 = 4544608;
      Tree = 'Willow';

    procedure Welcome;
    begin
      Writeln(' Welcome to my power chopper');
    end;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '*'; //USername
      Players[0].Pass := '*'; //password
      Players[0].Nick := 'new'; //3-4 letters of username
      Players[0].Active := True;

      Players[1].Name := '*';
      Players[1].Pass := '*';
      Players[1].Nick := 'new';
      Players[1].Active := True;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := True;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := True;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := True;

    end;

    procedure Randoms;
    begin
      if FindFight then
      begin
        Status('Running from Fight');
        RunTo('n', true);
        wait(8000 + random(1000));
        RunTo('s', true);
      end;
    end;

    procedure CheckMate;
    begin
      if not (LoggedIn) then
      begin
        TerminateScript;
        exit;
      end;
    end;

    procedure Chop;
    begin
      repeat
        checkmate;
        if (FindColorTolerance(x, y, TreeColor1, msx1, msy1, msx2, msy2, 4)) or
          (FindColorTolerance(x, y, Treecolor2, msx1, msy1, msx2, msy2, 4)) or
          (FindColorTolerance(x, y, Treecolor3, msx1, msy1, msx2, msy2, 4)) then
        begin
          Mouse(x, y, 1, 2, true);
          wait(1000 + random(200));
          FindHead;
          FindNormalRandoms;
          Randoms;
          wait(8500 + random(1000));
          FindEnt(TreeColor1);
        end;
      until (InvFull);
    end;

    procedure loadbitmats;
    var
      banksymbol, fish : integer;
    begin
      banksymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
        '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
        '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
        'A1997F9B842865493890F734C9301ACE46928');

      fish := BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
        '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
        '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
        'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
        'BB6B6878');
    end;

    procedure walktobank;
    var
      banksymbol : integer;
    begin
      if (FindBitmap(banksymbol, x, y)) then
      begin
        Mouse(x, y, 1, 1, True);
        openbank3;
        Writeln('At the bank dudes')
      end;
    end;

    procedure DepositsAll;
    begin
      if (BankScreen) then
        Deposit(1, 28, 2);
      closebank;
    end;

    procedure walktowillows;
    var
      fish : integer;
    begin
      if (FindBitmap(fish, x, y)) then
      begin
        Mouse(x, y, 1, 1, True);
        wait(1000)
          writeln('woot at willows');
      end;
    end;

    begin
      Setupsrl;
      declareplayers;
      cleardebug;
      welcome;
      if not (loggedin) then
      begin
        loginplayer;
        begin
          FindNormalRandoms;
          chop;
          Randoms;
          findnormalrandoms;
          Walktobank;
          Depositsall;
          Walktowillows;
        end;
      end;
    end.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  14. #14
    Join Date
    Jul 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Banking is easy depending on what you set the compass to etc. Since the whole inventory is full I would assume you can use DepositAll; once the screen is open, you can choose from numerous procedures to open the bank I use OpenBankQuiet; personally but they all work fine (at least the 3 I have put in the silk buying/selling script so far )

  15. #15
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Speci View Post
    Banking is easy depending on what you set the compass to etc. Since the whole inventory is full I would assume you can use DepositAll; once the screen is open, you can choose from numerous procedures to open the bank I use OpenBankQuiet; personally but they all work fine (at least the 3 I have put in the silk buying/selling script so far )
    does openbankquiet go in the bank first or just starts searching the screen for the booth... thats my problem... openbank3 doesnt click the bank symbol on the minimap so it starts looking for the whole screen for the bank

  16. #16
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    First use Findsymbol then just click where it finds it.

  17. #17
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by jhildy View Post
    First use Findsymbol then just click where it finds it.
    ok let me try

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Bugging Around
    By Home in forum OSR Help
    Replies: 5
    Last Post: 02-10-2008, 02:41 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
  •