ollie
2006-06-07 04:14:59
something i made real quick for my AFK Trainer, may be of use to someone!
[PHP]
var
GoEnd : Boolean;
procedure Tabclick;
begin
writeln('Clicking The RunningMan Tab');
GameTab(12); //thanks phantom for pointing that out!!
end;
procedure ClickRetaliate;
begin
writeln('Setting Retaliate On!');
wait(500+random(1500));
MMouse(577+random(5), 330+random(5), 2, 2);
wait(500+random(1500));
Mouse(577+random(5), 330+random(5), 2, 2, True);
GoEnd:= true;
end;
procedure Retaliate;
begin
BenMouse:= True;
repeat
Tabclick;
wait(5000);
ClickRetaliate;
until(GoEnd);
writeln('AutoRetaliate is now ON!');
end.[/PHP]
[PHP]
var
GoEnd : Boolean;
procedure Tabclick;
begin
writeln('Clicking The RunningMan Tab');
GameTab(12); //thanks phantom for pointing that out!!
end;
procedure ClickRetaliate;
begin
writeln('Setting Retaliate On!');
wait(500+random(1500));
MMouse(577+random(5), 330+random(5), 2, 2);
wait(500+random(1500));
Mouse(577+random(5), 330+random(5), 2, 2, True);
GoEnd:= true;
end;
procedure Retaliate;
begin
BenMouse:= True;
repeat
Tabclick;
wait(5000);
ClickRetaliate;
until(GoEnd);
writeln('AutoRetaliate is now ON!');
end.[/PHP]