SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
pur3b100d


What is your general programming knowledge?
As far as programming goes, no.
Simba was my first experience with programming.

I am, however, very proficient at HTML and CSS.


Are you a member of any other communities?
As far as Runescape related communities, no. I am only active on SRL.

I have a Facebook and a Youtube account.
I also play Neopets, on occasionally.


Tell us about yourself…

From: Paula_Deen
I'm from the United States. I'm 18 years old, and I'm a senior in High School.

I enjoy playing Runescape. I'm on the computer quite often, so I have an adequate amount of computer knowledge. I've build all of my computers, and I do all of the software and hardware repairs. This shows that I have computer literacy. I understand computers and coding (as mentioned before, HTML and CSS), so I feel that learning how to further my scripting potential should be second nature to me.

I also enjoy helping people. If someone finds something wrong with my script, I address that person directly, and I try to troubleshoot the problem as fast as possible.
I feel this is a very important credential when it comes to being a SRL member. Ever since I came to this site, I have felt a very friendly and close connection between the users.
I would love to help keep that positive atmosphere going throughout the future of this site.

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

I am the maker of the following script:
[url]http://villavu.com/forum/showthread.php?t=73161[/url]



program ChocolateCrusher;

{$DEFINE SMART}
{$i SRL/srl.simba}

var
  x, y, chocbar, chocdust, BarsCrushed, BreaksTaken, BreakTimer: Integer;

{YOU MUST HAVE EITHER A KNIFE OR A PESTLE AND MORTAR IN YOUR TOOLBELT!

-If you are a /member/, use the pestle and mortar.
The pestle and mortar crushes chocolate twice the speed of a knife.

-Free to play people will have to stick with a knife.

IMPORTANT:
  -Make sure you have your Chocolate Bars in the FIRST bank slot.
   The script will end if it is in any other slot.}

Const //Make sure you set 'LaggyComputer' accordingly!

  LaggyComputer     = True; // true = you're using a laggy computer. (This WILL lower profit/hr)
                             // false = you are using a fast computer.

  UseBreaks         = True; //Do you want to take breaks?
  BreakIn           = 90; //How many minutes until you take a break?
  BreakInRandom     = 10; //How many minutes should the "BreakIn" time be varied by?
  BreakFor          = 7; //How many minutes will you break for?
  BreakForRandom    = 7;  //How many minutes should the "BreakFor" time be varied by?

  Members           = True; // True = Members World. False = Free World.
  Mouse_Speed       = 17; // Mouse speed. Higher = Faster. (17 is default)
  Version           = '1.2';

  NumbOfPlayers     = 1; //How many players you are using.

  StartPlayer       = 0; //Player to start with. (0 = first character)

// YOU MUST HAVE EITHER A KNIFE OR A PESTLE AND MORTAR IN YOUR TOOLBELT

procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['xp', 'oins', 'ostume', 'mote'];

// Make sure you set 'Booleans[0]' and 'Booleans[1]' accordingly!

  with Players[0] do
  begin
    Name        := ''; //Player username.
    Pass        := ''; //Player password.
    Pin         := ''; //Bank Pin. (Leave blank if you do not have a bank pin.)
    Loc         := 'vwb'; //Banking Location (See below) (Soul Wars banking is above)

    Booleans[0] := True; // True = Pestle and Mortar. False = Knife
    Booleans[1] := False; // Bank at Soul Wars? True = Soul Wars. False = Use 'Loc' bank
    Active      := True;
  end;

  // YOU MUST HAVE EITHER A KNIFE OR A PESTLE AND MORTAR IN YOUR TOOLBELT!
  //
  // Banking Locations:    (*Note* - Some banks may not work)
  //  'vwb' = Varrock West Bank
  //  'veb' = Varrock East Bank
  //  'fwb' = Falador West Bank
  //  'feb' = Falador East Bank
  //  'db'  = Draynor Bank
  //  'akb' = Al-Kharid Bank


  //To use multiple accounts, remove the {}'s from the below coding.

  //Make sure you adjust "NumbOfPlayers", which is found in the constants! (aka - "Const")
  { with Players[1] do
  begin
    Name        := ''; //Player username.
    Pass        := ''; //Player password.
    Pin         := ''; //Bank Pin. (Leave blank if you do not have a bank pin.)
    Loc         := 'vwb'; //Banking Location (See below) (Soul Wars banking is above)

    Booleans[0] := True; // True = Pestle and Mortar. False = Knife
    Booleans[1] := False; // Bank at Soul Wars? True = Soul Wars. False = Use 'Loc' bank
    Active      := true;
  end; }
    { with Players[2] do
  begin
    Name        := ''; //Player username.
    Pass        := ''; //Player password.
    Pin         := ''; //Bank Pin. (Leave blank if you do not have a bank pin.)
    Loc         := 'vwb'; //Banking Location (See below) (Soul Wars banking is above)

    Booleans[0] := True; // True = Pestle and Mortar. False = Knife
    Booleans[1] := False; // Bank at Soul Wars? True = Soul Wars. False = Use 'Loc' bank
    Active      := true;
  end; }
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'prayer' //This can be changed to any skill!
end;

