Bonjour,
Voici la première partie du bot que j'écris
Elle concerne la récupération de données pour la connexion, les métiers etc..
Bien sur il n'y a pas tout le code mais pour la compréhension c'est suffisant, très simple de rajouter ce qu'on veut
Une petite fonction permet de récupérer le handle de la fenêtre, bien sur elle n'est ici que pour les tests, cette partie devrait être une fonction dans l'avenir
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.6.1
Auteur: FDret
Fonction du Script : Récupération des informations pour Bot
Positionnement par pourcetage des points de référence
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ListViewConstants.au3>
Global $HdlFRM ; Handle du formulaire
Global $HdlFen ; Handle de la fenête de récup
Global $PosF ; Position et dimentionnement de la fenêtre de récup
Global $VitesseSouris = 10 ; Vitesse de la souris
Global $Decal = 25 ; Décalage des objets sur le formulaire
Global $NomIni = @ScriptDir & "\Config.ini" ; Le nom du fichier ini
; Déclaration des variables temporaires
Local $i
Local $TempoPos[2]
Local $Msg
Local $PourVoir
Local $Choix
Local $TempoTab5[5]
; Déclaration des tableaux pour l'onglet 1 Launcher
Local $O1BT[2]
Local $O1PX[2]
Local $O1BP[2]
Local $O1PY[2]
Local $O1C[2]
Local $O1BC[2]
Local $O1I[2]
; Déclaration des tableaux des valeurs sauvegardées
Global $1PX[2]
Global $1PY[2]
Global $1C[2]
; Déclaration des tableaux pour l'onglet 2 mot de passe
Local $O2BT[4]
Local $O2PX[4]
Local $O2BP[4]
Local $O2PY[4]
Local $O2C[4]
Local $O2BC[4]
Local $O2I[4]
; Déclaration des tableaux des valeurs sauvegardées
Global $2PX[4]
Global $2PY[4]
Global $2C[4]
; Déclaration des tableaux pour l'onglet 3 choix du perso
Local $O3BT[2]
Local $O3PX[2]
Local $O3BP[2]
Local $O3PY[2]
Local $O3C[2]
Local $O3BC[2]
Local $O3I[2]
; Déclaration des tableaux des valeurs sauvegardées
Global $3PX[2]
Global $3PY[2]
Global $3C[2]
; Déclaration des tableaux pour l'onglet 4 aire de jeu
Local $O4BT[12]
Local $O4PX[12]
Local $O4BP[12]
Local $O4PY[12]
Local $O4C[12]
Local $O4BC[12]
Local $O4I[12]
; Déclaration des tableaux des valeurs sauvegardées
Global $4PX[12]
Global $4PY[12]
Global $4C[12]
; Déclaration des tableaux pour l'onglet 5 sorts du haut
Local $O5BT[10]
Local $O5PX[10]
Local $O5BP[10]
Local $O5PY[10]
Local $O5C[10]
Local $O5BC[10]
Local $O5I[10]
; Déclaration des tableaux des valeurs sauvegardées
Global $5PX[10]
Global $5PY[10]
Global $5C[10]
; Déclaration des tableaux pour l'onglet 6 sorts du bas
Local $O6BT[10]
Local $O6PX[10]
Local $O6BP[10]
Local $O6PY[10]
Local $O6C[10]
Local $O6BC[10]
Local $O6I[10]
; Déclaration des tableaux des valeurs sauvegardées
Global $6PX[10]
Global $6PY[10]
Global $6C[10]
; Déclaration des tableaux pour l'onglet 7 métier
Local $O7BP[5]
Local $O7C[5]
Local $O7I[5]
; Déclarations du monbre de métier et de map dans le tableau
Global $O7LMPos = 0
Global $O7LRPos = 0
; Déclaration du tableau des métiers et des maps
Global $O7TabLM[1]
Global $O7TabLR[1]
; Récupération du Handle de la fenêtre TEMPORAIRE pour tester le prog
; Dans l'avenir ce sera un paramètre
$HdlFen = RecupHandle()
If @error Then
Fini()
EndIf
; Récupération des informations de positionnement, largeur, hauteur de la fenêtre
$PosF = WinGetPos($HdlFen)
If @error Then
Fini()
EndIf
; Récupération du fichier ini
RecupValeur()
#Region ### START Koda GUI section ### Form=C:\Temp\AutoIT\Dof\Positionnement.kxf
$HdlFRM = GUICreate("Pourcentage du positionnement et couleur de recherche", 636, 457, 192, 124)
$ONGLET = GUICtrlCreateTab(5, 10, 621, 396)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
; Onglet lancement
$ONG1 = GUICtrlCreateTabItem("Lanceur")
$Label7 = GUICtrlCreateLabel("Position X %", 197, 33, 94, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel("Position Y %", 337, 33, 92, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label17 = GUICtrlCreateLabel("Couleur", 433, 34, 80, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Recherche près de jouer", 15, 63, 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Bouton jouer", 15, 63 + (1 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
For $i=0 to 1
$O1BT[$i] = GUICtrlCreateButton("<", 170, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O1PX[$i] = GUICtrlCreateInput($1PX[$i], 200, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O1BP[$i] = GUICtrlCreateButton("Récup", 285, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O1PY[$i] = GUICtrlCreateInput($1PY[$i], 341, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O1C[$i] = GUICtrlCreateInput("0x" & hex($1C[$i]), 435, 56 + ($i * $Decal), 90, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O1BC[$i] = GUICtrlCreateButton("Récup", 530, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O1I[$i] = GUICtrlCreateLabel(" ", 585, 56 + ($i * $Decal), 25, 26, $WS_BORDER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
If StringLeft(GUICtrlRead($O1C[$i]),2)="0x" Then
GUICtrlSetBkColor($O1I[$i], GUICtrlRead($O1C[$i]))
Else
GUICtrlSetBkColor($O1I[$i],$GUI_BKCOLOR_TRANSPARENT)
EndIf
Next
$O1Valid = GUICtrlCreateButton("Validation", 245, 363, 126, 31, $WS_GROUP)
; Onglet mot de passe
$ONG2 = GUICtrlCreateTabItem("MDP")
$Label9 = GUICtrlCreateLabel("Position X %", 197, 33, 94, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label10 = GUICtrlCreateLabel("Position Y %", 337, 33, 92, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label18 = GUICtrlCreateLabel("Couleur", 433, 34, 80, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Compte Anka", 15, 63, 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Mot de passe", 15, 63 + (1 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("Bouton jouer", 15, 63 + (2 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("Ok sur erreur", 15, 63 + (3 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
For $i=0 to 3
$O2BT[$i] = GUICtrlCreateButton("<", 170, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O2PX[$i] = GUICtrlCreateInput($2PX[$i], 200, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O2BP[$i] = GUICtrlCreateButton("Récup", 285, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O2PY[$i] = GUICtrlCreateInput($2PY[$i], 341, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Switch $i
Case 2,3
$O2C[$i] = GUICtrlCreateInput("0x" & hex($2C[$i]), 435, 56 + ($i * $Decal), 90, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O2BC[$i] = GUICtrlCreateButton("Récup", 530, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O2I[$i] = GUICtrlCreateLabel(" ", 585, 56 + ($i * $Decal), 25, 26, $WS_BORDER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
If StringLeft(GUICtrlRead($O2C[$i]),2)="0x" Then
GUICtrlSetBkColor($O2I[$i], GUICtrlRead($O2C[$i]))
Else
GUICtrlSetBkColor($O2I[$i],$GUI_BKCOLOR_TRANSPARENT)
EndIf
EndSwitch
Next
$O2Valid = GUICtrlCreateButton("Validation", 245, 363, 126, 31, $WS_GROUP)
; Onglet choix perso
$ONG3 = GUICtrlCreateTabItem("Perso")
$Label12 = GUICtrlCreateLabel("Position X %", 197, 33, 94, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label13 = GUICtrlCreateLabel("Position Y %", 337, 33, 92, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label19 = GUICtrlCreateLabel("Couleur", 433, 34, 80, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel("Bouton jouer", 15, 63, 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Position sur la map", 15, 63 + (1 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
For $i=0 to 1
If $i <> 1 then
$O3BT[$i] = GUICtrlCreateButton("<", 170, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Else
If $3PX[$i] >= 0 Then
$AfficheSigne = "+"
Else
$AfficheSigne = "-"
EndIf
$O3BT[$i] = GUICtrlCreateButton($AfficheSigne, 170, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
EndIf
$O3PX[$i] = GUICtrlCreateInput(abs($3PX[$i]), 200, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
If $i <> 1 Then
$O3BP[$i] = GUICtrlCreateButton("Récup", 285, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Else
If $3PY[$i] >= 0 Then
$AfficheSigne = "+"
Else
$AfficheSigne = "-"
EndIf
$O3BP[$i] = GUICtrlCreateButton($AfficheSigne, 310, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
EndIf
$O3PY[$i] = GUICtrlCreateInput(abs($3PY[$i]), 341, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Switch $i
Case 0
$O3C[$i] = GUICtrlCreateInput("0x" & hex($3C[$i]), 435, 56 + ($i * $Decal), 90, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O3BC[$i] = GUICtrlCreateButton("Récup", 530, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O3I[$i] = GUICtrlCreateLabel(" ", 585, 56 + ($i * $Decal), 25, 26, $WS_BORDER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
If StringLeft(GUICtrlRead($O3C[$i]),2)="0x" Then
GUICtrlSetBkColor($O3I[$i], GUICtrlRead($O3C[$i]))
Else
GUICtrlSetBkColor($O3I[$i],$GUI_BKCOLOR_TRANSPARENT)
EndIf
EndSwitch
Next
$O3Valid = GUICtrlCreateButton("Validation", 245, 363, 126, 31, $WS_GROUP)
; Onglet jeu
$ONG4 = GUICtrlCreateTabItem("Jeu")
$Label15 = GUICtrlCreateLabel("Position X %", 197, 33, 94, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label16 = GUICtrlCreateLabel("Position Y %", 337, 33, 92, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label20 = GUICtrlCreateLabel("Couleur", 433, 34, 80, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label14 = GUICtrlCreateLabel("Aire de jeu point haut", 15, 63, 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Labe21 = GUICtrlCreateLabel("Aire de jeu point bas", 15, 63 + (1 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label35 = GUICtrlCreateLabel("Onglet sort", 15, 63 + (2 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label36 = GUICtrlCreateLabel("Bouton seul", 15, 63 + (3 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Labe37 = GUICtrlCreateLabel("Bouton cacher le combat", 15, 63 + (4 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label38 = GUICtrlCreateLabel("Bouton cacher joueurs", 15, 63 + (5 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label40 = GUICtrlCreateLabel("Passer tour", 15, 63 + (6 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label39 = GUICtrlCreateLabel("Mon tour", 15, 63 + (7 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label41 = GUICtrlCreateLabel("Fin de combat haut", 15, 63 + (8 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label55 = GUICtrlCreateLabel("Fin de combat bas", 15, 63 + (9 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label56 = GUICtrlCreateLabel("Demandes haut", 15, 63 + (10 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label57 = GUICtrlCreateLabel("Demandes bas", 15, 63 + (11 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
For $i=0 to 11
$O4BT[$i] = GUICtrlCreateButton("<", 170, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O4PX[$i] = GUICtrlCreateInput($4PX[$i], 200, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O4BP[$i] = GUICtrlCreateButton("Récup", 285, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O4PY[$i] = GUICtrlCreateInput($4PY[$i], 341, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Switch $i
Case 2,3,4,5,6,7,8,10
$O4C[$i] = GUICtrlCreateInput("0x" & hex($4C[$i]), 435, 56 + ($i * $Decal), 90, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O4BC[$i] = GUICtrlCreateButton("Récup", 530, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O4I[$i] = GUICtrlCreateLabel(" ", 585, 56 + ($i * $Decal), 25, 26, $WS_BORDER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
If StringLeft(GUICtrlRead($O4C[$i]),2)="0x" Then
GUICtrlSetBkColor($O4I[$i], GUICtrlRead($O4C[$i]))
Else
GUICtrlSetBkColor($O4I[$i],$GUI_BKCOLOR_TRANSPARENT)
EndIf
EndSwitch
Next
$O4Valid = GUICtrlCreateButton("Validation", 245, 363, 126, 31, $WS_GROUP)
; Onglet des sorts du haut
$ONG5 = GUICtrlCreateTabItem("Sort haut")
$Label22 = GUICtrlCreateLabel("Position X %", 197, 33, 94, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label23 = GUICtrlCreateLabel("Position Y %", 337, 33, 92, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label24 = GUICtrlCreateLabel("Couleur", 433, 34, 80, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label25 = GUICtrlCreateLabel("Sort 1", 15, 63, 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label26 = GUICtrlCreateLabel("Sort 2", 15, 63 + (1 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label27 = GUICtrlCreateLabel("Sort 3", 15, 63 + (2 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label28 = GUICtrlCreateLabel("Sort 4", 15, 63 + (3 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label32 = GUICtrlCreateLabel("Sort 5", 15, 63 + (4 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label31 = GUICtrlCreateLabel("Sort 6", 15, 63 + (5 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label30 = GUICtrlCreateLabel("Sort 7", 15, 63 + (6 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label29 = GUICtrlCreateLabel("Sort 8", 15, 63 + (7 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label33 = GUICtrlCreateLabel("Sort 9", 15, 63 + (8 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label34 = GUICtrlCreateLabel("Sort 10", 15, 63 + (9 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
For $i=0 to 9
$O5BT[$i] = GUICtrlCreateButton("<", 170, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O5PX[$i] = GUICtrlCreateInput($5PX[$i], 200, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O5BP[$i] = GUICtrlCreateButton("Récup", 285, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O5PY[$i] = GUICtrlCreateInput($5PY[$i], 341, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O5C[$i] = GUICtrlCreateInput("0x" & hex($5C[$i]), 435, 56 + ($i * $Decal), 90, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O5BC[$i] = GUICtrlCreateButton("Récup", 530, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O5I[$i] = GUICtrlCreateLabel(" ", 585, 56 + ($i * $Decal), 25, 26, $WS_BORDER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
If StringLeft(GUICtrlRead($O5C[$i]),2)="0x" Then
GUICtrlSetBkColor($O5I[$i], GUICtrlRead($O5C[$i]))
Else
GUICtrlSetBkColor($O5I[$i],$GUI_BKCOLOR_TRANSPARENT)
EndIf
Next
$O5Valid = GUICtrlCreateButton("Validation", 245, 363, 126, 31, $WS_GROUP)
; Onglet des sorts du bas
$ONG6 = GUICtrlCreateTabItem("Sort bas")
$Label42 = GUICtrlCreateLabel("Position X %", 197, 33, 94, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label43 = GUICtrlCreateLabel("Position Y %", 337, 33, 92, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label44 = GUICtrlCreateLabel("Couleur", 433, 34, 80, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label45 = GUICtrlCreateLabel("Sort 1", 15, 63, 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label46 = GUICtrlCreateLabel("Sort 2", 15, 63 + (1 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label47 = GUICtrlCreateLabel("Sort 3", 15, 63 + (2 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label48 = GUICtrlCreateLabel("Sort 4", 15, 63 + (3 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label49 = GUICtrlCreateLabel("Sort 5", 15, 63 + (4 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label50 = GUICtrlCreateLabel("Sort 6", 15, 63 + (5 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label51 = GUICtrlCreateLabel("Sort 7", 15, 63 + (6 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label52 = GUICtrlCreateLabel("Sort 8", 15, 63 + (7 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label53 = GUICtrlCreateLabel("Sort 9", 15, 63 + (8 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label54 = GUICtrlCreateLabel("Sort 10", 15, 63 + (9 * $Decal), 160, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
For $i=0 to 9
$O6BT[$i] = GUICtrlCreateButton("<", 170, 56 + ($i * $Decal), 26, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O6PX[$i] = GUICtrlCreateInput($6PX[$i], 200, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O6BP[$i] = GUICtrlCreateButton("Récup", 285, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O6PY[$i] = GUICtrlCreateInput($6PY[$i], 341, 56 + ($i * $Decal), 80, 24, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O6C[$i] = GUICtrlCreateInput("0x" & hex($6C[$i]), 435, 56 + ($i * $Decal), 90, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O6BC[$i] = GUICtrlCreateButton("Récup", 530, 56 + ($i * $Decal), 51, 26, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$O6I[$i] = GUICtrlCreateLabel(" ", 585, 56 + ($i * $Decal), 25, 26, $WS_BORDER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
If StringLeft(GUICtrlRead($O6C[$i]),2)="0x" Then
GUICtrlSetBkColor($O6I[$i], GUICtrlRead($O6C[$i]))
Else
GUICtrlSetBkColor($O6I[$i],$GUI_BKCOLOR_TRANSPARENT)
EndIf
Next
$O6Valid = GUICtrlCreateButton("Validation", 245, 363, 126, 31, $WS_GROUP)
; Onglet 7 métiers
$ONG7 = GUICtrlCreateTabItem("Métier")
$Label63 = GUICtrlCreateLabel("Liste des métiers", 26, 41, 112, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$O7LM = GUICtrlCreateList("", 25, 70, 111, 326, $WS_BORDER)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O7BMA = GUICtrlCreateButton("Ajouter", 140, 70, 66, 31, $WS_GROUP)
$O7BMM = GUICtrlCreateButton("Modifier", 140, 100, 66, 31, $WS_GROUP)
$O7BMS = GUICtrlCreateButton("Supprimer", 140, 130, 66, 31, $WS_GROUP)
$O7TEXTE = GUICtrlCreateLabel("METIER", 145, 165, 343, 41, $SS_CENTER)
GUICtrlSetFont(-1, 24, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$O7TXTCOUL = GUICtrlCreateLabel("Couleur", 281, 232, 90, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
For $i=0 to 4
$O7BP[$i] = GUICtrlCreateButton("Récup", 225, 230 + ($i * $Decal), 51, 26, $WS_GROUP)
$O7C[$i] = GUICtrlCreateInput("0", 281, 230 + ($i * $Decal), 90, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O7I[$i] = GUICtrlCreateLabel("", 381, 230 + ($i * $Decal), 25, 25, $WS_BORDER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
; "0x" & hex($7C[$i])
Next
$O7Valid = GUICtrlCreateButton("Validation", 245, 363, 126, 31, $WS_GROUP)
$O7TXTLISTE = GUICtrlCreateLabel("Liste des map", 492, 46, 112, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$O7LR = GUICtrlCreateList("", 494, 65, 116, 326, $WS_BORDER)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$O7BRA = GUICtrlCreateButton("Ajouter", 424, 71, 66, 31, $WS_GROUP)
$O7BRM = GUICtrlCreateButton("Modifier", 424, 101, 66, 31, $WS_GROUP)
$O7BRS = GUICtrlCreateButton("Supprimer", 424, 131, 66, 31, $WS_GROUP)
$O7BRU = GUICtrlCreateButton("^", 465, 286, 26, 26, $WS_GROUP)
$O7BRD = GUICtrlCreateButton("v", 465, 311, 26, 26, $WS_GROUP)
CacheBouton()
GUICtrlCreateTabItem("")
$BTRT = GUICtrlCreateButton("Retour", 245, 415, 126, 31, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
ListeMetierIni()
While 1
$Msg = GUIGetMsg(1)
If $Msg[1] = $HdlFRM Then
; Bouton de fermeture
If $Msg[0] = $GUI_EVENT_CLOSE Then
Fini()
EndIf
; Bouton retour
If $Msg[0] = $BTRT Then
Fini()
EndIf
$Choix = GUICtrlRead($Onglet, 1)
Switch $Choix
; Onglet lanceur
Case $ONG1
For $i = 0 to 1
Select
;Positionnement sur le point
Case $Msg[0]= $O1BT[$i]
GUISetState(@SW_HIDE,$HdlFRM)
$TempoPos[0] = $PosF[0] + (GUICtrlRead($O1PX[$i])/100 * $PosF[2])
$TempoPos[1] = $PosF[1] + (GUICtrlRead($O1PY[$i])/100 * $PosF[3])
MouseMove($TempoPos[0],$TempoPos[1],$VitesseSouris)
GUISetState(@SW_SHOW,$HdlFRM)
; Récup du positionnement
Case $Msg[0] = $O1BP[$i]
;Debug($Msg & " " & $Msg[0] & " " & $Msg[1] )
$TempoPos = RecuPos()
GUICtrlSetData($O1PX[$i], StringFormat("%.4f",$TempoPos[0]*100))
GUICtrlSetData($O1PY[$i], StringFormat("%.4f",$TempoPos[1]*100))
; Récup de la couleur
Case $Msg[0] = $O1BC[$i]
$TempoColor = RecupCoul()
GUICtrlSetBkColor($O1I[$i],$TempoColor)
GUICtrlSetData($O1C[$i],$TempoColor)
EndSelect
Next
if $Msg[0] = $O1Valid Then
ProgressOn("SAUVEGARDE","","",192,605,2)
$Incr = int(100/6)
$Val = 0
For $i=0 to 1
$Section = "O1L" & string($i+1)
IniWrite($NomIni,$Section,"PosX",StringFormat("%.4f",GUICtrlRead($O1PX[$i])))
$Val += $Incr
ProgressSet($Val)
IniWrite($NomIni,$Section,"PosY",StringFormat("%.4f",GUICtrlRead($O1PY[$i])))
$Val += $Incr
ProgressSet($Val)
IniWrite($NomIni,$Section,"Coul",GUICtrlRead($O1C[$i]))
$Val += $Incr
ProgressSet($Val)
Next
MsgBox(0,"SAUVEGARDE","Terminé")
ProgressOff()
EndIf
; Onglet mot de passe
Case $ONG2
; Onglet perso
Case $ONG3
For $i = 0 to 1
If $i <> 1 Then
Select
;Positionnement sur le point
Case $Msg[0]= $O3BT[$i]
GUISetState(@SW_HIDE,$HdlFRM)
$TempoPos[0] = $PosF[0] + (GUICtrlRead($O3PX[$i])/100 * $PosF[2])
$TempoPos[1] = $PosF[1] + (GUICtrlRead($O3PY[$i])/100 * $PosF[3])
MouseMove($TempoPos[0],$TempoPos[1],$VitesseSouris)
GUISetState(@SW_SHOW,$HdlFRM)
; Récup du positionnement
Case $Msg[0] = $O3BP[$i]
$TempoPos = RecuPos()
GUICtrlSetData($O3PX[$i], StringFormat("%.4f",$TempoPos[0]*100))
GUICtrlSetData($O3PY[$i], StringFormat("%.4f",$TempoPos[1]*100))
; Récup de la couleur
Case $Msg[0] = $O3BC[$i]
$TempoColor = RecupCoul()
GUICtrlSetBkColor($O3I[$i],$TempoColor)
GUICtrlSetData($O3C[$i],$TempoColor)
EndSelect
Else
Select
;Signe sur les X
Case $Msg[0]= $O3BT[$i]
If GUICtrlRead($O3BT[$i]) = "+" Then
GUICtrlSetData($O3BT[$i],"-")
Else
GUICtrlSetData($O3BT[$i],"+")
EndIf
;Signe sur les Y
Case $Msg[0] = $O3BP[$i]
If GUICtrlRead($O3BP[$i]) = "+" Then
GUICtrlSetData($O3BP[$i],"-")
Else
GUICtrlSetData($O3BP[$i],"+")
EndIf
EndSelect
EndIf
Next
If $Msg[0] = $O3Valid Then
ProgressOn("SAUVEGARDE","","",192,605,2)
$Incr = int(100/4)
$Val = 0
For $i=0 to 1
$Section = "O3L" & string($i+1)
If $i <> 1 then
IniWrite($NomIni,$Section,"PosX",StringFormat("%.4f",GUICtrlRead($O3PX[$i])))
$Val += $Incr
ProgressSet($Val)
IniWrite($NomIni,$Section,"PosY",StringFormat("%.4f",GUICtrlRead($O3PY[$i])))
$Val += $Incr
ProgressSet($Val)
IniWrite($NomIni,$Section,"Coul",GUICtrlRead($O3C[$i]))
$Val += $Incr
ProgressSet($Val)
Else
If GUICtrlRead($O3BT[$i]) = "+" Then
IniWrite($NomIni,$Section,"PosX",abs(GUICtrlRead($O3PX[$i])))
$Val += $Incr
ProgressSet($Val)
Else
IniWrite($NomIni,$Section,"PosX",(abs(GUICtrlRead($O3PX[$i])))-(abs(GUICtrlRead($O3PX[$i]))*2))
$Val += $Incr
ProgressSet($Val)
EndIf
If GUICtrlRead($O3BP[$i]) = "+" Then
IniWrite($NomIni,$Section,"PosY",abs(GUICtrlRead($O3PY[$i])))
$Val += $Incr
ProgressSet($Val)
Else
IniWrite($NomIni,$Section,"PosY",(abs(GUICtrlRead($O3PY[$i])))-(abs(GUICtrlRead($O3PY[$i]))*2))
$Val += $Incr
ProgressSet($Val)
EndIf
EndIf
Next
MsgBox(0,"SAUVEGARDE","Terminé")
ProgressOff()
EndIf
; Onglet aire de jeu
Case $ONG4
; Onglet sorts haut
Case $ONG5
; Onglet sorts bas
Case $ONG6
; Onglet métier
Case $ONG7
Select
Case $Msg[0] = $O7LM
; liste sélectionnée on affiche les données si rapportant
$TempoTexte = GUICtrlRead($O7LM)
If $TempoTexte <> "" Then
EndIf
Case $Msg[0] = $O7BMA
; Bouton ajout de la liste métier
CacheBouton()
; A FAIRE VERIFIER SI DEJA DANS LISTE
$NomMetier = InputBox("METIER","Nom du métier")
if $NomMetier <> "" Then
$O7LMPos += 1
ReDim $O7TabLM[$O7LMPos]
$O7TabLM[$O7LMPos-1] = $NomMetier
guictrlsetdata($O7LM,"")
For $i=0 to $O7LMPos - 1
guictrlsetdata($O7LM,$O7TabLM[$i])
Next
MontreBouton()
GUICtrlSetData($O7TEXTE,$NomMetier)
EndIf
Case $Msg[0] = $O7BMM
; Bouton modif liste métier
$TempoTexte = GUICtrlRead($O7LM)
If $TempoTexte <> "" Then
; Affichage des valeurs
$TempoIndex = _ArrayFindAll($O7TabLM,$TempoTexte)
If $TempoIndex <> -1 Then
; on affiche les boutons
MontreBouton()
; on met le métier en entête
GUICtrlSetData($O7TEXTE,$TempoTexte)
; on construit la section
$Section = "Métier - " & $TempoTexte
; on récupère du fichier ini
$TempoTab5 = Recup2Ini($Section)
; on affiche les valeurs des couleurs
For $i=0 To 4
GUICtrlSetBkColor($O7I[$i],$TempoTab5[$i])
GUICtrlSetData($O7C[$i],$TempoTab5[$i])
Next
$O7LRPos = IniRead($NomIni, $Section, "Map nombre ", 0)
If $O7LRPos <> 0 Then
ReDim $O7TabLR[$O7LRPos]
; Recup du des map de l'ini
$O7TabLR = Recup3Ini($Section)
; 3°) Raz de la liste
guictrlsetdata($O7LR,"")
; 4°) Reconstruction de la liste par rapport au tableau
For $i=0 to $O7LRPos - 1
guictrlsetdata($O7LR,$O7TabLR[$i])
Next
Else
guictrlsetdata($O7LR,"")
EndIf
EndIf
EndIf
Case $Msg[0] = $O7BMS
; Bouton suppression de la liste métier
$TempoTexte = GUICtrlRead($O7LM)
If $TempoTexte <> "" Then
CacheBouton()
; test si il existe dans le tableau
$TempoIndex = _ArrayFindAll($O7TabLM,$TempoTexte)
If $TempoIndex <> -1 Then
; 1°) Suppresion du fichier .ini
$Section = "Métier - " & $TempoTexte
; 2°) on supprime la section
Suppres2Ini($Section)
; 2°) Suppression de la valeur dans le tableau
_ArrayDelete($O7TabLM,$TempoIndex)
$O7LMPos -= 1
If $O7LMPos > 0 Then
ReDim $O7TabLM[$O7LMPos]
EndIf
; 3°) Raz de la liste
guictrlsetdata($O7LM,"")
; 4°) Reconstruction de la liste par rapport au tableau
For $i=0 to $O7LMPos - 1
guictrlsetdata($O7LM,$O7TabLM[$i])
Next
EndIf
EndIf
Case $Msg[0] = $O7BP[0]
; Récup de couleur couleur 1
$TempoColor = RecupCoul()
GUICtrlSetBkColor($O7I[0],$TempoColor)
GUICtrlSetData($O7C[0],$TempoColor)
Case $Msg[0] = $O7BP[1]
; Récup de couleur couleur 2
$TempoColor = RecupCoul()
GUICtrlSetBkColor($O7I[1],$TempoColor)
GUICtrlSetData($O7C[1],$TempoColor)
Case $Msg[0] = $O7BP[2]
; Récup de couleur couleur 3
$TempoColor = RecupCoul()
GUICtrlSetBkColor($O7I[2],$TempoColor)
GUICtrlSetData($O7C[2],$TempoColor)
Case $Msg[0] = $O7BP[3]
; Récup de couleur couleur 4
$TempoColor = RecupCoul()
GUICtrlSetBkColor($O7I[3],$TempoColor)
GUICtrlSetData($O7C[3],$TempoColor)
Case $Msg[0] = $O7BP[4]
; Récup de couleur couleur 5
$TempoColor = RecupCoul()
GUICtrlSetBkColor($O7I[4],$TempoColor)
GUICtrlSetData($O7C[4],$TempoColor)
Case $Msg[0] = $O7BRA
; Bouton ajout de la liste map
; A FAIRE VERIFIER SI DEJA DANS LISTE
$Tempo = PositionMap()
If $Tempo <> False Then
$O7LRPos += 1
ReDim $O7TabLR[$O7LRPos]
$O7TabLR[$O7LRPos-1] = $Tempo
; 3°) Raz de la liste
guictrlsetdata($O7LR,"")
; 4°) Reconstruction de la liste par rapport au tableau
For $i=0 to $O7LRPos - 1
guictrlsetdata($O7LR,$O7TabLR[$i])
Next
EndIf
Case $Msg[0] = $O7BRM
; Bouton modification de la liste map
$TempoTexte = GUICtrlRead($O7LR)
If $TempoTexte <> "" Then
$TempoIndex = _ArrayFindAll($O7TabLR,$TempoTexte)
If $TempoIndex <> -1 Then
$TempoPos = StringSplit($TempoTexte,";")
$Tempo = PositionMap(int($TempoPos[1]),int($TempoPos[2]))
If $Tempo <> False Then
$O7TabLR[$TempoIndex[0]] = $Tempo
; 3°) Raz de la liste
guictrlsetdata($O7LR,"")
; 4°) Reconstruction de la liste par rapport au tableau
For $i=0 to $O7LRPos - 1
guictrlsetdata($O7LR,$O7TabLR[$i])
Next
EndIf
EndIf
EndIf
Case $Msg[0] = $O7BRS
; Bouton suppression de la liste map
$TempoTexte = GUICtrlRead($O7LR)
If $TempoTexte <> "" Then
; 1°) test si il existe dans le tableau
$TempoIndex = _ArrayFindAll($O7TabLR,$TempoTexte)
If $TempoIndex <> -1 Then
; 2°) Suppression de la valeur dans le tableau
_ArrayDelete($O7TabLR,$TempoIndex[0])
$O7LRPos -= 1
; Cas ou on arrive à zéro sinon plantage
If $O7LRPos > 0 Then
ReDim $O7TabLR[$O7LRPos]
EndIf
; 3°) Raz de la liste
guictrlsetdata($O7LR,"")
; 4°) Reconstruction de la liste par rapport au tableau
For $i=0 to $O7LRPos - 1
guictrlsetdata($O7LR,$O7TabLR[$i])
Next
EndIf
EndIf
Case $Msg[0] = $O7BRU
; Bouton Up de la liste map
$TempoTexte = GUICtrlRead($O7LR)
If $TempoTexte <> "" Then
; 1°) test si il existe dans le tableau
$TempoIndex = _ArrayFindAll($O7TabLR,$TempoTexte)
If $TempoIndex <> -1 and $TempoIndex[0] <> 0 Then
; 2°) On le descend dans le tableau par permutation
$TempoPos[0] = $O7TABLR[$TempoIndex[0]-1]
$TempoPos[1] = $O7TABLR[$TempoIndex[0]]
$O7TABLR[$TempoIndex[0]] = $TempoPos[0]
$O7TABLR[$TempoIndex[0]-1] = $TempoPos[1]
; 3°) Raz de la liste
guictrlsetdata($O7LR,"")
; 4°) Reconstruction de la liste par rapport au tableau
For $i=0 to $O7LRPos - 1
guictrlsetdata($O7LR,$O7TabLR[$i])
Next
EndIf
EndIf
Case $Msg[0] = $O7BRD
; Bouton Down de la liste map
$TempoTexte = GUICtrlRead($O7LR)
If $TempoTexte <> "" Then
; 1°) test si il existe dans le tableau
$TempoIndex = _ArrayFindAll($O7TabLR,$TempoTexte)
If $TempoIndex <> -1 and $TempoIndex[0] <> ($O7LRPos-1) Then
; 2°) On le monte dans le tableau par permutation
$TempoPos[0] = $O7TABLR[$TempoIndex[0]]
$TempoPos[1] = $O7TABLR[$TempoIndex[0]+1]
$O7TABLR[$TempoIndex[0]+1] = $TempoPos[0]
$O7TABLR[$TempoIndex[0]] = $TempoPos[1]
; 3°) Raz de la liste
guictrlsetdata($O7LR,"")
; 4°) Reconstruction de la liste par rapport au tableau
For $i=0 to $O7LRPos - 1
guictrlsetdata($O7LR,$O7TabLR[$i])
Next
EndIf
EndIf
Case $Msg[0] = $O7Valid
; Validation des modifs
; 1°) on construit la section
$Section = "Métier - " & GUICtrlRead($O7TEXTE)
; 2°) on supprime lea section
Suppres2Ini($Section)
; 3°) on reconstruit les clés
Ajout2Ini($Section)
Ajout3Ini($Section)
MsgBox(0,"SAUVEGARDE","Terminé")
EndSelect
EndSwitch
EndIf
WEnd
;------------------------------------------------------------------------------------
;***************************** FIN DE L' ECRAN PRINCIPAL ****************************
;------------------------------------------------------------------------------------
Func CacheBouton()
For $i=0 to 4
GUICtrlSetState($O7BP[$i],$GUI_HIDE)
GUICtrlSetState($O7C[$i],$GUI_HIDE)
GUICtrlSetState($O7I[$i],$GUI_HIDE)
Next
GUICtrlSetState($O7LR,$GUI_HIDE)
GUICtrlSetState($O7TEXTE,$GUI_HIDE)
GUICtrlSetState($O7TXTCOUL,$GUI_HIDE)
GUICtrlSetState($O7TXTLISTE,$GUI_HIDE)
GUICtrlSetState($O7Valid,$GUI_HIDE)
GUICtrlSetState($O7BRA,$GUI_HIDE)
GUICtrlSetState($O7BRM,$GUI_HIDE)
GUICtrlSetState($O7BRS,$GUI_HIDE)
GUICtrlSetState($O7BRU,$GUI_HIDE)
GUICtrlSetState($O7BRD,$GUI_HIDE)
EndFunc
;------------------------------------------------------------------------------------
Func MontreBouton()
For $i=0 to 4
GUICtrlSetState($O7BP[$i],$GUI_SHOW)
GUICtrlSetState($O7C[$i],$GUI_SHOW)
GUICtrlSetState($O7I[$i],$GUI_SHOW)
Next
GUICtrlSetState($O7LR,$GUI_SHOW)
GUICtrlSetState($O7TEXTE,$GUI_SHOW)
GUICtrlSetState($O7TXTCOUL,$GUI_SHOW)
GUICtrlSetState($O7TXTLISTE,$GUI_SHOW)
GUICtrlSetState($O7Valid,$GUI_SHOW)
GUICtrlSetState($O7BRA,$GUI_SHOW)
GUICtrlSetState($O7BRM,$GUI_SHOW)
GUICtrlSetState($O7BRS,$GUI_SHOW)
GUICtrlSetState($O7BRU,$GUI_SHOW)
GUICtrlSetState($O7BRD,$GUI_SHOW)
EndFunc
;------------------------------------------------------------------------------------
Func RecupCoul()
Local $TempoPos
Local $TempoColor
GUISetState(@SW_HIDE,$HdlFRM)
Do
Sleep(100)
Until __IsPressed("01") = 1
$TempoPos = MouseGetPos()
$TempoColor = PixelGetColor($TempoPos[0],$TempoPos[1],$HdlFen)
If $TempoColor <> -1 Then
$TempoColor = "0x" & hex($TempoColor,6)
Else
$TempoColor = 0
EndIf
GUISetState(@SW_SHOW,$HdlFRM)
Return $TempoColor
EndFunc
;------------------------------------------------------------------------------------
Func RecuPos()
Local $TempoPos
Local $Coef[2]
GUISetState(@SW_HIDE,$HdlFRM)
Do
Sleep(100)
Until __IsPressed("01") = 1
$TempoPos = MouseGetPos()
$Coef[0] = (($TempoPos[0]- $PosF[0]) / $PosF[2])
$Coef[1] = (($TempoPos[1]- $PosF[1]) / $PosF[3])
GUISetState(@SW_SHOW,$HdlFRM)
Return $Coef
EndFunc
;------------------------------------------------------------------------------------
Func RecupValeur()
Local $TempoRet[3]
; Onglet 1 lancement
$TempoRet = Recup1Ini("O1L1")
$1PX[0] = $TempoRet[0]
$1PY[0] = $TempoRet[1]
$1C[0] = $TempoRet[2]
$TempoRet = Recup1Ini("O1L2")
$1PX[1] = $TempoRet[0]
$1PY[1] = $TempoRet[1]
$1C[1] = $TempoRet[2]
; Onglet 2 mot de passe
$TempoRet = Recup1Ini("O2L1")
$2PX[0] = $TempoRet[0]
$2PY[0] = $TempoRet[1]
$TempoRet = Recup1Ini("O2L2")
$2PX[1] = $TempoRet[0]
$2PY[1] = $TempoRet[1]
$TempoRet = Recup1Ini("O2L3")
$2PX[2] = $TempoRet[0]
$2PY[2] = $TempoRet[1]
$2C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O2L4")
$2PX[3] = $TempoRet[0]
$2PY[3] = $TempoRet[1]
$2C[3] = $TempoRet[2]
; Onglet 3 choix du perso
$TempoRet = Recup1Ini("O3L1")
$3PX[0] = $TempoRet[0]
$3PY[0] = $TempoRet[1]
$3C[0] = $TempoRet[2]
$TempoRet = Recup1Ini("O3L2")
$3PX[1] = $TempoRet[0]
$3PY[1] = $TempoRet[1]
; Onglet 4 Aire de jeu
$TempoRet = Recup1Ini("O4L1")
$4PX[0] = $TempoRet[0]
$4PY[0] = $TempoRet[1]
$TempoRet = Recup1Ini("O4L2")
$4PX[1] = $TempoRet[0]
$4PY[1] = $TempoRet[1]
$TempoRet = Recup1Ini("O4L3")
$4PX[2] = $TempoRet[0]
$4PY[2] = $TempoRet[1]
$4C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L4")
$4PX[3] = $TempoRet[0]
$4PY[3] = $TempoRet[1]
$4C[3] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L5")
$4PX[4] = $TempoRet[0]
$4PY[4] = $TempoRet[1]
$4C[4] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L6")
$4PX[5] = $TempoRet[0]
$4PY[5] = $TempoRet[1]
$4C[5] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L7")
$4PX[6] = $TempoRet[0]
$4PY[6] = $TempoRet[1]
$4C[6] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L8")
$4PX[7] = $TempoRet[0]
$4PY[7] = $TempoRet[1]
$4C[7] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L9")
$4PX[8] = $TempoRet[0]
$4PY[8] = $TempoRet[1]
$4C[8] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L10")
$4PX[9] = $TempoRet[0]
$4PY[9] = $TempoRet[1]
$TempoRet = Recup1Ini("O4L11")
$4PX[10] = $TempoRet[0]
$4PY[10] = $TempoRet[1]
$4C[10] = $TempoRet[2]
$TempoRet = Recup1Ini("O4L12")
$4PX[11] = $TempoRet[0]
$4PY[11] = $TempoRet[1]
; Onglet 5 sorts du haut
$TempoRet = Recup1Ini("O5L1")
$5PX[0] = $TempoRet[0]
$5PY[0] = $TempoRet[1]
$5C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L2")
$5PX[1] = $TempoRet[0]
$5PY[1] = $TempoRet[1]
$5C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L3")
$5PX[2] = $TempoRet[0]
$5PY[2] = $TempoRet[1]
$5C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L4")
$5PX[3] = $TempoRet[0]
$5PY[3] = $TempoRet[1]
$5C[3] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L5")
$5PX[4] = $TempoRet[0]
$5PY[4] = $TempoRet[1]
$5C[4] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L6")
$5PX[5] = $TempoRet[0]
$5PY[5] = $TempoRet[1]
$5C[5] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L7")
$5PX[6] = $TempoRet[0]
$5PY[6] = $TempoRet[1]
$5C[6] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L8")
$5PX[7] = $TempoRet[0]
$5PY[7] = $TempoRet[1]
$5C[7] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L9")
$5PX[8] = $TempoRet[0]
$5PY[8] = $TempoRet[1]
$5C[8] = $TempoRet[2]
$TempoRet = Recup1Ini("O5L10")
$5PX[9] = $TempoRet[0]
$5PY[9] = $TempoRet[1]
$5C[9] = $TempoRet[2]
; Onglet 6 sorts du bas
$TempoRet = Recup1Ini("O6L1")
$6PX[0] = $TempoRet[0]
$6PY[0] = $TempoRet[1]
$6C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L2")
$6PX[1] = $TempoRet[0]
$6PY[1] = $TempoRet[1]
$6C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L3")
$6PX[2] = $TempoRet[0]
$6PY[2] = $TempoRet[1]
$6C[2] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L4")
$6PX[3] = $TempoRet[0]
$6PY[3] = $TempoRet[1]
$6C[3] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L5")
$6PX[4] = $TempoRet[0]
$6PY[4] = $TempoRet[1]
$6C[4] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L6")
$6PX[5] = $TempoRet[0]
$6PY[5] = $TempoRet[1]
$6C[5] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L7")
$6PX[6] = $TempoRet[0]
$6PY[6] = $TempoRet[1]
$6C[6] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L8")
$6PX[7] = $TempoRet[0]
$6PY[7] = $TempoRet[1]
$6C[7] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L9")
$6PX[8] = $TempoRet[0]
$6PY[8] = $TempoRet[1]
$6C[8] = $TempoRet[2]
$TempoRet = Recup1Ini("O6L10")
$6PX[9] = $TempoRet[0]
$6PY[9] = $TempoRet[1]
$6C[9] = $TempoRet[2]
EndFunc
;------------------------------------------------------------------------------------
Func Recup1Ini($Section)
Local $TempoRet[3]
$TempoRet[0] = IniRead($NomIni, $Section, "PosX", 0)
$TempoRet[1] = IniRead($NomIni, $Section, "PosY", 0)
$TempoRet[2] = IniRead($NomIni, $Section, "Coul", 0)
Return $TempoRet
EndFunc ;==>RecupPersoIni
;------------------------------------------------------------------------------------
Func Recup2Ini($Section)
Local $TempoRet[5]
$TempoRet[0] = IniRead($NomIni, $Section, "Coul1", 0)
$TempoRet[1] = IniRead($NomIni, $Section, "Coul2", 0)
$TempoRet[2] = IniRead($NomIni, $Section, "Coul3", 0)
$TempoRet[3] = IniRead($NomIni, $Section, "Coul4", 0)
$TempoRet[4] = IniRead($NomIni, $Section, "Coul5", 0)
Return $TempoRet
EndFunc ;==>RecupMétierCouleur
;------------------------------------------------------------------------------------
Func Recup3Ini($Section)
Local $Tempo
Local $TempoKey
$Tempo = IniRead($NomIni, $Section, "Map nombre ", 0)
Local $TempoRet[$Tempo]
For $i=0 To $Tempo-1
$TempoKey = "MAP - " & string($i+1)
$TempoRet[$i] = IniRead($NomIni, $Section, $TempoKey, 0)
Next
Return $TempoRet
EndFunc ;==>RecupMétierMap
;------------------------------------------------------------------------------------
Func Suppres2Ini($Section)
IniDelete($NomIni, $Section)
EndFunc ;==>SuppressionMétierCouleur& map
;------------------------------------------------------------------------------------
Func Ajout2Ini($Section)
Local $TempoKey
For $i=0 to 4
$TempoKey = "Coul" & string($i+1)
IniWrite($NomIni, $Section, $TempoKey, guictrlread($O7C[$i]))
Next
EndFunc ;==>AjoutMétierCouleur
;------------------------------------------------------------------------------------
Func Ajout3Ini($Section)
Local $Tempo
Local $TempoKey
If $O7LRPos > 0 Then
IniWrite($NomIni, $Section, "Map nombre ", $O7LRPos)
Local $TempoRet[$O7LRPos]
For $i=1 To $O7LRPos
$TempoKey = "MAP - " & string($i)
Iniwrite($NomIni, $Section, $TempoKey, $O7TabLR[$i-1])
Next
EndIf
Return $TempoRet
EndFunc ;==>AjoutMétierMap
;------------------------------------------------------------------------------------
Func ListeMetierIni()
Local $Tempo
Local $TempoTexte
$O7LMPos = 0
$Tempo = IniReadSectionNames($NomIni)
if not @error Then
If $Tempo[0] > 0 Then
For $i=1 To $Tempo[0]
If "Métier - " = StringLeft($Tempo[$i],9) Then
$O7LMPos += 1
$TempoTexte = StringRight($Tempo[$i],StringLen($Tempo[$i])-9)
GUICtrlSetData($O7LM,$TempoTexte)
ReDim $O7TabLM[$O7LMPos]
$O7TabLM[$O7LMPos-1] = $TempoTexte
EndIf
Next
EndIf
EndIf
EndFunc ;==>ListeLesMétiers
;------------------------------------------------------------------------------------
Func PositionMap($P1X=False,$P1Y=False)
Local $LeSigne = "+"
Local $LaValeur = 0
Local $TempoRet
$HdlMAP = GUICreate("Map", 330, 181, 192, 124)
GUICtrlCreateLabel("Map", 19, 51, 30, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlCreateLabel("Position X", 84, 21, 84, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
GUICtrlCreateLabel("Position Y ", 224, 21, 82, 22, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
If $P1X <> False Then
If $P1X >= 0 Then
$LeSigne = "+"
Else
$LeSigne = "-"
EndIf
$LaValeur = abs($P1X)
Else
$LeSigne = "+"
$LaValeur = 0
EndIf
$P1SX = GUICtrlCreateButton($LeSigne, 56, 46, 26, 26, $WS_GROUP)
$P1X1 = GUICtrlCreateInput($LaValeur, 84, 46, 80, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
If $P1Y <> False Then
If $P1Y >= 0 Then
$LeSigne = "+"
Else
$LeSigne = "-"
EndIf
$LaValeur = abs($P1Y)
Else
$LeSigne = "+"
$LaValeur = 0
EndIf
$P1SY = GUICtrlCreateButton($LeSigne, 194, 46, 26, 26, $WS_GROUP)
$P1Y1 = GUICtrlCreateInput($LaValeur, 224, 46, 80, 24, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$P1Valid = GUICtrlCreateButton("Valide", 45, 110, 91, 36, $WS_GROUP)
$P1Annule = GUICtrlCreateButton("Annule", 194, 111, 91, 36, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg(1)
If $Msg[1] = $HdlMAP Then
; Bouton de fermeture
If $Msg[0] = $GUI_EVENT_CLOSE Then
Fini()
EndIf
; Bouton d'annulation
If $Msg[0] = $P1Annule Then
Return False
EndIf
; Bouton de validation
If $Msg[0] = $P1Valid Then
If GUICtrlRead($P1SX) = "+" Then
$LaValeur = abs(GUICtrlRead($P1X1))
Else
$LaValeur = (abs(GUICtrlRead($P1X1)) - (abs(GUICtrlRead($P1X1))*2))
EndIf
$TempoRet = String($LaValeur)
If GUICtrlRead($P1SY) = "+" Then
$LaValeur = abs(GUICtrlRead($P1Y1))
Else
$LaValeur = (abs(GUICtrlRead($P1Y1)) - (abs(GUICtrlRead($P1Y1))*2))
EndIf
; "|"
$TempoRet = $TempoRet & " ; " & String($LaValeur)
GUIDelete($HdlMAP)
Return $TempoRet
EndIf
Select
;Signe sur les X
Case $Msg[0]= $P1SX
If GUICtrlRead($P1SX) = "+" Then
GUICtrlSetData($P1SX,"-")
Else
GUICtrlSetData($P1SX,"+")
EndIf
;Signe sur les Y
Case $Msg[0] = $P1SY
If GUICtrlRead($P1SY) = "+" Then
GUICtrlSetData($P1SY,"-")
Else
GUICtrlSetData($P1SY,"+")
EndIf
EndSelect
EndIf
WEnd
EndFunc ;==>PositionDesMapPourLeMétier
;------------------------------------------------------------------------------------
Func RecupHandle()
local $Hdl = 0
;Msgbox(0,"RECUPERATION","Lorsque vous aurez fermé cette fenêtre" & @CRLF & "sélectionnez la fenêtre" & @CRLF & "et quittez par F9")
SplashTextOn("RECUPERATION", "Sélectionnez la fenêtre " & @CRLF & "et quittez par F9")
Sleep(2000)
SplashOff()
While 1
Sleep(250)
If __IsPressed("78") Then
$Hdl = WinActive("[ACTIVE]", "")
SplashTextOn("YES", "Récupération du handle : " & String($Hdl))
Sleep(1000)
SplashOff()
ExitLoop
EndIf
If __IsPressed("70") Then
ToolTip("F12 pour quitter")
Sleep(1000)
EndIf
if __IsPressed("1B") Then
; normal que ca marche pas puisque j'ai hotkeyset (en réel)
Debug("Fini par la touche Echappe")
Fini()
EndIf
WEnd
If $Hdl = 0 Then
SetError(1)
Return False
Else
Return $Hdl
EndIf
EndFunc ;==>RecupHandle
;------------------------------------------------------------------------------------
Func __IsPressed($vHexKey, $vDLL = 'user32.dll')
; j'ai eu des problèmes en utilisant _ispressed j'ai trouvé cette fonction et depuis plus aucun
; certainement que j'ai du mal paramétrer la fonction d'AutoIt mais bon marche bien celle la
; $hexKey must be the value of one of the keys.
; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
If IsString($vHexKey) Then $vHexKey = '0x' & $vHexKey
Local $a_R = DllCall($vDLL, "int", "GetAsyncKeyState", "int", $vHexKey)
If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
Return 0
EndFunc ;==>__IsPressed
;------------------------------------------------------------------------------------
Func Debug($Texte)
SplashTextOn("Debug",$Texte)
Sleep(1000)
SplashOff()
EndFunc
;------------------------------------------------------------------------------------
Func Fini()
Exit 0
EndFunc ;==>Fini
Pour voir ce qui se passe une petite fonction Debug qu'on peut insérer facilement
Elle m'a beaucoup servie :mrgreen:
Si vous avez des questions, n'hésitez pas
Bonne lecture