Results 1 to 10 of 10

Thread: [template] Draynor Jailguard ownage

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [template] Draynor Jailguard ownage

    move this to snippets please

    Well srl members will have heard my story so here im not finishing this of!
    I think it look pretty neat

    SCAR Code:
    //-------------------------------------------------------------------------------
    //     ____.      .__.__    ________                       .___
    //    |    |____  |__|  |  /  _____/ __ _______ _______  __| _/
    //    |    \__  \ |  |  | /   \  ___|  |  \__  \\_  __ \/ __ |
    ///\__|    |/ __ \|  |  |_\    \_\  \  |  // __ \|  | \/ /_/ |
    //\________(____  /__|____/\______  /____/(____  /__|  \____ |
    //              \/                \/           \/           \/

    //________
    //\_____  \__  _  ______ _____     ____   ____
    // /   |   \ \/ \/ /    \\__  \   / ___\_/ __ \
    ///    |    \     /   |  \/ __ \_/ /_/  >  ___/
    //\_______  /\/\_/|___|  (____  /\___  / \___  >
    //        \/           \/     \//_____/      \/
    //------------------------------------------------------------------------------

    //------------------------------------------------------------------------------
    //                            | What It Does |
    //                            -=-=-=-=-=-=-=-=-
    //  * This Script Is Designed To Walk To Draynor And Kill JailGuards.
    //  * Thus Gaining Combat Exp.
    //  * I Will Update This Script As Much As I Can.
    //  * This Script Will Stay Free!
    //------------------------------------------------------------------------------

    //------------------------------------------------------------------------------
    //                              | Setup |
    //                              -=-=-=-=-
    // *  Start Script Anywhere With Combat 30 + Players.
    // *  Equip Only 3 Bits Of Armour/Weapons.
    // *  Declare Players Username Pass Nickname How Many Guards To Kill & Skill [fighting type].
    //------------------------------------------------------------------------------

    //------------------------------------------------------------------------------
    //                                | Extra Info |
    //                              -=-=-=-=-=-=-=-=-
    // * This Script Will Die And Return Thus Running For Long Periods Of Time.
    // * I Am NOT Responsible For Anythink (Being Banned & Loseing Items).
    // * Post Proggies & Bugs Please.
    // * ©~Rudeboialex @ SRL Forums.
    //------------------------------------------------------------------------------

    //------------------------------------------------------------------------------
    //                             | Credits |
    //                             -=-=-=-=-=-
    // * Fakawi For Alot Of Procedures Ect... Thanks man!
    //------------------------------------------------------------------------------


    program JailGuard;
    {.include SRL/SRL.scar}


    Const
    Killz = 5; // How Many Guards To Kill UntilSwitching Players.


    Procedure DeclarePlayers;
    Begin
    NumberOfPlayers(6);


      Players[0].Name :='Username';
      Players[0].Pass :='Password';
      Players[0].Nick :='3-4 Letters Of Your Name';
      Players[0].Active :=True;
      Players[0].Skill:= 'Attack'; // Attack ,Strength Or Defence.


      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Active :=True;
      Players[1].Skill:= 'Attack'; // Attack ,Strength Or Defence.


      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Active :=True;
      Players[2].Skill:= 'Attack'; // Attack ,Strength Or Defence.


      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Active :=True;
      Players[3].Skill:= 'Attack'; // Attack ,Strength Or Defence.


      Players[4].Name :='';
      Players[4].Pass :='';
      Players[4].Nick :='';
      Players[4].Active :=True;
      Players[4].Skill:= 'Attack'; // Attack ,Strength Or Defence.


      Players[5].Name :=' ';
      Players[5].Pass :='';
      Players[5].Nick :='';
      Players[5].Active :=True;
      Players[5].Skill:= 'Attack'; // Attack ,Strength Or Defence.


      Writeln('Using '+IntToStr(NumberOfPlayers)+' Players');
    end;


    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 10 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;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
           9: RC;
           10: Respond;
        end;
        wait(1);
      end;
    end;


    Procedure SetPlayerFightMode
    begin
      if ( not ( LoggedIn )) then Exit;
      GameTab(1);
      begin
         if  Players[CurrentPlayer].Skill = 'attack'    then SetFightMode(1);
         if  Players[CurrentPlayer].Skill = 'strength'  then SetFightMode(2);
         if  Players[CurrentPlayer].Skill = 'defence'   then SetFightMode(4);
         LampSkill := LowerCase ( Players[CurrentPlayer].Skill );
      End;
    End;


    Procedure LumbridgeTeleport;
    Begin
      if TabExists(7) then GameTab(7) else Exit;
      SetChat('off', 1);
      Cast('Home Teleport');
      Wait(15000 + Random ( 2000 ));
      End Else
      if FindBlackChatMessage('to wait') then
      begin
        Players[CurrentPlayer].Active := False;
        Players[CurrentPlayer].Loc :='Teleport Fail';
        LogOut;
        Writeln('Need To Wait Some Teleport Time Try This Player Again in 30 mins.')
      End;
    End;


    Procedure GuardColors;
    Begin
    GuardColor[1] := 1125770; // Red Shirt.
    GuardColor[2] := 1126285; // Red Shirt 2.
    GuardColor[3] := 3096903; // Body.
    GuardColor[4] := 3491662; // Body 2.
    GuardColor[5] := 2180171; // Glove.
    GuardColor[6] := 535084; // Glove 2.
    GuardColor[7] := 1319725; // Trouser.
    GuardColor[8] := 1847102; // Trouser 2.
    GuardColor[9] := 4282483; // Skin.
    GuardColor[10] := 4085104; // Skin 2.
    End;


    Procedure FightTheGuards;
    var CBx,CBy : Integer;
    Begin
      for Numbers := 1 to 10 do
        begin
        CBx := MSCx;
        CBy := MSCy;
        if FindColorSpiralTolerance(CBx, CBy, GuardColors[Numbers], MSX1, MSY1, MSX2, MSY2, 15) then
          begin
            Mouse(CBx, CBy, 0, 0, True);
                repeat
              Wait(100);
              until(not(findfight));
            Writeln (' Killed Guard =]')
              Guards := Guards + 1;
            Until Guards = Killz;
          End;
        End;
      End;
    End;


    Procedure WalkToDraynor;
    Begin
    RadialRoadWalk(RoadColor, 0, 14, 60, -1, 1);
    Flag;
    End;


    begin
    SetupSRL;
    end.

  2. #2
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    and why is this in scripting help? u r not posting a problem ore something...

    its should be in 'snippets' section

  3. #3
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just a hint: theres an SRL function to check the wait time to lumb tele. =] looks nice good work
    ~ Metagen

  4. #4
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by MasterKill View Post
    and why is this in scripting help? u r not posting a problem ore something...

    its should be in 'snippets' section
    OHhhhhhhh God Wrong section

  5. #5
    Join Date
    Dec 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah, the script does look pretty peachy dude, keep up the good work =]

  6. #6
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rudeboialex View Post
    OHhhhhhhh God Wrong section
    owned?


    the start of this script looks fine

  7. #7
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You think i should continue it ?? I will continue it but after i learn some more

    -----------Close----------

  8. #8
    Join Date
    Sep 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    High or low detali playing ?

  9. #9
    Join Date
    Sep 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    FUCKING HELL NO SCRIPT WON'T WORK FOR ME I DO EVERYTHING RIGHT I GOT SLR and i write the things i need to buy w00t IT DOSENT WORK FREAKING GAY !

  10. #10
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    (Allow me):
    God...

    Fraxxo, your first post = Bah
    Second post = Make your own thread (WITH LESS CURSING), and describe your problem. And BTW: Bah

    AND! You double posted which is against the rules.

    -Knives

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [Beta] Draynor JailGuard Ownage! [SRL 4.00]
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 09-15-2007, 10:02 AM
  2. SRL Template
    By WT-Fakawi in forum Research & Development Lounge
    Replies: 13
    Last Post: 08-13-2007, 12:55 AM
  3. SRL template?
    By dvdcrayola in forum OSR Help
    Replies: 2
    Last Post: 08-02-2007, 03:05 AM
  4. Jailguard Fighter /w Walkback
    By gnarlz in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 04-03-2007, 01:38 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
  •