SCAR Code:
program DraynorCutta;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/woodcutting.scar}
const
BankSymbolColor=11250352;
willowcolor1=2902351;
willowcolor2=3686456;
willowcolor3=2971728;
loadsperplayer=2;
PickWielded=true;
var
logs : integer; Trees : integer; loads : integer; tries : integer;
var
frmDesign : TForm;
Start : TButton;
Procedure DeclarePlayers;
begin
HowManyPlayers :=3; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';;
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=false;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=false;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=false;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
writeln(inttostr(HowManyPlayers)+' Players');
end;
procedure LoadDtms;
begin;
Logs:= DTMFromString('78DA63F460626078CA80021C2CC5C1342394C' +
'F180854731B558DAB2D9A9A60A09AD7A86AFC5C2551D53801D5BC' +
'4355939F668BAAC606D33D9E4E68E63802D5DC455563652282A20' +
'60013200B2C');
end;
Procedure ProgressReport;
begin;
Writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
Writeln('Willow cutter in draynor by Dritar progress report:');
Writeln('Cutted '+ IntToStr(trees) + ' Trees');
Writeln('Did '+ intToStr(loads) + ' loads');
Writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
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 PrepCharacter;
begin
Activateclient;
wait(30)
MakeCompass('N');
wait(30)
setchat('Hide',1)
setchat('friends',2)
setchat('off',3)
highestangle;
end;
procedure ToTrees;
begin
setrun(true)
case random(3) of
0: Mouse(640,125,2,2,true);
1: Mouse(628,126,2,2,true);
2: Mouse(645,144,2,2,true);
3: Mouse(621,117,2,2,true);
end
end;
procedure Antirandoms;
begin
If(findFight = true)then
begin
RunAwayDirection('N')
wait(10000+random(3000))
Runback;
If(findent(willowcolor1))or
(findent(willowcolor2))or
(findent(willowcolor3))then
begin
RunAwayDirection('N')
Wait(10000+random(2000))
runback;
end
end
end;
Procedure FastRandoms;
begin;
FindFastRandoms;
FindNormalRandoms;
end;
Procedure Antiban;
begin
case random(20) of
1 : RandomRClick;
2 : GameTab(1 + random(7));
3 : Boredhuman;
4 : Almostlogout;
5 : HoverSkill('woodcutting',false);
Wait(2222+random(333))
6 : PickupMouse
7 : LowestAnge;
Wait(5+random(5))
end
end;
Procedure CutTrees;
begin
wait(6000+random(2000))
repeat
AntiRandoms2;
FindHead;
If(findcolortolerance(x,y,willowcolor1,25,26,473,310,5))or
(findcolortolerance(x,y,willowcolor2,25,26,473,310,5))or
(findcolortolerance(x,y,willowcolor3,25,26,473,310,5))then
begin
Mmouse(x,y,2,2);
If(IsUpText('illow'))then
begin
Mouse(x,y,2,2,false)
AntiRandoms1;
chooseoption(x,y,'own')
wait(4000+random(3000))
end
end;
Until(InvFull)
end;
Procedure AutoResponder;
If(InChat('Hi'))Or(InChat('Hello')Or(InChat('hey')Or(InChat('hay')Or(InChat('sup')Or(InChat('yo'))Then
Begin
Case 1+Random(2) Of
1: TypeSend('Hi');
2: TypeSend('Hello');
3: TypeSend('Hey!');
4: TypeSend('sup?');
5: TypeSend('yo');
6: TypeSend('whats up?');
7: TypeSend('hey m8');
2: TypeSend('Hallo..');
If(InChat('Macro'))Or(InChat('bot')Or(InChat('hack')Or(InChat('autoer')Or(InChat('are you macroing')Or(InChat('macrobot'))Then
Case 1+Random(2) Of
1: TypeSend('No, im not');
2: TypeSend('Im a person, not a bot :/');
3: TypeSend('Why do you think so?');
4: TypeSend('Why would i?');
5: TypeSend('No, im not man');
6: TypeSend('NO!!!');
7: TypeSend('No way mate');
8: TypeSend('Whats this?');
If(InChat('WC'))Or(InChat('Woodcutting?')Or(InChat('lvl')Or(InChat('wc lvl')Or(InChat('level')Or(InChat('woodcutting'))Then
Case 1+Random(2) Of
1: TypeSend (IntToStr(Players[CurrentPlayer].Level[15]);
2: TypeSend (IntToStr(Players[CurrentPlayer].Level[15] + 'You?';
3: TypeSend (IntToStr(Players[CurrentPlayer].Level[15])+ 'lol';
4: TypeSend ('Currently ' +IntToStr(Players[CurrentPlayer].Level[15]);
('right now ' +IntToStr(Players[CurrentPlayer].Level[15]);
5: TypeSend ('soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
6: TypeSend ('very soon ' +IntToStr(Players[CurrentPlayer].Level[15]+1);
7: TypeSend ('secret');
8: TypeSend ('ask me later');
9: TypeSend ('ill tell you when i get level');
Result:= True; //More to be added in ver 2.0
End;
End
Procedure ToBank;
begin;
If(findSymbol(x,y,'bank'))then
begin
Mouse(x,y,2,2,true)
Wait(5000+random(2000))
end else
begin
If(FindColorTolerance(x,y,banksymbolcolor,582,24,700,125,5))then
Mouse(x,y,2,2,true)
wait(5000+random(2000))
end
end;
Procedure Bank;
begin;
repeat
openbank3
wait(200+random(300));
tries:= tries + 1;
until(tries = 20);
makecompass('w')
repeat
openbank3;
wait(200+random(300))
until(bankscreen)
end;
procedure BankLogs;
begin
If(Pickwielded=true)then
DepositAll;
If(pickwielded=false)then
Deposit(2,28,2)
trees:= trees + 28;
loads:= loads + 1;
end;
begin;
setupsrl;
sig;
repeat
toTrees;
CutTrees;
tobank;
opendabank;
bankwillows;
until(loads=loadsperplayer)
ProgressReport;
NextPlayer(false);
end.
Can someone please fix it?To more prof