[R] Aide pour plusieurs fonctions

[periaz]

Bonsoir,
J'ai un petit problème avec mes fonctions.

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{F9}", "debut")
HotKeySet("{F10}", "fin")
HotKeySet("{ESC}", "Sortie")

Global $i=0
Global $u=0
Global $j=0

While 1
    _1()
    Sleep(250)
    _2()
    Sleep(250)
    _3()
    Sleep(250)
WEnd


Func _1()

If $i=1 Then
    mouseclick("left", 875, 690)
    sleep(3000)
Else
    Sleep(3000)
    EndIF
    
    If $i=1 Then
    mouseclick("left", 875, 690)
    sleep(3000)
Else
    Sleep(3000)
    EndIF
    
    If $i=1 Then
    mouseclick("left", 860, 685)
    sleep(3000)
Else
    Sleep(3000)
    EndIF
    
    If $i=1 Then
    mouseclick("left", 860, 685)
    sleep(3000)
Else
    Sleep(3000)
    EndIF
    
    
EndFunc


Func _2()
If $i = 1 Then
    While
$coord=PixelSearch(120, 90, 900, 700, 5460946)
If not @error Then
    $axex = $coord[0] - 8
    $axey = $coord[1] - 8
    MouseClick("left", $axex, $axey, 1, 1)
EndIf
Wend
EndIf
EndFunc


Func _3()
If $u=1 Then
    $coord=PixelSearch(340, 58, 400, 58, 11135999)
    If not @error Then
    ;rien
    Else
        $i=0
        $cord=PixelSearch(753, 602, 903, 702, 3648000)
        If not @error Then 
            If $cord[0] < 828 And $cord[1] < 650 Then
                
                hop1()
    
            ElseIf $cord[0] < 828 And $cord[1] > 650 Then

                hop2()
    
            Else 
    
                hop3()
    
            EndIf
        EndIf
    EndIf
EndIf
EndFunc

Func hop1()
                mouseclick("left", 768, 618)
                For $j = 0 To 7 Step 1
                    Sleep(4000)
                    Send("J")
                Next
                $base=PixelSearch(887, 642, 888, 642, 37834)
                If not @error Then
                    ;rien
                Else
                    Send("J")
                    sleep(3000)
                EndIf
                Sleep(100)
                While 1
                    $vert=PixelSearch(644, 58, 645, 58, 8823146)
                    If not @error Then
                        $i=1
                        ExitLoop
                    Else
                        sleep(1000)
                    EndIf
                WEnd
                $i=1
EndFunc             
    

Func hop2()
                mouseclick("left", 768, 687)
                For $j = 0 To 7 Step 1
                    Sleep(4000)
                    Send("J")
                Next
                $base=PixelSearch(887, 642, 888, 642, 37834)
                If not @error Then
                    ;rien
                Else
                    Send("J")
                    sleep(3000)
                EndIf
                Sleep(100)
                While 1
                    $vert=PixelSearch(644, 58, 645, 58, 8823146)
                    If not @error Then
                        $i=1
                        ExitLoop
                    Else
                    sleep(1000)
                    EndIf
                WEnd
                $i=1
EndFunc     
    
Func hop3()
                mouseclick("left", 888, 642)
                For $j = 0 To 26 Step 1
                    Sleep(1000)
                Next
                Sleep(100)
                While 1
                    $vert=PixelSearch(644, 58, 645, 58, 8823146)
                    If not @error Then
                        $i=1
                        ExitLoop
                    Else
                    sleep(1000)
                    EndIf
                WEnd
                $i=1
EndFunc             

Func fin()
   $i=0
   $u=0
EndFunc

Func debut()
   $i=1
   $u=1
EndFunc

Func Sortie()
    Exit
EndFunc

Toutes mes fonctions fonctionnent à part une, _2.

Je ne sais pas pourquoi, j'ai fait de multiples essais et aucun résultat donc je m'adresse à vous.

Merci

[jbnh]

Aucune erreur de syntaxe, donc pourrais-tu nous préciser l'erreur ?
Je précise quand meme que une fois dans _2 si $i = 1, il en sort jamais...

[periaz]

Pfff, que suis-je bête !

Voici le code pour ce ca marche :

► Afficher le texte

Code : Tout sélectionner

Func _2()
If $i = 1 Then
$coord=PixelSearch(120, 90, 900, 700, 5460946)
If not @error Then
    $axex = $coord[0] - 8
    $axey = $coord[1] - 8
    MouseClick("left", $axex, $axey, 1, 1)
EndIf
EndIf
EndFunc