;~ **************************************************
;~ 			AUTO-Calculateur
;~
;~ Ver 1.06 - 01/06/2010
;~
;~ Author: DarKMaKa
;~
;~ **************************************************
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <Process.au3>
#Include <File.au3>

Opt("MustDeclareVars", 1)

Global $Paused
;~ Global $GUI_EVENT_CLOSE
;~ Global $Total_1 = 0

;~ HotKeySet("{Pause}", "TogglePause")
HotKeySet("{ESC}", "Terminate")


;~ TogglePause()


Func Terminate()
    Exit 0
EndFunc

_Main()

Func _Main()

;~ 			===========================================================================
;~			******************** Player 1
;~ 			===========================================================================
	Local $crown_inf1, $crown_nor1, $crown_sup1, $crown_maj1
	Local $gob_inf1, $gob_nor1,  $gob_sup1, $gob_maj1
	Local $seal_inf1, $seal_nor1, $seal_sup1, $seal_maj1
	Local $icon_inf1, $icon_nor1, $icon_sup1, $icon_maj1

	Local $clear1, $less_ap
	Local $Total_1, $Total_2
	Local $msg, $results, $listView
	Local $die1, $die2, $die3, $die4, $die5, $die6
	Local $output1, $output2, $output3, $output4, $output5, $output6
	Local $btn_h1, $btn_l1
;~ 	Local $GUI_EVENT_CLOSE

;~ 	Menu
	Local $filemenu, $fileitem, $recentfilesmenu, $separator1
	Local $exititem, $helpmenu, $aboutitem, $okbutton, $cancelbutton
	Local $msg, $file, $go_site, $nav, $link, $listView
	Local $name1
	Local $val_nm1
	Local $name_j1
	#forceref $separator1




;~  GUI ****************************************************************************************************************
GuiCreate("Calculateur AP - BabyBoyZ.net", 400, 600, -1, -1)

	$filemenu = GUICtrlCreateMenu("Menu")
	$exititem = GUICtrlCreateMenuItem("Exit - Quitter", $filemenu)
	$helpmenu = GUICtrlCreateMenu("?")
	$aboutitem = GUICtrlCreateMenuItem("Version 1.06", $helpmenu)
	$go_site = GUICtrlCreateMenuItem("Go BabyBoyZ.net", $helpmenu)

$name1 = GuiCtrlCreateInput("", 270, 55, 110, 20)
$val_nm1 = GUICtrlCreateButton("Valider", 285, 77, 75, 30)

;~ 	Resultat ************************************************************************************
$die1 = GUICtrlCreateLabel(" Joueur 1", 10, 425, 70, 20, 0x1000)
$output1 = GUICtrlCreateLabel("", 10, 445, 70, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))

$die2 = GUICtrlCreateLabel(" Joueur 2", 100, 425, 70, 20, 0x1000)
$output2 = GUICtrlCreateLabel("", 100, 445, 70, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))

$die3 = GUICtrlCreateLabel(" Joueur 3", 190, 425, 70, 20, 0x1000)
$output3 = GUICtrlCreateLabel("", 190, 445, 70, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))

$die4 = GUICtrlCreateLabel(" Joueur 4", 10, 505, 70, 20, 0x1000)
$output4 = GUICtrlCreateLabel("", 10, 525, 70, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))

$die5 = GUICtrlCreateLabel(" Joueur 5", 100, 505, 70, 20, 0x1000)
$output5 = GUICtrlCreateLabel("", 100, 525, 70, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))

$die6 = GUICtrlCreateLabel(" Joueur 6", 190, 505, 70, 20, 0x1000)
$output6 = GUICtrlCreateLabel("", 190, 525, 70, 50, BitOR($BS_PUSHLIKE, $SS_CENTER))

;~ Positions
$btn_l1 = 25
$btn_h1 = 45

;~ 	Table ***************************************************************************************
;~ $listView = GuiCtrlCreateListView("-AP-|Joueur|", 10, 290, 310, 120)
;~ GuiCtrlCreateListViewItem($Total_1 & "|One", $listView)
;~ GuiCtrlCreateListViewItem("B|Two", $listView)
;~ GuiCtrlCreateListViewItem("C|Three", $listView)
;~ GuiCtrlCreateListViewItem("D|For", $listView)
;~ GuiCtrlCreateListViewItem("E|Five", $listView)
;~ GuiCtrlCreateListViewItem("F|Six", $listView)

;~ GuiCtrlCreateList("1.Test", 10, 290, 100, 90)
;~ GuiCtrlSetData(-1, "a.Sample|b.List|"& $Total_1)


;~ TAB
GuiCtrlCreateTab(10, 0, 380, 280)
;~ 			===========================================================================
;~			******************** Player 1
;~ 			===========================================================================
GuiCtrlCreateTabItem("Joueur 1")
GuiCtrlCreateLabel("Couronne - Crown", 45, 25)
	$crown_inf1 = GUICtrlCreateButton("Inférieur", $btn_l1, $btn_h1, 55)
	$crown_nor1 = GUICtrlCreateButton("Normal", $btn_l1 + 60, $btn_h1, 55)
	$crown_sup1 = GUICtrlCreateButton("Supérieur", $btn_l1 + 120, $btn_h1, 55)
	$crown_maj1 = GUICtrlCreateButton("Majeur", $btn_l1 + 180, $btn_h1, 55)

