hogan
2012-01-01 18:17:58
The script isnt done, at the moment it just spam clicks everything. I need some help on these few things,
- Recognizing a monster is already in combat
- Waiting for the monster to be killed
- Maybe better looting but im not sure
Anyone who helps will be credited:
- CRU1Z1N
Also remember that it is a private server so Smart commands will not work:
- Recognizing a monster is already in combat
- Waiting for the monster to be killed
- Maybe better looting but im not sure
Anyone who helps will be credited:
- CRU1Z1N
Also remember that it is a private server so Smart commands will not work:
program Yakkiller;
{$i SRL/SRL.scar}
var
x,y:Integer;
const
Monster = 2699326;
Monster1 = 2568773;
Monster2 = 3489360;
AttTime = 1500;
XpCounter = 65860;
BlueCharm = 9013070;
Procedure AttackYak;
begin
if(FindColorSpiralTolerance(x, y, Monster, MSX1, MSY1, MSX2, MSY2, 4)) then
begin Mouse(x, y, 3, 3, True);
wait(500)
end;
end;
Procedure Pickupdrop;
begin
if(FindColorSpiralTolerance(x, y, BlueCharm, MSX1, MSY1, MSX2, MSY2, 5))then
begin Mouse(x, y, 5, 5, true); //If found will Left-Click on the x, y coordinates with a randomness between 5 pixelend
end;
end;
procedure main;
begin
repeat
AttackYak;
Pickupdrop;
until(false)
end;
begin
ClearDebug;
SetUpSrl;
ActivateClient;
main;
end.