SRL Archive - First Scripts

Autofighter


rwj4real

2007-10-24 22:43:28

This is my first so i might need help on it:D

freedox

2007-11-22 12:58:20

Add antirandoms and be sure to call srlsetup

and it only right click on monster,add
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;

e v i l 2 h

2007-11-23 12:28:13

nice..antirandom does what

brap brap

2007-11-23 13:10:36

nice autofight died a few times tho

djbladeer

2008-10-18 09:44:16

i died too :/:fiery:

joelster134

2008-10-18 10:26:55

From: djbladeer
i died too :/:fiery:


This script will get you banned + has no anti randoms :)

if your gunna use it use it on Chickens or something that wont kill you normally…


ive fixed it a bit and made it so it kills chickens :D

{{{--------{{{{{{{{/\{{{{{{{{ |  / {{{{{ |----- {{{{{/---\{{{{|   |{{--------{{
{{{{{ | {{{{{{{{{{/ \{{{{{{{ | / {{{{{ | {{{{/ \{{{| |{{{{{|{{{{{{
{{{{{ | {{{{{{{{{/----\{{{{{{ |/ {{{{{ |----- {{{| |{{| |{{{{{|{{{{{{
{{{{{ | {{{{{{{{/ \{{{{{ |\ {{{{{ | {{{{\ /{{{| |{{{{{|{{{{{{
{{{{{ | {{{{{{{/ \{{{{ | \ {{{{{ |----- {{{{{\---/{{{{{\-/{{{{{{|{{{{{}





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.

:D enjoy if you update using this add me to creds:spot:

noidea

2008-10-18 10:51:23

This script is a year old. No wonder why it didn't work dude, it's outdated…

lolkill

2008-10-18 17:06:00

downloading now, I'll see how this goes
ty

joelster134

2008-10-18 17:36:18

From: lolkill
downloading now, I'll see how this goes
ty



Its outdated if you read other peoples posts :p

I think this was leeched from Rs101 or something because its name at top isnt his user? or he just made a diff username?

in2it

2008-10-18 23:21:12

this is outdated and needs heaps of work, if it yours nice try for first script and if its not yours why did you leech something shit..

joelster134

2008-10-19 00:31:55

Probably looked for sumthing ancient so people would think was his..and it wouldnt be his cuz most tuts on here wouldnt have it

in2it

2008-11-01 23:06:31

nice script for your first:P banti ban and randoms come next :P