[AutoIt] Making Simple Bots

WinActivate("2Moons")
Sleep(500)
 = PixelGetColor(549, 138) ;Get the colour of the specified pixel(purple one)
While  <> 14883057
    Sleep(10000) ; Wait 10 seconds before checking again   
     = PixelGetColor(549, 138)
Wend
; do your stuff

;~ HotKeySet( "{F11}" , "_Start")
;~ HotKeySet( "{F10}" , "_Stop")
Opt("TrayMenuMode", 1)
Opt("WinTitleMatchMode", 2)

 = TrayCreateItem("Exit")
Opt("TrayOnEventMode",1)
TrayItemSetOnEvent(, "_Exit")
TraySetState()
TrayTip("2Moons auto launcher", "Press F11 to start, or F10 to stop script", 5)

call("_start")

Func Adlibfunc ()
    if Not ProcessExists("dekaron.exe") Then;If game fall down/DC
        [COLOR="Red"]ShellExecute("minilauncher.exe", "", "C:Program FilesAcclaim2Moons");luncher-may be changed by user[/COLOR]                                                       
        Sleep(12000)
	WinActivate("luncher")
        MouseClick("Left", 826,668,1);START
        Sleep(90000)
       [COLOR="Red"] MouseClick("Left", 619,813,1);Trieste[/COLOR]
        Sleep(1000)
        MouseClick("Left", 640,950,1);ok
        Sleep(3000)
        WinActivate("2Moons")
	Sleep(1000)
	[COLOR="Red"]Send("");login[/COLOR]
	Sleep(3000)
	Send("{TAB}")
	Sleep(2000)
	[COLOR="Red"]Send ("");password[/COLOR]
        Sleep(2000)
        ControlSend ( "2Moons", "", "", "{ENTER}")
	MouseClick("Left", 571,962,1);logon
	Sleep(20000)
	[COLOR="Red"]MouseClick("Left", 946,153,1);Horsea 153, Oread 135-u may change y for other shards[/COLOR]
	Sleep(2000)
	MouseClick("Left", 641,904,1);connect
	Sleep(35000)
    EndIf
EndFunc

func _Exit ()
    Exit
EndFunc

func _start ()
    AdlibEnable("Adlibfunc", 10)
    TrayTip("2Moons notice:", "script has been started", 5)
EndFunc

func _stop ()
	AdlibDisable()
	TrayTip("2Moons notice:", "script has been stopped", 5)
EndFunc

While 1
    Sleep(10)
WEnd