#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GuiListView.au3>
#include <ButtonConstants.au3>
#include <ListviewConstants.au3>
#include <ColorConstants.au3>
#include <Misc.au3>

$ifsave = 0
$var_info = 0
$comp = 0
$nb_action = 0
$1script = 0
$add_mode = 0
$but = ""
$num = 1
$mcini = @ScriptDir & "\MouseCreator.ini"


$Win_add= GUICreate("ADD", 196, 251)
$d_x = GUICtrlCreateInput("x", 32, 32, 33, 21)
$d_y = GUICtrlCreateInput("y", 80, 32, 33, 21)
$Group1 = GUICtrlCreateGroup("Coordonées", 24, 8, 121, 49)
$c_coos = GUICtrlCreateCheckbox("", 120, 32, 15, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("Vitesse :", 16, 72, 44, 17)
$v = GUICtrlCreateInput("10", 64, 68, 41, 21)
$c = GUICtrlCreateCheckbox("Clic (optionel)", 16, 112, 97, 17)
$clic = GUICtrlCreateCombo('"Left"', 16, 144, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($clic, '"Right"')
GUICtrlSetData($clic, '"Middle"')
$Lab = GUICtrlCreateLabel("Nombre de clic :", 16, 182, 81, 17)
$nb_clic = GUICtrlCreateInput("1", 100, 178, 41, 21)
$but_ok = Guictrlcreatebutton("AJOUTER",55,215,70,30)


$win_info = GUICreate("MouseCréator v3.7", 300, 462)
$list = GUICtrlCreateListView("----- Début du Script -----", 5, 5, 290, 400)
$but_add = GUICtrlCreateButton("Ajouter une action", 5, 406, 145, 35)
$but_del = GUICtrlCreateButton("Supprimer une action", 150, 406, 145, 35)
$menu = GUICtrlCreateMenu("Menu")
$outil = GUICtrlCreateMenu("Outils")
$menulist = GUICtrlCreateContextMenu($list)
$but_add2 = GUICtrlCreateMenuItem("Ajouter une action", $menulist)
$but_del2 = GUICtrlCreateMenuItem("Supprimer une action", $menulist)
$but_open = GUICtrlCreateMenuItem("Ouvrir un projet                (Ctrl + O)", $menu)
$but_save = GUICtrlCreateMenuItem("Sauvegarder le projet       (Ctrl + S)", $menu)
$but_suppr = GUICtrlCreateMenuItem("Supprimer le projet           (Ctrl + W)", $menu)
$but_comp = GUICtrlCreateMenuItem("Obtenir le script                 (Ctrl + E)", $menu)
$but_info = GUICtrlCreateMenuItem("Information", $menu)
$but_maj = GUICtrlCreateMenuItem("Historique des Maj", $menu)
$but_prec = GUICtrlCreateMenuItem("Précédent (Ctrl + Z)", $outil)


GUISetState()

While 1


	$Msg = GUIGetMsg(1)


	Select

		Case $Msg[0] = $Gui_Event_Close
			exitt()

		Case $Msg[0] = $but_add or $Msg[0] = $but_add2 or (_IsPressed(11) and _IsPressed(41))

			GUISetState(@SW_HIDE, $win_info)
			GUISetState(@SW_SHOW, $win_add)
			$add_mode = 1

		Case $Msg[0] = $but_info
			MsgBox(0, "Informations", "MouseCreator est un programme permettant de creer vos propre action automatisé de sourie." & @CRLF & "Le programme est actuellement en version 3.7" & @CRLF &@CRLF& "Une fois le script/le projet créé, il est placé dans le même dossier que le programme."&@crlf&@crlf&"Pour compiler le fichier txt obtenu, utilisez le programme Aut2exe et pensez a choisir 'All File' pour pouvoir le selectionner"&@crlf&@crlf&"Programme developpé par Triple-Lardon")

		Case $Msg[0] = $but_del or $Msg[0] = $but_del2
			del()

		Case $Msg[0] = $but_maj
			MsgBox(0, "Historique des maj", "1.0 : Permet de créer ses mouvement de souris" & @CRLF & "1.5 : Ajoute l'action de clic avec la souris" & @CRLF & @CRLF & "2.0 : Permet de supprimer une action" & @CRLF & "2.5 : Amélioration de l'outil de suppression" & @CRLF & @CRLF & "3.0 : Interface graphique entierement refaite (ajout de menus, nouveau placement des bouton..) et permet de sauvegarder et de charger des projet de script" & @CRLF & "3.2 : Amélioration de la fonction charger, correction de bugs mineur" & @CRLF & "3.5 : Ajout de la fonction précedent"&@crlf&"3.7 : Nouvelle interface d'ajout d'action")
		Case $Msg[0] = $but_prec Or (_IsPressed(11) And _IsPressed("5A"))
			IniWrite($mcini, "LineScript", $nb_action, "Del")
			_GUICtrlListView_DeleteAllItems($list)
			$nb_action = 0
			del2()

		Case $Msg[0] = $but_suppr or (_IsPressed(11) and _IsPressed(57))
			$msgbox = MsgBox(4, "", "Es tu sur de vouloir supprimmer le fichier definitivement?")
			If $msgbox = 6 Then
				$nb_action = 0
				_GUICtrlListView_DeleteAllItems($list)
				FileDelete($mcini)
			EndIf


		Case $Msg[0] = $but_ok

			$v_d_x = GUICtrlRead($d_x)
			$v_d_y = GUICtrlRead($d_y)
			$v_v = GUICtrlRead($v)

			If $v_d_x = "x" Or $v_d_x = "" Or $v_d_y = "y" Or $v_d_x = "" Or $v_v = "" Or $nb_clic = "" Then
				MsgBox(0, "ERREUR", "Tu as oublié de rentrer une valeur de deplacement")
			ElseIf $v_v > 100 Or $v_v < 0 Then
				MsgBox(0, "ERREUR", "La vitesse doit être comprise entre 0 et 100")
			Else
				add()
			EndIf

		Case $Msg[0] = $but_comp or (_IsPressed(11) and _IsPressed(45))
			$name1 = InputBox("Script Name", "Nom du script :", "", "", 100, 140)
			If @error = 1 Then
				Sleep(500)
			Else
				$name = @ScriptDir & "\" & $name1 & ".txt"
				FileOpen($name, 1)
				comp()


			EndIf


		Case $Msg[0] = $but_save or (_IsPressed(11) and _IsPressed(53))
			save()


		Case $Msg[0] = $but_open or (_IsPressed(11) and _IsPressed("4F"))
			If $nb_action > 0 Then
				$saveornot = MsgBox(4, "", "Enregistrer le programme en cours ?")
				If $saveornot = 6 Then
					save()
				EndIf
		 	EndIf

			$File_Open = FileOpenDialog("Projet .MouseCreator", @WindowsDir, "MouseCreator (*.MouseCreator)")
			$a_renommer = $File_Open
			$nom_renommer = $mcini
			FileMove($a_renommer, $nom_renommer, $FC_OVERWRITE)
			$nb_action = 0
			_GUICtrlListView_DeleteAllItems($list)
			open()



	EndSelect

	If $add_mode = 1 Then
		Sleep(100)
		If _IsChecked($c) Then
			GUICtrlSetState($clic, $GUI_ENABLE)
			GUICtrlSetState($lab, $GUI_ENABLE)
			GUICtrlSetState($nb_clic, $GUI_ENABLE)
		Else
			GUICtrlSetState($clic, $GUI_DISABLE)
			GUICtrlSetState($lab, $GUI_DISABLE)
			GUICtrlSetState($nb_clic, $GUI_DISABLE)
		EndIf
		If _IsChecked($c_coos) Then
			ToolTip("")
			If $var_info = 0 Then
				Msgbox(0,"Infos","Pour enregistrer l'action, appuiez sur Entrer")
				$var_info = 1
			EndIf

		GUICtrlSetData($d_x, MouseGetPos(0))
	GUICtrlSetData($d_y, MouseGetPos(1))
	Endif
	If not  _IsChecked($c_coos)  Then
		ToolTip("x: " & MouseGetPos(0) & "  y: " & MouseGetPos(1))
		EndIf


	If _IsPressed("0D") Then
		$v_d_x = GUICtrlRead($d_x)
			$v_d_y = GUICtrlRead($d_y)
			$v_v = GUICtrlRead($v)

			If $v_d_x = "x" Or $v_d_x = "" Or $v_d_y = "y" Or $v_d_x = "" Or $v_v = "" Or $nb_clic = "" Then
				MsgBox(0, "ERREUR", "Tu as oublié de rentrer une valeur de deplacement")
			ElseIf $v_v > 100 Or $v_v < 0 Then
				MsgBox(0, "ERREUR", "La vitesse doit être comprise entre 0 et 100")
			Else
				add()
			EndIf

	EndIf
Endif

WEnd



Func add()

	ToolTip("")
	$ifsave = 1
	FileOpen($mcini)
	$nb_action = $nb_action + 1
	GUICtrlCreateListViewItem($nb_action & ". MouseMove(" & $v_d_x & "," & $v_d_y & "," & $v_v & ")", $list)
	IniWrite($mcini, "LineScript", $num, "MouseMove(" & $v_d_x & "," & $v_d_y & "," & $v_v & ")")
	$num = $num + 1


	If _IsChecked($c) Then

		$nb_action = $nb_action + 1
		GUICtrlCreateListViewItem($nb_action & ". MouseClick(" & GUICtrlRead($clic) & "," & GUICtrlRead($nb_clic) & ")", $list)
		IniWrite($mcini, "LineScript", $num, "MouseClick(" & GUICtrlRead($clic) & "," & $v_d_x & "," & $v_d_y & "," & GUICtrlRead($nb_clic) & ")")
		$num = $num + 1

	EndIf

	GUISetState(@SW_HIDE, $win_add)
	GUISetState(@SW_SHOW, $win_info)
	$add_mode = 0

	GUICtrlSetData($d_x, "")
	GUICtrlSetData($d_y, "")
	GUICtrlSetData($v, "10")
	GUICtrlSetData($nb_clic, 1)

EndFunc   ;==>add

Func del()

	$ifsave = 1
	$del_num = InputBox("Supprimer une action", "Numéro que l'action a supprimer", "", "", 100, 140)
	$Initest = IniRead($mcini, "LineScript", $del_num, "non")
	If $Initest = "non" Then
		MsgBox(0, "", "Cette action n'existe pas!")
	ElseIf $Initest = "Del" Then
		MsgBox(0, "", "Cette action a déjas était supprimé!")
	Else
		IniWrite($mcini, "LineScript", $del_num, "Del")
		_GUICtrlListView_DeleteAllItems($list)
		$nb_action = 0
		del2()
	EndIf


EndFunc   ;==>del

Func del2()

	$nb_action = $nb_action + 1
	$Ini_read = IniRead($mcini, "LineScript", $nb_action, "Stop")

	If $Ini_read = "Stop" Then
		$nb_action = $nb_action - 1
		MsgBox(0, "", "Le fichier a bien était supprimmé")

	ElseIf $Ini_read = "Del" Then
		GUICtrlCreateListViewItem($nb_action & ". Supprimée", $list)
		Sleep(100)
		del2()

	Else
		GUICtrlCreateListViewItem($nb_action & " " & $Ini_read, $list)
		Sleep(100)
		del2()

	EndIf

EndFunc   ;==>del2


Func comp()

	$comp = $comp + 1
	$Ini_comp = IniRead($mcini, "LineScript", $comp, "Stop")
	If $Ini_comp = "Del" Then
		comp()
	ElseIf $Ini_comp = "Stop" Then
		$Fin_comp = MsgBox(4, "Okay", "Compilation terminé." & @CRLF & "Fermer le programme ?")
		If $Fin_comp = 6 Then
			exitt()
		Else
			Sleep(500)
		EndIf


	Else
		FileWriteLine($name, $Ini_comp)
		comp()
	EndIf
EndFunc   ;==>comp

Func save()
	$ifsave = 0
	$nom_projet = InputBox("Save", "Nom du projet :", "", "", 100, 140)
	$a_renommer = $mcini
	$nom_renommer = @ScriptDir & "\" & $nom_projet & ".MouseCreator"
	FileMove($a_renommer, $nom_renommer, $FC_OVERWRITE)
	_GUICtrlListView_DeleteAllItems($list)
	$nb_action = 0
EndFunc   ;==>save

Func open()

	$ifsave = 0
	$nb_action = $nb_action + 1
	$Ini_read_open = IniRead($mcini, "LineScript", $nb_action, "Stop")

	If $Ini_read_open = "Stop" Then
		$nb_action = $nb_action - 1
		MsgBox(0, "", "Chargement réussi!")

	ElseIf $Ini_read_open = "Del" Then
		GUICtrlCreateListViewItem($nb_action & ". Supprimé", $list)
		Sleep(100)
		open()

	Else
		GUICtrlCreateListViewItem($nb_action & " " & $Ini_read_open, $list)
		Sleep(100)
		open()

	EndIf



EndFunc   ;==>open


Func exitt()
	If $ifsave = 1 Then
		$msgbox = MsgBox(4, "", "Veux-tu enregistrer?")
		If $msgbox = 6 Then
			save()
		EndIf
	EndIf
	FileDelete($mcini)
	Exit
EndFunc   ;==>exitt




;Fonction de l'exemple de "GuictrlcreateCheckbox"
Func _IsChecked($idControlID)
	Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked