SCAR Code:
// start between the two oaks in draynor near the bank
program OakOwner;
{.Include SRL/SRL.Scar}
var
LoadsToDo : Integer;
const
OakColor = 2251082;// Oak color
HowManyLoads = 10;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//name of the char
Players[0].Pass :='';//pass of the char
Players[0].Nick :='';//3-4 letters of the char
Players[0].Active:=True;
end;
{Procedure : RandomHoverMMouse)}
{Author : U L T R A.}
{Description : Randomly moves the mouse somewhere.}
Procedure RandomHoverMMouse;
Begin
Case Random(6)Of
0:MMouse(random(250), random(250), 10, 10);
1:MMouse(random(100), random(100), 50, 50);
2:MMouse(random(50), random(50), 150, 150);
3:MMouse(100, 100, 150, 150);
4:MMouse(300, 300, 100, 100);
5:MMouse(200, 200, 50, 50);
end;
end;
{end of U L T R A's Procedure}
procedure Starting;
begin
MakeCompass('S');
GameTab (4);
end;
function FindNormalRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then // Call it twice
Result := True;
11: if FindLamp(LampSkill) then // Maybe we missed it?
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
13: if FindTrade then
Result := True;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
15: SaveToChatLog;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;
procedure LittleAutoResponce;
begin
If(FindChatText('Hi'))then
begin
TypeSend('Ik spreek geen Engels');
If(FindChatText('Wc lvl?')then
begin
TypeSend('Beter dan de jouwe');
end;
end;
procedure LetzChopp;
var
x,y : Integer
begin
if (FindColor(x,y,OakColor,82,52,420,207)then
begin
Mouse(x,y,1,1,true);
repeat
until (InvCount=28);
end;
end;
Procedure WalkToBank;
var x,y : Integer;
begin
SymbolAccuracy := 0.5;
if FindSymbol(x,y'bank') then
Mouse(x,y,5,5,True);
SymbolAccuracy := 0.8;
flag;
end;
Procedure BankItems;
begin
OpenBankFast('db');
wait(100);
Deposit(2,28,2);
wait(100);
CloseBank;
end;
Procedure WalkToTheOak;
begin
MakeCompass('S');
wait(500);
if RadialWalk(1330976,596,59,597,96,1) then;
begin
Writeln('oak found!');
and else
writeln('could not find the oak ..');
TerminateScript;
end;
end;
begin
SetUpSRL;
DeclarePLayers;
LoginPlayer;
ActivateClient;
DeclarePlayers;
RandomHoverMMouse;
Starting;
FindNormalRandoms;
LittleAutoResponce;
repeat
LetzChopp;
WalkToBank;
BankItems;
WalkToTheOak;
until (LoadsToDo >= HowManyLoads)
end.