////////////////////////////////////////////////////////////////////////////////
//                   No Editing is required below this point!                 //
////////////////////////////////////////////////////////////////////////////////

Procedure Antiban;
Begin
  Case Random (400) of
    0..14: Begin SleepAndMoveMouse(6000 + Random(750)); End;
    15..19: Begin GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    20..30: Begin RandomAngle(1); End;
    30..35: Begin GameTab(Tab_Stats); Wait(3000 + Random(400)); GameTab(28); End;
    36..40: Begin GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
    End;
End;

procedure InitDTMs;
begin
 chocbar       := DTMFromString('mwQAAAHic42RgYOABYlYgFgFiQSBmY4AAkLgklOYAYgEomwmqBsQWBmJ2qHpfHXGoLG78n4EwYCQCwwEAFn4CcQ==');
 chocdust      := DTMFromString('m1gAAAHic42JgYOAEYnYg5gNiZiAWAGIOBgjgBmJ+IBaFqgHJMwIxLxBzQeW4oGrZgJgViO1VhIEkE0H8n4E4wEgkRgAAHfUCSg==');
end;

procedure FreeDTMs;
begin
  FreeDTM(chocbar);
  FreeDTM(chocdust);
end;

procedure Proggy;
begin
  Writeln('//////////////////Paulas Chocolate Crusher\\\\\\\\\\\\\\\\\\');
  Writeln('///////////////////////By Paula Deen\\\\\\\\\\\\\\\\\\\\\\\\');
  Writeln('Run Time: ' + TimeRunning);
  Writeln('Total Loads: ' + IntToStr(BarsCrushed));
  Writeln('Chocolate Dust made: ' + IntToStr(BarsCrushed*28));
  WriteLn('Total Profit made: ' + IntToStr(BarsCrushed*28*50));
  WriteLn('Breaks Taken: ' + IntToStr(BreaksTaken));
  Writeln('//////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\');
end;

procedure WithdrawChoc;
begin
  if not LoggedIn then
    Exit;
  AntiRandoms;
  if (PinScreen) then
    InPin(Players[CurrentPlayer].Pin);
  if (BankScreen) then
      DepositAll;
      WriteLn('Banking');
  Wait(300 + Random(200));
  FixBank;
  MMouse(55,108,9,9);
  Case (LaggyComputer) of
    true: Wait(650 + 400);
    false: Wait(250 + 200);
  end;
    if IsUpText('bar') then
    begin
      ClickMouse2(false);
      Case (LaggyComputer) of
        true: Wait(650 + 250);
        false: Wait(100 + 200);
        end;
      WaitOptionMulti(['Withdraw-All', 'All'], 200);
      Wait(200 + 200);
    end else
      if not IsUpText('bar') then
      begin
        WriteLn('Could not find Chocolate Bar (wrong uptext). Trying again...');
        Wait(1000);
        MMouse(55,108,9,9);
        Case (LaggyComputer) of
          true: Wait(650 + 400);
          false: Wait(200 + 200);
          end;
          if IsUpText('bar') then
          begin
            ClickMouse2(false);
            Case (LaggyComputer) of
              true: Wait(650 + 400);
              false: Wait(200 + 200);
            end;
            WaitOptionMulti(['Withdraw-All', 'All'], 200);
            Wait(200 + Random(200))
          end else
            if not IsUpText('bar') then
            begin
              WriteLn('Could not find Chocolate Bar (wrong uptext). Trying again...');
              Wait(1000);
              MMouse(55,108,9,9);
              Case (LaggyComputer) of
                true: Wait(650 + 400);
                false: Wait(200 + 200);
              end;
                if IsUpText('bar') then
                begin
                  ClickMouse2(false);
                  Case (LaggyComputer) of
                    true: Wait(650 + 400);
                    false: Wait(200 + 200);
                  end;
                  WaitOptionMulti(['Withdraw-All', 'All'], 200);
                  Wait(200 + Random(100))
                end else
              if not IsUpText('bar') then
                begin
                  if (BankScreen) then
                    CloseBank;
                end;
                begin
                  WriteLn('Could not find Chocolate Bar (wrong uptext). Switching Player/Logging out.');
                  Players[CurrentPlayer].Active := False;
                  Logout;
                  Exit;
                end;
            end;
      end;

  Case (LaggyComputer) of
    true: Wait(650 + 300);
    false: Wait(200 + 200);
  end;
  CloseBank;
end;

procedure CrushChoc;
begin
  if not LoggedIn then
    Exit;
  begin
  if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(x, y, 7, 7, False)
    end else
      begin
      wait(1000);
      WriteLn('Could not find Chocolate Bar (invalid DTM). Trying again...');
      if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Mouse(x, y, 7, 7, False)
        end else
          begin
          wait(1000);
          WriteLn('Could not find Chocolate Bar (invalid DTM). Trying again...');
          if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
            begin
              Mouse(x, y, 7, 7, False)
            end else
              begin
              wait(1000);
              WriteLn('Could not find Chocolate Bar (invalid DTM). Trying again...');
              if FindDTM(chocbar, x, y, MIX1, MIY1, MIX2, MIY2) then
                Mouse(x, y, 7, 7, False)
              end;
          end;
      end;
  Case (LaggyComputer) of
    true: Wait(750 + 350);
    false: Wait(300 + 100);
  end;
  ChooseOption('Powder')
  end;

  begin
  wait(1000)
  if FindDTM(chocdust, x, y, MCX1, MCY1, MCX2, MCY2) then
    begin
      Mouse(x, y, 22, 23, True)
    end else
      begin
      wait(1000);
      WriteLn('Could not crush Chocolate (lag?). Trying again...');
      if FindDTM(chocdust, x, y, MCX1, MCY1, MCX2, MCY2) then
        begin
          Mouse(x, y, 22, 23, True)
        end else
          begin
          wait(1000);
          WriteLn('Could not crush Chocolate (lag?). Trying again...');
          if FindDTM(chocdust, x, y, MCX1, MCY1, MCX2, MCY2) then
            begin
              Mouse(x, y, 22, 23, True)
            end else
              begin
              wait(1000);
              WriteLn('Could not crush Chocolate (lag?). Trying again...');
              if FindDTM(chocdust, x, y, MCX1, MCY1, MCX2, MCY2) then
                Mouse(x, y, 22, 23, True)
              end;
          end;
      end;
  end;
    WriteLn('Crushing Chocolate Bars');
    Wait(1500 + Random(2000));
    Antiban;
    AntiRandoms;
    Case (Players[currentplayer].Booleans[0]) of
      true: Wait(14000 + Random(2000));
      false: Wait(29000 + Random(2000));
    end;
    BarsCrushed:=BarsCrushed+1;
end;

procedure TakeBreaks;
begin
  if not LoggedIn then
    Exit;
  begin
  if (GetSystemTime > BreakTimer) then
    begin
      WriteLn('Taking a break.');
      Logout;
      Wait(BreakFor * 60000 + Random(BreakForRandom * 60000));
      WriteLn('Logging back in.');
      LoginPlayer;
      Wait(5000);
      BreaksTaken:=BreaksTaken+1;
      BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
    end;
  end;
end;


begin
  Smart_Server := 10;
  Smart_Members := Members;
  SetupSRL;
  DeclarePlayers;
  MouseSpeed := Mouse_Speed;
  LoginPlayer;
  Wait(5000);
  GameTab(tab_Inv);
  BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));

  repeat
    repeat
      Case (Players[currentplayer].Booleans[1]) of
        true: OpenBankChest(SRL_BANK_SW);
        false: OpenBank(Players[CurrentPlayer].Loc, True, True);
      end;
      WithdrawChoc;
      InitDTMs;
      CrushChoc;
      FreeDTMs;
      Proggy;
      if (UseBreaks) then
        TakeBreaks;
    until (not Loggedin);
    NextPlayer(Players[CurrentPlayer].Active);
    Wait(5000);
  until (false);
