SCAR Code:
program DraynorNetter;
{.include SRL/SRL.scar}
var
tx,ty,x,y,fishishishy,xxx,loads : Integer;
Const
FishColor = 15917268;
BankKolor = 607064;
Loads1 = 1;
RunDirection = ('n');
Procedure DeclarePlayers;
begin
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 3;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'ssl'; //3 - 4 letters of YOUR username, example: sern
Players[0].Active :=True;
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'ser'; //3 - 4 letters of YOUR username, example: sern
Players[1].Active :=False;
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'ser'; //3 - 4 letters of YOUR username, example: sern
Players[2].Active :=False;
Players[3].Name := 'Username';
Players[3].Pass := 'Password';
Players[3].Nick := 'ser'; //3 - 4 letters of YOUR username, example: sern
Players[3].Active :=False;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Procedure LoadDTMs;
begin
Fishishishy := DTMFromString('78DA639CC1C4C0F094010CB82014C39C8E5A8' +
'6FF409A1188FF0301633B50CD230634C08844026990391F09A8E9' +
'02AA794D40CD12A09A2704D4CC02AAB94D404D1F50CD7BFC6A008' +
'C6B1127');
end;
Procedure stay;
begin
Wait(15000+random(3000));
end;
procedure WalkToFish;
begin
RadialWalk( FindWaterColor , 245, 216, 65, 2, 2);
if(FindSymbol(tx, ty, 'fish'))Then
Begin
Mouse(tx, ty, 5, 5, True);
Flag;
end;
Writeln('fsaddsafsdafsafsdfsad');
end;
procedure StartFishin;
begin
repeat
if (FindObj(x,y,'Fish',FishColor,15)) then
begin
if(IsUpText('Fish')) then
begin
Mouse(x,y,3,3,True);
Stay;
end else
if (not(FindObj(x,y,'Fish',FishColor,15))) then
begin
Writeln('Could Not Find A Fishing Spot, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
procedure WalkToBank;
begin
RadialWalk(FindRoadColor,0,45,66,2,2);
if(FindSymbol(tx, ty, 'bank')) Then
begin
Mouse(tx,ty,3,3,True);
end;
end;
procedure BankFish;
begin
repeat
begin
if(FindDTM(Fishishishy,x,y,550,200,740,470)) then
begin
Mouse(x,y,2,2,False)
Wait(500+random(500))
ChooseOption('All')
xxx:=xxx+1
Loads:=Loads+1
end;
end;
until(xxx=3)
CloseBank;
end;
procedure OpenDaBank;
begin
repeat
begin
if (FindObj(x,y,'boot',BankKolor,15)) then
begin
if IsUpText('boot')then
begin
Wait(300+random(200));
ClickMouse(x,y,False)
wait(300+random(100));
ChooseOption('uick')
Flag;
xxx:=xxx+1
end;
end;
end;
Until(BankScreen) or (xxx = 5)
end;
procedure wannachange;
begin
if(Loads=Loads1)then
begin
NextPlayer(False);
Loads:=0;
HighestAngle;
MakeCompass('N');
DeclarePlayers;
Writeln('Sucessfully switched characters.)');
end;
If(not(LoggedIn)) then
begin
NextPlayer(False);
Loads:=0;
HighestAngle;
MakeCompass('N');
DeclarePlayers;
Writeln('Sucessfully switched characters.)');
end;
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 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;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure Randoms;
begin
WannaChange;
FindFastRandoms;
FindNormalRandoms;
if FindFight then
begin
Runto(RunDirection, True);
wait(8000+random(5000));
RunBack;
end;
end;
begin
DeclarePlayers;
SetupSRL;
ActivateClient;
LoadDTMs;
repeat
WalkToFish;
StartFishin;
WalkToBank;
OpenDaBank;
BankFish;
until(false);
end.
SCAR Code:
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var
x,y,Logs,Loads: integer;
const
RunDirection = ('n'); //Direction to run if you find a fight.
Loads1 = 1; //How many loads to do before switching characters?
WillowColor = 6196611; //Change only if it won't find the tree
OakColor = 4492928; //Change only if it won't find the tree
TreeColor = 3042660; //Change only if it won't find the tree
Other = 1191213; //Currently Set To Yews. Change at lines 481-503.
RandomChat = 2; //Do you want to say random things? 1=yes 2=no
Procedure DeclarePlayers;
begin
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 3;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := 'oco'; //3 - 4 letters of YOUR username, example: sern
Players[0].Active :=True;
Players[0].Strings[0] := 'Test';// Tree,Oak,Willow,Other
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := 'own'; //3 - 4 letters of YOUR username, example: sern
Players[1].Active :=True;
Players[1].Strings[0] := 'Test';
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := 'xtrm'; //3 - 4 letters of YOUR username, example: sern
Players[2].Active :=False;
Players[2].Strings[0] := 'Test';
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := 'on5'; //3 - 4 letters of YOUR username, example: sern
Players[3].Active :=True;
Players[0].Strings[0] := 'Test';
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure LoadDTMs;
begin
Logs := DTMFromString('78DA639CCEC4C0F09C010C7821144380BB34C' +
'37F20CD08C4FF8180B107A8E62E031A60442281743B50CD0B026A' +
'BA816ADE12503315A8E63D01354B816A9E1250331FA8E60D0135F' +
'3806A6E12503309A8E60E7E3500D6561333');
end;
procedure Stay;
begin
wait(450+random(150));
end;
procedure StayLonger;
begin
wait(10000+random(3000));
end;
procedure wannachange;
begin
if(Loads=Loads1)then
begin
NextPlayer(False);
Loads:=0;
HighestAngle;
MakeCompass('N');
DeclarePlayers;
Writeln('Sucessfully switched characters.)');
end;
If(not(LoggedIn)) then
begin
NextPlayer(False);
Loads:=0;
HighestAngle;
MakeCompass('N');
DeclarePlayers;
Writeln('Sucessfully switched characters.)');
end;
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 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;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure Randoms;
begin
FindFastRandoms;
FindNormalRandoms;
if FindFight then
begin
Runto(RunDirection, True);
StayLonger;
RunBack;
end;
If(findent(x, y, True))then
begin
RunAwayDirection('N')
Wait(10000+random(2000))
runback;
end
end;
procedure DropEm;
var w: integer;
Begin
randoms;
repeat
If(FindDTM(Logs,x,y,550,200,740,470)) then
Mouse(x,y,3,3,False)
Stay;
ChooseOption('rop');
Stay;
w:=w+1
Randoms;
until not(FindDTM(Logs,x,y,550,200,740,470)) or (w=28)
w:=0
Loads:=loads+1
end;
Procedure AntiBan;
Begin
Case Random(15) of
1: MMouse(300,300,300,300);
2: AlmostLogOut;
3: begin
HoverSkill('Woodcutting', False);
stay;
Mouse(643,184,5,5,True);
end;
4: MMouse(300,300,300,300);
5: Begin
HoverSkill('Woodcutting', False);
stay;
Mouse(643,184,5,5,True);
end;
6: Begin
LowestAngle;
MakeCompass('s');
HighestAngle;
MakeCompass('n');
end;
7: begin
MakeCompass('w')
MakeCompass('s')
MakeCompass('e')
MakeCompass('n')
end;
8: begin
MakeCompass('e')
MakeCompass('s')
MakeCompass('w')
MakeCompass('n')
end;
9: begin
if(RandomChat=1) then
Case Random(20) of
1: begin
TypeSend('WHO WANTS BACON?');
end;
2: begin
TypeSend('I lost my hamster to the sea.');
end;
3: begin
Typesend('Never Abuse Slow Motion.');
end;
4: begin
TypeSend('Im not random, Im creative.');
end;
5: Begin
TypeSend('Im curious, does that make me a monkey?');
end;
6: begin
TypeSend('iPor Suquesto!');
end;
7: begin
TypeSend('Mi gusta comer');
end;
8: begin
TypeSend('Im a homeless man with a laptop');
end;
9: begin
TypeSend('Im to cool to talk to you nubz');
end;
10: begin
TypeSend('Im to cool to talk to you nubz');
end;
11: begin
TypeSend('I keep six pounds of bacon in my pocket at all times');
end;
12: begin
TypeSend('I have a terrorism mood ring.');
end;
13: begin
TypeSend('I beat puppies.');
stay;
TypeSend('With kittens.');
end;
14: Begin
TypeSend('Dead Puppies arent much fun.');
end;
15: begin
TypeSend('All must obey abysslord.');
Stay;
TypeSend('Not kidding here. Obey him.');
end;
16: begin
TypeSend('How do you feel about paper plates?');
end;
17: begin
TypeSend('I have found that you can find happiness in slavery.');
end;
18: begin
TypeSend('Press 777 if you boil bacon grease in your spare time.');
stay;
TypeSend('Anyone who presses 777 needs to go jump off a cliff.');
end;
19: begin
TypeSend('I cant find my shoes..... T_T');
end;
20: begin
Typesend('Twenty french calling gold rings.....nvm.');
end;
21: begin
TypeSend('I will not obey!');
end;
22: begin
TypeSend('Hey, this isnt war veterans online....');
end;
23: begin
TypeSend('***** *** ********** ** * ****');
end;
24: begin
TypeSend('Right to bear arms really means you can wear short sleeve shirts');
end;
25: begin
TypeSend('Mircosoft Sam');
end;
26: begin
TypeSend('Im getting really bored now....');
end;
27: begin
TypeSend('Flip Flop Flip Flop Flip');
end;
28: begin
TypeSend('Find the logic in what im saying.');
stay;
TypeSend('Its there you just gotta look harder.');
end;
29: begin
TypeSend('Beat to death with a shoe');
end;
30: begin
TypeSend('What happens in vegas stays in vegas.');
end;
end;
end;
10: begin
if(RandomChat=1) then
Case Random(20) of
1: begin
TypeSend('WHO WANTS BACON?');
end;
2: begin
TypeSend('I lost my hamster to the sea.');
end;
3: begin
Typesend('Never Abuse Slow Motion.');
end;
4: begin
TypeSend('Im not random, Im creative.');
end;
5: Begin
TypeSend('Im curious, does that make me a monkey?');
end;
6: begin
TypeSend('iPor Suquesto!');
end;
7: begin
TypeSend('Mi gusta comer');
end;
8: begin
TypeSend('Im a homeless man with a laptop');
end;
9: begin
TypeSend('Im to cool to talk to you nubz');
end;
10: begin
TypeSend('Im to cool to talk to you nubz');
end;
11: begin
TypeSend('I keep six pounds of bacon in my pocket at all times');
end;
12: begin
TypeSend('I have a terrorism mood ring.');
end;
13: begin
TypeSend('I beat puppies.');
stay;
TypeSend('With kittens.');
end;
14: Begin
TypeSend('Dead Puppies arent much fun.');
end;
15: begin
TypeSend('All must obey abysslord.');
Stay;
TypeSend('Not kidding here. Obey him.');
end;
16: begin
TypeSend('How do you feel about paper plates?');
end;
17: begin
TypeSend('I have found that you can find happiness in slavery.');
end;
18: begin
TypeSend('Press 777 if you boil bacon grease in your spare time.');
stay;
TypeSend('Anyone who presses 777 needs to go jump off a cliff.');
end;
19: begin
TypeSend('I cant find my shoes..... T_T');
end;
20: begin
Typesend('Twenty french calling gold rings.....nvm.');
end;
21: begin
TypeSend('I will not obey!');
end;
22: begin
TypeSend('Hey, this isnt war veterans online....');
end;
23: begin
TypeSend('***** *** ********** ** * ****');
end;
24: begin
TypeSend('Right to bear arms really means you can wear short sleeve shirts');
end;
25: begin
TypeSend('Mircosoft Sam');
end;
26: begin
TypeSend('Im getting really bored now....');
end;
27: begin
TypeSend('Flip Flop Flip Flop Flip');
end;
28: begin
TypeSend('Find the logic in what im saying.');
stay;
TypeSend('Its there you just gotta look harder.');
end;
29: begin
TypeSend('Beat to death with a shoe');
end;
30: begin
TypeSend('What happens in vegas stays in vegas.');
end;
end;
end;
end;
end;
procedure CutTrees;
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Tree',TreeColor,15)) then
begin
if(IsUpText('Tree')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
Stay;
end;
end else
if (not(FindObj(x,y,'Tree',TreeColor,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
procedure CutOaks;
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Oak',OakColor,15)) then
begin
if(IsUpText('Oak')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
StayLonger;
end;
end else
if (not(FindObj(x,y,'Oak',OakColor,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
procedure CutWillows;
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Will',WillowColor,15)) then
begin
if(IsUpText('Will')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
StayLonger;
end;
end else
if (not(FindObj(x,y,'Will',WillowColor,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
procedure CutOthers;
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Yew',Other,15)) then
begin
if(IsUpText('Yew')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
StayLonger;
end;
end else
if (not(FindObj(x,y,'Yew',Other,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
Procedure CutItDown;
begin
If (Players[CurrentPlayer].strings[0] = 'tree') then
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Tree',TreeColor,15)) then
begin
if(IsUpText('Tree')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
Stay;
end;
end else
if (not(FindObj(x,y,'Tree',TreeColor,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
If (Players[CurrentPlayer].strings[0] = 'Oak') then
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Oak',OakColor,15)) then
begin
if(IsUpText('Oak')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
StayLonger;
end;
end else
if (not(FindObj(x,y,'Oak',OakColor,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
If (Players[CurrentPlayer].strings[0] = 'Willow') then
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Will',WillowColor,15)) then
begin
if(IsUpText('Will')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
StayLonger;
end;
end else
if (not(FindObj(x,y,'Will',WillowColor,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
If (Players[CurrentPlayer].strings[0] = 'Other') then
begin
repeat
Randoms;
begin
if (FindObj(x,y,'Yew',Other,15)) then
begin
if(IsUpText('Yew')) then
begin
Mouse(x,y,3,3,True)
Randoms;
Antiban;
Randoms;
StayLonger;
end;
end else
if (not(FindObj(x,y,'Yew',Other,15))) then
begin
Writeln('Could Not Find A Tree, Switching Characters')
NextPlayer(False);
end;
end;
Until(InvFull);
end;
if Players[CurrentPlayer].Strings[0] = 'Test' then
begin
TypeSend('ThisWorks');
end;
end;
var
www : integer;
Begin
DeclarePlayers;
SetupSRL;
LoadDTMs;
ActivateClient;
if www = 0 then
begin
If(not(LoggedIn)) then
begin
NextPlayer(True);
Loads:=0;
HighestAngle;
MakeCompass('N');
Writeln('Sucessfully switched characters.)');
www:=www+56
end;
end;
repeat
WannaChange;
CutItDown;
Randoms;
DropEm;
Loads:=Loads+1
until(False);
end.