this script is for Auto-Hunt without Healing...
If you are using 1024 x 768 resolution, try this script hehe =)
and I edited the time pause also, so it wont be detected

and this is for all monster , hehe I edited the coordinates for normal monster and aggresive monster XD
Code:
begin
Keyboard.Hold keys("{<tab>}4")
Macro.Pause("500")
Keyboard.Release keys("{<tab>}4")
Macro.Pause("500")
Function.Execute("Bot")
end
function("Bot")
// Click on any of the empty spaces then click on the glass and click on a part in the digimon's face ( from the bottom part of his face and choose a unique spot on it so he will only attack that digi)
if Color.At coordinate is not (RGB)("0", "141", "91", "396", "82")
begin
Macro.Break from loop("yes")
Function.Execute("Bot2")
end
// Just fill with the same co ords from above
if Color.At coordinate is (RGB)("0", "141", "91", "396", "82")
begin loop()
Keyboard.Hold keys("1")
Macro.Pause("500")
Keyboard.Release keys("1")
Macro.Pause("500")
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("128")
// fill with the same co ords from above
if Color.At coordinate is not (RGB)("0", "141", "91", "396", "82")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
end
function
function("Bot2")
// Target an aggro digi and import the Red part around the hand (the icon which tells its aggro)
if Color.At coordinate is not (RGB)("164", "0", "29", "401", "81")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
// fill with same co ords from above
if Color.At coordinate is (RGB)("164", "0", "29", "401", "81")
begin loop()
Keyboard.Hold keys("1")
Macro.Pause("500")
Keyboard.Release keys("1")
Macro.Pause("500")
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("500")
// fill with same co ords from above
if Color.At coordinate is not (RGB)("164", "0", "29", "401", "81")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
end
function
function("Loot")
begin
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("700")
end
function
Keyboard.Hold keys("{<tab>}4")
Macro.Pause("500")
Keyboard.Release keys("{<tab>}4")
Macro.Pause("500")
Function.Execute("Bot")
end
function("Bot")
// Click on any of the empty spaces then click on the glass and click on a part in the digimon's face ( from the bottom part of his face and choose a unique spot on it so he will only attack that digi)
if Color.At coordinate is not (RGB)("0", "141", "91", "396", "82")
begin
Macro.Break from loop("yes")
Function.Execute("Bot2")
end
// Just fill with the same co ords from above
if Color.At coordinate is (RGB)("0", "141", "91", "396", "82")
begin loop()
Keyboard.Hold keys("1")
Macro.Pause("500")
Keyboard.Release keys("1")
Macro.Pause("500")
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("128")
// fill with the same co ords from above
if Color.At coordinate is not (RGB)("0", "141", "91", "396", "82")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
end
function
function("Bot2")
// Target an aggro digi and import the Red part around the hand (the icon which tells its aggro)
if Color.At coordinate is not (RGB)("164", "0", "29", "401", "81")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
// fill with same co ords from above
if Color.At coordinate is (RGB)("164", "0", "29", "401", "81")
begin loop()
Keyboard.Hold keys("1")
Macro.Pause("500")
Keyboard.Release keys("1")
Macro.Pause("500")
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("500")
// fill with same co ords from above
if Color.At coordinate is not (RGB)("164", "0", "29", "401", "81")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
end
end
function
function("Loot")
begin
Keyboard.Hold keys("4")
Macro.Pause("500")
Keyboard.Release keys("4")
Macro.Pause("700")
end
function
www.blueeye-macro.com › ... › Macros / Bots / Tools
Salam...
ReplyDeleteLeh bg email tk untuk saya bertanyakan soklan..
Nie email saya noobiesemut@gmail.com