SRL Archive - First Scripts

I started this script and i thought that i was never going to improve this. so i took some time and im coming back to impove this lots. (im like 10% done)
I just wonder if you people could give me some feed bck on how im doing.
So i can learn and make a script that i can be proud of :P

(could you tell me if it works at all and could to give me tips please)

I think it works with srl 4 thanks to a friend for helping

Good start so far. I'll try it out and see if it actually works.

Edit1:

Add

var x,y :integer;

At line 16, it works the best there.

Also the dropping doesn't work.

SOMEONE CORRECT ME IF I'M WRONG!

Did it work? any tips you could give me?
Please people i need ur help

From: hardman
Did it work? any tips you could give me?
Please people i need ur help

Oh shush, I gave you a few tips. I just don't know if you looked at them or if they were any good XD

this procedure needs some work:

procedure Woodcutting;
begin
  findcolortolerance(x,y,willow,3,3,551, 231,6) //CHANGE LAST TO CORDINATES
  findcolortolerance(x,y,willow1,3,3,551, 231,6) //CHANGE LAST TO CORDINATES
//DONT TOUCH BELOW UNLESS YOU KNOW WHAT YOU ARE DOING
  mouse(x,y,2,2,true)
  wait(3000+random(4000))
end;

should use some if then statements and some 'or' like so

procedure Woodcutting;
begin
  if findcolortolerance(x,y,willow,MSX1,MSY1,MSX2,MSY2,6) or
  findcolortolerance(x,y,willow1,MSX1,MSY1,MSX2,MSY2,6) then
  begin
    mouse(x,y,2,2,true)
    wait(2000+random(1000))
  end;
end;

this will now click the mouse if it finds either of them, also the wait doesnt need to be so long, wont get a good amount of production..also i changed the cords so now it looks for that color in the mainscreen runescape window..

also in the mainloop inbetween woodcutting and drop you dont need the wait
and also the loops should be like this

procedure drop;
begin
    DropTo(2,28);
end;

begin
  SetupSRL;
  ActivateClient;
  GameTab(4);
end;

begin
  writeln('          PLEASE COULD YOU POST ANY IDEAS I COULD ADD')
    wait(2000)
  writeln('                             // 3 //')
    wait(1000)
  writeln('                            /// 2 ///')
    wait(1000)
  writeln('                           //// 1 ////')
    wait(1000)
  writeln('                   Off I Go Power Wood Cutting')
  wait(2000)
  repeat;
    Woodcutting;
    if (InvFull) then
    begin
      drop;
    end;
  until (false);
end.

Nice script, good luck for next !

dude look me if you see this stop the spamming

doesnt work

doesnt work for me to o well

gl with the next script if ur going to make 1