PDA

View Full Version : My first script!



Niki99
07-26-2007, 11:46 AM
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)!

ZephyrsFury
07-26-2007, 11:54 AM
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. :)

Niki99
07-26-2007, 12:03 PM
Ill take a check. (h)

I tested it .. it´s working fine.

SirPa
07-26-2007, 12:11 PM
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

vonplurring
07-26-2007, 12:15 PM
Cool :D

Pentti
07-26-2007, 12:20 PM
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.

Zenzie
07-28-2007, 07:15 PM
Pentti is a good boy :-) I like it! Keep working on SCAR scripts.:google:

ShowerThoughts
07-28-2007, 08:35 PM
wheres srl and antiban stuff?

BobboHobbo
07-29-2007, 04:01 AM
wheres srl and antiban stuff?

Its his first script.. His learning :)

picklemansus
09-09-2007, 05:57 PM
Error identifyer expected in script?

ZephyrsFury
09-10-2007, 10:58 AM
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.