PDA

View Full Version : Burn willow logs



syphon
08-08-2007, 06:49 AM
This is my 3rd script.. It is very basic and you have to be there to make sure nothing goes wrong... But ehre it is.. I burns 23 willow logs that you ahve in inventory granted nothing prevents you from lighting the fire. I use by the willos by the draynor bank. I have a spot where you can light 23 logs with no prob normally. Let me know what you think.

program burnwillows;
var
x, y, loopnum: Integer;
begin
loopnum:= 0;
repeat
//click on matches 629, 360(I put them in the second spot over 3rd spot down because they are sort of in the middle)
loopnum:= loopnum + 1;
MoveMouseCC(629, 360, 2, 9, 3, 2);
Wait(RandomRange(105, 135));
ClickMouseBox(622, 354, 635, 366, True);
Wait(RandomRange(90, 110));

//click on log
//invantory coordinates 570, 233 740, 485
if(FindColorTolerance(x, y, 1326148, 570, 233, 740, 485, 5
))then//found log in invantory
begin
MoveMouseCC(x, y+8, 2, 9, 3, 2); //MoveMouseCC(x, y, range, segments, pcount, delay);
Wait(RandomRange(125, 160));
ClickMouseBox(x-2, y+6, x+2, y+10, True);
end
else
begin
Wait(RandomRange(500, 1000));
Writeln('logs not found');
break;
end

until(loopnum > 22)
end.

Santa_Clause
08-08-2007, 07:14 AM
Hmm...this looks the same as your Clay Softener...