SCAR Code:
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
////////////////////////////////////////////////////////////////////////////////
// Joelster134's Nardah Chocolate Buyer/Banker \\
////////////////////////////////////////////////////////////////////////////////
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
////////////////////////////////////////////////////////////////////////////////
// Features: Dtm's,RadialWalk,Anti-Ban,Anti-Randoms \\
////////////////////////////////////////////////////////////////////////////////
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
////////////////////////////////////////////////////////////////////////////////
// Credits: Joelster134 ,Cazax (fixing Quest icon walk') ,and Dervish (standards) \\
////////////////////////////////////////////////////////////////////////////////
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
////////////////////////////////////////////////////////////////////////////////
// Instructions: 1. Start with money in 1st inv inside Nardah Bank \\
// 2. Hit run and enjoy!! //
// 3. Have Chocolate bars in Second Bank slot 1st tab \\
////////////////////////////////////////////////////////////////////////////////
program Nardah_Chocolate_Buyer_Banker;
{.Include SRL/SRL.Scar}
const
SRL_ID = '8675'; //Your SRL STATS id\\
SRL_Pass = 'blah'; //Your SRL STATS PW\\
SkinColor = 3821675;//Pelt color near Nardah Bank\\
QuestColor= 14929325;//Quest icon color\\
var x,y,Runs,RunsLeft,Times,loads,elapse: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers:= 1; //Set to appropiate players\\
NumberOfPlayers(HowManyPlayers);
Players[0].Name:='sqe'; //username\\
Players[0].Pass:='fdskills'; //Password \\
Players[0].Nick:='ls'; //Nickname here 3-4 letters no nums \\
Players[0].Active:= True; //Are you using this player? \\
Players[0].Worked:= 1000; //How Many Loads of chocolate Bars yummy =D\\
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
if FindFight=True then
begin
RunAway('S',True,1,5000+Random(1000));
end;
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case(Random(30)) of
1: RandomRClick;
5: HoverSkill('Theiving',False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(40+Random(35));
24: PickUpMouse;
27: begin
GameTab(1+Random(12));
Wait(3220 + Random(2415));
GameTab(4);
end;
30:SleepAndMoveMouse(3600);
end;
end;
procedure WalkToGenStore;
begin
if (not(LoggedIn))then Exit;
GameTab(7);
if FindColorTolerance(x, y, SkinColor, MIX1, MIY1, MIX2, MIY2, 0)then
begin //You forgot this one =)
MMouse(x,y,2,2);
Wait(200+Random(100));
Mouse(x,y,2,2,True);
Writeln('Walking to Pelt');
AntiBan;
AntiRandoms;
Wait(2000+random(1000)); //Fused 2
end;
if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
begin
MMouse(x,y,2,2);
Wait(200+Random(100));
Mouse(x,y,2,2,True);
Writeln('walking to quest icon');
AntiRandoms;
Wait(1500+random(1000));
end;
if not FindSymbol(X, Y, 'quest') then
Begin
Writeln('Could not find Color terminating script');
Logout;
End;
end;
procedure WalkToWaterUsingRadialWalkorDtm;
var
RoadColors : integer;
begin
if not (LoggedIn) then Exit;
if not(LowerCase(Players[CurrentPlayer].loc)='WalkToWaterUsingRadialWalkOrDtm') then Exit;
RoadColors := FindDirtRoadColor; //FindNardahRoadColor;
SetRun(true);
Wait(100+Random(50));
GameTab(4);
begin
Writeln('no symbol - RadialWalk time');
Wait(100);
RadialRoadWalk(RoadColors, 707, 221, 36, 1, 1);
AntiBan;
AntiRandoms;
end;
if FindSymbol(x,y,'water') then
begin
Mouse(x,y,1,1,true);
FFlag(1);
AntiRandoms;
Wait(175+Random(50));
Players[CurrentPlayer].loc:='water';
end;
end;
function TradeWithRokuh: Boolean;
var
x,y,Mark,Check:Integer;
begin
if FindObjCustom(x,y,['Ro','uh','oku'],[6848411,5726573,12766167],3)then
begin
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
AntiRandoms;
if not ChooseOption('rade') then Exit;
Flag;
MarkTime(Mark);
Wait(2 * 500 + Random(500));
AntiBan;
AntiRandoms;
if HPPercent < 25 then RunTo('N', true);
Wait(300);
AntiRandoms;
Result := True;
end;
end;
function BuyChocolateBars: Boolean;
var
x,y,ChocolateBarDTM: Integer;
begin
ChocolateBarDTM:= DTMFromString('78DA6334616460B003622460A6280CA661A20' +
'0158700E1');
if FindDTM(ChocolateBarDTM,x,y,MSX1,MSY1,MSX2,MSY2)then
begin
Mouse(x,y,0,0,False);
Wait(250+Random(150));
if ChooseOption('uy 10')then
begin
AntiRandoms;
begin
Flag;
Result :=True;
AntiRandoms;
end;
end;
end;
end;
procedure ScriptTerminate;// not necessary
begin
//FreeDTM(ChocolateBarDTM); <-- this does not exist
end;
procedure WalkToBank;
begin
if (not(LoggedIn))then Exit;
GameTab(7);
if FindColorTolerance(x,y,QuestColor,MIX1,MIY1,MIX2,MIY2,0)then
begin
MMouse(x,y,2,2);
Wait(200+Random(100));
Mouse(x,y,2,2,True);
Writeln('Walking to QuestIcon');
AntiBan;
AntiRandoms;
Wait(2000+random(1000));
end;
if FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
begin
MMouse(x,y,2,2);
Wait(200+Random(100));
Mouse(x,y,2,2,True);
Writeln('Walking to Pelt');
AntiBan;
AntiRandoms;
Wait(1000+Random(300));
Wait(1000+Random(500));
end;
if not FindColorTolerance(x,y,SkinColor,MIX1,MIY1,MIX2,MIY2,0)then
begin
Writeln('Could not find Color terminating script');
Logout;
//ProgressReport; <-- does not exist either
end;
end;
procedure BankingChocolateBars;
var
z,s : integer;
begin
if not(LoggedIn) then //changed a lill here...
begin
Exit;
end;
AntiRandoms;
AntiBan;
if Random(15)=5 then
begin
HoverSkill('Firemaking',False);
end;
MakeCompass('n');
if FindColorTolerance(x,y,GetSymbolColor(x,y,'bank'),MMX1,MMY1,MMX2,MMY2,40) then
begin
Mouse(x-3,y-3,2,2,True);
//Time := (GetTimeRunning+13000+Random(2000)); Pointless?
repeat
Wait(100);
AntiRandoms;
until((gettimerunning>time) or (flagpresent=false));
AntiRandoms;
repeat
OpenBank('db',False,False);
wait(100);
AntiRandoms;
until((BankScreen=True) or (LoggedIn=False))
if BankScreen=True then
begin
deposit(2,28,true);
wait(100+random(100));
closebank;
loads:=loads+1;
converttime(gettimerunning,z,x,s);
writeln('$$$$$$$$$Chocolate buyer/banker V1$$$$');
writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
writeln('$$$$$$$$$ Loads Completed!: ' + inttostr(loads));
writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
writeln('$$$$$$$$$~~~~~~Chocolate buyer made by joelster134!~~~~~~$$$$$$$$$!');
end;
end;
end;
begin
ClearDebug;
SetupSRL;
ActivateClient;
LampSkill:='woodcutting';
DeclarePlayers;
CurrentPlayer:=0;
Loads:=0;
Logout;
CloseFile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',True));
LoginPlayer;
//repeat
SetAngle(True);
elapse:=gettimerunning+2700000+random(1800000);
{if (InvFull) then
begin
BankingWillows; //WHAT THE FUCK?!!!! xD
end; }
repeat
WalkToGenStore;
WalkToWaterUsingRadialWalkOrDtm;
TradeWithRokuh;
BuyChocolateBars;
WalkToBank;
BankingChocolateBars;
until((gettimerunning>elapse) or (loggedin=false))
logout;
currentplayer:=currentplayer+1;
if currentplayer>=howmanyplayers then
begin
currentplayer:=0;
end;
if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
begin
loginplayer;
players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
end;
nextplayer(true);
end.