The Prince of Randomness?
06-21-2006, 03:08 AM
DummyFighter
Here is my amazing dummyfighter, Srl Free Scripts version, with less antiban then the members version, it should work flawless
Use it for getting your chracters up a couple of levels, instead of autoing straight away.
program dummykiller;
{.include srl/srl.scar}
const DummyColour = 7442087;
procedure DeclarePlayers;
begin
HowManyPlayers :=3;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
end;
procedure FindDummy;
var x,y:integer;
begin
if FindObj(x,y,'tta',DummyColour,10) then
Mouse(x,y,10,5,true);
Wait(1500+Random(500));
end;
begin
SetUpSrl;
DeclarePlayers;
repeat
FindDummy;
FindNormalRandoms;
if not loggedin then RandomNextPlayer(false);
if GetSkillLevel('attack')=8 then LogOut;
until(false);
end.
Here is my amazing dummyfighter, Srl Free Scripts version, with less antiban then the members version, it should work flawless
Use it for getting your chracters up a couple of levels, instead of autoing straight away.
program dummykiller;
{.include srl/srl.scar}
const DummyColour = 7442087;
procedure DeclarePlayers;
begin
HowManyPlayers :=3;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
end;
procedure FindDummy;
var x,y:integer;
begin
if FindObj(x,y,'tta',DummyColour,10) then
Mouse(x,y,10,5,true);
Wait(1500+Random(500));
end;
begin
SetUpSrl;
DeclarePlayers;
repeat
FindDummy;
FindNormalRandoms;
if not loggedin then RandomNextPlayer(false);
if GetSkillLevel('attack')=8 then LogOut;
until(false);
end.