Bumis
2007-08-11 20:22:23
Anti-Logout v1.1 — UPDATED
Features:
- Detects when you're at the computer or when you're AFK
- Randomly moves the mouse around random areas.
- Randomly clicks inventory, friends, or various tabs.
- Will occasionally idlemouse for 5-20 seconds.
- Sometimes will pause
SCRIPT USAGE
— SELECT CROSSHAIR ON RUNESCAPE, KEEP IT RUNNING AS YOU PLAY THE GAME, WHEN YOU STOP MOVING THE MOUSE, THE SCRIPT WILL TAKE OVER AND ACT LIKE A HUMAN JUST DOING RANDOM THINGS, WHICH WILL KEEP YOU ONLINE.
I MADE THIS TO AFK AT FLESH CRAWLERS AND AUTO TRAIN
No anti-randoms, or any fancy SRL tricks, it's mostly hand coded, with not alot of SRL standards, due to SRL being messed up
Features:
- Detects when you're at the computer or when you're AFK
- Randomly moves the mouse around random areas.
- Randomly clicks inventory, friends, or various tabs.
- Will occasionally idlemouse for 5-20 seconds.
- Sometimes will pause
SCRIPT USAGE
— SELECT CROSSHAIR ON RUNESCAPE, KEEP IT RUNNING AS YOU PLAY THE GAME, WHEN YOU STOP MOVING THE MOUSE, THE SCRIPT WILL TAKE OVER AND ACT LIKE A HUMAN JUST DOING RANDOM THINGS, WHICH WILL KEEP YOU ONLINE.
I MADE THIS TO AFK AT FLESH CRAWLERS AND AUTO TRAIN
No anti-randoms, or any fancy SRL tricks, it's mostly hand coded, with not alot of SRL standards, due to SRL being messed up
{
---- bumis' anti-logout v1.1
[ Script Usage ]
Run the script, keep it running as you play Runescape.
When you stop moving the mouse, the script will begin moving the mouse around
and simulating a human. This is used to keep your character from logging out
when you leave the computer.
Tip: Useful as hell for running while you AFK Train. Soon as you quit touching
the mouse the script takes over and keeps you logged in. You just need to check
in and heal your account, or even run away so the monsters attack you again.
[ SRL REQUIRED]
[ Written on Divi 3.11]
}
program AFK;
{.Include srl/srl.scar}
Procedure idlenow;
begin
idletime(5000,6000,10)
end;
Procedure Tabclick;
var
whattab: integer;
begin
whattab:=random(3)
Case whattab of
1:
begin
mouse(570,189,6,6,true)
wait(2+random(1000))
end;
2:
begin
mouse(641, 190,6,6,true)
wait(2+random(1000))
end;
3:
begin
mouse(576, 485,6,6,true)
wait(2+random(1000))
end;
end;
end;
Procedure ranmouse;
var
wheretomovem: integer;
begin
mousespeed:=1+random(15)
wheretomovem:=random(4)
Case wheretomovem of
1:
begin
MMouse(120,89,50,50)
Wait(20+random(5200))
end;
2:
begin
MMouse(628, 41,50,50)
Wait(20+random(5200))
end;
3:
begin
MMouse(92, 428,50,50)
Wait(20+random(5200))
end;
4:
begin
MMouse(631, 341,50,50)
Wait(20+random(5200))
end;
end;
end;
Procedure ranwait;
var
longtowait: integer;
begin
longtowait:=random(4)
case longtowait of
1:
begin
wait(1000+Random(5000))
end;
2:
begin
Wait(5000+random(1000))
end;
3:
begin
Wait(2000+Random(20))
end;
4:
begin
Wait(1+random(10000))
end;
end;
end;
Procedure Antilogout;
var
whattodo: integer;
begin
whattodo:=random(7)
Case whattodo of
1:
begin
ranwait;
end;
2:
begin
ranmouse;
end;
3:
begin
ranmouse;
end;
4:
begin
ranmouse;
end;
5:
begin
tabclick;
end;
6:
begin
idlenow;
end;
7:
begin
idlenow;
end;
end;
end;
Procedure Starthere;
var
xx,yy: integer;
begin
GetMousePos(x,y)
Wait(2000+Random(500))
GetMousePos(xx,yy)
if x=xx then
begin
if y=yy then
begin
Status('System: You are AFK, preventing your account from logging.')
Antilogout;
end;
GetMousePos(x,y)
Wait(1000+Random(3005))
GetMousePos(xx,yy)
if not x=xx then
if not Y=YY then
begin
Status('System: You are at the computer, script waiting.')
end;
begin
Status('System: You are at the computer, script waiting.')
end;
end;
end;
begin
DisguiseScar('Windows Media Player')
repeat
Starthere;
Wait(200+random(20))
until(false)
end.