Cora Dyce

Welcome to our website !
Please register an account to view the complete categories and forums.

Cora Dyce - Your personal dicing clan


    i made this fletching bot for 07

    Share
    avatar
    Zodz
    General
    General

    Posts : 4962
    Join date : 2011-06-16
    Age : 28
    Location : East Coast, USA

    Dices Rolls
    Dice Roll: 12

    i made this fletching bot for 07

    Post by Zodz on 2013-03-27, 07:38

    works in oldschool rs using Simba with P07Include and P07UpChars font

    This is 100% my coding work (not mass produced code so less detectable)

    Make sure you use it at the Void Knight bank (Where the squires are - you sail there from Port Sarim)

    If you want to switch from cutting logs to stringing bows you must change what's written in the "main" code.

    Any questions please post here


    Spoiler:
    Program INTrigueFletch;
    {
    By INTrigue
    Start in Secret No-random spot
    }
    {$i srl/srl.simba}
    {$i P07Include.simba}

    var
    x,y,c: integer;

    const

    //USER CONFIGURATION
    bankercolor1 = 6913940; //Use the color picker to pick the bank color
    bankercolor2 = 8031123; //Use the color picker to pick the bank color
    procedure Compass;
    begin
    if (P07_GetCompassAngle <> 355) then
    begin
    P07_MakeCompassNorth;
    P07_MakeCameraAngleHigh;
    P07_MakeCompassDegree(355);
    end;
    end;

    procedure banker;
    begin
    if (P07_BankScreen = False) then repeat
    writeln('Attempting to open bank...');

    if P07_FindObjCustom(x,y, ['se','ank','ooth'],[bankercolor1,bankercolor2], 5) then
    begin
    Wait(RandomRange(34,50));
    ClickMouse2(mouse_left);
    Wait(RandomRange(1040,1110));
    end;
    until (P07_BankScreen);
    end;
    procedure getlogs;
    begin
    writeln('Banking Inventory')
    if P07_BankScreen
    then
    repeat
    P07_Deposit(2,28, True);
    Wait(RandomRange(210,410));
    until
    (P07_InvCount < 2);
    sleep(200);

    begin;
    writeln('Withdrawing Logs from bank slot 5');
    repeat
    sleep(186+random(12));
    MMouse(RandomRange(271,288), RandomRange(74, 83), 0, 0);
    if(not P07_isUpTextMultiCustom(['ogs','log','logs'])) then
    Wait(RandomRange(500000,1001000));
    if(P07_isUpTextMultiCustom(['ogs','log','logs'])) then
    ClickMouse2(mouse_right);
    Wait(RandomRange(37,50));
    P07_ChooseOptionMulti(['All']);
    sleep(400+random(15));
    until
    (P07_InvCount =28)
    sleep(192+random(15));
    end;
    begin
    repeat
    MMouse(RandomRange(487 - 3, 487 + 3), RandomRange(41 - 3, 41 + 3), 0 ,0);
    Wait(RandomRange(37,50));
    if (P07_isUpTextMultiCustom(['lose'])) then
    Clickmouse2(mouse_left);
    until(not P07_isUpTextMultiCustom(['lose']));
    Compass;
    end;
    end;
    procedure getstrings;

    begin
    writeln('Banking Inventory')
    if P07_BankScreen
    then
    repeat
    P07_Deposit(1,28, True);
    Wait(RandomRange(210,410));
    until
    (P07_InvCount = 0);
    sleep(200);
    writeln('Withdrawing strings from bank slot 6');

    repeat
    sleep(186+random(12));
    MMouse(RandomRange(328 - 3, 328 - 3), RandomRange(79 - 3, 79 + 3), 0 ,0);
    if(not P07_isUpTextMultiCustom(['Bow string','stri','Bow'])) then
    Wait(RandomRange(300000,301000));
    if(P07_isUpTextMultiCustom(['Bo','stri','Bow'])) then
    ClickMouse2(mouse_right);
    Wait(RandomRange(1500,2230));
    P07_ChooseOptionMulti(['Withdraw X']);
    Wait(RandomRange(1430,1578));
    TypeSendEx(IntToStr(14), true);
    Wait(RandomRange(900,1120));
    if (P07_InvCount >14)
    then P07_Deposit(1,28, True);
    until
    (P07_InvCount =14);
    sleep(342+random(15));

    end;

    procedure getunstrung;

    begin;
    writeln('Withdrawing unstrung from bank slot 7');
    repeat
    sleep(186+random(12));
    MMouse(RandomRange(378 - 3, 378 - 3), RandomRange(76 - 3, 76 + 3), 0 ,0);
    if(not P07_isUpTextMultiCustom(['longbow','long','ngb'])) then
    Wait(RandomRange(300000,301000));
    if(P07_isUpTextMultiCustom(['longbow','long','ngb'])) then
    Wait(RandomRange(37,50));
    ClickMouse2(mouse_right);
    Wait(RandomRange(37,50));
    P07_ChooseOptionMulti(['Withdraw All']);
    Wait(RandomRange(250,600));
    until
    (P07_InvCount =28)
    or (not P07_isUpTextMultiCustom(['longbow']));
    sleep(192+random(15));

    repeat
    MMouse(RandomRange(487 - 3, 487 + 3), RandomRange(41 - 3, 41 + 3), 0 ,0);
    Wait(RandomRange(37,50));
    if (P07_isUpTextMultiCustom(['lose'])) then
    Clickmouse2(mouse_left);
    until(not P07_isUpTextMultiCustom(['lose']));
    Compass;
    end;


    procedure stringbows;
    Begin
    writeln('stringing bows')

    MMouse(RandomRange(620 - 3, 620 - 3), RandomRange(339 - 3, 339 + 3), 0 ,0);
    if (P07_isUpTextMultiCustom(['ring', 'ing', 'Str', 'Use', 'se S'])) then
    Wait(RandomRange(45,55));
    Clickmouse2(mouse_left);
    Wait(RandomRange(100,15));
    MMouse(RandomRange(661 + 3, 661 + 3), RandomRange(334 - 3, 334 + 3), 0 ,0);
    if (P07_isUpTextMultiCustom(['ongbow', 'longbow', 'long'])) then
    wait(RandomRange(37,50));
    Clickmouse2(mouse_left);
    wait(RandomRange(37,50));

    if not (P07_isUpTextMultiCustom(['longbow', 'long']))
    then wait (RandomRange (500000,510000));

    MMouse(RandomRange(265 - 3, 265 + 3), RandomRange(411 - 3, 411 + 3), 0 ,0);
    sleep(300+random(19));
    Clickmouse2(mouse_right)
    wait(RandomRange(223,468));
    P07_ChooseOptionMulti(['Make All'])
    Wait(RandomRange(400,600));

    wait(RandomRange(16390,17290));
    End;

    procedure cutlogs;
    Begin
    writeln('cutting logs')

    MMouse(RandomRange(580 - 3, 580 - 3), RandomRange(227 - 3, 227 + 3), 0 ,0);
    if (P07_isUpTextMultiCustom(['nife', 'ife', 'Kni', 'Use', 'se K'])) then
    Wait(RandomRange(45,55));
    Clickmouse2(mouse_left);
    Wait(RandomRange(100,15));
    MMouse(RandomRange(619 + 3, 619 + 3), RandomRange(227 - 3, 227 + 3), 0 ,0);
    if (P07_isUpTextMultiCustom(['ogs', 'log', 'logs'])) then
    wait(RandomRange(37,50));
    Clickmouse2(mouse_left);
    wait(RandomRange(37,50));

    MMouse(RandomRange(265 - 3, 265 + 3), RandomRange(411 - 3, 411 + 3), 0 ,0);
    sleep(300+random(19));
    Clickmouse2(mouse_right)
    wait(RandomRange(37,50));
    P07_ChooseOptionMulti(['Make X'])
    Wait(RandomRange(250,600));
    TypeSendEx(IntToStr(RandomRange(27,40)), true);
    wait(RandomRange(48532,49710));
    End;
    Begin

    SetupP07Include;
    ActivateClient;
    writeln('to start bot click on rs client and tap the arrow keys');
    repeat
    Compass;
    banker;
    Case Random (160) Of
    1: Wait(40000 + random(7400));
    2: Wait(25500 + random(8550));
    3: Wait(60040 + random(6759));
    4: Wait(20400 + random(2549));
    end;
    //getlogs;
    //cutlogs;

    // it either cuts logs or strings bows, not both
    //if you want to cut bows
    // remove the '//' in front of "get logs" and "cutlogs"
    // place the '//' instead before
    // "getstrings", "getunstrung", and "stringbows" to make them unreadable
    getstrings;
    getunstrung;
    stringbows;


    until(false);

    End.




    Last edited by Zodz on 2013-03-28, 04:45; edited 1 time in total

    The Uzumaki
    VIP
    VIP

    Posts : 9689
    Join date : 2011-08-12
    Age : 22
    Location : Malaysia

    Re: i made this fletching bot for 07

    Post by The Uzumaki on 2013-03-27, 09:21

    at first I thought it was empty, then I saw it haha Razz
    avatar
    Nuti
    VIP
    VIP

    Posts : 2814
    Join date : 2012-03-25
    Age : 21
    Location : ???

    Re: i made this fletching bot for 07

    Post by Nuti on 2013-03-27, 20:58

    How do you get simba for 07?
    avatar
    Zodz
    General
    General

    Posts : 4962
    Join date : 2011-06-16
    Age : 28
    Location : East Coast, USA

    Dices Rolls
    Dice Roll: 12

    Re: i made this fletching bot for 07

    Post by Zodz on 2013-03-28, 04:44

    updated: would bank knife sometimes during log cut -- fixed
    avatar
    Neo
    Member
    Member

    Posts : 941
    Join date : 2012-02-16
    Age : 24
    Location : Egypt

    Re: i made this fletching bot for 07

    Post by Neo on 2013-03-28, 08:39

    V1A|Nuti wrote:How do you get simba for 07?
    you have to update it manual and download alot of files
    there is guides about it in simba forums
    if u got any problem just post it on they forums
    they will help you in few seconds they really nice people

    Sponsored content

    Re: i made this fletching bot for 07

    Post by Sponsored content


      Current date/time is 2017-09-25, 20:57