SCAR Code:
program HideTannerAndCrafter;
{.include srl/srl.scar}
const
HowMuchHides= 0;
var
x, y :integer;
Ground, Tan :integer;
TanColor, GroundColor, H, texthard, k :integer;
Procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :=''; // runescape username
Players[0].Pass :=''; // runescape password
Players[0].Nick :='ran'; // nick, 3 - 4 letters of username
Players[0].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[0].Active:=True; // active player
Players[1].Name :=''; // runescape username
Players[1].Pass :=''; // runescape password
Players[1].Nick :=''; // nick, 3 - 4 letters of username
Players[1].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[1].Active:=false; // active player
Players[2].Name :=''; // runescape username
Players[2].Pass :=''; // runescape password
Players[2].Nick :=''; // nick, 3 - 4 letters of username
Players[2].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[2].Active:=false; // active player
Players[3].Name :=''; // runescape username
Players[3].Pass :=''; // runescape password
Players[3].Nick :=''; // nick, 3 - 4 letters of username
Players[3].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[3].Active:=false; // active player
Players[4].Name :=''; // runescape username
Players[4].Pass :=''; // runescape password
Players[4].Nick :=''; // nick, 3 - 4 letters of username
Players[4].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[4].Active:=false; // active player
Players[5].Name :=''; // runescape username
Players[5].Pass :=''; // runescape password
Players[5].Nick :=''; // nick, 3 - 4 letters of username
Players[5].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[5].Active:=false; // active player
writeln(inttostr(HowManyPlayers)+' Players');
end;
{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}
{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;
end;
end;
function FindText1:boolean;
begin
texthard := BitmapFromString2(False, 'a83AB178DA758D410EC02' +
'00804BF4415108FA5D1FF3FA92E1E34317A1837C32A4444FD1B20' +
'B70115504C912B2DE3C8C20D26A32F053E19234B981EAF129AC5E' +
'1D505B9DB322DB69407A6A2AA2F3C4787729BF78DF37065CA3CB9' +
'4F77BF4FCF7CFBE1DCF203257');
repeat
if findbitmap(TextHard,X, y) then
begin
writeln('script status:running');
result:=true
end;
until(result=true) or (k=10)
end;
procedure GetHides;
begin
If Not LoggedIn Then Exit;
end;
procedure GetGroundcolor;
begin
Ground := BitmapFromString2(False, 'a319B178DA3DCC4112C0200' +
'803C02F5185408F4AF5FF4FAAE1E06527933088887CED20310E86' +
'52D7CDB0A00055362D94AB25DDD5D703BC9DFA73B34F5E7A1A1D6' +
'CA45BB9724D77FC543');
GroundColor:=AutoColorThis(Ground, 10000, MMX1, MMY1, MMX2, MMY2);
WriteLn('GroundColor: '+IntToStr(GroundColor));
FreeBitmap(Ground);
end;
procedure GetTanColor;
begin
tan := BitmapFromString2(False, 'a51C4C78DA45CC410E80300' +
'844D12B8DA543E9D26AB9FF91044C74F3F2432600C0DD02D81928' +
'2D64DFD9E89F34CD962B6C561766D3EB5E0FC6AAFD38B2EBC3AB2' +
'E66CF1A4D4F65DBA08ABAFF3E8FF');
TanColor:=AutoColorThis(Tan, 100, MMX1, MMY1, MMX2, MMY2);
WriteLn('TanColor: '+IntToStr(TanColor));
FreeBitmap(Tan);
end;
function ToHideTanner:boolean;
begin
GetGroundColor;
linearwalk(GroundColor,30,65,x,y);
wait(3000);
flag;
gettancolor;
radialroadwalk(Tancolor,180,360,60,0,0);
end;
function TalkToEllis:boolean;
begin
if not loggedin then exit;
repeat
X := X + 1
if (FindObj(x, y, 'llis', 3300743, 50)) then
begin
Mouse(x, y, 1, 1, false);
ChooseOption('ade');
markTime(H);
wait(1);
end;
until FindText1 or (X > 10)
begin
findtext1;
chooseoption('ll')
end;
end;
function ToBank:boolean;
begin
If Not LoggedIn Then Exit;
end;
procedure StoreTannedHides;
begin
If Not LoggedIn Then Exit;
end;
{====================]
mainloop
[====================}
begin
setupsrl;
activateclient;
//ToHideTanner;
TalkToEllis;
end.