SCAR Code:
program New;
{.include SRL/SRL.scar}
Var Failed, x, y, Timer: Integer;
const
YourPin = '';
Procedure Spin;
begin
MarkTime(Timer);
repeat
Case Random(8) of
1: begin
MakeCompass('N');
end;
2: begin
MakeCompass('E');
end;
3: begin
Makecompass('W');
end;
4: begin
MakeCompass('s');
end;
end;
begin
Wait(250 + random(500));
end;
until (TimeFromMark(Timer) > 4000+random(1000))
end;
procedure AntiBan;
begin
if not (LoggedIn) then
exit;
case Random(200) of
0: HoverSkill('woodcutting', False);
1: PickUpMouse;
2: RandomMovement;
3: BoredHuman;
4: SleepAndMoveMouse(4000 + Random(3000));
5: begin
SetAngle(False);
Wait(500 + random(500));
SetAngle(True);
end;
6: begin
MakeCompass('e');
Wait(500 + random(500));
MakeCompass('n');
end;
7: MMouse(Random(x), Random(y), 1000, 1000);
8: Spin;
end;
end;
Procedure AntiRandoms;
begin
if not (loggedin) then
exit;
LampSkill := 'woodcutting';
end;
Procedure IfChoping;
begin
if not (LoggedIn) then
exit;
Wait(2000 + random(2000));
AntiBan;
AntiRandoms;
case random(20) of
1: Spin;
// 2: Talk;
3: AntiBan;
end;
end;
function FWillow: Boolean;
var
x, y : Integer;
begin
SetRun(True);
SymbolAccuracy := 0.5;
Result := FindSymbol(x, y, 'fish');
if Result then
begin
Writeln('Found fishing symbol!');
Mouse(x, y, 25, 25, True);
end else
begin
Writeln('Couldn''t find the fishing symbol');
end;
SymbolAccuracy := 0.8;
end;
Procedure CutWillows;
Var Failed, Clr: Integer;
begin
if not(loggedin) then
exit;
if (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) then
repeat
AntiBan;
AntiRandoms;
FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])
GetMousePos(x,y);
Wait(50 + random(150));
if (random(20) = 5) then
begin
mouse(x, y, 6, 6, false);
Wait(50 + random(150));
ChooseOption('hop');
end else
begin
mouse(x, y, 6, 6, true);
end;
Clr := GetColor(x, y);
while Clr = GetColor(x, y) do
Wait(100 + Random(100));
if not (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) then
FWillow;
AntiBan;
if not (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) then
repeat
Inc(Failed);
AntiBan;
Wait(5000 + random(5000));
until (FindObjTPA(x, y, 1982002, 7, 1, 17, 17, 15, ['illow'])) or (Failed = 5);
until not (LoggedIn) or (InvFull);
end;
Procedure FBank;
begin
MakeCompass('N');
if RadialWalk(65536, 0, 70, 65, -1, 0) then
begin
Writeln('found bank');
end else
Writeln('cant find bank');
end;
Procedure AtBank;
begin
OpenBankQuiet('db');
Wait(1000 + random(1000));
if (PinScreen) then
begin
InPin(YourPin);
Wait(1000 + random(1000));
end;
case lowercase(Players[CurrentPlayer].Strings[1]) of
'true': begin
DepositAll;
CloseBank;
end else
begin
Deposit(2, 28, True);
CloseBank;
end;
end;
end;
begin
SetupSRL;
CutWillows;
end.
Well thanks