rwj4real
2007-10-24 22:43:28
This is my first so i might need help on it:D
2007-10-24 22:43:28
2007-11-22 12:58:20
procedure attackMonster;
begin
if findcolortolerance(x, y, MonsterColor1, 0, 0, 700, 500, 5) or
findcolortolerance(x, y, MonsterColor2, 0, 0, 700, 500, 5) then
begin
Mouse(x ,y, 0, 0, false)
chooseoption('Attack')
wait(200+random(100))
Flag;
wait(3000+random(3000))
end;
2007-11-23 12:28:13
2007-11-23 13:10:36
2008-10-18 09:44:16
2008-10-18 10:26:55
From: djbladeer
i died too :/:fiery:
{{{--------{{{{{{{{/\{{{{{{{{ | / {{{{{ |----- {{{{{/---\{{{{| |{{--------{{
{{{{{ | {{{{{{{{{{/ \{{{{{{{ | / {{{{{ | {{{{/ \{{{| |{{{{{|{{{{{{
{{{{{ | {{{{{{{{{/----\{{{{{{ |/ {{{{{ |----- {{{| |{{| |{{{{{|{{{{{{
{{{{{ | {{{{{{{{/ \{{{{{ |\ {{{{{ | {{{{\ /{{{| |{{{{{|{{{{{{
{{{{{ | {{{{{{{/ \{{{{ | \ {{{{{ |----- {{{{{\---/{{{{{\-/{{{{{{|{{{{{}
program Autofighter;
{.include SRL\SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
var
x, y, z: Integer;
// Setup
const
ChickenColor1 = 857704; // change if you need to
ChickenColor2 = 3430256; //change if you need to
ChickenColor3 = 4897230;//change if you need to
AttStyle = 1;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//Anti-ban and randoms //
procedure AntiRandoms;
begin
FindNormalRandoms;
end;
procedure AntiBan;
begin
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
5: HoverSkill('Smithing', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3000 + Random(2000));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
procedure KillChicken;
begin
if findcolortolerance(x, y, ChickenColor1, 0, 0, 700, 500, 5) or
findcolortolerance(x, y, ChickenColor2, 0, 0, 700, 500, 5) then
begin
Mouse(x ,y, 5, 5, false)
AntiRandoms;
AntiBan;
wait(200+random(100))
if not ChooseOption('ttack') then Exit;
Flag;
AntiBan;
AntiRandoms;
wait(3000+random(3000))
end;
begin
wait(2000+random(1000))
KillChicken;
until(false)
end.2008-10-18 10:51:23
2008-10-18 17:06:00
2008-10-18 17:36:18
From: lolkill
downloading now, I'll see how this goes
ty
2008-10-18 23:21:12
2008-10-19 00:31:55
2008-11-01 23:06:31