Results 1 to 16 of 16

Thread: Help with my banking system

  1. #1
    Join Date
    Jan 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Help with my banking system

    Can someone please help me with my script?

    The scrpit starts off with e bank screen open and what I need the script to do is to withdraw 5 ores and 'all' coal, and then after taking its trip, i need it to find a bank booth, 'use quickly' and then bank the mith bar. The loops has already been set.

    program AlKharidDefultSmither;
    {.include SRL/SRL.scar}

    var
    i,x, y: Integer;

    const
    IronOreColour= 6111038;
    CoalOreColour= 2570811;
    FurnaceMiniMap= 687338;
    FurnaceColor= 2968250;
    BankIcon= 151130;
    BankerCollar= 3758718;
    SteelColor= 5913916;

    procedure ClickOre; <<<------This is where i need help (NOTE:BANK SCREEN IS OPEN)
    begin
    if (FindColorTolerance(x, y, IronOreColour, 0,0,763,499,1)) then
    begin
    Mouse(x, y, 4, 4, False);
    Mouse(78, 205, 3, 2, True);
    end;
    end;

    procedure ClickCoal;
    begin
    if (FindColorTolerance(x, y, CoalOreColour, 0,0,763,499,1)) then
    begin
    Mouse(x, y, 4, 4, False);
    Mouse(78, 205, 3, 2, True);
    end;
    end;
    <<<-----From here I start moving, scroll down for the depositing bit
    procedure MoveToFurnace;
    begin
    Mouse(661, 52, 4, 4, True);
    Wait(9000+random(500))
    if (FindColor(x,y, FurnaceMiniMap,0,0,763,499)) then
    begin
    ClickMouse(x,y,True);
    end;
    end;

    Procedure Smelt;
    Begin
    i:= 0;
    repeat
    i:= i + 1;
    if (FindColorTolerance(x,y, FurnaceColor,0,0,512,334,10)) then
    begin
    ClickMouse(x,y,True);
    Wait(2000+random(500))
    Mouse(361,404,4,4,false)
    Wait(100+random(100))
    Mouse(346, 443, 4, 4, True);
    End;
    until(FindColorTolerance(x,y, FurnaceColor,0,0,763,499,30));
    end;

    Procedure Return;
    begin
    Mouse(629, 136,4,4,true);
    Wait(9000+random(1000));
    if (FindColor(x,y, BankIcon,531, 84,763,499)) then
    begin
    ClickMouse(x,y,true);
    end;
    end;

    Procedure BankSteel; <<<------Here is where i want to find booth and deposit

    begin
    if (FindColor(x,y, BankerCollar,0,0,763,499)) then
    begin
    ClickMouse(x,y,True);
    Wait(2000+random(1000))
    Mouse(305, 456,4,4,true);
    Wait(1000+random(1000))
    Mouse(275, 393,4,4,true);
    Wait(500+random(500))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    wait(1000+random(1000))
    if (FindColor(x,y, SteelColor,552,204,738,464)) then
    begin
    ClickMouse(x,y,true);
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    begin
    SetupSRL;
    ActivateClient;
    repeat
    ClickOre;
    Wait(600+random(300))
    ClickCoal;
    Wait(300+random(300))
    MoveToFurnace;
    Wait(14000+random(200))
    Smelt;
    Wait(16000+random(100))
    Return
    Wait(11000+random(200))
    BankSteel
    until(false);
    end.
    Thanks if u guys are able to help!

  2. #2
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    use dtms ill help u improve ur script
    Edit : just wait a while

  3. #3
    Join Date
    Jan 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks a lot pur3b100d!!

  4. #4
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    so u trying to make a steel bar making script?

  5. #5
    Join Date
    Jan 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    actually its for mith but cbf changing the names, thats why I'm loading 5 mith ores and the rest coal

  6. #6
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    k do u know how to make DTMs?

  7. #7
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Use FindColorTolerance! RuneScape's colours change every time.
    Ce ne sont que des gueux


  8. #8
    Join Date
    Jan 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    err... no

  9. #9
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Yes they do..
    Not all, but most. They are called Dynamic Colours.
    Ce ne sont que des gueux


  10. #10
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    SCAR Code:
    procedure ClickOre;
    begin
      if FindColorTolerance(x, y, IronOreColour, 0, 0, 763, 499, 1) then
      begin
        Mouse(x, y, 4, 4, False);
        ChooseOption('draw-5');
      end;
    end;

    procedure ClickCoal;
    begin
      if FindColorTolerance(x, y, CoalOreColour, 0, 0, 763, 499, 1) then
      begin
        Mouse(x, y, 4, 4, False);
        ChooseOption('all');
      end;
    end;

    Procedure BankSteel;
    begin
      if FindColor(x, y, BankerCollar, 0, 0, 763, 499) then
      begin
        OpenBankFast('akb');
        Wait(1000 + Random(500));
      end;
      if FindColor(x, y, SteelColor, 552, 204, 738, 464) then
        MMouse(x , y, 5, 5);
        Wait(500 + Random(500));
      if (IsUpTextMultiCustom(['bar', 'ar', 'ba'])) then
      begin
        Mouse(x, y, 4, 4, False);
        ChooseOption('sit-all');
      end;
    end;

    I don't know if that will work, that's just taking what you posted and making it a little better. Hope this helps.

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  11. #11
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    i just don't understand why people use dtms for ore finding... there are all kind of ores you need all you have to do is open mining.scar and search for it.
    Hi

  12. #12
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    DTMs are universal.. it looks for like.. (dunno for sure) the outline of a thing, so you only need to load one DTM and it can find every ore/log/whatever you choose

  13. #13
    Join Date
    Jan 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank for he edit pur3bl00d, but im getting an error with the part where the script chooses withrad all for the coal

    procedure ClickCoal;
    begin
    if FindColorTolerance(x, y, CoalOreColour, 0, 0, 763, 499, 1) then
    begin
    Mouse(x, y, 4, 4, False);
    ChooseOption('all');
    end;
    end;
    For some reason, uknown to me, the mouse just clicks off the edge of the client and then continues the rest of the script.

    Any ideas how to stop this?

  14. #14
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    do you CoalOreColour in the const? and you can just do DropAll;

  15. #15
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Quote Originally Posted by demkidude View Post
    Thank for he edit pur3bl00d, but im getting an error with the part where the script chooses withrad all for the coal



    For some reason, uknown to me, the mouse just clicks off the edge of the client and then continues the rest of the script.

    Any ideas how to stop this?
    Um, I did that. Make sure you use a color that is only on the coal. Use the ACAv2 in the srl includes folder

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  16. #16
    Join Date
    Jan 2009
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wheres the line where i can edit the color and the color check?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Hermpie's banking proc's and Func's makes banking a piece of a cake!
    By ShowerThoughts in forum Research & Development Lounge
    Replies: 13
    Last Post: 06-11-2008, 03:16 PM
  2. Assist System.
    By julian0 in forum RS has been updated.
    Replies: 4
    Last Post: 11-15-2007, 02:56 AM
  3. Which System(s) do you have?
    By antknee3 in forum Gaming
    Replies: 21
    Last Post: 08-29-2007, 02:49 PM
  4. System of a down?
    By Whitefang OC in forum Music, Movies and TV
    Replies: 11
    Last Post: 07-06-2007, 09:53 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
  •