SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
HTML, CSS, PHP, JS, Basic, C#, (Learning Pascal),


Are you a member of any other communities?
Used to be a member of MoparScape, however, I don'ty visit there anymore.


Tell us about yourself…

From: Blake2012
My name is Blake Reynolds, I am 18 years YOUNG! (19 on March 2nd)

Lets start with school. I really hated school, it didn't seem to do me any favors, however, now I have left, I wish I was still there, playing football every lunch on the football court, having fun in lessons with friends, but overall, I think I found myself in school, and yeah, he was a twat aswell! Hahaha, School actually taught me valuable lessons, it was the best time of my life, even though at the time I didn't know it.

During school I started to learn Web Design and Development at home as a hobby, I have been doing it now since I was around 13, so 5 years or so. I have done loads of 'mock-up' websites and some that are live on the internet today, I have a few websites of my own knocking up, you might of stumbled across them! My aim in life is to start my own business, it's going to be a tough challenge, but I hope someday I will get there in the end. I want to do this because I love web design and development. I am also a graphics artist, making logos, banners and flyers etc..

Also whilst not doing web design, I love doing internet radio, I started internet radio in 2008 where one of my friends Jack Davies, but sadly we don't speak much anymore, he helped me get started in internet radio, I thought it was cool and he went through everything with me and it was great! I then got better and better and now own about 5 microphones for radio broadcasting and broadcasted on many stations including the internet's most known and most popular station in the UK and across the world - Off The Chart Radio (http://www.offthechartradio.co.uk/) - I was with them for only a short period of 4 months because of time keeping at the time wasn't at it's best, but I did try to get involved with the station as much as possible and went along to OTC On Tour 2010 in Salford Quays, Manchester, where Me, 2 other presenters and the station director were all broadcasting from there, this was stop 5 of a 5 day tour of the UK, stops included in all different places all over the UK, that was fun!

Anyhow, thats a breif bio of what I do and what i've done. If you need to know more about me, don't hesitate to ask.


P.S, The script I have shown is my woodcutter, however is not 100% finished, BUT, fully working.

Please show us one (or multiple) of your scripts.

program DraynorPowerCutter;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i SRL/srl/misc/paintsmart.simba}

  {*====================================================================

      Draynor PowerCutter v1.2 BETA

      Version Release Date: 11/02/2012

      Author: Blake2012

      Support: [url]http://villavu.com/forum/showthread.php?t=74584[/url]

      This is a work in progress and may/may not function correctly.
            Please keep checking the thread for more updates.
                            Let a guy learn.

    Changelog:

      09/02/2012 - Basics done. i.e, Chopping, AntiBan and AntiRandoms
      09/02/2012 - Cleaned up script.
      09/02/2012 - Added more AntiRandom support.
      10/02/2012 - Added banking support.
      10/02/2012 - Added dropping support.
      10/02/2012 - Took out dropping support.
      11/02/2012 - Banking Fixed, bug stopped it from banking after so long.

  ====================================================================*}

  { ====================== IMPORTANT! ====================== }
  const
    TREE_TO_CUT = 'Willow'; // You don't need to change this.
    SIGNED_APPLET = True;

    { The options below are the most important }

    PLAYER_BANK_PIN = '';     // If you have a bank pin, enter it here
    IS_MEMBER = true;         // True for P2P, False for F2P
    S_WORLD = 38;             // Choose preffered world (38 is F2P)

  { ====================== IMPORTANT! ====================== }

  Var
  Logs_Chopped: Integer;
  EXP_Gained: Integer;

  Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      { ====================== PLAYER INFO! ====================== }
      Players[0].Name := '';   // Enter your login here
      Players[0].Pass := '';    // Enter your password here.
      Players[0].Nick := '';          // Any 3-4 letter from your username.
      { ====================== PLAYER INFO! ====================== }

      Players[0].Active := True;
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;



     {*====================================================================
      ====================================================================

                STOP WHERE YOU ARE! DO NOT GO ANY FURTHER.
                Well, you can go further. Just don't edit anything,
                otherwise you may cause the script to malfunction and
                not work.

                Only edit below if you are 100% sure you anow what
                you're doing.

      ====================================================================
      ====================================================================*}


        { Seriously, stop. }



    Procedure welcomeMsg;
    begin

      WriteLn('*********************************************************');
      WriteLn('*                                                       *');
      WriteLn('*           Draynor Powercutter v1.2 BETA               *');
      WriteLn('*                   By Blake2012                        *');
      WriteLn('*   [url]http://villavu.com/forum/showthread.php?p=922517[/url]    *');
      WriteLn('*                                                       *');
      WriteLn('*                                                       *');
      WriteLn('*   [*] Cuts Willows from Drayor                        *');
      WriteLn('*   [*] Banks Willows, with PIN Support                 *');
      WriteLn('*   [*] AntiBan - Ban Protection                        *');
      WriteLn('*   [*] AntiRandoms - Random Event Protection           *');
      WriteLn('*   [*] Easy to set-up and use                          *');
      WriteLn('*                                                       *');
      WriteLn('*    This is my first ever script, so please dont       *');
      WriteLn('*    be too harsh on me, Let a guy learn.               *');
      WriteLn('*                                                       *');
      WriteLn('*                                                       *');
      WriteLn('*********************************************************');

    end;

    Procedure AntiBan;
      begin
        if(not(LoggedIn)) then Exit;
        Case Random(250) of

        0:
          begin
            WriteLn('AntiBan Enabled - Randomized Human Action');
            RandomRClick;
          end;

        10:
          begin
            WriteLn('AntiBan Enabled - Randomized Human Action');
            HoverSkill('Woodcutting', false);
            wait(1634+Random(2169));
          end;

        30:
          begin
            WriteLn('AntiBan Enabled - Randomized Human Action');
            PickUpMouse;
          end;

        40:
          begin
            WriteLn('AntiBan Enabled - Randomized Human Action');
            MakeCompass('N');
              wait(100+random(433));
            MakeCompass('S');
              wait(50+random(124));
            MakeCompass('N');
            FindNormalRandoms;
          end;

          50:
            begin
              WriteLn('AntiBan Enabled - Randomized Human Action');
              ExamineInv;
            end;

        end;
      end;

    procedure AntiRandoms;
      begin
        FindNormalRandoms;
        LampSkill := 'woodcutting';
        LevelUp;
      end;

      Procedure findWillows;
      var
        WillowLogs, X, Y :Integer;
        begin

          WillowLogs := DTMFromString('mlwAAAHicY2dgYOADYikglgViUSDmAWJmBghghdLsQMwPxEJALADEbEDsYgNSzYQVczHgBox4MBQAAJQwAWY=');

          If FindDTM(WillowLogs, X, Y, MIX1, MIY1, MIX2, MIY2) Then
          begin
          end;

          FreeDTM(WillowLogs);

        end;

      Procedure WalkToWillows;
      Var
      walkTree:TPointArray;

      begin
        SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
        walkTree := [Point(4186, 3668), Point(4184, 3645), Point(4151, 3721)];
        SPS_WalkPath(walkTree);
      end;

    Procedure WalkToBank;
    Var
      walkBank:TPointArray;

    begin
      SetupSRL;
      SPS_Setup(RUNESCAPE_SURFACE,['10_9','11_9','11_8','9_8','9_9']);
      walkBank := [Point(4152, 3698), Point(4202, 3685)];
      SPS_WalkPath(walkBank);
    end;

    Procedure bankLogs;

      begin
      if(InvFull) then
      begin

        WriteLn('Inventory full, Banking');

        OpenBankFast('db');
          WriteLn('Depositing ' + TREE_TO_CUT + ' logs.');

        if(PinScreen) then
          WriteLn('Entering Bank PIN: ' + PLAYER_BANK_PIN + '.');
          InPin(PLAYER_BANK_PIN);

        if(BankScreen) then
          DepositAll;
          WriteLn('Deposited ' + TREE_TO_CUT + ' logs.');
          WriteLn('Closing Bank');
          WriteLn('Logs Chopped: ' + IntToStr(Logs_Chopped));
          WriteLn('Gained EXP: ' + IntToStr(EXP_Gained));

        CloseBank;
          WriteLn('Getting Walk Path');
          Wait(2000 + Random(1500));
          WriteLn('Found Walk Path');
          Wait(1000 + Random(300));
          WriteLn('Walking to Willows');

          end;
        end;

    Procedure checkFullInv;
    begin
      if(InvFull) then
        begin
          WriteLn('Inventory Full, finding bank path...');
          WalkToBank;
          Wait(1000 + Random(1500));
          WriteLn('Found Bank, Walking to bank...');
          bankLogs;
          WalkToWillows;
        end;
    end;

  Procedure OnScreen;
  var
    XPH, startLevel: Integer;
  begin
    startLevel := GetSkillLevel('woodcutting');

    XPH := Round((EXP_Gained * 3600) / (GetTimeRunning / 1000));

    SMART_DrawTextMulti(True, True, [
    'Draynor Powercutter v1.2 by Blake',
    'Ran For: '+MsToTime(GetTimeRunning, Time_Abbrev),
    'XP Gained: '+IntToStr(EXP_Gained),
    'Willows Cut: '+IntToStr(Logs_Chopped),
    'XP/Hour: '+IntToStr(XPH)],
    Point(10, 260), SmallCharsNS, 16777215);

  end;

    Procedure treeChop;
    var x, y: integer;
    begin
    if not LoggedIn then Exit;

    if(InvFull) then exit;
        repeat
          if FindObj(x, y, 'hop', 3491141, 10) then
            Mouse(x, y, 1, 1, true);
          repeat
            wait(500+random(450));
            AntiBan;
            AntiRandoms;
            checkFullInv;
            OnScreen;
            Until not(IsUpText('illow')or(InvFull))
          until(InvFull);
    end;