GuiCtrlCreateLabel("Timbale - Goblet", 45, 85)
	$gob_inf1 = GUICtrlCreateButton("Inférieur", $btn_l1, $btn_h1 + 60, 55)
	$gob_nor1 = GUICtrlCreateButton("Normal", $btn_l1 + 60, $btn_h1 + 60, 55)
	$gob_sup1 = GUICtrlCreateButton("Supérieur", $btn_l1 + 120, $btn_h1 + 60, 55)
	$gob_maj1 = GUICtrlCreateButton("Majeur", $btn_l1 + 180, $btn_h1 + 60, 55)

GuiCtrlCreateLabel("Sceau - Seal", 45, 145)
	$seal_inf1 = GUICtrlCreateButton("Inférieur", $btn_l1, $btn_h1 + 120, 55)
	$seal_nor1 = GUICtrlCreateButton("Normal", $btn_l1 + 60, $btn_h1 + 120, 55)
	$seal_sup1 = GUICtrlCreateButton("Supérieur", $btn_l1 + 120, $btn_h1 + 120, 55)
	$seal_maj1 = GUICtrlCreateButton("Majeur", $btn_l1 + 180, $btn_h1 + 120, 55)

GuiCtrlCreateLabel("Icône - Icon", 45, 205)
	$icon_inf1 = GUICtrlCreateButton("Inférieur", $btn_l1, $btn_h1 + 180, 55)
	$icon_nor1 = GUICtrlCreateButton("Normal", $btn_l1 + 60, $btn_h1 + 180, 55)
	$icon_sup1 = GUICtrlCreateButton("Supérieur", $btn_l1 + 120, $btn_h1 + 180, 55)
	$icon_maj1 = GUICtrlCreateButton("Majeur", $btn_l1 + 180, $btn_h1 + 180, 55)

	$clear1 = GUICtrlCreateButton("Clear", 285, $btn_h1 + 177, 75, 30)

;~ 			===========================================================================
;~			******************** Player 2
;~ 			===========================================================================
GuiCtrlCreateTabItem("Joueur 2")


;~ 			===========================================================================
;~			******************** Player 3
;~ 			===========================================================================
GuiCtrlCreateTabItem("Joueur 3")

;~ 			===========================================================================
;~			******************** Player 4
;~ 			===========================================================================
GuiCtrlCreateTabItem("Joueur 4")

;~ 			===========================================================================
;~			******************** Player 5
;~ 			===========================================================================
GuiCtrlCreateTabItem("Joueur 5")

;~ 			===========================================================================
;~			******************** Player 6
;~ 			===========================================================================
GuiCtrlCreateTabItem("Joueur 6")


	GUISetState()

;~ 	 Run the GUI until the dialog is closed
	While 1
		$msg = GUIGetMsg()

	ToolTip("Joueur Ayant le moins d'AP : "& $less_ap,0,0)

;~ Calc Buton
		Select
			Case $msg = $exititem
				ExitLoop

			Case $msg = $go_site
				$nav = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
				$link = StringRegExpReplace($nav,'\A[^"]*"([^"]+)".*\Z','\1')
				ShellExecute($link,"http://babyboyz.net")

			Case $msg = $val_nm1
				$name_j1 = $name1
;~ 			===========================================================================
;~			******************** Player 1
;~ 			===========================================================================
			Case $msg = $clear1
				GUICtrlSetData($output1, "")

;~ 			Crown 1 *************************************************
			Case $msg = $crown_inf1
				$Total_1 = $Total_1 + 2400
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $crown_nor1
				$Total_1 = $Total_1 + 4800
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $crown_sup1
				$Total_1 = $Total_1 + 7200
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $crown_maj1
				$Total_1 = $Total_1 + 9600
				$results = $Total_1
				GUICtrlSetData($output1, $results)

;~ 			Goblet 1 *************************************************
			Case $msg = $gob_inf1
				$Total_1 = $Total_1 + 1200
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $gob_nor1
				$Total_1 = $Total_1 + 2400
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $gob_sup1
				$Total_1 = $Total_1 + 3600
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $gob_maj1
				$Total_1 = $Total_1 + 4800
				$results = $Total_1
				GUICtrlSetData($output1, $results)

;~ 			Seal 1 **************************************************
			Case $msg = $seal_inf1
				$Total_1 = $Total_1 + 600
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $seal_nor1
				$Total_1 = $Total_1 + 1200
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $seal_sup1
				$Total_1 = $Total_1 + 1800
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $seal_maj1
				$Total_1 = $Total_1 + 2400
				$results = $Total_1
				GUICtrlSetData($output1, $results)

;~ 			Seal 1 **************************************************
			Case $msg = $icon_inf1
				$Total_1 = $Total_1 + 300
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $icon_nor1
				$Total_1 = $Total_1 + 600
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $icon_sup1
				$Total_1 = $Total_1 + 900
				$results = $Total_1
				GUICtrlSetData($output1, $results)

			Case $msg = $icon_maj1
				$Total_1 = $Total_1 + 1200
				$results = $Total_1
				GUICtrlSetData($output1, $results)
;~ 			Bouton *****************************************************

		EndSelect

		If $Total_1 > $Total_2 Then
			$less_ap = $Total_1
		Else
			$less_ap = $name_j1
		EndIf

		If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	WEnd
EndFunc   ;==>_Main

;~ While GuiGetMsg() <> $GUI_EVENT_CLOSE
;~ WEnd