Results 1 to 9 of 9

Thread: bumis' anti-logout 1.0

  1. #1
    Join Date
    Mar 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default bumis' anti-logout 1.0

    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.

  2. #2
    Join Date
    Jun 2007
    Posts
    246
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sounds useful if your going to goget some juice or something =) even more useful if you adda antirandoms and i believe that if i learned my cases correctly, you used your cases wrong. because when you do a random(x) it cant be the number it can only be 0 to the number minus 1. so you should adjust your cases to start with 0.everything else is fine =) keep scripting

  3. #3
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    his cases are right, case can start at any number.
    random(4) will get him a number betwen 1 and 4, so there's no chance he'll get 0. wouldn't make ense to have case 0 then.

    very very usefull script lie the way you got around the srl being down problem.

  4. #4
    Join Date
    Mar 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you, I've actually evolved that alot further. I'm adding item pickups so you can put them in check as a boolean, and pretty much any other on and off tool you might want soon to be including arrow pickup and reequip options and whatever else.

  5. #5
    Join Date
    Jun 2007
    Location
    In my computer room
    Posts
    148
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very Cool Works Good And I AFKd At Rogues And Gained 2 Str Lvls! WOOT!

  6. #6
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    actually, random(4) will give you 0-4

    SCAR Code:
    program New;
    begin
    writeln(inttostr(random(2)))
    end.

    SCAR Code:
    Successfully compiled
    0
    Successfully executed
    Successfully compiled
    1
    Successfully executed
    Successfully compiled
    1
    Successfully executed
    Successfully compiled
    0
    Successfully executed
    Successfully compiled
    1
    Successfully executed
    Successfully compiled
    1
    Successfully executed
    Successfully compiled
    1
    Successfully executed
    Successfully compiled
    1
    Successfully executed
    Successfully compiled
    1
    Successfully executed

  7. #7
    Join Date
    Mar 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    HI, i like the idea, but lag lag is really bad. Is there any way to improve the smooth running of the script?

  8. #8
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by dvdcrayola View Post
    actually, random(4) will give you 0-4
    ...

    Random(4) Will give you 0 - 3.
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  9. #9
    Join Date
    Sep 2007
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It is giving me an error.

    Failed when compiling
    Line 147: [Error] (14842:13): Unknown identifier 'x' in script

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. -bumis' anti-logout
    By Bumis in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 12-27-2008, 07:59 AM
  2. anti logout
    By roboroofer1 in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 08-06-2008, 08:57 PM
  3. Anti-logout - afk training
    By Swift in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 11-24-2007, 09:55 PM
  4. [srl][rs2] Anti-logout
    By apx900 in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 05-22-2007, 12:53 AM
  5. anti logout
    By macromacro123 in forum OSR Help
    Replies: 1
    Last Post: 03-09-2007, 09:36 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •