Results 1 to 4 of 4

Thread: my acler :D

  1. #1
    Join Date
    Jul 2008
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my acler :D

    fixed standards a little bit still working on my standards update yay!!! lol

    i know no one really uses this so this is my last update unless i get some feedback

    have the item you want to alc in your first inventory spot and have plenty of runes in your inventory or a staff of fire on and natures in inventory thanks suggestions are appreciated
    SCAR Code:
    program alcer;
    {.include SRL/SRL.scar}
    const
    alcs = 23; // how many times you want to alc this item
    var
    f:integer;
    procedure declareplayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := 'zezima';
      Players[0].Pass := 'pwnage123';
      Players[0].Nick := 'ezi';
      Players[0].Active := True;
    end;




    procedure AntiRandoms;
    begin
    if not loggedin then Exit;
    FindNormalRandoms;
    if FindFight then
    RunAway('N', True, 1, 5000);
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case (Random(30)) of
       1: RandomRClick;
       5: HoverSkill('Magic', False);
       11: RandomMovement;
       15: BoredHuman;
       21: DoEmote(400 +Random(90));
       24: PickUpMouse;
       27:RandomRclick;
       30: SleepAndMoveMouse(3600);
      end;
    end;

    procedure possiblerelog;
    begin
      if not LoggedIn then Exit;
      case (Random(10)) of
       0:if(f=200)then
       begin
        logout;
        wait(12000+random(200));
        loginplayer;
       end;
       1:if(f=500)then
       begin
         logout;
         wait(60000+random(300));
         loginplayer;
       end;
       2:if(f=1400)then
       begin
         logout;
         wait(18000+random(400));
         loginplayer;
       end;
      3:if(f=2000)then
      begin
        logout;
        wait(20000+random(3000));
        loginplayer;
      end;
     end;
    end;

    procedure Alc;
    begin
      if not loggedin then Exit;
      Mouse(743,185,3,3,true);
      wait(300+random(200));
      Mouse(572,350,4,4, true);
      wait(1000+random(300));
      Mouse(579,227,4,4, true);
      wait(1000+random(100));
    end;

    begin
      setupSRL;
      activateclient;
      if (loggedin) then
      logout;
      f:=0
      begin
        loginplayer;
        repeat
        f:= f+1
         AntiBan;
         AntiRandoms;
         alc;
         possiblerelog;
         until(f=alcs);
      end;
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    SC
    Posts
    692
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Another primitive acler, eh. Good job for a (first released?) script. Keep updating it, though. It may become a great script someday.

  3. #3
    Join Date
    Jul 2008
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you for taking your time to reply and not just look/leech and leave

  4. #4
    Join Date
    Dec 2007
    Location
    UK
    Posts
    479
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks pretty good for a 1st release/script
    However, you really need to fix your standards It makes it easier read for other scripters to read/comment on.
    I don't play runescape. I auto it

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
  •