SRL Archive - First Scripts

So here is my first script…

program  PallooosPowerChopper;
{.include SRL\SRL.scar}

var
  x,y : integer;
  Loads : integer;

const
  Treecolor=6988186;

procedure chop;
begin
  If (Not(LoggedIN)) then Exit;
  repeat
    if(FindColorTolerance(x, y,Treecolor, MSX1, MSY1, MSX2, MSY2, 10))then
    begin
      Mouse(x,y,0,0,false);
      if(chooseOption('hop'))then
      wait(4000+random(3000))
    end;
  until(InvFull);
end;

Procedure drop;
begin
  if(InvFull)then
  begin
    DropAll;
    Loads:=Loads+1;
  end;
end;

begin
  SetupSRL;
  repeat
    chop;
    drop;
  until(false)
end.

pretty nice, should work I think, you got the begin, now you should add ent finding, antiban , anti-random and more options! :) PM me if you have questions !

Nice! 100th post. so you got the dropping thing to work? WOOOT 100th post!

yer man add a lil mre to this 1 but lukn gud for frst script :D

:(h):

IT's a solid script, probably should be sharpened up. Nice work

just add some anti random stuff and it will be very good

Nice and simple script. Like others are saying you should add anti-random, then it will be a very good script.

ok, anti random isnt the only thing missing here,
1. Multiplayer(this is important for getting them 24hour+ reports)
2. Random Detection
3. a good main loop, repeat, until(false) this is a infinite loop
4. DTM's(great for axehead finding)

thats not asking for alot :p
anyways keep up the good work, believe it or not but your scripting capabilitys are probably better then 60-70% of registerd users here

i get an error saying i have a duplicate identifier what up with that?

From: mental osx
i get an error saying i have a duplicate identifier what up with that?

get srl 4 rev#5, your using an old version.

nice for a first script, now try addin more trees, more colors for it to search for.

pallooo,

Looks good for your first script. In your dropping procedure you are dropping all from your inventory. What if the user has not equipped their axe?. It is going to drop their axe.

Make a simple boolean AxeWielded:=True; and then in the dropping procedure check if its true or not, if its true then DropAll, if not drop only inventory slot 2 to 28. (tell user to put axe in 1st slot of inv :) ).

Ent finding and antirandoms and your sorted :).

Good luck.

aint that good but its good for starters lol

nice for a first script, wont use it but the coding on it looks like itll work just fine for people whod ont want logs… Go Greed!