[srl] working cannonball smelter [srl]

hey all you C-Ball Smelters here it is the beta version
i just finished the basic script last night im taking a break, also this is my first script i tested for around 5-8 hours and the only problems it currently has is the colors are manual, and it is extremely hard to find the right main screen color for the furnace

! ! ! ! P L E A S E ! ! ! ! L E A V E ! ! ! ! F E E D B A C K ! ! ! !

if you wish to assist me in my quest to perfect this then please pm me as i will be selling the finished copy and you may be entitled to sell with me

this is my beta version so it is not extremely finished this is just the basic working motor functions and if you stay near your pc when you auto you will be fine just make sure your volume is up so you can hear when a random is trying to get your attention. im sorry for this and i will be working on it agian very soon.

problems: needs autocolor sometimes you cant get the right color should probally switch worlds or reload current world, no multiplayer, no antirandoms

all these problems will be addressed in the next few updates i will update one at a time, the autocolor update will be posted free, i will not release the multiplayer and antirandom procedures at the same time but will not be free

just give it a try make sure you follow color guidelines and you should be fine accept for furnace some times its impossible to get the right color.

Code:

//                    CannonBall Express                      //
//                                    BY Burnout             //






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



// CannonBall Express brought to you exclusively by Burnout //

//  do not attempt to edit this script accept where told to   //

//           or unless you have my explisit consent           //

//                     beta version                          //

//                    no antirandoms...                  //

//  no multiplayer and must set own colors will update soon  //

//       with many thanks to Town on sythe forums       //

//            must have inventory window up                  //

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

//                        loged in                           //

//  AND A SPECIAL THANKS GOES OUT TO "TOWN" FOR ALL HIS GUIDANCE //

//___________________________________________________________//
//___________________________________________________________//



//                you need to set your colors here                 //
const
mmfcolor=(2123772);///put the orange mini map furnace symbol color here///
mmbcolor=(5162984);///put the yellow mini map bank symbol color here///
mmrcolor=(231440);///put the green from the tinderbox symbol here(there is a strand of green in the tinderbox:f: ///
fcolor=(1451140);//set this to the red color on the north side of the furnace
bwcolor=(8750726);//the dark grey part above window glass



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




procedure WalkToFurnace1;
begin
 makecompass('n')
 if(findMMColortol(x,y,mmrcolor,8)) Then
 begin
 mmouse(x,y,1,1+random(15))
 mouse(x,y,1,1+random(15),true)
 wait(6000+random(2000));
if(findMMColortol(x,y,mmfcolor,8)) then
 mmouse(x,y,1,1)
 mouse(x,y,1,1,true)
 wait(5000+random(2000));
 MakeCompass('W')
end;
end;


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




procedure WalkTobank1;
begin
 makecompass('n')
 wait(1000+random(500));
 mouse(647,144,2,2,true)
 wait(5000+random(2000));
   if(findMMColortol(x,y,mmbcolor,8)) then
 mmouse(x,y,1,1)
 mouse(x,y,1,1,true)
 wait(6000+random(2000));
 MakeCompass('W')
end;




//                          smelter                         \\




procedure SmeltCBall;
begin
highestangle;
if (FindColorSpiralTolerance(x, y, fcolor, MSX1, MSY1, MSX2, MSY2, 30))then
  MMouse(x, y, 2, 2)
  Mouse(x+Random(15), y, 2, 2, true)
  repeat
  findnormalrandoms;
 wait(200+random(100));
 mouseitem(28,true)
 wait(500+random(500));
  MMouse(272, 108, 2, 2)
  Mouse(272, 108, 5, 5, true)
  wait(1500+random(1000));
  mmouse(256,442,1,1)
  mouse(256,442,2,2,true)
  wait(2000+random(1500));
  until (not(existsitem(28)))
end;




//                     ammount to withdraw                  //



 procedure withdrawbars;
begin
mmouse(94,77,2,2)
mouse(94,77,2,2,false)
Wait(100);
mmouse(78,145,0,10);
mouse(78,145,0,10,true);
      FFlag(0);
      Wait(200 + Random(500));
      mmouse(485,41,2,2)
      mouse(485,41,2,2,true)
  end;
  
  
  

//                         opening bank                            //




procedure openbankfast;
begin
lowestangle;
if Findmscolortol(x,y, bwcolor,4) then
  begin
    MMouse(x, y, 4, 4);
    if IsUpTextMulti('ank', 'booth', 'ooth') then
    begin
      Mouse(x, y, 0, 0, False);
      Wait(100);
      ChooseOption(x, y, 'uickly');
      FFlag(0);
      Wait(2000 + Random(500));
      end;
      highestangle;
    end;
  end;




//               checking if items are in inventory               //




Function CheckIfInInv: Boolean;
begin
 if(not(existsitem(28))) then Result:= False
end;




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


begin
 setupsrl;
  activateclient;
  wait(1000);
  MakeCompass('w')
  openbankfast;
  withdrawbars;
 repeat
   CheckIfInInv;
   walktofurnace1;
   smeltcball;
  walktobank1;
  openbankfast;
  fixbank;
  withdrawbars;
 until(false)
end.

 

I Tested It Last Night And Worked Extremely Well For What It Is Very Little Mistakes Only Mistake Is In The Colors, Well The Main Screen Furnace Color

 

this should b goo im a noob but i caz get some scrips working lol good job

 

good job thanks man!

 

I don't recommened using this script, it's somekinda like outdated, no updated since march.
plz look at the date of the thrad to see how old it is, it also still uses srl 3.6
So, CONCLUSION:
DO's:
-Search another one

DONT's:
-use this one