SRL Archive - Simba (Testing) Scripts

————————————————————————————–
Welcome and say hello to Power Evergreen Woodcutter v1.0
————————————————————————————–
Features:
* Works with SMART
* Cuts Evergreens
* Normal Antiban
* Cuts and Drops :P
* TPA TreeFindings
————————————————————————————–
Credits:
* Coh3n: Thanks for your tutorials and support
* Wizzup: Thanks for Supporting me
* Heavenguard: Thanks for Support and helping
————————————————————————————–
Where to start it??

i would suggest u to start it under the Monestary, West of Edgeville.

Post proggies and bugs/errors :)
————————————————————————————–


SCRIPT OUTDATED!!

SCRIPT REMOVED!!

It's late, I'm tired, and I have to get up early tomorrow morning. So I won't critique your script just yet, but I will say congrats on releasing :) I'll edit this post in the near future with something helpful and constructive haha.

lol ok :P
script will be updated anyway

procedure Antiban;
begin
  case Random(50) of
    0: RandomRClick;
    1: PickUpMouse;
    2: RandomMovement;
    3: BoredHuman;
    4: ExamineInv;
    5: MakeCompass(120);
    6: FindNormalRandoms;
  end;
end;   

Here you'll always have a 7 / 50 chance of doing Antiban (btw, FindNormalRandoms shouldn't be considered as antiban, rather something you have to do regularly).

I'd suggest doing something more like this:

procedure Antiban(chance: integer);
begin
  if Random(100) <= chance then
  case random(7) of
    0: RandomRClick;
    1: PickUpMouse;
    2: RandomMovement;
    3: BoredHuman;
    4: ExamineInv;
    5: MakeCompass(120);
    6: FindNormalRandoms;
  end;
end;   

I would suggest you make a better tree finding algorithm, yours seems very likely to get stuck at some point.

    DropAll;
    repeat
      Wait(1000);
    until(InvCount = 0); 

If for some reason DropAll doesn't drop everything (shit does happen), you'll be stuck in an infinite loop.

Other than that, good job on this, it's going in the right direction :)

~RM

Only thing I noticed with a quick glance was that the waits were quite long. Two and a half seconds for the proggy? :p

Invent := InvCount;
repeat
  Wait(1000);
until(InvCount <> Invent);

Infinite loop. Also, add randomness (to the wait).

DropAll;
repeat
  Wait(1000);
until(InvCount = 0);
result := InvCount = 0;

Same thing here (infinity loop and add randomness to the wait).

Scripted updated

5: if LevelUp then
     Inc(LvlUp);

That's not really antiban.. :p and the chances of that happening are virtually 0%.

The way you were using Continue; is incorrect I think.

Calling SetAngle(True); constantly can slow down the script.

You didn't fix the infinite loops, by the way.

And the proggy will still take 2.5 seconds. :/

ok Script is updated.

lol script won't work now :P, did lots of stuff wrong lock plz :P