auto dinowipe

#NoEnv
#MaxHotkeysPerInterval 99000000
#HotkeyInterval 99000000
;SendMode Input
SetWorkingDir %A_ScriptDir%
SetBatchLines, -1
ListLines Off
Process, Priority, , A
SetBatchLines, -1
SetKeyDelay, -1, -1
SetMouseDelay, -1
SetDefaultMouseSpeed, 0
SetWinDelay, -1
SetControlDelay, -1

sleep 1000
WinActivate, ARKon
WinGet, ID1, ID, ARKon
WinWaitActive, ARKon, , 2

if ErrorLevel
{
    MsgBox, 48, Dino Wipe, ARKon not running, 2
    Run, C:\Users\Administrator\Desktop\TheIsland ARKon.lnk
    sleep 2000
    WinGet, ID2, ID, ARKon
    WinMove, ahk_id %ID2%,, 0, 0, 800, 640,
}
else
    sleep 2000
        WinMove, ahk_id %ID1%,, 0, 0, 800, 640,
    sleep 5000

PixelSearch, Px, Py, 10, 595, 35, 632, 0x1F34BF, 3, Fast
if ErrorLevel
Goto, step1
else
MsgBox, 48, Dino Wipe, Not Connected, 2
MouseMove, 725, 605
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step1:
PixelSearch, Px, Py, 10, 595, 35, 632, 0x0FF764, 3, Fast
if ErrorLevel
Goto, step2
else
MsgBox, 48, Dino Wipe, Connected, 2
MouseMove, 65, 462
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step2:

sleep 1000
send, broadcast Wild dino wipe in 30mins @ 230am CST (this is an automated wipe)
sleep 50
send, {enter}
sleep 600000

WinActivate, ARKon
WinWaitActive, ARKon, , 2
if ErrorLevel
{
    MsgBox, 48, Dino Wipe, ARKon not running, 2
    Run, C:\Users\Administrator\Desktop\TheIsland ARKon.lnk
    sleep 2000
    WinGet, ID3, ID, ARKon
    WinMove, ahk_id %ID3%,, 0, 0, 800, 640,
}
else
PixelSearch, Px, Py, 10, 595, 35, 632, 0x1F34BF, 3, Fast
if ErrorLevel
Goto, step3
else
MsgBox, 48, Dino Wipe, Not Connected, 2
MouseMove, 725, 605
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step3:
PixelSearch, Px, Py, 10, 595, 35, 632, 0x0FF764, 3, Fast
if ErrorLevel
Goto, step4
else
MouseMove, 65, 462
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step4:

send, broadcast Wild dino wipe in 20mins @ 230am CST (this is an automated wipe)
sleep 50
send, {enter}
sleep 600000

WinActivate, ARKon
WinWaitActive, ARKon, , 2
if ErrorLevel
{
    MsgBox, 48, Dino Wipe, ARKon not running, 2
    Run, C:\Users\Administrator\Desktop\TheIsland ARKon.lnk
    sleep 2000
    WinGet, ID4, ID, ARKon
    WinMove, ahk_id %ID4%,, 0, 0, 800, 640,
}
else
PixelSearch, Px, Py, 10, 595, 35, 632, 0x1F34BF, 3, Fast
if ErrorLevel
Goto, step5
else
MsgBox, 48, Dino Wipe, Not Connected, 2
MouseMove, 725, 605
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step5:
PixelSearch, Px, Py, 10, 595, 35, 632, 0x0FF764, 3, Fast
if ErrorLevel
Goto, step6
else
MouseMove, 65, 462
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step6:

send, broadcast Wild dino wipe in 10mins @ 230am CST (this is an automated wipe)
sleep 50
send, {enter}
sleep 300000

WinActivate, ARKon
WinWaitActive, ARKon, , 2
if ErrorLevel
{
    MsgBox, 48, Dino Wipe, ARKon not running, 2
    Run, C:\Users\Administrator\Desktop\TheIsland ARKon.lnk
    sleep 2000
    WinGet, ID5, ID, ARKon
    WinMove, ahk_id %ID5%,, 0, 0, 800, 640,
}
else
PixelSearch, Px, Py, 10, 595, 35, 632, 0x1F34BF, 3, Fast
if ErrorLevel
Goto, step7
else
MsgBox, 48, Dino Wipe, Not Connected, 2
MouseMove, 725, 605
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step7:
PixelSearch, Px, Py, 10, 595, 35, 632, 0x0FF764, 3, Fast
if ErrorLevel
Goto, step8
else
MouseMove, 65, 462
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step8:

send, broadcast wild dino wipe in 5mins @ 230am CST (this is an automated wipe)
sleep 50
send, {enter}
sleep 240000

WinActivate, ARKon
WinWaitActive, ARKon, , 2
if ErrorLevel
{
    MsgBox, 48, Dino Wipe, ARKon not running, 2
    Run, C:\Users\Administrator\Desktop\TheIsland ARKon.lnk
    sleep 2000
    WinGet, ID6, ID, ARKon
    WinMove, ahk_id %ID6%,, 0, 0, 800, 640,
}
else
PixelSearch, Px, Py, 10, 595, 35, 632, 0x1F34BF, 3, Fast
if ErrorLevel
Goto, step9
else
MsgBox, 48, Dino Wipe, Not Connected, 2
MouseMove, 725, 605
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step9:
PixelSearch, Px, Py, 10, 595, 35, 632, 0x0FF764, 3, Fast
if ErrorLevel
Goto, step10
else
MouseMove, 65, 462
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step10:

send, broadcast wild dino wipe in 1min @ 230am CST (this is an automated wipe)
sleep 50
send, {enter}
sleep 10000

WinActivate, ARKon
WinWaitActive, ARKon, , 2
if ErrorLevel
{
    MsgBox, 48, Dino Wipe, ARKon not running, 2
    Run, C:\Users\Administrator\Desktop\TheIsland ARKon.lnk
    sleep 2000
    WinGet, ID7, ID, ARKon
    WinMove, ahk_id %ID7%,, 0, 0, 800, 640,
}
else
PixelSearch, Px, Py, 10, 595, 35, 632, 0x1F34BF, 3, Fast
if ErrorLevel
Goto, step11
else
MsgBox, 48, Dino Wipe, Not Connected, 2
MouseMove, 725, 605
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step11:
PixelSearch, Px, Py, 10, 595, 35, 632, 0x0FF764, 3, Fast
if ErrorLevel
Goto, step12
else
MouseMove, 65, 462
sleep 500
send {LButton down}
sleep 50
send {LButton up}
step12:

send, saveworld
sleep 50
send, {enter}
sleep 50000
send, destroywilddinos
sleep 50
send, {enter}
Exitapp

Escape::
MsgBox, 48,Braino's thingy, Program Terminated, 2
Exitapp
return