#include <Math.au3>
Dim $oldwindows
Dim $Tog = 0
Dim $Skip = 0
Dim $i = 0
Dim $Tooltip1 = "off"
HotKeySet("{F8}", "Skip")
HotKeySet("{F9}", "Pause")
HotKeySet("{F10}", "Suivant")
HotKeySet("{F11}", "Quit")

Main()

Func Main()
	Texte()
	While 1
		If($Tog == 1) Then
			$oldWindows = WinGetTitle("[ACTIVE]", "")
			If WinExists("[CLASS:MozillaWindowClass]") = 1 Then
				Sleep(1000)
				Beep(1000, 100)
				Sleep(5000)
				If($Skip == 0) Then
					Switch $i
					Case 0
						Gowonda()
						Paradize()
					Case 1
						Gowonda()
					Case 2
						Paradize()
					Case 3
						Gowonda()
					EndSwitch
					WinActivate($oldWindows)
					Sleep(3590000)
					If Abs($i - 1.5) > 1 Then
						Sleep(3600000)
					EndIf
					Suivant()
				Else
					$i = _Max($i - 2, 0)
					Skip()
					Texte()
					Sleep(3600000)
				EndIf
			Else
				MsgBox(0, "Firefox non détecté", "Firefox n'est pas démarré : fermeture du bot.", 5)
				Quit()
			Endif
		Else
			Sleep(3600000)
		Endif
	WEnd
EndFunc

Func Gowonda()
	ShellExecute("https://www.paragon-servers.com/p/vote")
	Sleep(5000)
	MouseClick ("left", 940, 758, 1, 0)
	Sleep(2000)
	If WinActive("Gowonda : Serveur privé World of Warcraft Paragon-Servers :: 4.3.4 :: 2.4.3 :: 3.3.5a - Mozilla Firefox") Then
		Send("^w")
	EndIf
	Sleep(2000)
	If $i > 0 Then
		Send("^w")
	EndIf
EndFunc

Func Paradize()
	If $i > 0 Then
		ShellExecute("https://www.paragon-servers.com/p/vote")
		Sleep(5000)
	EndIf
	MouseClick ("left", 940, 821, 1, 0)
	Sleep(2000)
	If WinActive("RPG Paradize - MMORPG FreeShard WoW Minecraft Dofus World of Warcraft DAOC Linéage 2 - Mozilla Firefox") Then
		Send("^w")
	EndIf
	Sleep(2000)
	Send("^w")
EndFunc

Func Pause()
	$i = 0
	$Tog = 1 - $Tog
	Main()
EndFunc

Func Suivant()
	$i = Mod($i + 1, 4)
	Texte()
EndFunc

Func Skip()
	$Skip = 1 - $Skip
EndFunc

Func Texte()
	If ($Tog == 0) Then
		$Tooltip1 = "off"
	Else
		$Tooltip1 = "on"
	EndIf
	ToolTip("F8 Skip, F9 Vote " & $Tooltip1 & ", F10 Phase " & $i + 1 & ", F11 Exit",0,0)
EndFunc

Func Quit()
	Exit
EndFunc