SRL Archive - First Scripts

Draynor willow chopper and banker!

Reqiupments: SRL 3.8 AND SCAR DIVI 3.06!

-Start at windows in draynor bank.

begin
  var
  Chopped : Integer;
  Banked  : Integer;

  If FindObj(x,y,'Willow',TreeColor,10) Then
  Begin
    FindEnt( 0 )
    Mouse(x,y,5,5,True)
    Flag;
    Wait(6000);
end;
 end;


Procedure Banklogs;
begin
  Chopped := Chopped + 28;
  mouse (672,20,5,5,True)
  FindSymbol(x,y,'bank')
  Flag;
  OpenBank3;
  Deposit(2,28,2);
  Banked := Banked + 1;
  closebank;
 end;

 Procedure proggy;
 begin
    Writeln('******************************');
    Writeln('*~~~~~~Draynor CutnBank~~~~~~*');
    Writeln('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*');
    Writeln('* Chopped A Total Of ' + IntToStr (Chopped) +' Times!*');
    Writeln('* Banked A Total Of ' + IntToStr(Banked) +' Times !*');
    Writeln('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~*');
    Writeln('******************************');
  end;

begin
  SetUpSRL;
  Repeat
    WalkToTrees;
    Repeat
      FindTree;
    until InvFull;
    Banklogs;
  until (IsFKeyDown(12));
  proggy;
end.

New update released!

Credits goes to Pentti that helped me alot over msn!

Have a fun autoing (h)!

Ok…. just a couple suggestions/bugs:

First all you should post your script in SCAR tags so it looks better. ;)

Second, in your BankLogs procedure, You've told it to store the coords of the bank symbol but haven't actually told it to click yet (I think thats what you want).

Thirdly, maybe its because of the way you posted but you should learn the standards (the correct indenting and stuff). Info about it is in the wiki on top of every page. :)

Ill take a check. (h)

I tested it .. it´s working fine.

I will take a look in a few minutes, but i have a suggestion :)
You should make a progress report, its not so hard, if u cant find one on the forums, pm me and ill send you the progress report code

Cool :D

dude, I dont see any credits to me? I taught you on MSN etc, actually I just told you what to put on every place in script, no credits! Why? Is this how you thank me?

EDIT: Alright.

Pentti is a good boy :-) I like it! Keep working on SCAR scripts.:google:

wheres srl and antiban stuff?

From: hermpie
wheres srl and antiban stuff?

Its his first script.. His learning :)

Error identifyer expected in script?

From: picklemansus
Error identifyer expected in script?

If you hadn't realised the last post was about 2 months ago…. It isn't compatible with SRL 4.