end.                                                                            



I will also be making a Make Leather spell script. (As soon as I get some spare time)

For the record, I only put what I felt was applicable in the Biography section.
If anyone wants some more details about me, I'll be more than happy to fill you in. :)

We require you passport #, SS #, date of birth, both parents full name, your favorite flavor of ice cream, and your shoe size.

Nah, actually I like the organization of your script. It's a shame it only uses DTMs, but I'm hoping you'll extend your knowledge.

If I might make a suggestion, there's no need for 'LaggyComputer', simply using 'WaitUpText/WaitUpTextMulti' as well as 'WaitOption/WaitOptionMulti' will work very nicely in this script.

Sorry mate, waaaaaay to simple. Your WithdrawChoc; does not to be that long at all. It consists of basically the same things used over and over.
Example:

    Case (LaggyComputer) of
                    true: Wait(650 + 400);
                    false: Wait(200 + 200);

It appears that you do have a clear insight of how to script. However, you should look into getting to know the more intermediate stuff. I know you are more than capable.

2. Your post count and your joined date. You've been here for almost 2 and a half months. That's 75 days. Your post count is less than 50, and if you bothered to atleast make 2 posts a day you would have around 150.

You need to be more active.

From: kingarabian
Sorry mate, waaaaaay to simple. Your WithdrawChoc; does not to be that long at all. It consists of basically the same things used over and over.
Example:

    Case (LaggyComputer) of
                    true: Wait(650 + 400);
                    false: Wait(200 + 200);

