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.[/B]
- 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
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.


Reply With Quote






lie the way you got around the srl being down problem.




~RAM
