smithing Cannonball Smither 2.0

[Olment]

Hey all,

 

Since my previous cball smither was kinda noob, i've duck into scar and made it a bit less noob.

 

NOTES: you should put the steel bars in the 3th row and 8th place in your bank, put ur cannonball mould in the first spot of ur inventory.

The smither works only in Neitiznot. Stand left of the 3th bankchest seen from left. (small pic: [] [] x[] [])

Have only your inventory opened.

 

 

program Cannonballsmither;
var t,p,i,x,y,z,m: Integer;

Procedure StartBank;
Begin
t:= t + 1;
p:= 16;
p:= p + 108;
    Writeln('Begin New Run');
    Writeln('Making Run:');
    Writeln(t);
    ClickWindMouse(679, 283, 1, 1, False);
    Wait(200 + random(100));
    ClickWindMouse(679, 390, 50, 3, True);
    Wait(200 + random(100));
    ClickWindMouse(423, 200, 1, 2, False);
    Wait(200 + random(100));
    ClickWindMouse(412, 314, 50, 4, True);
    Wait(200 + random(100));
    End;

//close bank
Procedure CloseBank;
    Begin
    Writeln('Close Bank');
    ClickWindMouse(549, 40, 5, 5, True);
    Wait(200);
    End;

//Loop naar Furnace
Procedure Furnace;
    Begin
    Writeln('Go To Furnace');
    ClickWindMouse(678, 222, 1, 1, True);
    Wait(500 + random(1000));
    ClickWindMouse(679, 283, 10, 10, True);
    Wait(6500 + random(500));
    End;

//smelt steelbars
Procedure Smelting;
    Begin
    Writeln('Start Smelting Cannonballs');
    ClickWindMouse(399, 242, 1, 1, True);
    Wait(1000 + Random(500));
    ClickWindMouse(256, 520, 20, 20, True);
    Wait(162000 + random(2500));
    End;

//Logout Runescape
Procedure Logout;
    Begin
    ClickWindMouse(789, 10, 5, 5, True);
    Wait(500 + Random(1000));
    ClickWindMouse(701, 459, 2, 2, True);
    end;

// Color Finder
Procedure ColorFinder;
    Begin
    z:= 0;
    z:= (GetColor(134,389));
    Writeln(GetColor(134,389));
    m:= 0;
    end;

//loop 3e bank chest
Procedure WalkBack;
    Begin
    Writeln('Walk Back.');
    Writeln('Cannonballs Made:');
    Writeln(p);
    if FindColorTolerance(x,y,z, 134-3, 389-3, 134+3, 389+3, 1000) then
    ClickMouse(x, y, True) else
    Logout;
    Wait(6000 + random(200));
    end;
//first run to specify color of bank
Procedure FirstRunColorFind;
Begin
Writeln('First run to get colorcode.');
   ClickWindMouse(447, 310, 3, 2, True);
   Wait (850 + random(150));
   ClickWindMouse(423, 200, 2, 2, False);
   Wait (150 + random(250));
   ClickWindMouse(425, 245, 25, 3, True);
   Wait (300 + random(150));
   ClickWindMouse(549, 40, 5, 5, True);
   Wait (500 + random(150));
   ClickWindMouse(689, 231, 2, 2, True);
   Wait (6500 + random(250));
   ClickWindMouse(670, 278, 5, 5, True);
   Wait (500 + random(250));
   ClickWindMouse(402, 245, 2, 2, True);
   Wait (500 + random(500));
   ClickWindMouse(259, 524, 3, 3, True);
   Wait (28000);
   ColorFinder;
   WalkBack;
   end;

//welcome Message
begin
Writeln('-------------------------------------------');
Writeln('Neitiznot Cannonballsmither. Made by Olment');
Writeln('-------------------------------------------');
Writeln('Starting Bot');

//Calling Procedures
i:= 0;
FirstRunColorFind;
While (i < 25)
do
    Begin
    StartBank;
    CloseBank;
    Furnace;
    m:= m + 1;
          While (m > 3)
          do
          Begin
          ColorFinder;
          end;
    Smelting;
    WalkBack;
    i:= i + 1;
    end;
    CloseBank;
    Writeln('Ending Bot.');
    Logout;
End.

 

 

Have fun with Cballs again and earn lots of cash.

Please feedback if needed.

Edited January 19, 2012 by Freddy

[FHannes]

It's nice to see your scripting skills are improving If you have any questions you can't find an answer for in the documentation or on the forums, feel free to post or contact me. If you're missing documentation in the manual, you can also always suggest it in here: http://forums.scar-divi.com/showthread.php?245-SCAR-Divi-Manual

[jeed]

How is this script? Is it running smooth?

[ogustuce]

how can i make this work for gold ore instead of steel bar? change the color?

[kid cudix]

hey this looks really good does this still work and can u give more explanation on setting it up thanks

[BryceTheCoder]

uhhh.. can we take this off? its not too smart 0.0

[FHannes]

uhhh.. can we take this off? its not too smart 0.0

 

It's a script so it belongs here. If you don't think it's good you don't have to use it.