Air crafter + Banker

Any one know where I can find one of these. I swear the exist.

 

{.include sslibrary.txt}
{.include par.txt}
{.include BoxBreaker2.txt}

Var Trips: Integer;

Const
{===========================CHANGE THESE=============================}
Username = 'username';
Password = 'password';
TripLimit = 50; //how many trips j00 wanna do?
Pouches = 1; // 1 for not use pouches, 2 for use small and medium puches
{====================================================================}

{=========================COLORS IN SCARSCAPE========================}
Roadcolor = 5592411;
Treemap = 90625;
AlterOutside = 4606016;
AlterInside = 5066833;
Bankicon = 3060683;
AirRune = 14869221;
Portal = 6194316;
{====================================================================}

Procedure Randoms;
Begin
Login(Username,Password);
Check4Randoms;
Check4Lamp('mining');
FindStrangeBox;
End;

Procedure toalter;
Begin
Wait(200+Random(1000));
If(FindColorSpiral(x,y,Roadcolor,621,109,634,131))Then
Begin
Mouse(x,y,2,2,true); Flag;
End;
End;

Procedure toalter2;
Begin
Repeat
FindColorSpiral(x,y,Roadcolor,642,142,655,155)
Mouse(x,y,2,2,true); Flag;
Until(FindColorSpiral(x,y,Treemap,578,62,641,124))
End;

Procedure toalter3;
Begin
Findcolorspiral(x,y,Treemap,578,62,641,124)
Mouse(x-10,y,4,4,True); Flag;
Mouse(623,121,4,4,True); Flag;
Mouse(621,126,4,4,True); Flag;
End;


Procedure EnterRuin;
Begin
Findobj('Enter',AlterOutside,0)
Mouse(x,y,0,0,True); Flag;
Wait(2500+random(2000))
End;

Procedure ExitRuin;
begin
repeat
Findobj('Use',Portal,5)
Mouse(x,y,2,2,True)
repeat
Wait(500+random(250))
until(Not(findcolorspiraltolerance(x,y,Portal,10,10,502,328,5)))
until(Not(findcolorspiraltolerance(x,y,Portal,10,10,502,328,5)))
end;

Procedure MakeAirsPouches;
Begin
If(FindObj('Craft',AlterInside,2)) Then
Mouse(x,y,4,4,True)
repeat
wait(150+random(350))
until(InventoryCount=3)
Mouse(585,230,0,0,False);
ClickText(550,200,740,460,'Empty',2);
Mouse(620,230,0,0,False);
ClickText(550,200,740,460,'Empty',2);
Wait(1000+Random(1000));
ExitRuin;
End;


Procedure MakeAirs;

Begin
If(FindObj('Craft',AlterInside,2)) Then
Mouse(x,y,4,4,True)
Flag;
repeat
wait(150+random(350))
until(InventoryCount=1)
wait(1000+Random(1000));
ExitRuin;
end;

Procedure backtobank;
Begin
repeat
Wait(500+random(250))
until(Not(findcolorspiraltolerance(x,y,Portal,10,10,502,328,5)))
Mouse(660,33,2,2,True) Flag;
Mouse(685,60,2,2,True) Flag;
FindColorSpiral(x,y,Roadcolor,664,55,712,104)
Mouse(x,y,0,0,True) Flag;
End;

Procedure backtobank2;
Begin
Repeat
FindColorSpiral(x,y,Roadcolor,634,28,666,61)
Mouse(x,y,0,0,True); Flag;
Until(FindColorSpiral(x,y,Bankicon,585,19,715,148))
End;

Procedure bank3;
Begin
FindColorSpiral(x,y,Bankicon,585,19,715,148)
Mouse(x,y,0,0,True)
Flag;
End;

