Results 1 to 3 of 3

Thread: Better antiban and anti random on this script?

  1. #1
    Join Date
    Dec 2011
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Better antiban and anti random on this script?

    How would I go about changing this, snippets would help

    Simba Code:
    program stunner;

    {$DEFINE SMART}
    {$i SRL\SRL.scar}
    {$i SRL\SRL\Misc\Debug.SCAR}
    {$i SRL\SRL\Misc\Stats.simba}
    {$i SRL\SRL\Skill\Magic.SCAR}
    {$i SRL\SRL\Skill\Fighting.SCAR}


    {
    Spell Names:
    'wind rush', 'wind strike', 'confuse', 'water strike', 'earth strike',
    'weaken', 'fire strike', 'wind bolt', 'curse', 'bind',
    'water bolt', 'earth bolt', 'fire bolt', 'crumble undead',
    'wind blast', 'water blast', 'iban blast', 'snare',
    'magic dart', 'earth blast', 'fire blast', 'saradomin strike',
    'claws of guthix', 'flames of zamorak', 'wind wave',
    'water wave', 'vulnerability', 'earth wave',
    'enfeeble', 'fire wave', 'entangle', 'stun', 'charge',
    'wind surge', 'teleport block', 'water surge', 'earth surge',
    'fire surge'
    }



    Const
     SRLStats_Username = 'l';// Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     BreakEvery        = 120;     //How Many Minutes To Break After
     BreakFor          = 10;      //How Long To Break For
     Version           = 'OLDSEX room';




    Var
      stun, x, y, StartTime: Integer;




    procedure DeclarePlayers;
      Var i:integer;
    Begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      For I := 0 to (1-1) Do
        Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      With Players[0] Do
      Begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        Active      := True;
        Strings[0]  :='stun'; //Name of spellto cast.(See list of spells above)
      End;                         //Set to 'Range' if ranging!

    End;

    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;

    Procedure Antiban;
    Begin
      Case Random(250) Of
        0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Magic', False) GameTab(28) End;
        1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
        2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
        3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
        4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
        5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
      End;
    End;
    Procedure FailSafe(Reason:String);
    Begin
      Players[CurrentPlayer].Loc:=Reason;
      Logout;
      Stats_Commit;
      TerminateScript;
    End;



    procedure Findspell;
    begin

      stun := DTMFromString('mWAAAAHicY2FgYGBkgAA2KJsViLmhfBBIyylg6OyqZ/j9+zeDDK8KAxdQDBkzomEQAAAisQZh');
      SetAngle(true)
      GameTab(tab_Magic)
      If FindDTM(stun, X, Y, MIX1, MIY1, MIX2, MIY2)  then
      begin


      mouse( x, y, 3, 3, true);


      FreeDTM(stun);
      end;
    end;

    procedure Castspell;


    begin

    if FindObj( x, y, 'esser', 1846874 ,10)   then
    writeln ('found demon');
      begin

      mouse( x, y, 5, 5, true);
      wait(2)
      end;

    end;


    procedure ProgressReport;

    var
    Sec:integer;

    begin

      SRLRandomsReport;

      Sec:= (1+((Getsystemtime-StartTime)/1000));

      Writeln(' ');
      Writeln ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
      Writeln ('| -->          L0sers Stunn0r '+ Version +'             <-- |');
      Writeln ('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
      Writeln('|' + PadR(' Worked for '+ (TimeRunning) , 49) + '|');
      Writeln('|' + PadR(' Stuns cast '+ IntToStr(stun) , 49) + '|');
      Writeln('|' + PadR(' Location:' + Players[CurrentPlayer].Loc, 49) + '|');
      Writeln ('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
    end;




    begin

      Smart_Server := 83;
      Smart_Members := False;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      SetUpSRL;
      DeclarePlayers;
      LogInPlayer;
      StartTime:=GetSystemTime;
      ProgressReport
     repeat
      Antiban
      Findspell
      Castspell
      until(false)
    end.

  2. #2
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    this is my Antiban

    Simba Code:
    procedure TheAntiban;
    var
      Chance: Integer;
    begin
      Chance:= Random(100)+1;
      if Chance<=AntibanChance then
        case Random(100)+1 of
          1..20: begin
                   HoverSkill('Woodcutting', false);
                   Wait(1000+Random(500));
                   GameTab(tab_Inv);
                 end;
          21..40: PickUpMouse;
          41..60: RandomMovement;
          61..80: BoredHuman;
          81..100: ExamineInv;
        end;
      ChooseOption('ancel');
    end;

    just create a constant called AntibanChance and that will be a number between 0 and 100

    ~shut
    Last edited by Shuttleu; 01-13-2012 at 09:42 AM.

  3. #3
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Hey Lolsen are you modifying my Lesser Demon caster to be a stunner? Make sure to give credit and whatnot if you release that.

    Nice to see a newer guy learning to script and make changes etc instead of leeching.

    For AntiRandoms just use FindNormalRandoms, that searches for and attempts to solve randoms.

    As for antiban you can look in antiban.simba located in C:\Simba\Includes\SRL\srl\core
    and add as many of those as you want to the antiban procedure in the script.

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
  •