So... I'm REALLY new at this all, and i want to get into making scripts. I followed Griff's guide HERE and made my basic woodcutter but changed it up so it would cut Dead Trees north of Draynor and drop them. Basic powerchopper, right? I'm not sure if this is the right place to post this, but I'm just looking for some constructive help. I've got the basics of creating the script, but i need help adding things such as walking, banking and making the antiban a little less sporadic.
Bugs from what I've tested:
- Camera turns a lot more than it should
- Has problems finding the trees sometimes
I would like to make it bank in the future at the Draynor bank, but for now I would just like to make it a little more dependable and accurate.
I couldn't get the attachment to work so the download link is here:
http://www.mediafire.com/?hx322sfucxhw296
Simba Code:
Program New;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:= True;
end;
Procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(12) of
0:
Begin
HoverSkill('Woodcutting', false);
wait(1800+Random(250));
End;
1: PickUpMouse;
2:
Begin
MakeCompass('N');
wait(82+random(45));
MakeCompass('S');
wait(92+random(32));
MakeCompass('N');
FindNormalRandoms;
End;
End;
End;
Procedure Drop_All;
var i: integer;
begin
for i:= 0 to 2 do
begin
DropPattern(Random(2) + 1);
if InvCount = 0 then
break;
end;
end;
Procedure ChopTree;
var x,y: integer;
Begin
Repeat
FindNormalRandoms;
if FindObj(x,y,'hop',856849, 15) then
Mouse(x,y,2,2, false);
ChooseOption('hop');
Repeat
Wait(800+random(250));
AntiBan;
Until not IsUpText('ead') or (InvFull);
Until(InvFull);
Drop_All;
ChopTree;
End;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
FindNormalRandoms;
Drop_All;
end.