Results 1 to 3 of 3

Thread: help with an auto clicker

  1. #1
    Join Date
    Mar 2010
    Location
    New Hampshire, U.S.A
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help with an auto clicker

    i cant beleive im saying this. but apparently i cant even make an autoclicker right :P.

    resolved: this gives an identifier expected error. its going to be something stupid that sticks out like a sore thumb. i just know it.

    current problem: this script clicks once then it just slowly moves mouse in a direction. direction stays the same during the time the script runs. if i dont call the mygetskillinfo then this problem goes away... ??

    SCAR Code:
    {.include srl/srl.scar}
    {.include srl/srl/misc/findxp.scar}
    const
    lvlxp = 605032;
    var x,y:integer;

    function mygetxpinfo:integer;
    var mylvl,nextlvlxp,myxp:integer;
    begin
      mylvl := getskilllevel('magic');
      nextlvlxp := convertlvltoxp(mylvl+1);
      myxp := getxp('magic');
      clearreport;
      addtoreport('Current lvl: ' + inttostr(mylvl))
      addtoreport('XP to next lvl: '+inttostr(nextlvlxp-myxp));
      addtoreport('Current xp: ' + inttostr(myxp))
      addtoreport('Next lvl xp: ' + inttostr(nextlvlxp));
      findnormalrandoms;
      findnoninventoryrandoms;
      case random(7) of
        0: RandomRClick;
        1: HoverSkill('magic',false);
        2: PickUpMouse;
        3: SayCurrentLevels('magic');
        4: RandomMovement;
        5: BoredHuman;
        6: ExamineInv;
    end;



    begin
      //wait(5000);y);
      repeat
        while not isfunctionkeydown(7) do
        begin
          getmousepos(x,y);
          writeln('Down: '+inttostr(x)+', '+inttostr(y));
          holdmouse(x,y,true);
          wait(50+random(200));
          getmousepos(x,y)
          releasemouse(x,y,true);
          writeln('Up: '+inttostr(x)+', '+inttostr(y));
          wait(850+random(300));
          if random(10) = 0 then
          begin
            mygetxpinfo;
          end;
        end;
      until false;
    end.

    EDIT: i knew it would stick out like a sore thumb. i didnt think i would accidentally find it though :P. i didnt add the end; after my case statement.
    Last edited by g0tp0t; 05-10-2010 at 10:21 PM.
    Sell botted goods at mid to high prices!!! Else we lose our profit AND ruin the game!!!!

  2. #2
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    after
    SCAR Code:
    6: ExamineInv;
    you need another end for the case.

    So it should be
    SCAR Code:
    6: ExamineInv;
      end;
    end;

  3. #3
    Join Date
    Mar 2010
    Location
    New Hampshire, U.S.A
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol. i figured it out like seconds ago :P
    Sell botted goods at mid to high prices!!! Else we lose our profit AND ruin the game!!!!

Thread Information

Users Browsing this Thread

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

Posting Permissions

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