SRL Archive - First Scripts

Here's my first script!
I hope y'all like it!(h)

//////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////// The Chopper of Willows in Draynor  \\\\\\\\\\\\\\\\\\\\\\\\
///////////////            Script By: Durza998         \\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
{
This chops full load of willows and then banks them.
Pickup colors and start in bank or willows.
}
program DraynorWillowChopper;
{.include Srl/Srl/Srl.scar}
const

      BankSymbol:= 4768214;  //Minimap banksymbol color
      FishSymbol:= 14233601;  //Minimap fishsymbol color
      Willow1:= 2572614;      //color of willow
      Willow2:= 3637360;      //second color of willows

var

    x, y: integer;  


  procedure  ToWillows;
  begin
  MoveMouseSmooth(620,124)
  wait(250+random(20))
  clickmouse(620,124,true)
  flag;
  repeat wait(200+random(20))until(findmmcolor(x,y,fishsymbol))
  findmmcolor(x,y,FishSymbol)
  wait(250+random(20))
  MoveMouseSmooth(x,y)
  wait(200+random(20))
  clickmouse(x,y,true)
  flag;
  end;
  
  procedure Chop;
  begin  repeat
  if(findcolor(x,y,willow1,0,0,517,340))or(findcolor(x,y,willow2,0,0,517,340))then
  wait(800+random(80))
  MoveMouseSmooth(x,y)
  wait(50+random(5))
  clickmouse(x,y,true)
  wait(10000+random(1000))
  flag;
  until(invfull) Writeln('The inventory is full, going to the bank')
  end;
  


  procedure GoToBank;
  begin
  findmmcolor(x,y,banksymbol)  if(not(findmmcolor(x,y,banksymbol)))then writeln('Cant find banksymbol.')
  MoveMouseSmooth(x,y)
  wait(500+random(50))
  clickmouse(x,y,true)
  flag;
  openbank3;
  wait(1000+random(100))
  fixbank;
  deposit(2,28,2);
  wait(1000+random(100))
  writeln('All willows put into bank')
  end;

 
 
  begin
   ToWillows;
    Chop;
     GoToBank;
  end.

Please add scar tags(

 and [*/SCAR](without the *)) or just add an atachement. And use SRL, mmouse and mouse, for example, dont use movemousesmooth and click mouse, you are going to get banned for using it and for using coords.

ok, sorry about that…

Where do i put scar tags?

The tutorial i did showed me to use clickmouse and movemousesmooth??? Im confused?? How do you write scripts without using coords??

From: durza998
ok, sorry about that…

Where do i put scar tags?

The tutorial i did showed me to use clickmouse and movemousesmooth??? Im confused?? How do you write scripts without using coords??

Read a better tut…

With color detection. But yeah try another TuT. ;)

Ok, well with scar tags it prett simple just put theze tags either side of the script area

 and[/scar*] without that last *

Quite simple really

Sheez, maybe you shouldn't have posted your 'first script' just yet: keep at it though! If you ever need any help add my MSN: [email]tiny_237@msn.com[/email]

Good Luck ;)

Exppo

Just a quick question, have you tested that this actually works, because you don't actually have a main loop because if you don't it would just say

Successfully Compiled
Successfully Excuted

Okay, thanks I'll read a better tut and see how it goes. :)

And,lol, i haven't tested this script because i gave up RS for lent so im really not sure if it works.

oh, what is WinRaR and does it have to be downloaded to use srl?

he prob stole that script or something (parts of it)

theres no main loop or anything he needs posts -.-

thanks for the script

…srry, but didn't steal it. Is a main loop a part of the script that does all the procedures?

thanks worked better than i thought

From: durza998
Okay, thanks I'll read a better tut and see how it goes. :)

And,lol, i haven't tested this script because i gave up RS for lent so im really not sure if it works.

oh, what is WinRaR and does it have to be downloaded to use srl?

Lol gave up RS for lent :), you should give up playing it now, I just go on it to make scripts…

BTW: WinRAR is just a program which you can browse certain folders and files in

Ok, thanks i read a tut for setting up srl and it said you had to use WinRaR to move some files and stuff. Apparently its a little outdated tho…

I found out what a main loop is and just finished a beginners tutorial on *just* srl…:)

Also, I would never stop playing RS, its too fun. Do you have to be a junior member to put an avatar by your username?

No you have to be a member, basically make a really good script, apply for membership and other members vote whether its good enough.

so does this script work or not?

Try it and find out instead of posting pointless spam.

Ok thanks.. one more question.. I'd like to know the *best* tutorial that teaches everything out there and could get me on my way quickly. I don't want to have to read a separate one for everything there is to do.

I also edited the ToWillows procedure. Here it is… If it's right I'm on the right track :)

//beginning of script

procedure ToWillows;
begin
if FindColorTolerance(x, y, FishSymbol, mmx1, mmy1, mmx2, mmy2, 10) then
Mouse(x, y, 3, 3, true);
wait(1000+random(100))
if FindColorTolerance(x, y, Willow1, msx1, msy1, msx2, msy2, 10) then
Mouse(x, y, 3, 3, true);

//rest of script

begin
SetUpSrl;
ToWillows
//other procedures
end;
end.

whats the best proggie? for this??

Theres a thread in the tut section that shows the best tuts I think, if not then just search for the things you want to know

ok thanks for the help… a proggie is a what?

Also still need feedback on the function i rewrote….

please note that this script has no anti randoms and can easy get you banned!
do not leave unsupervised!

this is his first scipt, it uses coord clicking which i'm sure is way better than anything you have ever made and I bet that he spent alot of time on it. at least he is trying to script unlike you who is posting this useless spam on his thread to get your 10 posts so you can leech ub3r l33t h4x.

xD Hurray for skilld u! he just skilld u! >_> lol

thanks skilld u… but Hannah Montana????

is there a max number of players u can have in a script?

feedback for function i wrote?!?!?

I'll test it out

From: jack_nosp
whats the best proggie? for this??

Hey, im new to the forum…i see this 'proggie' word everywhere, what does it stands for? Progress? What about this progress?

I think it was a pretty good first attempt . just needs a lil more work

my parents grounded me from the computer for multiple months, so i haven't been on in awhile…:( so im gonna completely rewrite a new script and post it! hopefully it'll go well…

Progress Report to see what the script did. Like for example:

  Writeln('=======================================') ;
  Writeln(' PS Willower ');
  Writeln(' Version: '+Version);
  Writeln('BY: Twistedvip50');
  Writeln('=======================================') ;
  Wait(500);
  Writeln('Worked For : '+ (TimeRunning));
  If(TotalWillows > 0)then
  Writeln('Chopped: ' + IntToStr(TotalWillows) + ' Logs');
  If(Banked > 0)then
  Writeln('Bank Trips: ' + IntToStr(Banked) + ' Trips Made');
  If(EntsAvoided > 0) then
  Writeln('Advoided: ' + IntToStr(EntsAvoided) + ' Number Of Ents');
  If(AxeBroke > 0) then
  Writeln('Broke ' + IntToStr(AxeBroke) + ' Axes.');
  If(Dropped > 0) then
  Writeln('Dropped ' + IntToStr(Dropped) + ' Loads.');
  Writeln('=======================================');

Shows how long it ran, how many logs it cut, trips it made, number of it ents it missed, broken axes, and loads.

BTW, this is from MY script so don't just go copying and pasting…

sweetness

do this tackle all randoms?

where do i download it?