PDA

View Full Version : AutoFiTer



Naum
06-09-2007, 11:53 AM
AutoFiTer ->{Nauman}<-


Stuff About this script

This is my first script i am actually proud of.
Start logged out where you want to fight the monster make sure you are next to a place where loads of them are.
Fill out the const click play and
ENJOY!!!


{ /-------------\ /---------
/ \ / \
/ \ / \
| | | | | |
| | | | | |
| | | | | |
|________| | |______ | |
/ / / /
/ / / /
/ / / / SCRIPT
/ / UPER / /_____
/ / |/ |/ |
/ / | | |
/ / | | |
/ / | | |
/ /________ \ /
| | | \ /
| | | \------------/
| | |
| | |
\ /
\ /
\ /
\---------/

Start in any where next to lots of the monsters you want to kill
logged out!!!

This does not eat food so watch it.... Updates will be posted!

}


Program AutoFiTer;
{.include srl/srl.scar}

Const
Color=1919048;//set guard colour here

howlong=7000;//how long would it take you to kill your selected moster
//remember 1 second= 1000miliseconds

Name='modafucka';
Pass='0wnt';


procedure Login;


begin
Mouse(440, 291,1,1,true)
Wait(500+random(25))
TypeSend(Name)
TypeSend(Pass)
wait(500+random(25))
mouse(297, 324,1,1,true)
wait(2000+random(670))
mouse(380, 335,1,1,true)
wait(2000+random(670))
end;



Procedure Guard;
Begin

If(FindColorSpiralTolerance(x, y, Color, 1, 1, 600, 600,5))then
mmouse(x, y, 2, 2);
mouse(x, y, 1, 1, true);
wait(howlong)
End;

procedure Sig;
begin

Writeln(' Thank you for using.... ')
Writeln(' AutoFiTer ')
Writeln(' By ->{Nauman}<- ')
Writeln(' for updates go to srl forums ')
Writeln(' Enjoi ')
end;


begin;
Sig
SetupSRL;
Login;
repeat
Guard;
until(false)
End.

->{Nauman}<- :spongebob:

Santa_Clause
06-09-2007, 11:57 AM
TypeSend(Name)
TypeSend(Pass)

Erm, that types your username and password and presses enter, meaning that anyone else can change your password...I think you meant WriteLn, which writes into the Debug Box.


procedure Login;

begin
Mouse(440, 291,1,1,true)
Wait(500+random(25))
TypeSend(Name)
TypeSend(Pass)
wait(500+random(25))
mouse(297, 324,1,1,true)
wait(2000+random(670))
mouse(380, 335,1,1,true)
wait(2000+random(670))
end;

Why not just use the DeclarePlayers/LoginPlayer procedure in SRL. It's much more efficient
and can be used for multiplayer purposes...


Procedure Guard;
Begin

If(FindColorSpiralTolerance(x, y, Color, 1, 1, 600, 600,5))then
mmouse(x, y, 2, 2);
mouse(x, y, 1, 1, true);
wait(howlong)
End;

For (howlong), I think you should add some random time to that, to seem less detectable and just in case the user hasn't killed the monster yet.

All in all, I think this is a pretty good first script. You might want to check the fighting include in SRL, it has many functions that'll help you out...

Naum
06-09-2007, 02:48 PM
Thanks

mx1000
06-10-2007, 03:06 PM
Sorry i rate a 1 star this script is very detectable and has no anti randoms which means you gonna be banned i recommend to not use it
please update to safe script, mod move to first script section?

Haxor
06-11-2007, 08:19 AM
preety basic try adding antiban and anti randoms you can find some good ones in srl forums core.

haxor

Naum
08-18-2007, 02:46 PM
Ok thanks for the help guyz!

ShowerThoughts
08-18-2007, 03:37 PM
remember dont give up(not you said you was but..)
its a good start so keep going. better wait untill srl is updated

Haxor
08-21-2007, 12:09 PM
srl is updated so he needs to fix some things for it to work with the new srl