Scribd
Upload
116 views

Datamon Bot V1.2

This macro performs the following in 3 steps: 1. Logs into a game and uses functions to heal and talk to Izzy 2. Navigates through a dungeon, battling enemies and using skills 3. Exits the dungeon and restarts the macro if not at the entrance

Uploaded by

Ahmad Ramadhan
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
116 views

Datamon Bot V1.2

This macro performs the following in 3 steps: 1. Logs into a game and uses functions to heal and talk to Izzy 2. Navigates through a dungeon, battling enemies and using skills 3. Exits the dungeon and restarts the macro if not at the entrance

Uploaded by

Ahmad Ramadhan
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 9

begin

Macro.Execute new("DMO", "Login", "Yes")


Function.Execute("Heal")
Function.Execute("TalkIzzy")
end
function("TalkIzzy")
if Color.At coordinate is not (RGB)("135", "135", "135", "224", "53")
begin
if Color.At coordinate is not (RGB)("233", "150", "0", "213", "5
1")
begin
Keyboard.Hold keys("w")
Macro.Pause("1500")
Keyboard.Release keys("w")
Humanly.Pause("300", "500")
Keyboard.Hold keys("a")
Macro.Pause("50")
Keyboard.Release keys("a")
Humanly.Pause("300", "500")
Keyboard.Hold keys("d")
Macro.Pause("50")
Keyboard.Release keys("d")
if Color.Pixel pattern can be located on screen("255,2
55,255,2,-28,255,255,255,-31,-10,255,255,255,18,-13,255,255,255,-1,-50,255,56,0,
4,-1,255,60,0", "5")
begin
Color.Wait for and locate pixel pattern("255,
255,255,2,-28,255,255,255,-31,-10,255,255,255,18,-13,255,255,255,-1,-50,255,56,0
,4,-1,255,60,0", "5", "x", "y")
Humanly.Pause("500", "1000")
Humanly.Click at coordinate("{x}", "{y}", "le
ft", "yes")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Humanly.Pause("3000", "5500")
// restart the macro if dialogue dont show
if Color.At coordinate is not (RGB)("246", "
245", "240", "432", "95")
begin
Macro.Restart("yes")
end
// RGB Dialogue
if Color.At coordinate is (RGB)("246", "245"
, "240", "432", "95")
Begin
Variable.Set random number("xxx", "
295", "770")

Humanly.Click at coordinate("{xxx}"
, "113", "Left", "yes")
Humanly.Pause("500", "1000")
end
// RGB Confirmation enter idg
if Color.At coordinate is (RGB)("239", "239"
, "240", "457", "235")
begin
Variable.Set random number("yyy", "
431", "495")
Humanly.Move to coordinate("{yyy}",
"235")
Humanly.Pause("1000", "2000")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Humanly.Pause("500", "1000")
Function.Execute("Stopwatch2")
end
// if dont enter dg
if Color.At coordinate is (RGB)("241", "171"
, "47", "825", "15")
begin
If Color.At coordinate is (RGB)("4
6", "91", "108", "297", "147")
begin
Mouse.Move to coordinate(
"299", "123")
Humanly.Click("Left", "ye
s")
Humanly.Pause("200", "400
")
end
end
// RGB Confirmation enter idg
if Color.At coordinate is (RGB)("239", "239"
, "240", "457", "235")
begin
Variable.Set random number("yyy", "
431", "495")
Humanly.Move to coordinate("{yyy}",
"235")
Humanly.Pause("1000", "2000")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Humanly.Pause("500", "1000")
Function.Execute("Stopwatch2")
end
// RGB Name map
if Color.At coordinate is not (RGB)("245", "
246", "246", "867", "13")
begin loop()
Macro.Pause("500")
// rgb from maze
if Color.At coordinate is (RGB)("2
45", "246", "246", "867", "13")
begin

Macro.Break from loop("ye


s")
end
// rgb from desktop
if Color.At coordinate is (RGB)("2
12", "208", "200", "661", "747")
begin
Macro.Break from loop("ye
s")
Macro.Restart("yes")
end
// Fill with DC RGB's message
if Color.At coordinate is (RGB)("5
3", "53", "53", "499", "232")
begin
Macro.Break from loop("ye
s")
Macro.Restart("yes")
end
end
Function.Execute("Dungeon")
end
end
end
function
function("Dungeon")
begin
if Color.At coordinate is not (RGB)("245", "246", "246", "867", "13")
begin loop()
Macro.Pause("500")
if Color.At coordinate is (RGB)("245", "246", "246", "867",
"13")
begin
Macro.Break from loop("yes")
end
end
Keyboard.Hold keys("d")
Macro.Pause("500")
Keyboard.Release keys("d")
Macro.Pause("500")
Keyboard.Hold keys("s")
Macro.Pause("2000")
Keyboard.Release keys("s")
Macro.Pause("500")
Keyboard.Hold keys("d")
Macro.Pause("800")
Keyboard.Release keys("d")
Macro.Pause("1000")
Keyboard.Hold keys("s")
Macro.Pause("3500")
Keyboard.Release keys("s")
Macro.Pause("500")
Keyboard.Hold keys("a")
Macro.Pause("4000")
Keyboard.Release keys("a")
Macro.Pause("500")
Keyboard.Hold keys("s")
Macro.Pause("5500")
Keyboard.Release keys("s")

Macro.Pause("500")
if Color.Pixel pattern can be located on screen("1,7,253,-1,-11,1,251
,254,13,-40,1,251,254", "5")
begin
Function.Execute("Dungeon2")
end
Macro.Pause("2000")
if Color.At coordinate is not (RGB)("244", "203", "181", "590", "53")
Begin loop()
Keyboard.Press key("{<tab>}")
Humanly.Pause("300", "500")
// rgb from ete
if Color.At coordinate is (RGB)("244", "203", "181", "590",
"53")
begin
Macro.Break from loop("yes")
end
// rgb from desktop
if Color.At coordinate is (RGB)("212", "208", "200", "661",
"747")
begin
Macro.Break from loop("yes")
Macro.Restart("yes")
end
// Fill with DC RGB's message
if Color.At coordinate is (RGB)("53", "53", "53", "499", "2
32")
begin
Macro.Break from loop("yes")
Macro.Restart("yes")
end
end
Function.Execute("Bot")
end
function
function("Dungeon2")
begin
Keyboard.Hold keys("d")
Macro.Pause("900")
Keyboard.Release keys("d")
Macro.Pause("1000")
Keyboard.Hold keys("s")
Macro.Pause("3500")
Keyboard.Release keys("s")
Macro.Pause("500")
Keyboard.Hold keys("a")
Macro.Pause("4000")
Keyboard.Release keys("a")
Macro.Pause("500")
Keyboard.Hold keys("s")
Macro.Pause("5500")
Keyboard.Release keys("s")
Macro.Pause("2000")
if Color.At coordinate is not (RGB)("244", "203", "181", "590", "53")
Begin loop()
Keyboard.Press key("{<tab>}")
Humanly.Pause("400", "700")
// rgb from ete
if Color.At coordinate is (RGB)("244", "203", "181", "590",

"53")
begin
Macro.Break from loop("yes")
end
// rgb from desktop
if Color.At coordinate is (RGB)("212", "208", "200", "661",
"747")
begin
Macro.Break from loop("yes")
Macro.Restart("yes")
end
// Fill with DC RGB's message
if Color.At coordinate is (RGB)("53", "53", "53", "499", "2
32")
begin
Macro.Break from loop("yes")
Macro.Restart("yes")
end
end
Function.Execute("Bot")
end
function
function("Exit")
begin
Keyboard.Hold keys("d")
Macro.Pause("10000")
Keyboard.Release keys("d")
Macro.Pause("2000")
Keyboard.Hold keys("s")
Macro.Pause("8000")
Keyboard.Release keys("s")
Function.Execute("MouseExit")
end
function
function("MouseExit")
begin
Macro.Pause("1000")
if Color.Pixel pattern can be located on screen("255,255,255,-92,-166
,255,37,0,84,232,255,255,255", "5")
begin
Color.Wait for and locate pixel pattern("255,255,255,-92,-16
6,255,37,0,84,232,255,255,255", "5", "x1", "y1")
//
Humanly.Move to coordinate("{x1}", "{y
1}")
end
Humanly.Pause("1000", "1800")
Humanly.Move to coordinate("{x1}", "{y1}")
//
Humanly.Click at coordinate("{x1}", "{y1}", "left", "yes")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")

Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
Humanly.Pause("800", "1500")
//
Humanly.Move to coordinate("512", "147")
if Color.At coordinate is (RGB)("143", "122", "28", "308", "144")
begin
Variable.Set random number("www", "295", "770")
Humanly.Move to coordinate("{www}", "144")
Humanly.Pause("200", "400")
Mouse.Hold button("Left")
Humanly.Pause("200", "400")
Mouse.Release button("Left")
Humanly.Pause("200", "400")
//
Humanly.Click at coordinate("{yyy}", "
144", "Left", "yes")
end
If Color.At coordinate is not (RGB)("0", "255", "0", "867", "28")
begin
Function.Execute("Stopwatch")
begin loop()
Macro.Pause("500")
// rgb from piramide entrance
if Color.At coordinate is (RGB)("0", "255", "0", "867"
, "28")
begin
Macro.Break from loop("yes")
Keyboard.Hold keys("r")
Macro.Pause("50")
Keyboard.Release keys("r")
Macro.Restart("yes")
end
// rgb from desktop
if Color.At coordinate is (RGB)("212", "208", "200", "
661", "747")
begin
Macro.Break from loop("yes")
Macro.Restart("yes")
end
// Fill with DC RGB's message
if Color.At coordinate is (RGB)("53", "53", "53", "499
", "232")
begin
Macro.Break from loop("yes")
Macro.Restart("yes")
end
end
end
end
function

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 uniqu
e spot on it so he will only attack that digi)
if Color.At coordinate is not (RGB)("244", "203", "181", "590", "53")
begin
Macro.Break from loop("yes")
Keyboard.Press key("{<esc>}")
Humanly.Pause("400", "700")
Keyboard.Hold keys("4")
Humanly.Pause("400", "700")
Keyboard.Release keys("4")
Humanly.Pause("400", "700")
Keyboard.Hold keys("4")
Humanly.Pause("400", "700")
Keyboard.Release keys("4")
Humanly.Pause("400", "700")
Keyboard.Hold keys("4")
Humanly.Pause("400", "700")
Keyboard.Release keys("4")
Humanly.Pause("400", "700")
Function.Execute("Exit")
end
// Just fill with the same co ords from above
if Color.At coordinate is (RGB)("244", "203", "181", "590", "53")
begin loop()
Macro.Execute new("DMO", "Digivolve", "no")
If Color.At coordinate is (RGB)("216", "65", "54", "533", "56")
begin
Keyboard.Hold keys("1")
Humanly.Pause("400", "800")
Keyboard.Release keys("1")
end
if Color.At coordinate is (RGB)("15", "241", "255", "124", "142"
)
begin
//
Keyboard.Hold keys("{<f2>}")
//
Function.Execute("Humam Pause")
//
Keyboard.Release keys("{<f2>}")
end
Function.Execute("Humam Pause")
Function.Execute("Heal")
// fill with digimon full hp
if Color.At coordinate is (RGB)("216", "65", "54", "545", "56")
begin
Keyboard.press keys("2")
end
// fill with the same co ords from above
if Color.At coordinate is not (RGB)("244", "203", "181", "590",
"53")
begin
Function.Execute("Heal")
Keyboard.Press key("{<esc>}")
Humanly.Pause("400", "700")
Keyboard.Hold keys("4")
Humanly.Pause("400", "700")
Keyboard.Release keys("4")
Humanly.Pause("400", "700")
Keyboard.Hold keys("4")
Humanly.Pause("400", "700")

Keyboard.Release keys("4")
Humanly.Pause("400", "700")
Keyboard.Hold keys("4")
Humanly.Pause("400", "700")
Keyboard.Release keys("4")
Macro.Pause("500")
Function.Execute("Exit")
Macro.Break from loop("yes")
Macro.Restart("no")
end
end
function
function("Heal")
// RGB of a part of digimon hp in slot f6 (i use cc emergency)
if Color.At coordinate is not (RGB)("198", "60", "49", "134", "127")
begin
Keyboard.Hold keys("5")
Macro.Pause("500")
Keyboard.Release keys("5")
end
// RGB for TAMER DS (emergency), slot 6 (kfc)
if Color.At coordinate is not (RGB)("15", "241", "255", "117", "68")
begin
Keyboard.Hold keys("5")
Macro.Pause("500")
Keyboard.Release keys("5")
end
// RGB of a part of digimon hp in slot 7 (breads)
if Color.At coordinate is not (RGB)("216", "65", "54", "188", "128")
begin
//
Keyboard.Hold keys("7")
Macro.Pause("500")
//
Keyboard.Release keys("7")
end
// RGB for Digimon DS to use DS DISK in slot F8
if Color.At coordinate is not (RGB)("4", "228", "243", "163", "141")
begin
// RGB for Digimon HP Higher than 50%
if Color.At coordinate is (RGB)("198", "60", "49", "164", "127")
begin
Keyboard.Hold keys("8")
Macro.Pause("500")
Keyboard.Release keys("8")
end
end
// RGB for TAMER DS , slot 3 (vitamin)
if Color.At coordinate is not (RGB)("28", "239", "255", "146", "69")
begin
Keyboard.Hold keys("3")
Macro.Pause("500")
Keyboard.Release keys("3")
end
function
function("Stopwatch")
begin loop()
Macro.Start stopwatch("Timer")
Macro.Read stopwatch("Timer", "Timer2")
if Variable.Is greater than (Math)("Timer2", "60000")

begin
Macro.Pause("1000")
Macro.Reset stopwatch("Timer")
Macro.Break from loop("yes")
end
// rgb ch
if Color.At coordinate is (RGB)("93", "159", "223", "835", "7")
begin
Macro.Reset stopwatch("Timer")
Macro.Break from loop("yes")
end
end
function
function("Stopwatch2")
begin loop()
Macro.Start stopwatch("Timer")
Macro.Read stopwatch("Timer", "Timer2")
if Variable.Is greater than (Math)("Timer2", "60000")
begin
Macro.Pause("1000")
Macro.Reset stopwatch("Timer")
Macro.Break from loop("yes")
end
// rgb ch
if Color.At coordinate is not (RGB)("93", "159", "223", "835", "7")
begin
Macro.Reset stopwatch("Timer")
Macro.Break from loop("yes")
end
end
function

You might also like