SCAR Code:
program New;
{.include SRL/SRL.scar}
var
X, Y, Loads, VarockSand, VarockSandColor, TheaSeller, Times, startskill, endskill : integer;
const
Load= 5;//how many loads to do..
//dont use this srl thingy is a bit outdated
drop=false;//IF THIS IS TRUE IT WONT BANK THE CUP OF THEA
//dont change this only if its clicks to fast at stealing
TimeToWait=5500;//
procedure LoadBitmap;
begin
VarockSand := BitmapFromString2(False, 'a14F8678DACD8DC10D0' +
'02108045B0205C1A7776AFF259D8B0F132BB8CF64334C0211B135' +
'5A94B4584C165506767E4186D782463B58A49D86A237BFFBB86E9' +
'F3C1AC55567418384ACC736C6AE50A613A6666C7EC0964FB33F36' +
'B9FBB86E4F1526A5E1D559FB9FF901944');
TheaSeller := BitmapFromString2(False, 'a1A88A78DADD913B0E8' +
'4300C05AFE47C9C989218FBFE475ABF64056D68B658172334F290' +
'088828E54631063696200F081618AE065FCFC7983C9CA6150D66A' +
'9308C67F6E933DED3077C9BFB6D30D813FC596ED3B3DEFC9A0371' +
'4E934DE510E6EB3FE8E6960A48F6BA5257CACE1EDFE88A21DA6A5' +
'735699745A5317B2D7E21A575D6AA96D9BFF9DA7F5BFD861F7BE');
end;
{===============================================]
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;
procedure GetVarockSandColor;
begin
LoadBitmap;
FindFastRandoms;
VarockSandColor:=AutoColorThis(VarockSand, 100, MMX1, MMY1, MMX2, MMY2);
WriteLN('VarockSandColor: '+IntToStr(VarockSandColor));
FreeBitmap(VarockSand);
end;
procedure StealFromTheaStall;
begin
Makecompass('E');
lowestangle;
GameTab(4);
repeat
FindFastRandoms;
if findcolorspiraltolerance(X,Y,9677753, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,8618893, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,9611703, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,1591648, MSX1, MSY1, MSX2, MSY2, 10) then
begin
MMouse(x,y,0,0);
Mouse(x,y,0,0,False);
if ChooseOption('rom') then
begin
WriteLN('did steal the stall');
end;
if invfull then
exit;
else
wait(TimeToWait + random (233));
end;
until(InvFull);
if (InvFull) then
begin
Loads :=Loads + 1
end;
end;
procedure ToBank;
begin
MakeCompass('N');
SetRun(true);
Highestangle;
FindVarrockRoadColor;
FindFastRandoms;
if FindBank('veb')then
begin
Exit;
end else
FindFastRandoms;
RadialRoadWalk(VarockSandColor,340,10,70,0,0);
FindBank('veb');
end;
procedure HandleBank;
begin
DepositAll;
Closebank;
if (invfull) then
begin
OpenBankQuiet('veb');
DepositAll;
Closebank;
end;
end;
Procedure ToTheaStall;
begin
Setrun(true);
GetVarockSandColor;
RadialRoadWalk(VarockSandColor,90,160,65,0,0);
Wait(3000 + random(500));
repeat
FindFastRandoms;
Times:=Times + 1
if FindBitmapToleranceIn(TheaSeller,x,y,MMX1,MMY1,MMX2,MMY2,25) then
begin
Mouse(x,y,0,0,true);
wait(1);
Flag;
while Flag do
wait(1);
FlagPresent;
if FlagPresent Then
wait(2500+random(200));
end;
until(Times=10)
FreeBitmap(TheaSeller);
end;
procedure proggy;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads did : ' +TimeRunning);
WriteLN('//thieving-level was'+inttostr(startskill)+'');
WriteLN('//thieving-level is now'+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;
procedure SetupClient;
begin
ActivateClient;
Wait(1000);
GameTab(2);
startskill:=GetSkillLevel('thieving');
GameTab(4);
MakeCompass('N');
Highestangle;
end;
{===============]
mainloop
[===============}
begin
SetupSRL;
SetupClient
repeat
if drop then
begin
FindFastRandoms;
stealfromtheastall;
FindFastRandoms;
dropall;
end else
ToTheaStall;
FindFastRandoms;
stealfromtheastall;
toBank;
handlebank;
Proggy;
until(loads=load)
endskill:=GetSkillLevel('thieving');
Proggy;
end.