begin
  Smart_Server := S_WORLD;
  Smart_Members := IS_MEMBER;
  Smart_SuperDetail := False;
  Smart_Signed := SIGNED_APPLET;
  ClearDebug;

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;

  Logs_Chopped := 0;
  EXP_Gained := 0;

  ClearDebug;
    welcomeMsg;

  Smart_ClearCanvas;
  OnScreen;

  repeat
      WalkToWillows;
      treeChop;
      WalkToBank;
      bankLogs;
  until (Logs_Chopped >= 5000);

end.

Sorry, you just joined this month, you're too green for me. It's a No.

EDIT: Left your creds in the script, PM'd you a new pass.

No from me, it isn't that you are a bad member but your script could use a lot of work and activity is key!
—-

Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused, you have # posts and have been here since #/#! Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted.

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

I actually liked the efforts you put in your bio - people don't really give efforts about that but I think it's a very important way for us to get to know you.

Still, you'll have to do more than that to qualify. Like Kyle said, you're too green for members.

From: Kyle Undefined
Sorry, you just joined this month, you're too green for me. It's a No.

EDIT: Left your creds in the script, PM'd you a new pass.

Ohh crap! Haha!

Thanks!

No problem, that's a nice account from what I saw on the settings. I know I can trust the Members, but still better safe than sorry :)

Damn, if only you were active ;L

From: Sin
Damn, if only you were active ;L

Hahaha! I have been on the forums everyday actually ;) Checking them and learning new things.

From: Blake2012
Hahaha! I have been on the forums everyday actually ;) Checking them and learning new things.

I like that! Just remember a little activity here and there makes a whole world of difference. I really like that you are trying to give to the community with your tutorials, but posting more frequently will let us and everyone else get to know you better as well :)

From: R4nd0m
I like that! Just remember a little activity here and there makes a whole world of difference. I really like that you are trying to give to the community with your tutorials, but posting more frequently will let us and everyone else get to know you better as well :)

I plan to start posting more, I haven't posted much as i've been reading thousands of other posts, learning how to script for Simba.

I understand that activity is key, afterall, thats what makes a great community. And I can see why people are voting no, afterall, I did only join this month, But no doubt this will get denied, However, you will see another application in time! :)

Interesting script

I'm afraid it's a bit too simple for a members app.. Please apply again in 2 weeks! Closed.