Poll: How's it Work for You?

Results 1 to 9 of 9

Thread: ANIME's Al-Kharid Killer

  1. #1
    Join Date
    May 2006
    Location
    Nowhere, Colorado
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default ANIME's Al-Kharid Killer

    hey everybody, i posted this in first script forum, but only one person responded, but didn't post a report. anywho, this script is extremely simple, has no progress report or anti-randoms or anything like that. works, but u might have trouble if other people are around or doors are closed. any feedback will be extremely appreciated.
    WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.

  2. #2
    Join Date
    Feb 2006
    Location
    L.A, USA
    Posts
    1,632
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I added some code and notes.

    SCAR Code:
    program GuardMurder;
    {.include SRL/SRL.Scar}
    // * Load SRL Include.

    const
      Kills = 500;

    var
      i: integer;

    procedure Kill;
    begin
      if (FindColorTolerance(x, y, 8326527, 4, 24, 766, 521, 10))then // * Use tol.
      begin
        MMouse(x, y, 3, 3); // * Never use "MoveMouseSmooth(x,y)" ez to get banned. 3, 3 random off x, y
        Wait(150 + random(100));
        if (IsUpText('Attack'))then // * Check UpText for "Attack"
        begin
          GetMousePos(x, y); // Get current mouse position.
          Mouse(x, y, 0, 0, true); // * Never use ClickMouse(x, y, true); ez to get banned.
          Wait(7500 + random(1500)); // Try using another method.
        end;
      end;
    end;

    begin
      SetUpSRL;
      i:= 0;
      repeat
        Kill;
        i:= i + 1;
      until (i >= Kills);
      if (Kills = 0) then
      repeat
        kill;
      Until(False);
    end.

    Try reading this to add randoms to your script.

    Good luck. :]

  3. #3
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, this is an edited version of white shadows, just added some log in, anti random and proggies and stuff


    SCAR Code:
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //---           /|  |\        ||  [||]  |\        /|  |||||||||  \||    /\    ---//
    //---          //|  ||\       ||   ||   ||\      /||  ||          ||   //\\   ---//
    //---         //||  ||\\      ||   ||   ||\\    //||  ||          /   //  \\  ---//
    //---        // ||  || \\     ||   ||   || \\  // ||  ||              \\      ---//
    //---       //  ||  ||  \\    ||   ||   ||  \\//  ||  ||               \\     ---//
    //---      //   ||  ||   \\   ||   ||   ||   \/   ||  ||||||            \\    ---//
    //---     //====||  ||    \\  ||   ||   ||        ||  ||                 \\   ---//
    //---    //     ||  ||     \\ ||   ||   ||        ||  ||                  \\  ---//
    //---   //      ||  ||      \\||   ||   ||        ||  ||              \\  //  ---//
    //---  //       ||  ||       \||   ||   ||        ||  ||               \\//   ---//
    //--- //        ||  ||        \|  [||]  ||        ||  |||||||||         \/    ---//
    //---//                                                                       ---//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //-----------------------------Al Kharid Guard Killer----------------------------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //------       Play with 32 bit color, low detail, and max brightness      ------//
    //------        Place Character in Palace in Al Kharid Near Warriors       ------//
    //------    Fill out Line 13 and set skill you want to train in the game   ------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//
    //-------------------------------------------------------------------------------//


    program GuardMurder;
    {.include SRL/SRL.Scar}
    // * Load SRL Include.

    const
      Kills = 500;

    var
      i, Killed, Randomz: integer;


    procedure DeclarePlayers;
    begin
    HowManyPlayers := 6; //Number of players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0;

    Players[0].Name :='User Name';//Name Goes Here
    Players[0].Pass :='Password';//PassWord Goes Here
    Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
    Players[0].Active:=True;//True If Using, False If Not
    Players[0].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.

    Players[1].Name :='';
    Players[1].Pass :='';
    Players[1].Nick :='';
    Players[1].Active:=True;
    Players[1].Skill := 'Strength';

    Players[2].Name :='';
    Players[2].Pass :='';
    Players[2].Nick :='';
    Players[2].Active:=True;
    Players[2].Skill := 'Strength';

    Players[3].Name :='';
    Players[3].Pass :='';
    Players[3].Nick :='';
    Players[3].Active:=True;
    Players[3].Skill := 'Strength';

    Players[4].Name :='';
    Players[4].Pass :='';
    Players[4].Nick :='';
    Players[4].Active:=True;
    Players[4].Skill := 'Strength';

    Players[5].Name :='';
    Players[5].Pass :='';
    Players[5].Nick :='';
    Players[5].Active:=True;
    Players[5].Skill := 'Strength';

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

    End;


    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
      if (Result = true) then
        Randomz:= Randomz + 1;
    end;



    procedure DoAntiRandoms;
    begin
     FindTalk;
     FindFastRandoms;
     FindNormalRandoms;
     PopUp('ontinue')
     if (FindFight = true) then
     begin
       RunAwayDirection('N');
       Wait(10000 + random(2000));
       RunBack;
       if not LoggedIn then NextPlayer(False);
     end;
    end;



    procedure SetsFightMode;
    begin
      GameTab(1);
    if Players[CurrentPlayer].Skill = 'Attack'  then SetFightMode(1);
    if Players[CurrentPlayer].Skill = 'Strength'then SetFightMode(2);
    if Players[CurrentPlayer].Skill = 'Defence' then SetFightMode(4);
      FindTalk;
    end;



    procedure Kill;
    begin
      if (FindColorTolerance(x, y, 8326527, 4, 24, 766, 521, 10))then // * Use tol.
      begin
        MMouse(x, y, 3, 3); // * Never use "MoveMouseSmooth(x,y)" ez to get banned. 3, 3 random off x, y
        Wait(150 + random(100));
        if (IsUpText('Attack'))then // * Check UpText for "Attack"
        begin
          GetMousePos(x, y); // Get current mouse position.
          Mouse(x, y, 0, 0, true); // * Never use ClickMouse(x, y, true); ez to get banned.
          Wait(7500 + random(1500)); // Try using another method.
          DoAntiRandoms;
          Killed:= Killed + 1;
        end;
      end;
    end;


    procedure ProgReport;
    begin
      Writeln('[]///////////////////////////////////////////[]');
      Writeln('Worked For : ' + ScriptTime2(2))
      Writeln('Killed '+ IntToStr(Killed) + ' Ali Guards');
      Writeln('Got '+ IntToStr(Randomz) + ' Randomz');
      Writeln('[]///////////////////////////////////////////[]');
    end;




    begin
      SetUpSRL;
      DeclarePlayers;
      LoginPlayer;
      SetsFightMode;
      i:= 0;
      repeat
        Kill;
        i:= i + 1;
      until (i >= Kills);
      if (Kills = 0) then
      repeat
        kill;
      Until(False);
    end.



    Hope that helped

    -Ashur
    Exam period.

  4. #4
    Join Date
    May 2006
    Location
    Nowhere, Colorado
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thnx guys. i was going to add some logins, but i figured it was such a basic script and quite useless when other ppl r around so it's wasn't really worth it
    WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.

  5. #5
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by anime1161 View Post
    thnx guys. i was going to add some logins, but i figured it was such a basic script and quite useless when other ppl r around so it's wasn't really worth it

    Ohh ok, well i just did it for you

    If you need more help, just say so


    -Ashur
    Exam period.

  6. #6
    Join Date
    May 2006
    Location
    Nowhere, Colorado
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol of course i need help, i'm a noob to this! and thanx all the same, u saved me about 3 min lol
    WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.

  7. #7
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Isn't there an "anime" in members?

    Edit: Ahh it is you...did you ask to be put down to non-members so you could make it in fairly...? I kinda respect you if you did.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  8. #8
    Join Date
    May 2006
    Location
    Nowhere, Colorado
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol nah, we just talked bout it, but for everyone else, it doesn't really bother me that i did, cuz i had gotten in without doing anything
    WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.

  9. #9
    Join Date
    Mar 2007
    Posts
    562
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fairly good script.

    it might need somethings added to it. but its a good script for first try.

    nice one,

    haxor

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. where to watch most popular anime's for free
    By red eyes 20 in forum Music, Movies and TV
    Replies: 0
    Last Post: 11-15-2007, 10:20 PM
  2. Al-Kharid Warrior killer, plus eater
    By thematpan in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 10-01-2007, 10:10 PM
  3. Anime's Chop 'N Drop
    By anime1161 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 07-17-2007, 06:38 AM
  4. Anime's Chop 'N Drop Syntax Error
    By anime1161 in forum OSR Help
    Replies: 2
    Last Post: 06-24-2007, 12:12 AM
  5. Al Kharid Killer
    By anime1161 in forum First Scripts
    Replies: 3
    Last Post: 06-23-2007, 03:35 AM

Posting Permissions

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