Procedure BankairsPouches;
Begin
Randoms;
repeat
OpenBank;
until (bankscreen)
if(findcolorspiraltolerance(x,y,AirRune,559,199,760,458,5)) Then;
Mouse(x,y,1,1,False)
ClickText(550,200,740,460,'All',2);
Wait(1000+Random(1000));
Withdraw(1,1,26);
CloseWindow;
wait(600+random(100))
Mouse(650,185,4,4,True); Wait(250);
Mouse(585,230,4,4,True); Wait(250);
Mouse(620,230,4,4,True); Wait(250);
repeat
OpenBank;
until(bankscreen)
Withdraw(1,1,9);
repeat
wait(100)
until(InventoryCount=28)
CloseWindow;
Randoms;
End;

Procedure Bankairs;

Begin
Randoms;
repeat
OpenBank;
until (bankscreen)
if(findcolorspiraltolerance(x,y,AirRune,559,199,760,458,5)) Then;
begin
Mouse(x,y,1,1,False)
ClickText(550,200,740,460,'All',2);
end;
repeat
wait(150+random(150))
until(InventoryCount=0)
Withdraw(1,1,28);
wait(500)
CloseWindow;
wait(500)
end;

Begin
Wait(1500);
LoadLibrary('Mozilla FireFox');
BoxOpenerSetup;
Randoms;
Repeat
Run(true);
toalter;
toalter2;
toalter3;
EnterRuin;
if(Pouches=1)then
begin
MakeAirs;
end;
if(Pouches=2) Then
begin
MakeAirsPouches;
end;
Run(true);
backtobank;
backtobank2;
bank3;
if(Pouches=1) Then
begin
Bankairs;
end;
if(Pouches=2) Then
begin
BankAirsPouches;
end;
Trips:=Trips+1;
Until(TripLimit=Trips)
Logout;
Writeln('You have succesfully done '+inttostr(TripLimit)+' Trips')
End.

 

that may work idk

 

