Page 1 of 2 12 LastLast
Results 1 to 25 of 43

Thread: SRL Memberz [All reveled]

  1. #1
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default SRL Memberz [All reveled]

    How to become A Respected SRL Member


    DISCLAIMER!!

    This will only work if you have read the begginer and some of the intermidiate stuff.
    I am not responsible for any denied appeals!

    Intro


    Ok So you want to be an srl Member.
    Your just dying to reap the rewards of becoming an established scripter among the ranks of the second elite.
    (Behind the devs, Of course ).
    Read this Tutorial and Find Out how you may achive this...


    Links- Might want to visit before reading!

    Try Boreas Tut

    JAD's Tut

    n33ss3ss3sss3s3333ssssss's Tut

    Anyothers {Search Button}

    -----------------------------------------------------------------------
    STUFF YOU N33D!!!


    *=Not required

    The Criteria Of your Script Must Contain;

    Failsafes <-- Very Useful!!

    Cases <-- Must know these

    Dtm's/DDTM's <--- DTM=Nessesity

    Bitmaps*<---Conditional

    Arrays*+ Mapwalking<--- Mapwalking= Nessesity

    SetupPlayers<--- Need this!

    MultiPlayers<--- Helps alot!

    RaidalWalk/RadialRoadWalk* <--- ++Chances of you getting in
    ^^^^^^^^^See Bobbohobbo's Tut^^^^^^^^^^

    Forms*<--Help alot!

    UsingColours*<--English Spelling

    --------------------------------------------------------------------------

    Prologue

    Ok So you got that covered Chances are that you will fail the first time you apply.
    Thats why waiting is the key! I know this from past expeience i have Applied Eight Times Before.
    Two times on a different account .
    After around 2-3 appleals you should be in.

    When you read this tutorial DO NOT Cram yourself to the over-limit with knowledge just learn 1-2 new functions each day.
    Hell DO Test it out if all means so. If you are impatient then DO NOT continue.
    If You are a L33cher looking to exploit some of these scripts DO NOT waste time posting them up..
    Ok if you are ready, take a few pills have a cup of tea. And your ready to Begin...

    __________________________________________________ _____________

    Table Of Contents:

    0: What Type?

    1: Examples

    2:Attitude

    3:Facts/Credits


    What Types?

    I recommend Walking script i.e woodcutter and banker. AutoFighter.
    Miners? And if your really ambitious> Tut Runners

    EXAMPLES

    Ok they are 3 types of scripts that you can apply with.
    ( NB: This is MY Way of doing them use them as a guidline not all members agree)



    They Are classified as so#:


    1>The 'Bad' Script 1-50 lines:
    Example:

    SCAR Code:
    Program New;
    Begin
     Writeln('Hello World')
    end.

    As you can see this is what would not get you into members.
    As everyone knows you will be classed 'as the person who looks up Pascal in wikipedia and copies examples'.
    This will NOT damage your chances for members but it might take some time for you to get the right image into their heads.


    2>The 'Alright/Ok' Script 200-450 lines#:
    Example:
    SCAR Code:
    program AutoYewz;
    {.include srl/srl.scar}
    {.include SRL/SRL/skill/WoodCutting.scar}

    //----------------------------------------------------------------------------//
    //---> Variables                                                              //
    //----------------------------------------------------------------------------//

    var
      BrokenAxeMask, AxeMask, x, y, Yew_LogMask, Tries: integer;
      LoadsB, LogsChopped, DeathsAvoided, lol: integer;
      Steel_Axe, Rune_Axe, Addy_Axe, Mith_Axe: integer;
      Chat, Axe, position: string;


    procedure LoadVars;
    begin;


      AxeMask := DTMFromString('78DA635465606058CA800618914820AD09245' +
        '613500332671D01350A4062150135D244B84703482C23A0461248' +
        'ACC5AF06001A0805A5');

      BrokenAxeMask := DTMFromString('78DA6354616060906040038C0CFFC12403C37' +
        'F20605407326430D52048200D52A348400DC82E79026A1480842C' +
        '01359A404212BF1A005BE90697');

      Rune_Axe := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
        '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
        'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03');

      Addy_Axe := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
        '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
        '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8');

      Mith_Axe := DTMFromString('78DA633CC4C4C010C0C8800C5A53F81852803' +
        '448F43F10309E05AAF14155636111CCC0055503028CE7816A5C51' +
        'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64');

      Steel_Axe := DTMFromString('78DA63CC636260D8C3C8800C5A53F81852803' +
        '448F43F10305602D5EC4055939B9ACAC0055503028CD540351B51' +
        'D594E5E5A2AA29C154D3545989A20600C3BC0E32');

      Yew_logMask := DTMFromString('78DA63CC656260E0646440063E969C601A26C' +
           'A98C284C483014654352540357F19F0ABA900AA1120604E1A508D' +
           '280135B14035BC04D49403D5B0E1570300088D04EC');

    end;
    //----------------------------------------------------------------------------//
    //---> Setup                                                                  //
    //----------------------------------------------------------------------------//

    const
      Direction = 'W'; // direction to run if in case of fight?
      Mask = 'Norton Anti-Virus'; //what you want scar to desguise it's self as?
      Loads = 2; //how many loads for each player?
      GetBesAxe = 'Rune'; // case of losing your axe :P must have axe on you in bank
                           // Choose from : Addy, Rune, Mith, Steel.
    //-----------------------------------------------------------------------//
    //---> Version Number No touching                                        //
    //-----------------------------------------------------------------------//

      VersionNumber = '0.1'; //leave this alone!

    //----------------------------------------------------------------------------//
    //---> Setup Players                                                          //
    //----------------------------------------------------------------------------//

    procedure DeclarePlayers;
    begin
      Disguise(Mask);
      getapplication.MINIMIZE;

      HowManyPlayers := 2;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;


      Players[0].Name := 'tttttt'; //Your Username.
      Players[0].Pass := 'ttttt'; // Your Password.
      Players[0].Nick := 'ttt'; // 3-4 letters from your name.
      Players[0].Active := True; //True = Use player, False = Don't use.
      Players[0].pin := 0000; //pin in here if you dont have dont touch!

      Players[1].Name := ''; //Your Username.
      Players[1].Pass := ''; // Your Password.
      Players[1].Nick := ''; // 3-4 letters from your name.
      Players[1].Active := True; //True = Use player, False = Don't use.
      Players[1].pin := 0000; //pin in here if you dont have dont touch!


      writeln(inttostr(HowManyPlayers) + ' Players');
    end;

    //----------------------------------------------------------------------------//
    //---> SuperScripter's Auto Responder                                         //
    //----------------------------------------------------------------------------//

    procedure SSAutoRespond;
    begin
      if InChat('lol') then
      begin
        case Random(19) of
          2: TypeSend('...')
            5: TypeSend('Lil')
            8: TypeSend('contento')
            13: TypeSend('Hehe')
            15: TypeSend('funy')
            17: TypeSend(':)')
            19: TypeSend('wave:zzzzzz')
        end;
        if InChat(Players[CurrentPlayer].Nick) then
        begin
          case Random(7) of
            2: TypeSend('!!!');
            5: TypeSend('No me gusta ingles'); // <-- SPanish :p
            7: TypeSend('Estoy Trieste'); // some more spanish :D
            9: Typesend('chicos verqueros')
          end;
        end;
      end;
    end;

    //----------------------------------------------------------------------------//
    //---> Find Fast Randoms!!!!                                                  //
    //----------------------------------------------------------------------------//

    function FindFastRandoms: Boolean; //By Wt-Fakawi
    var
      i: Integer;
    begin
      for i := 1 to 11 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: begin
              if FindFight then
              begin
                RunTo(Direction, False);
                Wait(5000 + random(3000));
                Runback;
                DeathsAvoided := DeathsAvoided + 1;
              end;
            end;
          10: if FindTalk then
              Result := True;

          11: if ClickToContinue then
              Result := True;
        end;

      end;
    end;

    //----------------------------------------------------------------------------//
    //---> Different Cutting Ways                                                 //
    //----------------------------------------------------------------------------//

    function DifferentTechniques: Boolean;
    begin
      case Random(6) of
          1: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
          2: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
          3: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
          4: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
          5: begin
            Mouse(x, y, 1 + Random(6), 5 - Random(4), false)
              wait(200 + Random(234))
              ChooseOption('Chop')
          end;
      end;
    end;

    //----------------------------------------------------------------------------//
    //---> AntiBan                                                                //
    //----------------------------------------------------------------------------//

    procedure AntiBan;
    begin
      case Random(30) of
        1: HoverSkill('Random', false);
        5: AlmostLogout;
        9: HoverSkill('woodcutting', false);
        19: BoredHuman;
        25: RandomMovement;
        30: RandomRClick;
        27: PerfectNorth;
      end;
    end;

    //----------------------------------------------------------------------------//
    //---> Banking Procedure                                                      //
    //----------------------------------------------------------------------------//

    Procedure NOpenBank;
    Begin;
     If FindObj(x,y,'Bank',7042941,5) or
        FindObj(x,y,'booth',2900815,5) or
        FindObj(x,y,'ank boo',7767438,5) then
        Begin
          Mmouse(x,y,0,0)
            If IsUpText('Use') then
              Begin
                Mouse(x,y,0+Random(3),3-Random(2),false)
                ChooseOption('uickly')
                wait(1000+Random(3450))
              end;
             Writeln('Bank Found')
            end;
         end;
    //----------------------------------------------------------------------//
    //---> Depositing..                                                     //
    //----------------------------------------------------------------------//

    Procedure NDeposit;
      Begin
       If finddtm(Yew_LogMask,x,y,MIX1,MIY1,MIX2,MIY2) then
        writeln('found')
        Begin
          mouse(x,y,2,0+Random(2),false)
          ChooseOption('All')
          wait(300+Random(700))
        end;
      end;
    //----------------------------------------------------------------------//
    //---> Get Axe Head                                                     //
    //----------------------------------------------------------------------//

    procedure GetAxeHead;
    begin
      if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin;
          Axe := 'Present'
      end;
      if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
      begin
        Axe := 'Absent';
        writeln('Axe Absent')
      end;
    end;

    //------------------------------------------------------------------//
    //---> Get Best Axe   -->  Will Get axes Up to Steel  <--           //
    //------------------------------------------------------------------//

    procedure GetBestAxe;
    begin
      if Axe = 'Absent' then
      begin
        wait(100 + Random(200))
            NOpenBank;
          if (bankScreen) then
          FixBank;
        begin
          case GetBesAxe of
            'Rune': begin
                if (findDTM(Rune_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
                  mouse(x, y, 0, 2, true)
              end;
            'Addy': begin
                if (findDTM(Addy_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
                  mouse(x, y, 0, 2, true)
              end;
            'Mith': begin
                if (findDTM(Mith_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
                  mouse(x, y, 0, 2, true)
              end;
            'Steel': begin
                if (findDTM(Steel_Axe, x, y, MSX1, MSY1, MSX2, MSY2)) then
                  mouse(x, y, 0, 2, true)
              end;
          end;
          CloseBank;
        end;
      end;
    end;


    procedure WaitWhileCutting;
    begin
      repeat
        FindEnt(x, y, true);
        AntiBan;
        FindFastRandoms;
        GetAxeHead;
        GetBestAxe;
        SSAutoRespond;
      until (not (IsUpText('Chop')))
    end;



    function Chop: boolean;
    begin
      if FindObj(x, y, 'Yew', 1855816, 5) then
      begin
        FindFastRandoms;
        if isuptext('Chop') then
        begin
          FindEnt(x, y, true)
            mouse(x, y, 2, 2, true)
            wait(30 + Random(290))
            DifferentTechniques;
          WaitWhileCutting;
        end;
       Result:=True;
      end;
    end;


    procedure WalktoYewz;
    begin;
     if (not (LoggedIn)) then LoginPlayer;
      HighestAngle;
      wait(200 + Random(340))
      Makecompass('N')
      SetRun(True)
      Gametab(4);
      GetAxeHead;
      mmouse(x,y,0,2)
      GetBestAxe;
      wait(200 + Random(200))
        // FIX!!!!!
        Flag;
        If findsymbol(x,y,'Tree')then
          Begin
           mouse(x,y+10,0,0,true)
             if (flagpresent) then
               Flag;
            end;
          end;


    procedure getposition;
    begin
      if findsymbol(x, y, 'water') then
      begin
        position := 'North'
      end else
      begin
        position := 'South'
      end;
    end;

    function switchposition: boolean;
    begin
      getposition;
      if position = 'South' then
      begin
        if findcolorspiraltolerance(x, y, 91905, 630, 20, 672, 67, 50) then
        begin
          mouse(x + 6, y + 5, 2, 2, true)
            flag;
          result := true
        end else
          result := false
      end;
      if position = 'North' then
      begin
        if findcolorspiraltolerance(x, y, 91905, 610, 96, 661, 150, 50) then
        begin
          mouse(x + 6, y - 5, 2, 2, true)
            flag;
          result := true
        end else
          result := false
      end;
    end;



    procedure ChopDown;
    begin;
      if not (loggedin) then
        Nextplayer(true);
      SetRun(false);
      gametab(4);
      HighestAngle;
      begin
        repeat
          Chop;
          if not FindObj(x, y, 'Yew', 1855816, 5) then
          if (not IsUpText('Yew'))then
            SwitchPosition;
          AntiBan;
          wait(5000 + Random(1000))
        until (invfull)
          logschopped := logschopped + 27;
      end;
    end;

    procedure Bank;
    begin;
      if (not(loggedin))then
      NextPlayer(false);
      if (invfull) then
        begin
          GetPosition;
          if position = 'North' then
            SwitchPosition;
              if findsymbol(x, y, 'dungeon') then
                Makecompass('N');
                Mouse(x, y, 0 + Random(3), 1 - Random(1), true);
                  if (FlagPresent) then
                    Flag;
                    SetRun(True);
                    mouse(641, 32, 0, 0, true)
                  if (flagpresent) then
                    Flag;
                    if findsymbol(x, y, 'Bank') then
                 mouse(x, y, 2 + Random(1), 3 - Random(2), true);
               if (flagpresent) then
             repeat
               wait(6000 + Random(4000))
             until not (flagpresent)
              MakeCompass('E')
              LowestAngle;
              NOpenBank;
         if (PinScreen) then
        begin
          InPin(IntToStr(Players[CurrentPlayer].Pin));
            if (bankScreen) then
              begin
                Deposit(2,28,2);
                wait(1000 + Random(200))
                CloseBank
                LoadsB := LoadsB + 1;
              end;
            end;
          end;
    end;


    procedure Proggie;
    var
      PActive: string;
    begin
      SRLRandomsReport;
      if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
      Writeln('//=============== Auto  ================\\');
      Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
      Writeln('/==========================================\');
      Writeln('|      Worked for ' + TimeRunning);
      Writeln('|      Chopped ' + IntToStr(LogsChopped) + (' logs.'));
      Writeln('|      Banked ' + IntToStr(LoadsB) + (' times.'));
      writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.'));
      Writeln('\==========================================/');
    end;

    //------------------//
    //Edited Out;
    //Credit me for any uses you might need ;p//

    {--------Main Loop Ends----------}
        {-Script Ends Here :(-}

    Another Primitive Example:
    SCAR Code:
    {.Script Info:
    # ScriptName  = PwrMiner
    # Author      = ->(Nauman)<-
    # Description = Mines The Selected Ore then DROPS!! IT.
    # Version     = 0.1 BETA
    # Date        = 23rd October 2007
    # Comments    = Use this well!
    # Instructions= 1.Have Your Axe Weilded
                    2.Stand Next to the Ore you want to PwrMine.
                    3.Fill Out the form 48-89.
                    4.Specify The Window Press Play
                    5.Enjoi!
    /Script Info}

    {         ------------------------------------------------------------------
             |       /-------------\                  /---------               |
             |      /               \                /          \              |
             |     /                \               /            \             |
             |     |        |       |              |       |      |            |
             |     |        |       |              |       |      |            |
             |     |        |       |              |       |      |            |
             |     |________|       |              |______ |      |            |
             |              /       /                   /       /              |
             |             /       /                   /       /               |
             |            /       /                   /       /    SCRIPT      |
             |           /       /    UPER           /       /_____            |
             |          /       /                  |/      |/      |           |
             |         /       /                   |       |       |           |
             |        /       /                    |       |       |           |
             |       /       /                     |       |       |           |
             |      /       /________              \                /          |
             |     |       |        |               \              /           |
             |     |       |        |                \------------/            |
             |     |       |        |                                          |
             |     |       |        |   Version Info:                          |
             |      \               /    Version 0.0001 Test <- Just a Test Ver|
             |      \             /       Version 0.001<-- Current Version     |
             |        \           /   Updates!                                 |
             |         \---------/      Version 0.1<-- Should Be Banking Soon! |
             ------------------------------------------------------------------
    }


    program PowerMiner;
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}

    var
      Oremask, AxeMask, LoadsB, fx, fy: integer;
      OresMined, DeathsAvoided, x, y: integer;
      BrokenPickAxe, PickAxeHandle: integer;
      Mark:integer;
      AxeLost: Boolean;
      Axe: string;

    const
      What_To_Mine = 'Copper'; //What rock to mine Choose between:Clay,Copper,Tin,Iron,Silver//
                          { Note: This is powerminer it will drop the ore not bank it}
      Loads = 10; // How many Loads or inventoryfull's to drop!!!

      What_To_Disguise_Scar_As = 'Deezer | Music on demand, f...'; //you got it :)

    //-----------------------------------------------------------------------//
    //---> Version Number No touching                                        //
    //-----------------------------------------------------------------------//

      VersionNumber = '0.1 BETA'; // dont touch!

    //----------------------------------------------------------------------------//
    //---> Setup Players                                                          //
    //----------------------------------------------------------------------------//

    procedure DeclarePlayers;
    begin
      GetApplication.MINIMIZE;
      Disguise(What_To_Disguise_Scar_As);

      HowManyPlayers := 3;
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'srl';
      Players[0].Pass := 'poo';
      Players[0].Nick := 'rlco'; //3 Lowercase Letters of your username//
      Players[0].Active := True; //player active?

      Players[1].Name := 'Srl';
      Players[1].Pass := 'poo';
      Players[1].Nick := 'rlco'; //3 Lowercase Letters of your username//
      Players[1].Active := True;

      Players[2].Name := 'srlc';
      Players[2].Pass := 'po';
      Players[2].Nick := 'rlco'; //3 Lowercase(aai not AAI)<-- Letters of your username//
      Players[2].Active := True;

    end;


    //------------------------------------------------------//
    //---> Load DTM's + Bitmap's!                           //
    //------------------------------------------------------//

    procedure LoadVars;
    begin

    OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
           '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
           'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
           'B599CC1');

    AxeMask := DTMFromString('78DA63BCCFC0C010CAC8800A1819FE8349068' +
        '6FF40C0F800C888C554832081F47520114D40CD2320114940CD33' +
        '20114F40CD2B20914040CD25C2EE01001A130DB2');

    BrokenPickAxe:= BitmapFromString(37, 36,
            'z78DAED97C11580200CC556EA14EE3F1213D4E7A32DF697E4EAC5' +
            '180A680600A0CAE330C36BEF699F0AEFF4B7AB789319765E47753' +
            'BC5F59935779D7798EF5F20B7751FBB887BD6AA38E995DBEBA463' +
            '7C6FAC98E8BFAA29DE246FF0A21AD5A88657FC0CA51AD5A846B58' +
            '81DD514FFB567786137CFD100CA58F61718BB');

    end;

    //----------------------------------------------------------------------------//
    //---> Find Fast Randoms!!!!                                                  //
    //----------------------------------------------------------------------------//

    function FindFastRandoms: Boolean; //By Wt-Fakawi
    var
      i: Integer;
    begin
      for i := 1 to 12 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: begin
              if FindFight then
              begin
                RunTo('N', False);
                Wait(5000 + random(3000));
                Runback;
                DeathsAvoided:=DeathsAvoided+1;
               end;
            end;
          10: if FindTalk then
              Result := True;
           11: if ClickToContinue then
              Result := True;
          end;
      end;
    end;

    //--------------------------------------------------------------------//
    //---> Broken Pic Checker                                             //
    //--------------------------------------------------------------------//

    procedure Check;
    Begin
      If FindBitmap(BrokenPickAxe,x,y)then
       begin
        mouse(x,y,2,3,false)
        ChooseOption('Drop')
        Writeln('Gas Got us Terminating Script!')
        LogOut;
        NextPlayer(true);
      end;
    end;

    //------------------------------------------------------------------------//
    //---> Pic Axe Handle Checker                                             //
    //------------------------------------------------------------------------//
    Function PickChecker:boolean;
      begin
       PickAxeHandle := BitmapFromString(37, 36,
            'z78DAEDD8B10940211044C196AE0AFB2FC954102E5E9679A1D15F' +
            'C69F382349CAED3CF5EDDA4FACCB5FD77D33A9F9D7A851A3468D5' +
            'AFEAEEE75D4A851A3466DFFFED675D4A851A366DDBFA5F59D5C69' +
            '5DF233F830');
      if (not(FindBitmap(PickAxeHandle,x,y)))then
        Begin;
         AxeLost := False;
         Exit;
           If FindBitmap(PickAxeHandle,x,y) then
             Begin
               AxeLost := True;
               FindPick;
             end;
          end;
       end;


    //------------------------------------------------------------------------//
    //---> NAuto Responder!                                                   //
    //------------------------------------------------------------------------//

    Procedure NAutoRespond;
     begin                                     //                       _!_!_!_
       if FindChatText('Mining lvl') then     //Auto Responder by me!!! |*_* |
         SayCurrentLevels('Mining');         //                         |""" |
        If FindChatText('lol')then            //                        | "  |
          Begin                               //                        -----
           Case Random(7) of
              1:TypeSend ('^-^')
              2:TypeSend ('Lawl')
              3:TypeSend ('l0l')
              4:TypeSend ('Hehe')
              5:TypeSend ('Whats it is this time? :P')
              6:TypeSend ('Yawn!')
              7:TypeSend ( 'red:scroll:##########.......~~~~~~~~')
             end;
           if FindChatText(Players[CurrentPlayer].Nick)then
                Begin
                  Case Random(3) of
                    1:TypeSend ('!!!');
                    2:TypeSend ('Sorry No english');
                    3:TypeSend ('From English Not me no');
                  end;
                end;
              end;
           end;
    //------------------------------------------------------------------------//
    //---> My Ubber Sigggy!                                                   //
    //------------------------------------------------------------------------//

    procedure sig;
    begin;
      cleardebug;
      writeln('  ########          #########          Super        ')
        wait(750)
        writeln(' #                  #                  Script       ')
        writeln(' #                  #                                ')
        wait(750)
        writeln(' # # # # #            # # # #         B               ')
        wait(750)
        writeln('          #                  #        Y               ')
        wait(750)
        writeln('          #                  #        ->[Nauman]<-   ')
        wait(750)
        writeln('##### ###            ########      Yakman rulz !!    ')
        wait(1000)
    end;

    //----------------------------------------------------------------------//
    //---> Get Axe Head                                                     //
    //----------------------------------------------------------------------//

    procedure GetAxeHead; // Adapted from my Yew Script
    begin;
      if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin;
        Mmouse(x, y, 2 - Random(2), 2)
          if isuptext('Wield') then
          writeln('Found An Axe!!')
          mouse(x,y,0,0,true)
            Axe := 'Present'
          end;
      if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
      begin
        Axe := 'Absent';
        writeln('Axe Absent')
      end;
    end;

    //----------------------------------------------------------------------------//
    //---> AntiBan                                                                //
    //----------------------------------------------------------------------------//

    procedure AntiBan;
    begin
      case Random(30) of
        0: gametab(1+Random(5))
        1: HoverSkill('Random', false);
        5: Mmouse(882+Random(100), 323+Random(122),100-Random(99+1),999-Random(198));
        9: HoverSkill('Mining', false);
        19: BoredHuman;
        25: RandomMovement;
        30: RandomRClick;
        27: PerfectNorth;
      end;
    end;

    //----------------------------------------------------------------------------//
    //--->Waiting..                                                               //
    //----------------------------------------------------------------------------//

    procedure WaitWhileMining;
    begin
      MarkTime(mark)
      repeat
        NAutoRespond;
        FindFastRandoms;
        PickChecker
        Check;
        if GasFound(fx, fy) then
        begin
          RunTo('E', False)
            wait(7000 + Random(3000))
            writeln('We avoided Gas!!! :P')
            RunBack;
        end;
        NAutoRespond;
        AntiBan;
    until (FindBlackChatMessage('You manage to mine some')) or (TimeFromMark(mark)>20000)
    end;

    //-------------------------------------------------------------------//
    //---> Setup Procedure                                              //
    //-------------------------------------------------------------------//

    procedure Setup;
    begin
      if (not (LoggedIn)) then LoginPlayer;
      begin
        SetRun(True);
        GameTab(4);
        SetChat('on',1);
        SetChat('off', 2);
        wait(234 + Random(1000));
          GetAxeHead;
        wait(2 + Random(3));
          MakeCompass('N');
      end;
    end;

    //-------------------------------------------------------------------//
    //---> Mining Procedure                                              //
    //-------------------------------------------------------------------//
    procedure Mining;
    begin;
      HighestAngle;
      case what_to_mine of
        'Clay': begin
            repeat
              if FindObjOre(x, y, 'Mine', 6989253, 5, 2) then
                mmouse(x, y, 2, 2)
                  if IsUpTextMulti('min', 'ne', 'rocks') then
                  wait(100 + Random(300))
                    mouse(x, y, 0, 2, true)
                    WaitWhileMining;
              OresMined := OresMined + 1;
            until (invcount = 28)
          end
          'Copper': begin
            repeat
              if FindObjOre(x, y, 'Rock', 2902115, 5, 2) then
                mmouse(x, y, 0, 2)
                  if IsUpTextMulti('Min', 'ne', 'Rocks') then
                  wait(100 + Random(300))
                    mouse(x, y, 0, 2, true)
                    WaitWhileMining;
              OresMined := OresMined + 1;
            until (invcount = 28)
          end;
        'Iron': begin
            repeat
              if FindObjOre(x, y, 'Mine', 610943, 5, 2) then
                mmouse(x, y, 0, 2)
                  if IsUpTextMulti('min', 'ne', 'rocks') then
                  wait(100 + Random(300))
                    mouse(x, y, 0, 2, true)
                    WaitWhileMining;
              OresMined := OresMined + 1;
            until (invcount = 28)
          end;
        'Silver': begin
            repeat
              if FindObjOre(x, y, 'Mine', 10724528, 5, 2) then
                mmouse(x, y, 0, 2)
                  if IsUpTextMulti('min', 'ne', 'rocks') then
                  wait(100 + Random(300))
                    mouse(x, y, 0, 2, true)
                    WaitWhileMining;
              OresMined := OresMined + 1;
            until (invcount = 28)
          end;
      end;
    end;

    //-------------------------------------------------------------------//
    //--->Dropping...                                                    //
    //-------------------------------------------------------------------//

    procedure DropOres;
    begin
      if not (loggedin) then NextPlayer(True);
      if (invcount = 28) then
      begin
         MmouseItem(28)
             if isuptext('Use') then
          begin
            DropToPosition(2, 28)
              LoadsB := LoadsB + 1;
          end;
       end;
        end;

    //-------------------------------------------------------------------//
    //---> My Proggie                                                    //
    //-------------------------------------------------------------------//

    procedure Proggie;
    var
      PActive: string;
    begin
      SRLRandomsReport;
      if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
      Writeln('//=============== Auto PwrMiner ================\\');
      Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
      Writeln('/==========================================\');
      Writeln('|      Worked for ' + TimeRunning);                       //|
      Writeln('|      Mined ' + IntToStr(OresMined) + (' Ore$.             |'));
      Writeln('|      Load Dropped ' + IntToStr(LoadsB) + (' Yay!          |'));
      writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
      Writeln('\==========================================/');
    end;

    //----------------------------------------------------------------------------//
    //---> The magical Main Loop                                                  //
    //----------------------------------------------------------------------------//
    begin
      MarkTime(mark)
      SetupSRL;
      Sig;
      DeclarePlayers;
      LoadVars;
      Setup;
      Proggie;
      repeat
        Mining;
        DropOres;
        Proggie;
      until (LoadsB = Loads);
      if LoadsB = Loads then
      begin;
        Writeln('Loads Done and Dusted')
        NextPLayer(true);
       if timefrommark(mark) >40000 then
        TerminateScript;
      end;
    end.

     {--------Main Loop Ends----------}
        {-Script Ends Here :(-}


    The Top was my Yew cutter that ive applied with a few times a script with criteria similar to this will get you a 'head just over/below water' votings.
    This one i applied with a few times before. The PwrMiner you can use to learn from. But its been realeased officially so im letting you use it.
    With this pwrminer you can excpect your voting will be good or alright depending on the members m00ds .
    If you post these in your App you will get caught and have a damaged reputation<--Just to make it clear




    3: The 'Uber 1337' Script 450-1000+lines#:
    Example
    Here


    This Type will boost your chances of getting In.
    Believe me you need lots of experience.


    =================================================

    ATTITUDE

    When you go into the battlefield(;P) then you MUST take these on board

    1; Always DO listen to critisism. Most members have first hand experience at this.. Except Fakawi.. And Maybe...Kaitneiks

    2;DO NOT Hate someone just because they have voted no. They will have a very good reason for this. And will explain in thier posts.

    3;Always DO ask where you went wrong and how to improve so you stand a better chance next time.

    4;DO NOT post your Next Appeal after 3 weeks. There is a reason for this. Firstly it takes 2 weeks to make a new script and a few days to test it.

    5;Always laugh at members jokes ;p. Even if they don't make sense just laugh due to good manners.

    ++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++

    Facts!!!

    Fact Number 1: Did you know that only 2 out of 10 (per average) people get chosen for an srl member every month!

    Fact Number 2: Did you know that the members appliances forum gets around 5-10 app's a month.

    Fact Number 3: Did you know that they are numerous projects in srl that you could be in?

    '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''
    Credit List / Ty's

    Firstly I want to say thank-you to Fakawi and Wizzup for giving me a second Chance .

    Secondly I want to say another thank-you to RickJess and P1nky for there effort to support me.

    Thridly I want to say a 'furthermore' thank-you to the SRL Dev's and Members who made this possible.

    Fourthly I want to say thanks to the people who voted yes and no in my poll. Who made me correct my script as much as possible Thank-You.


    <<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>> >>


    ->{Nauman}<-

  2. #2
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    remember that lines dont mean everything. You could have a sick script with everything required with only around 350 lines. As long as it works properly and has everything.

  3. #3
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    kk.

  4. #4
    Join Date
    Aug 2007
    Location
    irc://irc.rizon.net:6667/srl
    Posts
    1,566
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Fact Number 2: Did you know that the members appliances forum gets around 5-10 app's a month.
    I've seen like 5-10 in a week once or twice since I got members lol

    & Nice tut. rep+ for helping ppl.

    "Far better it is to dare mighty things, to win glorious triumphs, even though checkered by failure, than to take rank with those poor spirits who neither enjoy much nor suffer much because they live in the gray twilight that knows neither victory nor defeat."
    — Theodore Roosevelt

  5. #5
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Thanks Jesus!

  6. #6
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Nice, but if my sticky doesn't start to show up there you'll get hurt as much as the applicants that don't read it Jk/Jk but I think you should add it:
    http://www.villavu.com/forum/showthread.php?t=19941

  7. #7
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Done n3s

  8. #8
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Yay! I'm in the "The 'Uber 1337' Script 450-1000+lines#:"? Lol, my apply sript had kinda 600+lines.
    but as stated before, the lines of the script aint enough. Ever heard about, for eg., the used technique?
    You're right about the walking, failsafes etc; I have to add that

    Btw, the example of the uberleetest script aint really uber leet in my opinion

    Nice "tut"

    -Tsn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  9. #9
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    ahem i repeat!!!!!!
    ( NB: This is MY Way of doing them use them as a guidline not all members agree)

  10. #10
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great tutorial. Hopefully a few less useless apps will show up now. Very informative and will be great to read before applying.


    5;Always laugh at members jokes ;p. Even if they don't make sense just laugh due to good manners.
    Is this your way of getting people to laugh at your bad comedy? (Kidding)
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  11. #11
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Yeah i guess. But it does get you votes especially when you laugh at N3s3ss's dried humour jokes XD

  12. #12
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    One thing, please modify that you'll need bitmaps OR dtms, not DTMs and that you might have bitmaps.
    I made a new script, check it out!.

  13. #13
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    kk

  14. #14
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    I edited it out for you (didn't know you were planning to).
    Hup Holland Hup!

  15. #15
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by [-jesus-] View Post
    I've seen like 5-10 in a week once or twice since I got members lol

    & Nice tut. rep+ for helping ppl.
    I second that.

    A great tutorial, good job.

    Don't go giving away our secrets

    Soon everyone will find out that [-jesus-] is a professional pimp.

  16. #16
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Lol i never knew this was going to be a good tut .
    Hope that this will get stickied *cough*Nielsie*cough*

  17. #17
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Edited a bit corrected spelling mistakes. Build up for newest chapter

  18. #18
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Common more replies.

  19. #19
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Why double post?

    Anyways, it's a good tutorial!

  20. #20
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Great tut Naum, thanks to you and your help I'm at 60% yes with my members app

    Rep for you

  21. #21
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Sorry for the double post.
    Thx DR

  22. #22
    Join Date
    Jan 2008
    Location
    Stanford, CA
    Posts
    329
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    hey i have a question. wat if the script i am making does not need radial walk (its an auto fletcher), but i do have map walking. would that negatively affect my chances A LOT?

  23. #23
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Not really it's just at what some members like to see.
    But Symbol clicking / map walking is applicable!

  24. #24
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    I cant read it! I hate the colours 0_o

    Lol, its long so it must be good.

    Either that or its just the huge font..

    =P Nice Tutorial ^^
    Jus' Lurkin'

  25. #25
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Lol its alright.
    My first proper tutorial

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. FrEe MeMbErZ l0l
    By poolikemax in forum News and General
    Replies: 22
    Last Post: 08-26-2008, 11:28 PM

Posting Permissions

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