Results 1 to 2 of 2

Thread: H E L P making an auto c ball smelter

  1. #1
    Join Date
    Mar 2007
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    H E L P making an auto c ball smelter

    ok ive made a few changes and fixed some detectable things i had in there now it should be better

    my problem atm is ---runtime exception does not allow drawling in line 103

    I HAVE ONLY BEEN SCRIPTING FOR 4 DAYS NOW


    // CANNON BALL EXPRESS //
    // BY Burnout //






    program CannonBallExpress;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Smithing.scar}



    // Cannon Ball Express brought to you exclusively by Burnout //

    // beta version //

    // i do not know if i added any antirandoms... //

    // might want to check //

    // that one out ill update it //

    // start in ak west bank (closest one to the furnace) //

    // loged out //
    //__________________________________________________ _________//
    //__________________________________________________ _________//



    var
    Bank, Furnace, Trip, Rock, AmmoMould:integer;
    Acc, Angle:Extended;



    // waiting //


    procedure Waiting;
    begin
    wait(400+random(300));
    end;



    // loading bitmaps //




    procedure LoadBMPs;
    begin
    Bank := BitmapFromString(5, 18, 'z78DAE5D0B10E80200C04D05F3' +
    'A34183B9272FDFF4FB2504C3AE8EAE20D1DDE11689026729C 4663' +
    'D9C704658A6457536C56AD02DD03AC367C4E76BAABE76E315 2E27' +
    'C78C8C3FD9FBF1B921D84A0BDED96DBFFFCC90586F17B6F') ;

    Furnace := BitmapFromString(9, 8, 'z78DA3330000113171373202' +
    '4823440526F666962626C440C896C0244C4CDCDDCD1C81C17 4948' +
    '97A3B991B31B10181AC3D8B4D3459A0B490D0D524900ED6F5 EC3');

    Rock := DTMFromString('78DA638C66626008604001D9EE8A609A11C A6' +
    '70C05AAF14755737C6311AA9A58A01A6F026A12806A4250D5 9CDA' +
    '5C8CAA261A530D86396140356104D4C463FA0BDD2E001D6C1 12D');

    AmmoMould := BitmapFromString(27, 20, 'z78DAAD566DAEE3200C' +
    'BC52F8B0213F9386DCFF484B3D5E6910E16DFBB4B584226AC 7E3F' +
    '160B2C5EDD9DEBFA0592E79E53DBF7F773EF22E4542B797A8 A846' +
    '39E5D4AAA1DBD537A46EE5FDCBFAEA867DACA7A66E58CD539 A54A' +
    '9AA724BAB52CE6E47892594A047378B82CF96273384EE4908 D395' +
    '6AAA22B9E526BBA46EC8623E9EFDD6A2A5C6B2971DCFF9CAA 51BA' +
    'AA3588E7284ADF4F28B6AEB35582CFC7F46089FAC39744BA9 A536' +
    '649C715AED881DA2987FF813F3F0AF5AAEF2024E74E701A16 18B2' +
    '986183C3BF5D473614576432B319FF9E4EC58E109E6D18581 4356' +
    '8831E6FCD77297867F97EC998A3C97E5F5B75947867E418D6 0CF1' +
    '4C5AACB5B3ABB1D2977D31452F05A3EC089BC7E22983D8D39 6667' +
    '983B88EC96D7F5493BFE66EC20D69023161C02E1D0F159CFC 4C30' +
    'AA19F41CBC5353E544DBCF919442CD08213F3F15E582CF81C 946C' +
    '484A2D9BDE58F10646C5CFFE66C3F0A031EE29E97C9824F67 E478' +
    'B1D70CB4AC0BE65F1EAA846D4F2D0DF23762764F44A4D4583 C219' +
    '21779C756E736675829C7F308FD9F22AA91B56E37085D0F56 9EFF' +
    '4E9F7A5C291053B0FD36F9A2DFE4C3851F5DCDFD8E219CFE1 7400' +
    'A7F1F0A070668674EE2A3286E7D9FE70664921B889B033B06 7E69' +
    'E7C129117B31A386785232F6227350ECCAF344CCC6385CF8C D055' +
    '6A770DB43AA80B79F14ED63C38A1759ED5ABD932A8914E311 8981' +
    '142DBACD52FD03236CC4030C677E5742F3BE774EAB13E4C18 203C' +
    '6AA81BEE4447CBA78C31335AEE2C4DBF6162935A66F6783AF 937C' +
    'C84CD756851B5D55CFFA2B59B11DF1BFE3505CC3FEBE163CC 33CE' +
    '871B64BA8B6793F7F76073B4C4B06306C32BCC33DA95866D7 F53B' +
    '315C2952D90774DF5CBFB1F7AF88461C2FC35B65F2187F549 B8A7' +
    'F1DC7D80F63F23FC15FE14FACDD06686C31DAE70FD8CF00FE 227B' +
    '253');

    end;




    // free bitmaps //




    procedure FreeBMPs;
    begin
    FreeBitmap(Rock);
    FreeBitmap(Bank);
    FreeBitmap(Furnace);
    FreeBitmap(AmmoMould);
    end;




    // walk to furnace (sorry only one path so far) //




    procedure walktofurnace;
    begin
    wait(10+random(30));
    if(FindDeformedBitmapToleranceIn(rock, x, y, 582, 37, 763, 155, 70, 1, True, acc)) then
    begin
    mmouse(x,y+random(2),5,10);
    wait(100+random(100));
    mouse(x,y,0,0,true);
    wait(7000+random(1000));
    if(finddeformedbitmaptolerancein(furnace, x, y, 582, 37, 763, 155, 70, 1,true, acc)) then
    begin
    mmouse(x,y+random(1),5,10);
    mouse(x,y,0,0,true);
    wait(10000+random(1000));
    end;
    end;
    end;


    // walk to bank (sorry only one path so far) //




    procedure walktobank;
    begin
    if(FindDeformedBitmapToleranceIn(rock, x, y, 582, 37, 763, 155, 70, 1, True, acc)) then
    begin
    mmouse(x,y+random(2),5,10);
    wait(100+random(100));
    mouse(x,y,0,0,true);
    wait(10000+random(1500));
    if(FindDeformedBitmapToleranceRotationIn(bank,x, y, 582, 37, 763, 155, 170, 0, acc, PI/10, 0, 2*PI, angle)) then
    begin
    mmouse(x,y+random(1),5,10);
    mouse(x,y,0,0,true);
    wait(6000+random(1000));
    end;
    end;
    end;



    // smelter \\




    procedure SmeltCBall;
    begin
    wait(200+random(100));
    if(existsitem(28)) then
    begin
    mouseitem(28,true)
    wait(1000+random(500));
    if (FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20)) then
    begin
    MMouse(x, y, 2, 2)
    if (IsUpText('eel')) then
    Mouse(x + Random(15), y, 2, 2, True);
    wait(1500+random(1000));
    clickoption('steel bar',1);
    wait(6000+random(1500));
    repeat until(false)
    end;
    if(not(FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20))) then
    writeln('cannot find furnace')
    end;
    if(not(existsitem(28))) then
    WalkToBank;
    end;




    // ammount to withdraw //



    Procedure WithdrawBmpAmmount(Bitmap, Amount : Integer); // Thanks to fawki
    var
    TimesChecked : Integer;
    Begin
    if(BankScreen)and(TimesChecked < 26)then
    Begin
    TimesChecked := TimesChecked+1;
    if(FindBitMapToleranceIn(steelbar, X, Y, 5, 5, 498, 323, 10))then
    Begin
    Wait(200+Random(300));
    MMouse(X, Y, 8, 8);
    wait(200);
    Mouse(X, Y, 8, 8, False);
    wait(200);
    ClickOption('Withdraw X',1);
    wait(1000+random(500));
    Begin
    Wait(400);
    TypeSEnd(IntToStr(Amount));
    Wait(400);
    End;
    End;
    End;
    End;




    // checking if items are in inventory //




    procedure CheckIfInInv;
    begin
    if(existsitem(steelbar))then
    begin
    writeln('walking to bank');
    end;
    if(not(existsitem(SteelBar))) then
    WalkToBank;
    end;




    //////////////// M A I N L O O P \\\\\\\\\\\\\\\\\\


    begin
    setupsrl;
    waiting;
    loadbmps;
    waiting;
    begin
    CheckIfInInv;
    waiting;
    smeltcball;
    waiting
    walktobank;
    waiting;
    openbank;
    waiting;
    WithdrawBmpAmmount(SteelBar, 26);
    waiting;
    end;
    repeat until(false)
    waiting;
    freebmps;
    end.

  2. #2
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, one thing, you use movemousesmoothex i think, use mouse(x, y, 5, 5, true/false); and mmouse(x, y, 5, 5); instead of movemousesmoothex and clickmouse. From what i see here i think you have great potential.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. I need a cannon ball smelter for anyplace
    By Flavaflav in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 08-31-2007, 08:56 PM
  2. auto cannon ball maker??
    By oberhofedavi in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 07-12-2007, 08:50 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
  •