Use scar tags. Like this:
SCAR Code:
{
---- 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.
And also, it'll look better if you learn some scripting standards.
•••••••••••••••••••••••••••••••••••••••••••••••••• ••••••••••••••••••••
Good script, and I like the way you tell if the person is AFK. Keep it up.