Results 1 to 5 of 5

Thread: Suggestions please.

  1. #1
    Join Date
    Oct 2006
    Location
    H0M3
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Suggestions please.

    i dont know where else to put this. i am currently going through some bigginners tutorials and i sorta put togather and antiban, i was wondering if theres any way i can improve this.

    SCAR Code:
    program Apx900Antibanner;
    {.include SRL/SRL.scar}
    {.includes\SRL\SRL\core}
    ////////////////////////////////////////////////////////////////////////////////
    //   gimme some +rep and credits if you decideto use this    ///////////////////
    //   I bear no responsibility for any misfortunate things    ///////////////////
    //   That may happen to anyone who uses this pice of work    ///////////////////
    ////////////////////////////////////////////////////////////////////////////////


    var
    i,q: integer;

    Const
    wannagetbanned = false; // set to false if you wish to use this antiban

    ///////////////////////////////////////

    procedure determin;
    begin
    i:=0+random(12);
    Writeln('I =' + IntToStr(i));
    q:=0+random(3);
    end;

    procedure antiban1;
    begin
     if i=1 then
     begin
     writeln('Performing Anti-Ban Type 1');
     RandomRClick;
     end;
    end;

    procedure antiban2;
    begin
     if i=2 then
     begin
     writeln('Performing Anti-Ban Type 2');
     PickUpMouse;
     end;
    end;

    procedure antiban3;
    begin
      if i=3 then
      begin
      writeln('Performing Anti-Ban Type 3');
      RandomMovement;
      end;
    end;

    procedure myantiban;
    begin
    determin;
    antiban1;
    antiban2;
    antiban3;
    end;

    procedure perform;
    begin
     if q=1 then
     begin
     myantiban;
     end;
    end;

    Procedure ProAntiban;   // procedure stolen from i pro leechin's tutorial
    begin
      if not LoggedIn then Exit;
      case 6+random(10) of   //Will alow antiban to sometimes never occur
        0 : HoverSkill('Random', false);
        1: PickUpMouse;
        2: SayCurrentLevels('random');
        3: BoredHuman;
        4,5: begin
               MakeCompass('N');
               wait(10+random(5));
               MakeCompass('E');
               wait(10+random(5));
               MakeCompass('N');
             end;
      end;
    end;

    begin
     if wannagetbanned=false then
     begin
     ActivateClient;
     myantiban;
     ProAntiban;
     end;
    end.

  2. #2
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    you can make that all into one case, that significanly reduces the code, makes it easier to read and make.

    there are plenty tuts on cases and anti ban in the intermediet section, not too sure on beginers

    heres the antiban that i like to use for my scripts(my custom antiban)

    SCAR Code:
    procedure AkwardAntiBan;
    begin
      if AntiBanB = 'True' then
        begin
      if (not(LoggedIn))then
        LoginPlayer;
        for R := 300 to 500 do
        for RG := 0 to 6 do
        case Random(50) of
          0:begin
              writeln('anti ban 1');
              HoverSkill('Magic', False);
              wait(100+ random(R));
              HoverSkill('Range', False);
              SleepAndMoveMouse(600+random(400));
            end;
        1:Begin
            writeln('antiban 2');
            Gametab(RG);
            wait(R + random (R));
            GameTab(7);
          end;
        2:begin
            writeln('antiban 3');
            PickUpMouse;
            wait(R + random (r));
            PickUpMouse;
            wait(R + random (r));
          end;
        3: begin
             writeln('antiban 4');
             SayCurrentLevels('Magic');
           end;
        4:begin
            writeln('antiban 5');
            MakeCompass('S');
            Wait(R + random(R));
            MakeCompass('N');
            Wait(R + random(R));
          end;
        end;
      end else
        begin
          writeln('what the Hell? you`r not using antiban?!?!?!?');
          wait(1000);
          writeln('have fun being banned...');
        end;
    end;

    go ahead and use it in a script, or an example. if you use it, keep the title the same, that should be enough credit to me i guess.. read a few tuts to learn what every thing means if your a little confused =D

    or you can just pm me, doesnt matter
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  3. #3
    Join Date
    Feb 2009
    Location
    AZ, USA
    Posts
    460
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Is wannagetbanned ever actually used?

  4. #4
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    *points at his main loop*
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  5. #5
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    This may offer some inspiration
    SCAR Code:
    procedure AntiBan;
    begin
      case Random(3000) of
        0..9: HoverSkill('random', False);
        10..19: IdleTime(2000, 1000, 0.2);
        20..29: RandomRClick;
        30..39: PickUpMouse;
        40..49: RandomMovement;
        50..59: BoredHuman;
        60..69: MMouse(RandomRange(-100, 800), RandomRange(-100, 800), 0, 0);
        70..79: SleepAndMoveMouse(2000+Random(1000));
        80..89: GameTab(Random(14)+1);
        90..99: DragItem(Random(28)+1, Random(28)+1);
      end;
    end;
    Last edited by lordsaturn; 04-02-2009 at 03:32 AM.

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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