#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.12.0
 Author:         Scaff

 Script Function:
	Outil complet de statistique loot/drop diablo 3 avec chronometre
#ce ----------------------------------------------------------------------------
#Region ######### Option autoit ##############

#EndRegion ####################################

#Region ######### INCLUDE ####################
#include <Date.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#EndRegion ###############################

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Outil Diablo 3", 763, 207, 448, 174)
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("Nombre de run:", 0, 64, 82, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetTip(-1, "* pour ajouter un run")
$Label2 = GUICtrlCreateLabel("Nombre de légendaire:", 0, 88, 119, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetTip(-1, "- pour ajouter un legendaire")
$Label3 = GUICtrlCreateLabel("", 84, 64, 84, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans MS")
$Label4 = GUICtrlCreateLabel("", 120, 88, 84, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
$Label5 = GUICtrlCreateLabel("Chrono:", 224, 64, 43, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
GUICtrlSetColor(-1, 0x800000)
$Label6 = GUICtrlCreateLabel("Temps du run:", 224, 88, 74, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
GUICtrlSetColor(-1, 0x800000)
$Label7 = GUICtrlCreateLabel("Difficulté:", 0, 0, 60, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
GUICtrlSetColor(-1, 0x800000)
$Label8 = GUICtrlCreateLabel("Classe:", 144, 0, 39, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
GUICtrlSetColor(-1, 0x800000)
$Label9 = GUICtrlCreateLabel("", 272, 64, 92, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans mS")
$Label10 = GUICtrlCreateLabel("", 296, 88, 92, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
$Label11 = GUICtrlCreateLabel("Lancement autre", 520, 0, 88, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetTip(-1, "Url ou programme")
$Label12 = GUICtrlCreateLabel("Nombre de joueurs:", 376, 0, 103, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
GUICtrlSetColor(-1, 0x800000)
$Label13 = GUICtrlCreateLabel("Leg / Kadala:", 0, 112, 71, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetTip(-1, "+ pour ajouter un legendaire Kadala")
$Label14 = GUICtrlCreateLabel("", 72, 112, 92, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans MS")
$Label15 = GUICtrlCreateLabel("Heure:", 224, 112, 38, 19)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")
GUICtrlSetColor(-1, 0x800000)
$Label16 = GUICtrlCreateLabel("", 264, 112, 84, 20)
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")
GUICtrlSetColor(-1, 0x800000)
$Combo1 = GUICtrlCreateCombo("Normal", 0, 24, 113, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Difficile|Expert|Calvaire|Tourment I|Tourment II|Tourment III|Tourment IV|Tourment V|Tourment VI")
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUICtrlSetCursor (-1, 0)
$Combo2 = GUICtrlCreateCombo("Barbare", 144, 24, 177, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Croise|Chasseur de démons|Feticheur|Moine|Sorcier")
GUICtrlSetFont(-1, 8, 400, 0, "Comic sans ms")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUICtrlSetCursor (-1, 0)
$Combo3 = GUICtrlCreateCombo("Ruine", 520, 24, 185, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUICtrlSetCursor (-1, 0)
$Combo4 = GUICtrlCreateCombo("1", 408, 24, 41, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "2|3|4")
GUICtrlSetFont(-1, 8, 400, 0, "comic sans ms")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0xC8C8C8)
$Button1 = GUICtrlCreateButton("Reset run/legendaire", 0, 176, 129, 25)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Save Log", 624, 176, 113, 25)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Reset Chrono", 224, 176, 137, 25)
$Button4 = GUICtrlCreateButton("Start / Stop chrono", 224, 152, 137, 25)
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("GO", 712, 24, 41, 25)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#Region ######### Variables ##################

Global $heure_debut = @HOUR &":"& @MIN &":"& @SEC

local $leg = "0"
local $leg_kad = "0"
local $run = "0"

#EndRegion ###############################

#Region ######### Code #######################

HotKeySet("{NUMPADSUB}", "nombre_leg")
HotKeySet("{NUMPADMULT}", "nombre_run")
HotKeySet("{NUMPADADD}", "nombre_leg_kadala")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1
			reset_leg()
		 Case $Button4
			AdlibRegister(chrono(),1000)
	EndSwitch
	AdlibRegister(heure(), 1000)
WEnd

#EndRegion ###################################

#Region ######### Function ###################

func heure()
   	GUICtrlSetData($Label16,_DateTimeFormat( _NowCalc(),5))
EndFunc

func chrono()

   For $i = 0 To 86400; max. 24h
   $Time = _DateAdd ( "s", $i, "2000/01/01 00:00:00" )
   $Dif = StringSplit ( $Time, " " )
   GUICtrlSetData ( $label9, $Dif[2] )
   Sleep( 1000 )
   Next
;~    $debut = Timerinit()
;~    while 1
;~    $dummy = Timerdiff($debut)/1000
;~    $dummy2 = mod ($dummy, 3600)
;~    $heure = ($dummy-$dummy2) / 3600
;~    if $heure >= 0 AND $heure <= 9 Then
;~ 	  $heure = "0"&($dummy-$dummy2) / 3600
;~    EndIf
;~    $dummy = $dummy2
;~    $dummy2 = mod ($dummy, 60)
;~    $minutes = ($dummy-$dummy2) / 60
;~    if $minutes >= 0 AND $minutes <= 9 Then
;~ 	  $minutes = "0"&($dummy-$dummy2) / 60
;~    EndIf
;~    $dummy = $dummy2
;~    $secondes = round($dummy)
;~    if $secondes >= 0 AND $secondes <= 9 Then
;~ 	  $secondes = "0"&round($dummy)
;~    EndIf
;~    GUICtrlSetData($label9, $heure & ":" & $minutes & ":" & $secondes)
;~    WEnd
EndFunc

Func nombre_run()
   $run = $run + 1
   GUICtrlSetData($Label3, $run)
;~ 	  temps_run()
   HotKeySet("{NUMPADMULT}", "nombre_run")
EndFunc

Func nombre_leg()
   $leg = $leg + 1
   GUICtrlSetData($Label4, $leg)
   HotKeySet("{NUMPADSUB}", "nombre_leg")
EndFunc

Func nombre_leg_kadala()
   $leg_kad = $leg_kad + 1
   GUICtrlSetData($Label14, $leg_kad)
   HotKeySet("{NUMPADADD}", "nombre_leg_kadala")
EndFunc

Func reset_leg()
   $leg = "0"
   $leg_kad = "0"
   $run = "0"
   GUICtrlSetData($Label14, "")
   GUICtrlSetData($Label4, "")
   GUICtrlSetData($Label3, "")
EndFunc


#EndRegion ###############################