Sheeesh your always making new threads for updated version. Anyways thanks for giving me credit. I'd prefer you put something more like "Actual ent finding by Sumilion from SRL folder, everything else edited by Osmm". Also here is the updated version of it. Has a little bit more randomness:
SCAR Code:
procedure Ent_phrases;
begin
case random(18) of
0: Typesend('arg! stupied ent!');
1: Typesend('lol, lil nub ent');
2: Typesend('hahaha funny lil ent');
3: Typesend('tree got mad, hahaha');
4: Typesend('ents are funny');
5: Typesend('O M G, stupied ent');
6: Typesend('ffs dumb ent');
7: Typesend('rofl ent got mad');
8: Typesend('lamo, ent gone crazzy');
9: Typesend('huhh.....');
10: Typesend('ents are pointless to rs');
11: Typesend('Why did jagex make ents?');
12: Typesend('huh....ents are so useless');
13: Typesend('hahaha, stupied lil ent');
14: Typesend('oooo, an ent!');
15: Typesend('aarrgg, dumb ent');
16: Typesend('E N T !');
17: Typesend('ffs, an ent');
end;
end;
// Actual ent FINDING by Sumilion - from Woodcutting.scar
// Everything else edited by Osmm
function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
arUpTextEntColorPoints: TPointArray;
x, y, EntTime, tcts: Integer;
begin
if not(LoggedIn)then exit;
GetMousePos(x, y);
if(x <> fx)or(y <> fy)then
mmouse(fx, fy, 0, 0);
if(IsUpText('Chop'))then
begin
tcts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.4, 0.4);
FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
Result := Length(arUpTextEntColorPoints) > 10;
ColorToleranceSpeed(tcts);
end;
if(result)then
begin // All my stuff from here on down
MarkTime(EntTime);
WriteLn('Ent Found!!');
Writeln('Waiting for it to go away.');
begin
case random(2) of
0: begin
mouse(627, 86, 5, 5, true);
mouse(627, 86, 10, 10, true);
Ent_phrases;
wait(750 + random(750));
GameTab(4);
wait(750 + random(750));
AntiBan;
Wait(10000 + random(5000));
Randoms;
end;
1: begin
DoEmote(4);
wait(750 + random(750));
Ent_phrases;
wait(750 + random(750));
Hoverskill('woodcutting', false);
wait(750 + random(750));
AntiBan;
wait(10000 + random(5000));
Randoms;
end;
end;
end;
begin
if (TimeFromMark(EntTime) < 35000) then
case random(2) of
0: begin
if Random(10) > 8 then
Hoverskill('woodcutting', false);
end;
1: AntiBan;
end;
end;
Inc(EntsAvoided);
end;
end;
Otherwise nice job in general.