; Déclaration des variables et constantes.
Dim $id, $mdp, $pseudo, $i
Dim $aId = FileReadToArray("ID.txt"), $aPseudo[1]
Const $colorOK = Dec("FF9900"), $colorServ = Dec("EBE3CB"), $colorPlay = Dec("EC8E02"), $colorConnectie = Dec("FF6600")
Const $pathDofus = "C:\Users\benoi\AppData\Local\Ankama\zaap\retro\resources\app.asar.unpacked\retroclient\Dofus.exe"

Redim $aPseudo[Ubound($aId)]

For $i = 0 to Ubound($aId)-1
    Local $aId2 = StringSplit($aId[$i], ",")
        $aPseudo[$i] = $aId2[1]
        open_Dofus($aId2[1], $aId2[2], $aId2[3])
Next

group()
Msgbox("","","Bon jeu")

Func group()
    For $i = Ubound($aPseudo)-1 to 1 step -1
        Winactivate($aPseudo[$i])
        Sleep(2000)
        Send("{ENTER}")
        Sleep(2000)
        Send("/invite " & $aPseudo[$i-1])
        Sleep(2000)
        Send("{ENTER}")
        Winactivate($aPseudo[$i-1])
        Sleep(2000)
        Send("{ENTER}")
    Next
EndFunc

Func open_Dofus($pseudo, $id, $mdp)
    ; Ouverture de la fenêtre de Dofus 32 bits en taille maximale.
    Run($pathDofus, "", @SW_MAXIMIZE)
    ; Attendre 2 secondes
    Sleep(500)
    ; Nous vérifions si la fenêtre est complètement chargée.
    ; La fenêtre est chargée si la couleur en X422 Y422 est 0xFF9900
    While (PixelGetColor(422,422) <> $colorOK)
        Sleep(1000) ; On attend 1 seconde
    WEnd
    ; Nous arrivons ici si la couleur correspond.
    ; On nomme la fenêtre avec le nom du joueur.
    ; On modifie le titre de la fenêtre.
    WinSetTitle("", "", $pseudo)
    ; On sélectionne le champ de l'ID.
    MouseClick("left", 368, 275, 1, 10)
    ; On entre l'identifiant.
    Send($id)
    ;On passe au mot de passe.
    Send("{TAB}")
    ;On entre le mot de passe.
    Send($mdp)
    ;On valide
    Send("{TAB}")
    Send("{ENTER}")
    ; On attend que la page serveur soit chargée.
    Sleep(500)
    While (PixelGetColor(370,491) <> $colorServ)
        Sleep(1000)
    WEnd
    ; Nous arrivons ici si le serveur est chargé.
    MouseClick("left", 370, 370, 2, 10)
    ; On vérifie si nous sommes dans la file d'attente.
    Sleep(500)
    While (PixelGetColor(643,587) <> $colorPlay)
        Sleep(1000)
    Wend
    Mouseclick("left", 370, 370, 2, 10)
    ; On vérifie si la connexion a réussi.
    Sleep(500)
    While (PixelGetColor(865,606) <> $colorConnectie)
        Sleep(1000)
    Wend
EndFunc