SRL Archive - First Scripts

Hello, This is my first script, Im learning. Every one probably thinks iam al eecher so i took the liberaty of learning :) Its a power chopper for Trees Oaks Willows and Yews. It has anti ban and anti randoms. Please post proggys and bugs.


~Burt

sounds good.
ill test this some time

BEFORE YOU READ ON…..

Do NOT give up. I repeat
Do NOT give up.

I see talent in you. Don't push yourself too hard, you will be good someday. :)


Hmm…


1.

Put treetype like this

Players[0].String1 := 'Oak'; //Oak, Willow, Yew;

This way, each player can be chopping a different kind of tree.

2.

Delete this

NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)

I am still confused as to why people put it when it automatically creates them?? lol. Silly.

3.

Do the same deal with treetype

Players[0].Integer1 := 5; //How many trees to chop.

Mess around with it if you're having troubles with stuff ;)

4.

Change it to this

if(FindFight)then
begin
RunAwayDirection('N');
wait(10000+random(5000));
RunBack;
end;

I think u get it ;)

5.

Make your own dropping procedure, incase the user has more than one axe. Just get the dtm and have it move to it, right click, and click drop. ;)

6.

GET RID OF MOVEMOUSESMOOTH + CLICKMOUSE! Use these functions

MMouse(x, y, randx, randy); //same deal, except better and just put something like 2, 2 for randx/y.
Mouse(x, y, randx, randy, left); //same deal as above, left click = true.

U MUST DO THIS.

7.

Better chopping procedure. We all start out where you are at, having troubles with detecting the tree and if it dissapears, so mess with it. ;)

8.

You do NOT need a seperate procedure for each tree. If you read my suggestion above, just do something like this……

case Lowercaes(Players[CurrentPlayer].String1) of
'oak' : begin
string1 := 'oa';
string2 := 'ak';
string3 := 'ree';
end;
etc.
end;

If u don't know cases, learn them ASAP with driger's tutorial exe or another. ;) It's really simple.

Then, put, if(FindObjMod2orwhateverlol(string1, string2, string3, x, y, blahblahbalh). U get the idea. Make sure u have string1,2,and 3 as variables :D

8.

Main loop, do this

repeat
ChopTree;
until(false);

Because U will have the type of tree being found inside of the chopping procedure if u do my suggestions above. :D

hahahahahah. :sasmokin:

Have fun :)



-Ejj

also.. i might be wrong.. but everytime you click on a tree you do your antiban.

Procedure AntiBan;
Begin
  if(not(LoggedIn))then
  Exit;
  case Random(5) of
    0: Begin
       GameTab(2);
       HoverSkill('Woodcutting', false);
       GameTab(4);
       End;
    1: PickUpMouse;
    2: GameTab(1 + Random(12));
    3: MouseBox(MSX1,MMY1,MMX2,MMY2,5);
    4: SleepAndMoveMouse(3000+random(2000));
  end;
end;

this can be bad.. because normal people dont always do somthing after they click.. sometimes they just leave the mouse on the tree… therefore, add some into your case that way like, wait(200) or somthing.

otherwise very good first script

(but do everything the person above me has said)

Also, what the person above me said, add inside the antiban procedure case(100) > 80)then blahblah

So it has a 20% chance or so to do oen :)