Al-Karid Smelter V.1

[raden17]

Note its only its first version but need some other testing other then myself, so please post progress reports.... if i dont get any ill take it down.
But there is no anti randoms but so far ive ran it for about ten hours overall and never had any so shouldnt be that big of a deal.... and theres alittle antiban nothing much more coming soon, still working on my antiban function.

and dont pay attention to my post count, i used to script a few years back and just started to get back into playing....

{//////////////////////////////////////////////
/                                             /
/           RADEN17S AL-KARID SMELTER         /
/                                             /
///////////////////////////////////////////////
//////////Smelts iron and coal into////////////
////////////steel bars then banks//////////////
////////////////version 1.0////////////////////
/////////////////Directions:///////////////////
///////1.Put iron in 1st bank slot/////////////
///////2.Start with 18 coal then///////////////
///////////////10 iron in inventory////////////
///////3.Put coal in 2nd bank slot/////////////
///////4.Set camera angle all the way up///////
///////5.Set amount of loads and char info/////
///////6.select rs window and hit play/////////
///////7.ENJOY!///////////////////////////////}


program AlKararidSmelter;
{.include SRL/SRL.scar}
{.include srl/srl/skill/smithing.Scar}
  var x,y,barss,loadss,kababcolor:Integer;

const
LoadsToDo = 25;//number of loads to do until script ends.
 Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name         := '';// Your UserName
  Players[0].Pass         := '';// Your PassWord
  Players[0].Nick         := '';// Your Nick (3-4 letters from your username)
  Players[0].Active       := True;// Use this player ??}

  Players[1].Name         := '';      // Your UserName
  Players[1].Pass         := '';      // Your PassWord
  Players[1].Nick         := '';      // Your Nick (3-4 letters from your username)
  Players[1].Active       := false;    // Use this player ??
end;


procedure Setup;
begin
setupSRL;
SetUpSmithing;
  kababcolor:= getsymbolcolor(X,Y,'kebab shop');
  makecompass('n')
end ;

Procedure ToTheFurnace;

begin
writeln('Going to Furnace');
loadsymbolbitmapcolor('kebab shop');
loadsymbolbitmapcolor('furnace');
 kababcolor:= getsymbolcolor(X,Y,'kebab shop');
   SymbolAccuracy:=0.6;
writeln('finding symbol 1')
if not radialwalk(kababcolor,355,390,55,1,1)then
  begin
    Mouse(654,46,4,4,true)
    Flag;
    wait(100+random(200))
    writeln('we had to coord cliick')
  end;

  if findsymbol(X,Y,'furnace')Then
  begin
    Mouse(X,Y+6,6,3,TRUE)
    writeln('used symbol')
   flag;
    wait(500+random(300));
    EXIT;
  end else


   writeln('couldnt find furnace');
   logout;

end;




Procedure Smelting;
begin
 if not LoggedIn then Exit;
writeln('Smelting...');
FindFurnace(x,y);
mouse(X,Y,1,1,true);
wait(5000+random(300))
if smeltingscreen = true then
mouse(259,408,2,2,false);
wait(1000+random(400));
mouse(258,463,5,0,true);
wait(500+random(400));
gametab(2);
wait(1000+random(300))
hoverskill('smithing',false);
wait(9000+random(250));
gametab(4);
mmouse(580,300,6,6);
 barss:=barss+9;
loadss:=loadss+1;
repeat
wait(2000);

until isUpText('teel')


end;




Procedure Back2Bank;
begin
Status('Walking back to Bank');
 SymbolAccuracy:=0.6;
if not radialwalk(kababcolor,355,390,55,1,1)then
  begin
    Mouse(633,131,4,4,true)
    Flag;
    wait(100+random(200))
    writeln('we had to coord cliick')
  end;

if findsymbol(X,Y,'bank')then
begin

 Mouse(X,Y,1,1,true);
flag;
wait(110+random(100))
EXIT;
end else
 writeln('didnt find bank...logged');
 logout;
 end;
Procedure Banking;
begin
if not LoggedIn then Exit;
writeln('Banking...');
openbankfast('akb')
writeln('opened bank')
if bankscreen = true then
fixbank;
depositAll;
wait(1000+random(300));
withdraw(2,1,18) ;
wait(800+random(400));
withdraw(1,1,10);
 if invfull = true then
 closebank;
 
 

end;

Procedure Report;
Begin
cleardebug;
Writeln('=============================');
Writeln(' raden17s Al-Kharid Smelter ');
Writeln(' Smelted '+inttostr(barss)+' Steel Bars');
writeln(' Made '+inttostr(loadss)+'.');
Writeln(' Ran for '+(TimeRunning))
Writeln('============================');
end;

begin
 Setup
 Disguise('www.msn.com')
repeat

ToTheFurnace;

Smelting;
Back2Bank;

Banking;

Report;
until (not loggedin) or (loadss >= loadstodo)

end.

 

[cazax]

Why do you call DeclarePlayers if you don't even use it lol... Maybe add antiban and randoms? randoms are just FindNormalRandoms; and for antiban look at AntiBan.scar in SRL. good luck

 

[raden17]

Why do you call DeclarePlayers if you don't even use it lol... Maybe add antiban and randoms? randoms are just FindNormalRandoms; and for antiban look at AntiBan.scar in SRL. good luck

I had it set up to work but was being glitchy so took it out for release. And the anti ransoms from my srl wouldn't run properly and script was mainly for myself so took it out till got it fixed...and like I said working on my antiban. Which takes srls antibans and put into one function randomizing them little better.

 

[88yearold]

here is my report :\

=============================
raden17s Al-Kharid Smelter
Smelted 0 Steel Bars
Made 0.
Ran for 1 Minutes and 22 Seconds
============================
Successfully executed--------------------------naw dont think so

 

[LOLinFEVER]

yaa srsly dood, i had a worse report that 88yearoldd's, i was too lazy to post it.

Im not dissing tho, pm me as soon as u get the updated version, i'll be glad to test it =D keep on working, i may have leecher on mah rank, but i do show appreciation for others work (even tho it has 'fail' written all over it).