SRL Archive - First Scripts

Okay, here's my first script, a feather buyer. It randomly buys 1, 5, or 10 feathers at a time, but it always adds up to the amount of feathers you wanted.

/////JACOBDM0\\\\\
//Setup on Line x\\
//HAVE TRADE WITH GERRANT OPEN!\\



var
i : Integer;

Const
// SETUP \\
FeathersToBuy =     1000;
BuyVariable   =     10; //this is how many you buy at a time. Put 1, 5, or 10.

// DO NOT TOUCH BELOW \\

Procedure
 ClickFeathers;
 Begin
  MoveMouseSmooth(380,81);
  Wait(100+Random(500));
  ClickMouse(380,81,false);
  Wait(1+Random(100));
  i:= (i+1);
 end;
Begin
 i:= 0;
 Repeat
 If (BuyVariable = 10) then;
  Begin
   ClickFeathers;
   MoveMouseSmooth(380,152);
   Wait(100+random(500));
   ClickMouse(380,151,true);
   Wait(7500+random(500));
  end;
 If (BuyVariable = 5) Then;
  Begin
   ClickFeathers;
   MoveMouseSmooth(380,136);
   Wait(100+random(500));
   ClickMouse(380,135,true)
   Wait(3500+random(500));
  end;
 If (BuyVariable =1) Then;
  Begin
   ClickFeathers;
   MoveMouseSmooth(380,121);
   ClickMouse(380,120,true);
   Wait(750+random(500));
  end;
 Until i = FeathersToBuy/BuyVariable;

End.

I also DIDN'T put any anti-randoms in it because you are in the trade window when it's running.

I appreciate ANY kind of feedback.

Good try for your script! But unfortunately.. This script will get you banned :(

Check out the first chapter in my tut (links in sig) Learning the things to become a SRL member. That will teach you about the basic, undetectable commands using SRL, and will make this script MUCH less detectable =)

Good try though, keep it up!

Thanks a TON for letting me know that this could get me banned.
I'll check out your tut, and repost the updated version after i add whatever i need.