; ****************************************************************************************************************************************************************
; System check
; ****************************************************************************************************************************************************************

#singleinstance force
;#notrayicon

if A_OSVersion in WIN_NT4,WIN_95,WIN_98,WIN_ME
{
    MsgBox This program requires Windows 2000/XP or later.
    ExitApp
}

; ****************************************************************************************************************************************************************
; Settings
; ****************************************************************************************************************************************************************

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
colordef=959595 ; Standard color for now	

; ****************************************************************************************************************************************************************
; GUI Dev.
; ****************************************************************************************************************************************************************

Main:
gui, 1:color, %colordef%
Gui, 1:Show, x1000 y119 h400 w200, Mail
WinGet Gui_ID, ID, Mail
Gui, 1:Add, Button, x0 y380 w60 h20 , Avslutt
Gui, 1:Add, Button, x60 y380 w60 h20 , Reload
Gui, 1:Add, Button, x0 y0 w200 h50 , Get Mail
Gui, 1:Add, Button, x0 y50 w200 h50 , STOP!
Gui, 1:Add, Button, x0 y100 W200 H25, Set Mouse 1
Gui, 1:Add, Text, x0 y130 w200 h25 +center , Mouse Info: %MouseX%, %MouseY%
Gui, 1:Add, Button, x0 y155 W200 h25, Get Color
Gui, 1:Add, Text, x0 y185 w200 h25 +center , Color Info: %color%

return
;-----

; ****************************************************************************************************************************************************************
; Buttons and keys
; ****************************************************************************************************************************************************************

buttonsetmouse1:
gui, 1:destroy
WinWaitActive, RIFT
sleep 5000
MouseGetPos, MouseX, MouseY
SplashTextOn, 400, 20 , MouseDone, Mouse pos. set %MouseX%, %MouseY%
sleep 2000
SplashTextOff
gosub, Main

return
;-----

buttongetcolor:

gui, 1:destroy
WinWaitActive, RIFT
CoordMode, Pixel
PixelGetColor, color, %MouseX%, %MouseY%
SplashTextOn, 400, 20 , ColorDone, Color Set %color%
sleep 2000
SplashTextOff
gosub, Main

return
;-----

+a::
nextmail:
buttongetmail:
WinWaitActive, RIFT
CoordMode, Pixel
PixelGetColor, newmail, %MouseX%, %MouseY%
If (newmail = color) ;NewMail
{
	MouseMove, %MouseX%, %MouseY%
	sleep 500
	MouseClick, left, %MouseX%, %MouseY%
	sleep 1000
	gosub, getmail
}
else
SplashTextOn, 400, 20 , Done, No more Mail...
sleep 2000
SplashTextOff

MsgBox %MouseX%, %MouseY% %color% %newmail% ;Debug to see if we get variables
return
;-----

buttonreload:
reload
;-----

Pause:: 
Suspend 
Pause,,1

return
;-----

; ****************************************************************************************************************************************************************
; Codes
; ****************************************************************************************************************************************************************

getmail:
CoordMode, Pixel
Pixelgetcolor, getmail, 580, 599

If (getmail = "0x41413F")
{
	MouseMove, 535, 602
	sleep 500
	MouseMove, 534, 601
	sleep 500
	MouseClick, left, , , 2
	sleep 500
	gosub, nextmail
}
Else
Gui, 1:destroy
MsgBox Error @ geting mail Check %getmail%
gosub, Main

return
;-----


; ****************************************************************************************************************************************************************
; ExitApp
; ****************************************************************************************************************************************************************

guiclose:
buttonavslutt:
buttonstop!:
exitapp