SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
EL_TYCHO - SRL Member Application Form
EL_TYCHO

What is the meaning to life?
Finish school first so youll have a nice carreer so you can raise a nice family and have fun for the rest of your life ;)

Where you Referred to SRL? If yes, by whom?
yes
Sythe

Programming Knowledge
Pascal

Other Communitys
Sythe, yourpsp, Tip.It, personal clans

How Long have You Played Runescape
2-3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I havent made much scripts (only 1 for the moment) but I am going to write a lot more of em but im allways looking for original scripts that dont excist yet. I learned basic scripting at school and used a lot of tutorials to get better at it.My first script, wich is used here, is a catherby arrowtip buyer. Im gonna start my next script now, I think im gonna make an any general shop buyer, youll just have to type in wich slot and how many items youll need to buy and the script will buy it, but when its finished it will only work with stackable things and after that im maybe gonna make an arrow buyer, so I'll better get started ;)

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program Arrowheadbuyer;
{Made by EL_TYCHO with great help of Jason2gs
Just start at the Catherby arrowshop with the trade screen open, select the
runescape window, choose the amount of arrowtips and what type and start!}
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Amount.scar}

var
Heads : Integer;

const
ArrowheadType = 'Bronze'; //Bronze, Iron, Steel, Earth, Mithril, Adamant, Rune.
HeadsToBuy = 1000; //How many arrowheads do you want to buy?

 procedure Buyer;
  begin

   if(ArrowheadType = 'Bronze')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(363, 123, 390, 138, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Heads := Heads + 10;
     until(Heads >= HeadsToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(ArrowheadType = 'Iron')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(410, 122, 436, 139, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Heads := Heads + 10;
     until(Heads >= HeadsToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(ArrowheadType = 'Steel')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(81, 171, 106, 187, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Heads := Heads + 10;
     until(Heads >= HeadsToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(ArrowheadType = 'Mithril')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(128, 172, 154, 186, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Heads := Heads + 10;
     until(Heads >= HeadsToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(ArrowheadType = 'Adamant')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(174, 173, 201, 187, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Heads := Heads + 10;
     until(Heads >= HeadsToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;

   if(ArrowheadType = 'Rune')then
    begin
     repeat
      Wait(500 + Random(500));
      MouseBox(223, 172, 247, 186, 2);
      Wait(500 + Random(100));
      ChooseOption(x, y, '10');
       Heads := Heads + 10;
     until(Heads >= HeadsToBuy) or (InChat('out of stock.')) or
     (InChat('have enough coins.'));
    end;


   if(Heads >= HeadsToBuy) or (InChat('out of stock.')) or
   (InChat('have enough coins.'))then
    begin
     MouseBox(480, 35, 490, 45, 1);
     FindNormalRandoms;
     Wait(100);
     FindTalk;
     Wait(100);
     FindNormalRandoms;
     Wait(100);
     FindTalk;
     Wait(100);
     Logout;
     TerminateScript;
    end;
  end;

begin
SetupSRL;
 Buyer;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

To me it seems like the script seems a little to easy. To become an srl member then it needs to have atleast multiplayer and randoms. Other then those 2 things I like the script but next time try a harder script. For now I vote No.

No multi player
No Antiban
No Randoms
No Player Array

Verry Simple
Doenst use Bitmap or DTMs or even color
Clikcs codiantes which is simple and detectable.


Fix all of that.
Buyers in general are very simple and probably cant get you into members.
Try power miner or power chopper.

i vote no…

another thing you guyz might not have noticed…it only has one procedure

From: Hobbit
i vote no…

another thing you guyz might not have noticed…it only has one procedure

And it could be made shorter by using a case.

From: Junior
And it could be made shorter by using a case.

Lol, yeah, junior is awesome with his cases ;) all my cases I have learned from him. I vote no too dude, sorry.

No problem :) sorry for my next apply but I didnt know that I had to keep the link :rolleyes: