SCAR Code:
program Seers_Yew_Cutter;
{.include SRl/SRl.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Delcare Players //////////////////
/////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers (HowManyPlayers);
CurrentPlayer :=0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Integers[0]:= 100; //Loads to Do;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[1].Integers[0]:= 100; //Loads to Do;
end;
var x, y, YewNum, Banke, Maples: integer;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz AntiBan //////////////////////////
/////////////////////////////////////////////////////////////////////
Procedure AntiBans;
Begin
Case Random (60) of
0: HoverSkill('woodcutting', false);
1: DoEmote(1 + Random(20));
2: AlmostLogout;
3: BoredHuman;
4: RandomMovement;
5: PickUpMouse;
6: RandomRClick;
end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz randoms //////////////////////////
/////////////////////////////////////////////////////////////////////
Procedure Randoms;
begin
FindTalk;
FindNormalRandoms;
FindLamp('Woodcutting');
FindEnt(x, y, true);
SolvePinball;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Ent//// //////////////////////////
/////////////////////////////////////////////////////////////////////
procedure EntFinder; //By Yohojo - edited by bobbo
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
if (not (LoggedIn)) then
Exit;
begin
Status('Ent Checking')
if
(FindObjCustom(EX, EY, ['Yew'], [4690821], 7)) then
begin
MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Status('Found Ent');
MarkTime(SafeEntWait)
repeat
FTWait(5)
FindNormalRandoms;
if not (LoggedIn) then
NextPlayer(False);
until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
end;
end;
end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz RandomTalk ///////////////////////
/////////////////////////////////////////////////////////////////////
procedure TalkSomeCome;
var
P: Integer;
begin
if (not(LoggedIn)) then
Exit;
p:=1+Random(35);
if (p=4) then
begin
case Random(21) of
0: TypeSend('hey all');
1: TypeSend('sigh yews take so long to cut');
2: TypeSend('hellooo people');
3: TypeSend('hay');
4: TypeSend(''+IntToStr(800+Random(1200))+' more');
5: TypeSend('i should pic flax sooon');
6: TypeSend('boring');
7: TypeSend('boo!');
8: TypeSend('_');
9: TypeSend('booooooooring');
10: TypeSend('yay');
11: TypeSend('ouch');
12: TypeSend('_');
13: TypeSend('blah.');
14: TypeSend('quiet');
15: TypeSend('<(>_<)>---shothpark');
16: TypeSend('_');
17: TypeSend('_');
18: TypeSend('<(^_^)>');
19: TypeSend('_');
20: TypeSend('argh a monster !');
end;
end;
end;
//[-jesus-]'s chooseclick
Function ChooseClick: Integer;
begin
Case random(5) of
0,1: begin
Mouse(x, y, 4, 4, true);
end;
2,3,4: begin
Mouse(x, y, 4, 4, false);
ChooseOption('hop');
end;
end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz ChopYew //////////////////////////
/////////////////////////////////////////////////////////////////////
procedure ChopYew;
begin
If (Not (LoggedIn)) then NextPlayer(false);
begin
MakeCompass ('S')
SetAngle(True);
repeat
If FindObj(x, y 'Yew' ChooseColor, 6 then;
ChooseClick
Attempts := Attempts +1;
If (Attempts >100) then
begin
Writeln ('could not find yews');
Attempts := 0;
Nexplayer(false)
end;
Wait( 1500+random(1200));
Else
TalkingTo;
Randoms;
EntFinder;
FindEnt(x, y, True);
Wait (1333 +andom (2300));
AntiBans
EntFinder
FindEnt (x, y, True);
Randoms
Until FindText (x, y, 'too full', SmallChars, 9 ,346, 279, 459) o (InvFull;
end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Walk Tree ////////////////////////
/////////////////////////////////////////////////////////////////////
procedure WalkTrees;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=43;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000) then Exit;
until (FindColor(x, y, TreeSymb, MMX1, B, MMX2, B));
Mouse(x+25+random(1), y-35, 1, 1, true);
FFlag(2);
end;
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Random Chat //////////////////////
/////////////////////////////////////////////////////////////////////
Procedure RandomChat;
Var
Text: String;
Begin
if (not(LoggedIn)) then
Exit;
A:=1+Random(32)
If (A=9)Or(A=20) Then
Begin
Begin
Case random(58) Of
00: Text:='gah this is so boring';
01: Text:='i bet ive got more yews then u';
03: Text:='farming lvls?';
04: Text:='im going for a million yews!';
05: Text:='im goin for a billion yews ';
06: Text:='gah i hate all the dumb noob lvl 3s';
07: Text:='this is my flax field everyone leave';
08: Text:='so much yews';
09: Text:='selling yews in bank only 5000 haha each!';
10: Text:='free YEWES!!! haha jk';
11: Text:='ill kill any1 who steals my yews';
12: Text:='maybe i should sell this yews now';
13: Text:='maybe il sell yews later at the GE ';
14: Text:='ur all noobs';
15: Text:='boring.....';
16: Text:='what times it there?';
17: Text:='asdfghjk;';
18: Text:='qwertyuiop[]';
19: Text:='zxcvbnm,./';
20: Text:='look @ my cards: []]]]]]]]]]]]]]]]]]';
21: Text:='pick a card []]]]]]]]]]]]]]]]]]]]]]';
22: Text:='im so sad my cat died today';
23: Text:='my dog died today ';
24: Text:='i got a pet dog today =)';
25: Text:='i have a dog, how bout you?';
26: Text:='i have a cat, how about you?';
27: Text:='i got a pet cat today but it bit me lol';
28: Text:='lol noob';
29: Text:='i own all you';
30: Text:='blahh so bored lol';
31: Text:='press 111 if youo like pures';
32: Text:='who likes wcing?';
33: Text:='who likes kiing monsters?';
34: Text:='why does this take so long';
35: Text:='why doesnt jagex put a bank in the middle of here?';
36: Text:='i want to do a minigame soon';
37: Text:='-.- so bored';
38: Text:='cutting yews is boring =(';
39: Text:='Firefox is so awsome';
40: Text:='i hate internet explorer';
41: Text:='i hate windows';
42: Text:='yall should use firefox';
43: Text:='i hate internet explorer';
44: Text:='linux is awsome';
45: Text:='whos your fav band?';
46: Text:='ipods are so cool';
47: Text:='i wanna get an iphone there kewl';
48: Text:='gahh i think my computer got viruses';
49: Text:='im infected with yew madness';
50: Text:='go awasas n33bs';
51: Text:='lollolllll so bored';
52: Text:='white:loading... please wait';
53: Text:='white:connection lost... attempting to reestablish';
54: Text:='nice legs';
55: Text:='yews take so long';
56: Text:='green:||||||||||||||';
57: Text:='red:||||||||||||||';
End;
End;
TypeSend(Text);
Wait(50+Random(100));
End;
End;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz RandomP ///////////////////////
/////////////////////////////////////////////////////////////////////
Procedure RandomP;
Var
m: Integer;
Begin
If (Not(LoggedIn)) Then
Exit;
m:=MouseSpeed;
MouseSpeed:=7+Random(2);
Case Random(7) Of
0: ;
1: MMMouse(MSX1, MSY1, MSX2, MSY2);
2: ;
3: ;
4: ;
5: MMMouse(MIX1, MIY1, MIX2, MIY2);
6: ;
End;
MouseSpeed:=m;
End;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz Talking to ///////////////////////
/////////////////////////////////////////////////////////////////////
Procedure TalkingTo;
Begin
if (not(LoggedIn)) then
Exit;
A:=1+Random(7)
If (A=3) Then
Begin
Case Random(11) Of
0: RandomChat;
1: RandomP;
2: ;
3: ;
4: ;
5: RandomChat;
6: ;
7: RandomP;
8: ;
8: RandomP;
10: ;
End;
End;
End;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz banking //////////////////////////
/////////////////////////////////////////////////////////////////////
procedure Banking;
begin
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////nicbaz To bank //////////////////////////
/////////////////////////////////////////////////////////////////////
procedure WalkBank;
begin
If FindSymbol(x, y, 'altar') then//If it sees the altar in minimap
begin //it will continue
if(FindSymbolIn(x,y,'tree'))then
Mouse(x,y,2,2,true); //clicks tree
FFlag(2); //waits until about 2 pixels away before continue
wait(200+random(400)); //Not really needed, but doesn't hurt much
if(findSymbol (x,y,'cook'))then//searches for cooking symbol
mouse(x,y,2,2,true); //click on the cook symbol
FFlag(2); //waits until 2 pixels away
wait(250+random(400)); //250-650 ms wait time
if(findSymbol (x,y,'bank'))then
mouse(x,y,2,2,true);
FFlag(2);
else
If (not(FindSymbol(x, y, 'altar') then;//if not finding the symbol
Exit; //will exit the procedure
end;
end;
begin
end;
/////////////////////////////////////////////////////////////////////
////////////////////////////Mainloop/////////////////////////////////
/////////////////////////////////////////////////////////////////////
procedure Setup;
begin
Setup SRL;
DeclarePlayers;
LoginPlayer;
end;
begin
setup;
Wait(900+Random(333));
repeat
WalkTrees;
ChopYew;
WalkTobank;
Banking;
until (Loads >= LoadsToDo) or (not LoggedIn)
NextPlayer(True);
until False;
end;
until (false)
end.