It appears that you do have a clear insight of how to script. However, you should look into getting to know the more intermediate stuff. I know you are more than capable.

2. Your post count and your joined date. You've been here for almost 2 and a half months. That's 75 days. Your post count is less than 50, and if you bothered to atleast make 2 posts a day you would have around 150.

You need to be more active.

The WithdrawChoc procedure is my main fail-safe.
It's the only fail-safe that actually tells the script when to end. I wanted to make sure the script wouldn't end due me not giving the script enough chances to find the uptext.
Although, writing this just gave me a good idea. I could rotate the view each time it can't find the uptext … brilliant! :p
I see how I may have gone a bit overboard though. :redface:

Anyway, my post rate has been increasing, so it will improve eventually.
Oh well, there's always next time.

Now I get where you're coming from, kingarabian.

I changed WithdrawChoc to:

procedure WithdrawChoc;
begin
  if not LoggedIn then
    Exit;
  AntiRandoms;
  if (PinScreen) then
    InPin(Players[CurrentPlayer].Pin);
  if (BankScreen) then
      DepositAll;
      WriteLn('Banking');
  Wait(300 + Random(200));
  FixBank;
  MMouse(55,108,9,9);
  Case (LaggyComputer) of
    true: Wait(650 + 400);
    false: Wait(250 + 200);
  end;
    if IsUpText('bar') then
    begin
      ClickMouse2(false);
    end else
      begin
        WriteLn('Could not find Chocolate Bar (wrong uptext). Trying again...');
        MakeCompass(Random(361));
        Wait(1000);
        if IsUpText('bar') then
        begin
          ClickMouse2(false);
        end else
          begin
            WriteLn('Could not find Chocolate Bar (wrong uptext). Trying again...');
            MakeCompass(Random(361));
            Wait(1000);
            if IsUpText('bar') then
            begin
              ClickMouse2(false);
            end else
              begin
                WriteLn('Could not find Chocolate Bar (wrong uptext). Trying again...');
                MakeCompass(Random(361));
                Wait(1000);
                  if IsUpText('bar') then
                  begin
                    ClickMouse2(false);
                  end else
                  begin
                    if (BankScreen) then
                      CloseBank;
                  end;
                  begin
                    WriteLn('Could not find Chocolate Bar (wrong uptext). Switching Player/Logging out.');
                    Players[CurrentPlayer].Active := False;
                    Logout;
                    Exit;
                  end;
              end;
          end;
      end;
  Case (LaggyComputer) of
    true: Wait(650 + 250);
    false: Wait(100 + 200);
  end;
  WaitOptionMulti(['Withdraw-All', 'All'], 200);
  Case (LaggyComputer) of
    true: Wait(650 + 300);
    false: Wait(200 + 200);
  end;
  CloseBank;
end;

Much better! :p

Thanks for the suggestions, everyone.
I'll apply again once I make a more advanced script and become more active.
I'll see ya guys then! ;)

From: Paula_Deen

Thanks for the suggestions, everyone.
I'll apply again once I make a more advanced script and become more active.
I'll see ya guys then! ;)

That's the spirit.

Seems like your going towards the right path, although you need to try different type of stuff Mate, such as: DDTMs/RRW/TPAS and so on.

Good Luck.

@P1nky
Yup, I was planning on incorporating those into my next script … whatever that may be.
It will most definitely have walking in it though.

I was thinking about making a herb runner.
Would anyone actually use a Herb Runner though? …

I was going to make a Make Leather (spell) bot, but the prices just aren't stable enough, in my opinion. Also, it wouldn't really be advanced either.
Even though Make Spell has relatively high requirements, I feel the demand wouldn't keep up with the supply.
I could be wrong though … Does anyone have any idea why the D-hide prices are inflating as of late?

I like the attitude!
Good luck next time :)

@D-hide question prob a merch clan.

A helpful note will be the following :

Remember, remember, ALWAYS remember this, if you're using DTM's, your script will probably be looked down upon in terms of a member application. If you're releasing a script out to the public for it to be used, and your using DTM's there, that is fine… (which really you shouldn't be but sometimes we're lazy, and sometimes they work best) however, if you're applying for members, we'd like the script to be fairly intricate seeing as it is supposed to encapsulate most (if not all) of your SRL knowledge.

By the way : I like your attitude and will keep an eye out.

The poll has closed and you didn't quite make it this time. Please take the suggestions made here and read some more in the tutorial section and improve your script. You may reapply in 4 weeks time.


Cheers
Hobbit