SRL Archive - First Scripts

i added a little more such as antirandoms and antiban, and changed my tree finding procedure.

please give feedback

(tips are accepted?)

You dont need a whole new topic, just edit ur post in the other topic and add the attachment..

procedure treecolors;
begin
 if treename = 'tree' then
 begin treecolor := 00000;
 end;
 end;
 
 procedure oakcolors;
 begin
 if treename = 'oak' then
 begin treecolor := 00000;
 end;
 end;
 procedure willowcolors;
 begin
 if treename = 'willow' then
 begin treecolor := 00000;
 end;
 end;
 
 procedure yewcolors;
 begin
 if treename = 'yew' then
 begin treecolor := 00000;
end;
end;

Learn case of.

procedure findaxecolor;
 begin
 FindAxeHeadColor;
end;

Why would you do that?

procedure Findaxehead;
 begin
  FindHead;
  wait(5000);
  AttachHead;
end;

Just use FindHead, it finds and attaches

Procedure aAntiBan;
 begin
  RotateEvery(1+random(1));
   RandomChatEvery(5+random(6));
  LeaveScreenEvery(1+random(1));
 AntiBan;
end;

every minute + 1 is to much occurence.

Procedure FindTree;
 Begin
  wait(2000);
   If FindObjSpe(treename,treecolor,tolerance) then
    Begin
     wait(1100);
      Mouse(x,y,5,0,true);
     wait(6000+random(3000));
     findnormalrandoms;
     aantiban;
     fight;
 end;
end;

Wow learn standards.

procedure DropLogs;
begin
 if (inventoryfull=true) then
 begin
 gametab(4);
 dropalllogs;
 wait(30000);
 c := c+1;
 findnormalrandoms;
 aantiban;
 findtree;
 fight;
 end;
end;

Extra begin and end.

      Repeat
       findnormalrandoms;
       aantiban;
      fight;
     droplogs;
    Until (InventoryCount=1);

Just use DropLogs.

c := loadstodo;

Don't forget the colon.

Good job for a beginer, keep it up. :)

well thanks for the comment white shadow :/
and what do you mean by standards?

Heres a link to scripting standards tut :
http://wiki.srl-forums.com/index.php/Scripting_Standards