SRL Archive - First Scripts

So… I'm REALLY new at this all, and i want to get into making scripts. I followed Griff's guide HERE and made my basic woodcutter but changed it up so it would cut Dead Trees north of Draynor and drop them. Basic powerchopper, right? I'm not sure if this is the right place to post this, but I'm just looking for some constructive help. I've got the basics of creating the script, but i need help adding things such as walking, banking and making the antiban a little less sporadic.

Bugs from what I've tested:

• Camera turns a lot more than it should
• Has problems finding the trees sometimes

I would like to make it bank in the future at the Draynor bank, but for now I would just like to make it a little more dependable and accurate.

I couldn't get the attachment to work so the download link is here:
http://www.mediafire.com/?hx322sfucxhw296

Program New;
{$DEFINE SMART}
{$i srl/srl.simba}



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



    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active:= True;
end;

Procedure AntiBan;
  begin
   if(not(LoggedIn))then
   Exit;
   FindNormalRandoms;
   case Random(12) of
   0:
    Begin
     HoverSkill('Woodcutting', false);
     wait(1800+Random(250));
    End;
     1: PickUpMouse;
     2:
    Begin
     MakeCompass('N');
     wait(82+random(45));
     MakeCompass('S');
     wait(92+random(32));
     MakeCompass('N');
     FindNormalRandoms;
    End;
   End;
  End;

Procedure Drop_All;
var i: integer;
begin
  for i:= 0 to 2 do
  begin
    DropPattern(Random(2) + 1);
    if InvCount = 0 then
      break;
  end;
end;

Procedure ChopTree;
var x,y: integer;
  Begin
   Repeat
   FindNormalRandoms;
   if FindObj(x,y,'hop',856849, 15) then
    Mouse(x,y,2,2, false);
    ChooseOption('hop');
     Repeat
      Wait(800+random(250));
      AntiBan;
     Until not IsUpText('ead') or (InvFull);
    Until(InvFull);
    Drop_All;
    ChopTree;
  End;





begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  ChopTree;
  FindNormalRandoms;
  Drop_All;
end.

it wont evrn download haha

Put your script (Copy and paste) between

.

I'm also new.

Try using ACA instead of FindObj, it tends to fail alot. Look up YoHoJo ACA tut on youtube

You can use SPS for walking, a great tool that almost never failed me :)

http://villavu.com/forum/showthread.php?t=71461

Good tut how to make a route. As for banking, a really good tut on almost every basic thing along with banking.

http://villavu.com/forum/showthread.php?t=81428

Cheers and good luck on scripting man!