{=========================================================================]
[ Alex's Air Crafter ]
[ ]
[ NAME : Alex's air crafter ]
[ WRITER : ~alex~ ]
[ CATEGORY : Runecrafting ]
[ DESCRIPTION : Air Rune crafter ]
[ AUTOCOLOR : Yes ]
[ NOTES : MUST WEAR A TIARA -- DO *NOT* USE A TALISMAN ]
[ Thanks to Icefire908 for edited enterRcAlter ]
[ function. Also thanks to Spermis for testing ]
[ CONTACT : [email protected] ]
[ ]
[ ]
[=========================================================================]
[ ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in DeclarePlayers. ]
[ 4. SET HOWMANYPLAYERS inside DeclarePlayers ]
[ 5. Set StartPlayer and essToCraft ]
[ 6. Make sure Ess is in 1st bank slot. Use pure or normal ess. ]
[ 7. Start in fally west bank, or with fally west bank in sight. ] ]
[=========================================================================}


program AlexsAirCrafter;
{.include srl/srl.scar}
var
bankbooth1,bankbooth2,bankbooth3,rclvl,totalAirs,Airseach:integer;
esscrafted,esstobecrafted,noOfbanks,airalter,attempt,walkattempts,airAlter2:integer;
clickedbank:boolean;

//******************** Set These Constants *******************//

const StartPlayer = 0; // Determines who will play first
Const essToCraft = 562; // Number of ess to craft before switching Player.

//**********************RuneScape Constants*******************************//


//************************************************************************//
const VersionNumber = '1.2'; // Compliant with Rev 568+
//************************************************************************//

Procedure DeclarePlayers;
begin
HowManyPlayers :=6; // Set Number of Players here.
NumberOfPlayers(6); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='bank';
Players[0].Skill:='runecrafting';
Players[0].Active:=True;

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='bank';
Players[1].Skill:='runecrafting';
Players[1].Active:=false;

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Bank';
Players[2].Skill:='';
Players[2].Active:=false;

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Bank';
Players[3].Skill:='';
Players[3].Active:=false;

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Bank';
Players[4].Skill:='';
Players[4].Active:=false;

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Bank';
Players[5].Skill:='';
Players[5].Active:=false;

writeln(inttostr(HowManyPlayers)+' Players');

end;

procedure PlayerStats;

var Active: string;
var i: Integer;
begin
writeln('**********************************************');
writeln('Name : '+ Players[CurrentPlayer].Name);
writeln('Runecrafting Level : '+ inttostr(getskilllevel('runecrafting')));
writeln('Select Skill : '+ Players[CurrentPlayer].Skill);
writeln('Essence Crafted: '+inttostr(esscrafted))
writeln('Number Of Banks: '+ inttostr(esscrafted/28))
writeln('Number Of Airs Crafted:= '+inttostr(totalairs))
writeln('Worked for : '+ inttostr(Players[CurrentPlayer].Worked)+' minutes.');
if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
writeln('Active : '+ Active);
writeln('**********************************************');

for i := 0 to HowManyPlayers-1 do
begin
if Players.Active=True then Active:='True' else Active:='False';
writeln( (inttostr(i))+' : '+Players.name+ ' = '+Active+'. - Lvl : '+inttostr(Players.Level[15])+
'. - B :'+inttostr(Players.Banked)+' Times.'+
' - : '+IntToStr(Players.Worked)+' mins.'+' - Loc: '+Players.loc);
end
writeln('**********************************************');
end;

//************************************************************************//

procedure ProgressReport;
begin
begin
WriteLn(' ');
WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
SRLRandomsReport;
Writeln(' ');
end;
PlayerStats;
end;

procedure randoms;
begin
findnormalrandoms;
if findfight then
begin
runawaydirection('N');
wait(3000+random(1000));
runback;
end;
end;

{****************************Enter RC Alter*************************************}
function EnterRCAlter: Boolean; //Made By SRL Edited by Icefire90 edited again bye Me
var
cx, cy, c,c2: Integer;
begin
repeat
if (not (LoggedIn)) then
Exit;
repeat
c := c + 1;
if (not (LoggedIn)) then
Exit;
Wait(25);
if (c > 100) then
begin
Result := False;
Exit;
end;
until (FindMSColorTol(cx, cy, 6243878, 20));
MMouse(cx, cy+c2, 0, 0);
Wait(300 + random(160));
c2:=c2+5
until (IsUpText('Mysterious ruins'));
Mouse(cx, cy+c2, 1, 1, true);
result:=true
Players[CurrentPlayer].loc := 'Inaltar'
randoms;
end;

procedure doAntiBan;
begin
leavescreenevery(2)
Hoverevery(3,'Runecrafting')
pickupmouseevery(1)
boredevery(3)
RandomChatevery(5)
end;

{***************************Custom Bank Opener*********************************}
function bankOpener : boolean;

var
tolerance:integer;
found:boolean;
begin
bankBooth1 := BitmapFromString(13, 9, 'z78DAADCD490E8340104' +
'3D12BF550D8AE65D3C3FD8F14225004A291B260F356D6379D010B' +
'770B2370D687BB1B2B3338B1D1A0B3320AA598575FB455B14E245' +
'7D4896245BBD839302E0E0586BB1E9518272665A64308CC17B93D' +
'DB446DFFCB4497FFECAAC4839C38D4A8BB256AD045288FD72CA8F' +
'6ED063376C0F4E4BE99D8D02D1D3A86F5478166F52FF77284ACBC' +
'E50733879C1F');

bankBooth2 := BitmapFromString(11, 1, 'z78DAB33034B33071B4A' +
'0800400DD030E45');

bankBooth3 := BitmapFromString(14, 1, 'z78DA3335333132B2302' +
'582347204626CA4AB913310229100E65111DD');

makecompass('N')
tolerance:=10
repeat
repeat
if (findbitmaptolerancein(bankBooth1,x,y,msx1,msy1,msx2,msy2,tolerance)) or
(findbitmaptolerancein(bankBooth2,x,y,msx1,msy1,msx2,msy2,tolerance)) or
(findbitmaptolerancein(bankBooth3,x,y,msx1,msy1,msx2,msy2,tolerance)) then
begin
mmouse(x,y,3,3)
tolerance := tolerance + 1
if (isuptextmulti('booth','ank','nk bo')) then
begin
found := true
end;
end;
if tolerance >=250 then
begin
writeln('Could not find booth')
result:=false
exit;
end;
until((found = true) or not(loggedin))



if (not (loggedin)) then
begin
loginplayer
end;

if found then
begin
mouse(x,y,4,4,false)
if clickoption('Use-quickly',1) then
begin
result:=true
clickedbank:=true
flag;
end else
begin
clickoption('Cancel',1)
clickedbank:=false
end;
end else
begin
writeln('Could not find bank')
result:=false
end;
until(clickedbank=true)
freebitmap(bankbooth1)
freebitmap(bankbooth2)
freebitmap(bankbooth3)
end;


{*********************Deposit All And Withdraw Essence***********************}
procedure depositrunes;
begin
if players[currentplayer].loc = 'bank' then
begin
setrun(true)
highestangle
makecompass('N')
if esscrafted >= esstocraft then
begin
writeln('All ess crafted! Next player.')
esscrafted:=0
totalairs:=0
nextplayer(false)
end else
if findcolortolerance(x,y,6082797,mmx1,mmy1,mmx2,mmy2,50) then //bank symbol
begin
mouse(x,y + 8,0,0,true)
randoms;
makecompass('n')
flag;
if bankopener then
begin
writeln('bank opener done')
flag;
wait(3000+random(400))
if pinscreen then
begin
writeln('Detected pin screen, please remove pin')
totalairs:=0
esscrafted:=0
nextplayer(true)
end else
depositall;
fixbank;
mouse(89,69,1,1,false)
wait(100)
clickoption('All',1)
closebank;
highestangle
makecompass('n')
players[currentplayer].loc:='walking to'
end else
begin
writeln('Problem finding bank booth, next player')
esscrafted:=0
totalairs:=0
nextplayer(true)
end;
end else
begin
writeln('We got lost . Next player')
esscrafted:=0
nextplayer(false)
end;
end;
end;


{**************************Walk From Bank To Alter****************************}
procedure walkto;
var cy,cx:integer;
alterentered:boolean;

begin
if players[currentplayer].loc ='walking to' then
RadialRoadWalk(findfallyRoadColor, 195, 250, 59, 1, 1);
setrun(true)
flag;
randoms;
RadialRoadWalk(findfallyRoadColor, 171, 197, 70, 1, 1);
flag;
randoms;
mouse(614,130,5,5,true)
//RadialRoadWalk(RoadColor, 156, 205, 70, 1, 1);
flag;
randoms;
//if findsymbol(x,y,'tree') then
if findcolortolerance(x,y,1742607,mmx1,mmy1,692,127,50) then
begin
mouse(x,y,5,5,true)
flag;
randoms;
RadialWalkex( x, y, MMCX, MMCY, 2328932, 50, 175, 185, 70);
mouse(x,y,0,0,true)
flag;
randoms;
// radialwalkex(x,y,MMCX,MMCY,2129749,25,285,255,70)
// mouse(x+25,y+25,0,0,true)
walkattempts:=0
repeat
begin
if not loggedin then break;

mouse(57,235,3,3,false)
clickoption('Walk here',1)
flag;
walkattempts:=walkattempts+1
if enterrcalter then
begin
alterentered:= true
break;
end;

if walkattempts >= 5 then
begin
writeln('Could not find Mysterious Ruins')
esscrafted:=0
totalairs:=0
nextplayer(false)
exit;
end;
end;
until(false);

flag;
randoms;
if alterentered = true then
begin
walkattempts:=0
flag;
randoms;
wait(3000+random(1000))
esstobecrafted:=(invcount)
// makecompass('w')
//if findobj(x, y, 'Altar', 5001047, 5) then
{airAlter := BitmapFromString(15, 23, 'z78DA85555B92C42008BC' +
'5222EA249F93D7FD8FB40D888198DD2D6A8883D060AB58A63CE53' +
'92F0FFD699A67A73239BB58828FE8C25EBB22149EFF9405DFA369' +
'B6EC1EBFF9886E985E1CE6ADCBAC3A13ED74E50B919B43F6F5B41' +
'A42CD4FFC1928956A26E05D32DEF83F44C7A2DDACD9533A68C6B7' +
'D0D77B0EB10D59AADD4CABC56574FE23B278B6585743408E19632' +
'E135A28D19C13FCBE433D865C0764AEA484B5D781B1050264607F' +
'AD5A8770731298214A673A3DBEF8EFDE13161E337E11FCF317F6A' +
'AAFBFD957428AC8E483ABED374EDE981C62A5FE373EC5F38593F7' +
'331076D609A33FF9B1A87F76339C37DC8215E77FC5CC24BA8DE90' +
'4437C6B52AE6A975BC65107622FCC548D7D9C2EDD1164D75968E2' +
'FE50F446AFA61B3EDFD1EF9FC8B6776E4572C7BBDCF587B51032E' +
'C016DE064B4F80AA3E60AFD8AE0BFCA3EEC69A74F3AD2816E91F9' +
'1C623F6A3E911D6BC3AFF5C63ADDBD4EC775C277635DE7DE033B3' +
'E7D2033FAD68E7F0724E7135284B1DAF9ECC88606A4AA63DF5DC5' +
'5ECC53C796DD6A50BB74C5457BE34BD402591953EC8BD37D5D2E6' +
'3F5B11AA5DD5571D4C7D08C07C37C54EEB4AFBCD7DCDE0E5B4BD4' +
'D133EEC2CD9ECEFAECAAF58D885CDD0C3F91636C5CE3732FDA4B1' +
'4EB716BEC63C377BA33DC7DFCEE8F2B72FE75C852FD2BDCD18613' +
'7B47FD003B03B432'); }

airAlter2 := BitmapFromString(8, 10, 'z78DA658E510E03210844' +
'AF4414D8EDAF35BDFF910A1D14DCC6F024300C0809F1B078F1C59' +
'D7BFF58BCFBB0D0A046A5B5D966554283EE31A5F9A03F898DB9D7' +
'D8D9B3C5AB9024DE6336DCCA14C167F3D8181E43496E110B32168' +
'7FF3B7103F43FAABA6A3E2A2BDFB41F1CBB7E4E65C5E89778EE7A' +
'5CB5BAF0A9FAF48CFBEFF429DBA15174BF253E63E5');
repeat
if findbitmaptolerancein(airAlter2,x,y,msx1,msy1,msx2,msy2,50) then
mmouse(x,y,4,4)
attempt:= attempt+1

if attempts>15 then
begin
writeln('could not find altar. next player.')
esscrafted:=0
totalairs:=0
nextplayer(false)
exit;
end;
until(isuptext('Altar'))
rclvl:= Getskilllevel('Runecrafting')
writeln('Runecrafting level'+inttostr(rclvl))
freebitmap(airalter)

if (rclvl < 11) then
begin
airseach := 1;
end;
if (rclvl >= 11) then
begin
airseach := 2;
end;
if (rclvl >= 22) then
begin
airseach := 3;
end;
if (rclvl >= 33) then
begin
airseach := 4;
end;
if (rclvl >= 44) then
begin
airseach := 5;
end;
if (rclvl >= 55) then
begin
airseach := 6;
end;
if (rclvl >= 66) then
begin
airseach := 7;
end;
if (rclvl >= 77) then
begin
airseach := 8;
end;
if (rclvl >= 88) then
begin
airseach := 9;
end;
if (rclvl = 99) then
begin
airseach := 10;
end;
writeln(inttostr(airseach))
totalairs:= (esstobecrafted*airseach)+totalairs
esscrafted:=(invcount+esscrafted);
mouse(x,y,5,5,true)
setrun(true)
writeln('esscrafted')
makecompass('N')
randoms;
flag;
players[currentplayer].loc:='walking back'
esstobecrafted:=0
if esscrafted >= esstocraft then
begin
writeln('All ess crafted! Next player.')
esscrafted:=0
totalairs:=0
nextplayer(false)
end else

end else
begin
writeln('Could not find mysterious ruins')
esscrafted:=0
totalairs:=0
nextplayer(false)
end;
end;
end;

{************************Walk From Alter To Bank********************************}
procedure walkback;
begin
if players[currentplayer].loc = 'walking back' then

if esscrafted >= esstocraft then
begin
writeln('All ess crafted! Next player.')
esscrafted:=0
nextplayer(true)

end else
if findobj(x,y,'Portal',8037804,6) then
begin
mouse(x,y,2,2,true)
flag;
wait(2500+random(500))
radialwalkex(x,y,MMCX,MMCY,2130799,80,30, 50, 70)
writeln('doing that shitty walk that has fucked up')
mouse(x,y,0,0,true)
wait(4000+random(600))
randoms;
flag;

if (findcolortolerance(x,y,1742607,mmx1,mmy1,692,127,50)) or (FindSymbol(x,y,'Tree')) then //tree symbol
begin
mouse(x,y,0,0,true)
randoms;
flag;
RadialRoadWalk(findfallyRoadColor, 385, 400, 70, 1, 1)
randoms;
flag;
{ RadialRoadWalk(findfallyRoadColor, 345,395 , 70, 1, 1);
randoms;
wait(1000+random(500))
flag;
RadialRoadWalk(findfallyRoadColor, 345, 385, 70,1,1);
randoms;
wait(1000+random(500))
flag;
randoms; }

repeat //Credit to rader720 for this loop
RadialRoadWalk(findfallyRoadColor, 345,380 , 70, 1, 1);
randoms;
wait(1000+random(500))
flag;
walkattempts:=walkattempts+1
until(findcolortolerance(x,y,6082797,mmx1,mmy1,mmx2,mmy2,50)or (walkattempts>4))
if (walkattempts>4) then
begin
nextplayer(true);
end;
if (walkattempts<4) then
begin
walkattempts:=0
randoms;
players[currentplayer].loc:='bank'
end;
if findcolortolerance(x,y,6082797,mmx1,mmy1,mmx2,mmy2,50) then
begin
players[currentplayer].loc:='bank'
end else
begin
writeln('we got lost ')
esscrafted:=0
totalairs:=0
nextplayer(false)
end;

end; {else
writeln('Could not find tree symbol. Switching player.')
totalairs:=0
esscrafted:=0
nextplayer(false)}
end; //else
{ writeln('Could not find portal. Switching player.')
totalairs:=0
esscrafted:=0
nextplayer(false) }

end;


{*******************************Main Loop**********************************}
begin
setupsrl;
DeclarePlayers;
DisguiseScar('Internet Explorer')
activateclient;
LoginPlayer;
doantiban
makecompass('N')
highestangle;

repeat
if players[currentplayer].loc = 'bank' then
begin
depositrunes;
end;

if players[currentplayer].loc ='walking to' then
begin
walkto;
end;

if players[currentplayer].loc ='walking back' then
begin
walkback;
end;
progressreport;
until(false)
end.

 

plz DON'T use that one, it's a very old one and i'm sure you'll get banned in 2 hours, even less!!
EDIT: next time put it in code / script tags plz D

 

Thread is 2 months old.