i added a little more such as antirandoms and antiban, and changed my tree finding procedure.
please give feedback
(tips are accepted?)
Printable View
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..
Learn case of.Code: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;
Why would you do that?Code:procedure findaxecolor;
begin
FindAxeHeadColor;
end;
Just use FindHead, it finds and attachesCode:procedure Findaxehead;
begin
FindHead;
wait(5000);
AttachHead;
end;
every minute + 1 is to much occurence.Code:Procedure aAntiBan;
begin
RotateEvery(1+random(1));
RandomChatEvery(5+random(6));
LeaveScreenEvery(1+random(1));
AntiBan;
end;
Wow learn standards.Code: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;
Extra begin and end.Code:procedure DropLogs;
begin
if (inventoryfull=true) then
begin
gametab(4);
dropalllogs;
wait(30000);
c := c+1;
findnormalrandoms;
aantiban;
findtree;
fight;
end;
end;
Just use DropLogs.Code:Repeat
findnormalrandoms;
aantiban;
fight;
droplogs;
Until (InventoryCount=1);
Don't forget the colon.Code:c := loadstodo;
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...ting_Standards