SRL Archive - RS3 Outdated / Broken Scripts

{
—- 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.

put your script in scar tags[sc*r][/sc*r]
(*=A)

Use scar tags. Like this:

{
---- 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.

Very nice, but I don't think you need

begin
Status('System: You are at the computer, script waiting.')
end;
begin
Status('System: You are at the computer, script waiting.')
end;

two times.

Yeah, but it works, so w/e XD

could someone update this for thae latest version of scar and slr? please?

not workin for me, said unknown identifier x

From: rsnub6
could someone update this for thae latest version of scar and slr? please?

No offense, but as you know it doesnt work. And second please read some tuts and stuff so you can learn to do it yourself. Last but not least Dont grave dig

dang i hate people like that who go round scripts going: wow this works for me really well, when it has been out dated by like 2 years!!!!!!!!!!!

Not work
Line 147: [Error] (15236:13): Unknown identifier 'x' in script C:\Documents and Settings\HP_Omistaja\Työpöytä\Roinaa\Scripts\antilogout.scar
Using scar 3.12

if only this updated would be great for pvp…