stealth1337
07-13-2012, 05:53 AM
alright guys today im releasing my combat script it stays out of combat 60% of the time but I also found a cool freeware that allows me to change pixel values so ive made it so it will change the pixels of hp bar to a bright neon color and you simply change all the color ids
with this it will allow us to detect combat 100% of the time,
The new flauntid, npcid(yak id), and your loot id's (charms)
first download and run
LINK REMOVED
it should pop up with a little screen that sais select now click it and select your hp bar while in combat, your hp bar.
now use this script ive made,
program Yakkiller;
{$i SRL/SRL.simba}
var
x,y:Integer;
const
Monster = 2699326;
Flaunt = 9135263;//select the hp bar color and use it here,
BlueCharm = 9013070;
Procedure AttackYak;
begin
if srl_infight = false then
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 srl_infight = false then
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.
with this it will allow us to detect combat 100% of the time,
The new flauntid, npcid(yak id), and your loot id's (charms)
first download and run
LINK REMOVED
it should pop up with a little screen that sais select now click it and select your hp bar while in combat, your hp bar.
now use this script ive made,
program Yakkiller;
{$i SRL/SRL.simba}
var
x,y:Integer;
const
Monster = 2699326;
Flaunt = 9135263;//select the hp bar color and use it here,
BlueCharm = 9013070;
Procedure AttackYak;
begin
if srl_infight = false then
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 srl_infight = false then
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.