• Log in or sign up for an account here: https://www.sythe.org/login

i need huge help

  • Thread starter Thread starter slaya halo
  • Start date Start date
S

slaya halo

Guest
i need help with the autobots no matter what i try i can never get one to work can someone give me a step by step procces for using a autobot and giving me one to use. i need the following
auto picker/ spinner
runecrafter
woodcutter
minner and
fisher

o and i was reserching on these thing and found a program for a runecrafting auto bot tell me if this is any good and plese teach me how to use it

http://www.srl-forums.com/forum/air-crafter-t8939.html


{=========================================================================]
[ 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 :D ]
[ 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 :D
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.
 
Ill help you with Jmacro. It has lots of good scripts.

You got msn or aim?
 
no i dont i have olny email how long will it take me to make a aim acc?
 
You must log in or register to reply here.

Similar threads

hm0ng
 
  • Locked
Reported Post by hm0ng
Replies
1
Views
63
cp
cp
G
 
help with essence script
Replies
6
Views
306
gansster82
G
G
 
Need Big help for flax picker
Replies
2
Views
272
gummies1
G
V
Exclamation
need help with S.C.A.R scripting
Replies
4
Views
409
Evo_02
E
O
 
Somone please Help me
Replies
3
Views
684
ironblade87
ironblade87
Runescape Gamblingrunescape gambling
Back
Top