SRL Archive - RS3 Script Requests

basically buys silk from silk trader for 3gp.i'm willing to pay with rsgp.

This place isn't about paying people to make you scripts…this isn't PB.

It IS about learning how to write your own scripts while giving back to the community that empowered you with such knowledge to do so in the first place, silly!

is it even profitable silk business there? how much gp/h does it make?

From: kingrsnerd
basically buys silk from silk trader for 3gp.i'm willing to pay with rsgp.

We don't sell scripts here
http://villavu.com/forum/faq.php?faq=welcome#faq_rules

i'll donate to you if you make this script

or i can donate to people who can teach me assist me in making it i'll be more than glad to donate some money for education.

Here you go. Basically, start it standing next to the silk salesman with 84 gp in inventory, press play, let it do its thing, takes about 240 seconds to buy a full load. Then you walk to the bank, deposit the silk, and withdraw 84 gold, walk back up there, press play. Rinse and repeat. Just make sure you do one buy on your own and change in the script where it says to. Its the hair color of your character as a fail safe to make sure you are actually trading the silk guy and going through the chat correctly. I've run this for a few hours, its basic, but it beats having to do it completely by hand.

-EDIT: Also, make sure you are in fixed, and highest brightness setting. and make sure you start the script standing next to the guy. If you notice that the inventory isn't filling up all the way, near the bottom of the script in the Until p := 29, change that 29 up or the down the amount you are missing. If it is clicking too fast, increase all of the wait times. Theres no real anti-ban other than a slight variation in the mouse clicks, and it will misclick some times, which I guess is good anti-ban. Also no anti-randoms, but it shouldn't be an issue as this will only run for one inventory at a time.

~EDIT: EDIT: Also, I didn't see if you mentioned, but this is for Runescape 07… Im assuming that's what you wanted it for, because silks are like 15-20k per hour, assuming you are selling them to the silk guy in Adrogue(however the heck you spell that place)

program new;
{$i srl/srl.simba}

procedure BuySilk;
 var x, p, y: Integer;
 begin
  p:=0;
   repeat
    if ((FindColorTolerance(x, y, 12282556, MSX1, MSY1, MSX2, MSY2, 6)) or (FindColorTolerance(x, y, 10640547, MSX1, MSY1, MSX2, MSY2, 6))) then
     begin
      MMouse(x, y, 2, 2);
      ClickMouse2(mouse_right);
        wait(100+Random(200));
      MMouse(x, y+30, 1, 1);
      ClickMouse2(1);
      wait(600+Random(200));
      if (FindColorTolerance(x, y, 2703167, 0, 342, 519, 475, 6)) then
        begin
          MMouse(300, 425, 2, 2);    //Continue
          ClickMouse2(1);            //Continue
          wait(600+Random(200));
        end;
      MMouse(300, 375, 20, 1);    //How much
      ClickMouse2(1);             //How much
      wait(600+Random(200));
      if (FindColorTolerance(x, y, 9670417, 0, 342, 519, 475, 6)) then //change the 9670417 to your characters hair color in chat dialogue
        begin
          MMouse(300, 425, 2, 2);    //Continue
          ClickMouse2(1);            //Continue
          wait(600+Random(200));
        end;
      if (FindColorTolerance(x, y, 2703167, 0, 342, 519, 475, 6)) then
        begin
          MMouse(300, 425, 2, 2);    //Continue
          ClickMouse2(1);            //Continue
          wait(600+Random(200));
        end;
      MMouse(300, 410, 2, 2);    //Okay
      ClickMouse2(1);            //Okay
      wait(600+Random(200));
      if (FindColorTolerance(x, y, 9670417, 0, 342, 519, 475, 6)) then  //change the 9670417 to your characters hair color in chat dialogue
        begin
          MMouse(300, 425, 2, 2);    //Continue
          ClickMouse2(1);            //Continue
          wait(600+Random(200));
        end;
      ClickMouse2(1);            //Continue
      wait(800+Random(200));
      end;
      p:=p+1;
     until p=29;
     writeln('Bought: ' + IntToStr(p-2) + ' silks in ' + IntToStr((GetTimeRunning / 1000)) + ' seconds.');
     end;





begin
SetUpSRL();
ActivateClient();
BuySilk;
end.                        

Well, guys I HAVE one for you that I made some time ago.

I'm not using it anymore and I'll release it tonight for you guys..

Greetings!


EDIT: http://villavu.com/forum/showthread.php?t=98572 :D