this BOT is a fast reflex bot and makes u not disconnect try to use it i Edited it for enhanced duration of botting ur digimon
by : KILE128
- Code:
begin
Keyboard.Hold keys("{<tab>}{<f4>}")
Macro.Pause("600")
Keyboard.Release keys("{<tab>}{<f4>}")
Macro.Pause("600")
Function.Execute("Bot")
Function.Execute("Heal")
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)("57", "159", "110", "568", "81")
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)("57", "159", "110", "568", "81")
begin loop()
Keyboard.Hold keys("{<f1>}")
Macro.Pause("400")
Keyboard.Release keys("{<f1>}")
Macro.Pause("400")
Keyboard.Hold keys("{<f4>}")
Macro.Pause("400")
Keyboard.Release keys("{<f4>}")
Macro.Pause("400")
Function.Execute("Heal")
// fill with the same co ords from above
if Color.At coordinate is not (RGB)("57", "159", "110", "568", "81")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
Function.Execute("Heal")
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", "581", "68")
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", "581", "68")
begin loop()
Keyboard.Hold keys("{<f1>}")
Macro.Pause("400")
Keyboard.Release keys("{<f1>}")
Macro.Pause("400")
Keyboard.Hold keys("{<f4>}")
Macro.Pause("400")
Keyboard.Release keys("{<f4>}")
Macro.Pause("400")
Function.Execute("Heal")
// fill with same co ords from above
if Color.At coordinate is not (RGB)("164", "0", "29", "581", "68")
begin
Macro.Break from loop("yes")
Macro.Restart("no")
Function.Execute("Heal")
end
end
function
function("Loot")
begin
Keyboard.Hold keys("4")
Macro.Pause("250")
Keyboard.Release keys("4")
Macro.Pause("700")
end
function
function("Heal")
// RGB of a part of digimon hp , preferable about 25% of your digimon HP , this uses Hp DISK in slot F7
if Color.At coordinate is not (RGB)("216", "65", "54", "188", "128")
begin
Keyboard.Hold keys("{<f7>}")
Macro.Pause("50")
Keyboard.Release keys("{<f7>}")
end
// RGB of a part of digimon hp to use FOOD in slot 7 , preferably specify about 50% of digimon HP
if Color.At coordinate is not (RGB)("216", "65", "54", "132", "128")
begin
Keyboard.Hold keys("{<f5>}")
Macro.Pause("50")
Keyboard.Release keys("{<f5>}")
end
// RGB for Digimon DS to use DS DISK in slot F8
if Color.At coordinate is not (RGB)("4", "228", "243", "119", "141")
begin
Keyboard.Hold keys("{<f8>}")
Macro.Pause("50")
Keyboard.Release keys("{<f8>}")
end
// RGB for TAMER DS , slot 8
if Color.At coordinate is not (RGB)("0", "162", "179", "146", "65")
begin
Keyboard.Hold keys("{<f6>}")
Macro.Pause("50")
Keyboard.Release keys("{<f6>}")
end
function
function("Human Pause")
begin
Variable.Set random number("HumanTime", "500", "2000")
Macro.Pause("{HumanTime}")
end
function
by : KILE128
Mon May 27, 2013 3:31 pm by adam92
» DARK VEEMON DT 1280x800
Sat May 18, 2013 7:15 pm by OnlyMe11
» hi ~ i m new member
Thu May 16, 2013 6:47 am by whycantlvu13
» GDMO Digimon Texture Modification (Bonus Omnimon)
Mon May 13, 2013 7:00 pm by uchija447
» Perfect BOT by "mast"
Tue Apr 02, 2013 12:09 pm by Armonite
» **********HURRAY!!!HURRAY!!!HURRAY!!!**********
Wed Mar 27, 2013 12:20 am by prince_hack
» hi i'm newbie...
Sun Mar 17, 2013 7:59 am by 01091115090
» hi .. i`m newbe in here :D
Wed Mar 06, 2013 1:21 am by tiaraningsih
» [RELEASE] DaMaGeX DMO Bot [BETA] Updating now..
Fri Feb 15, 2013 10:43 am by wanloplop