Funcs aren't going at same time?

[Disciples]

Kk, well here is my script :

expandcollapse popup

HotKeySet("{F5}", "_Start")
HotKeySet("{F6}", "_Stop")
HotKeySet("{F9}", "_Exit")
AdlibEnable("HP",100) 
Global $Colors = StringSplit("0x6B0967,0x663340,0xffff93,0x4C4C00,0x9f772B,0xBfBf99, 0xBE1010", ",")

While 1
    Sleep(10)
WEnd

Func _Search()
    While 1
        For $x = 1 To $Colors[0]
            $coord = PixelSearch(388,318,624,366, $Colors[$x]) ;searches for monster, if not found keeps searching
            If IsArray($coord) Then
                MouseClick("left",503,349)
                sleep(500)
                MouseClick("left",502,365)
                sleep(500)
                MouseClick("left",508,355)
                sleep(500)
                MouseClick("left",510,375)
                sleep(500)
                MouseClick("left",513,371)
                sleep(500)
            Else
                MouseClick("left",256,326)
            EndIf


       Next
    Wend
EndFunc
Func _Start()
    MouseClick ("left",578,265)
    MouseClick ("left", 610,223)
    _Search()
EndFunc   ;==>_Start

Func _Stop()
While 1
    Sleep(10)
WEnd
EndFunc   ;==>_Stop

Func _Exit()
    Exit
EndFunc   ;==>_Exit
Func hp()
    if "0xBE1010" <> "0x"&Hex(PixelGetColor(228,157),6) then 
        sleep(1000);change coordinates of position on that pixel
        MouseClick("left", 731,330,"",0) 
        Do

Sleep(100)
        Until "0xBE1010" = "0x"&Hex(PixelGetColor(420,158),6);end hp pixel position for full hp
    EndIf
EndFunc

The func hp() doesn't seem to go at all? But it is set up correct. Like the _search() func always goes, and when my hp is lower than 228,157 it doesn't seem to exit?

If anyone could help, or show me where in the Help file I can go that would be great!

[bogQ]

expandcollapse popup

Opt("TrayIconDebug", 1)

HotKeySet("{F5}", "_Start")
HotKeySet("{F6}", "_Stop")
HotKeySet("{F9}", "_Exit")

Global $Colors = StringSplit("0x6B0967,0x663340,0xffff93,0x4C4C00,0x9f772B,0xBfBf99, 0xBE1010", ",")

While 1
    Sleep(10)
WEnd

Func _Search()
    While 1
        For $x = 1 To $Colors[0]
            $coord = PixelSearch(388,318,624,366, $Colors[$x]) ;searches for monster, if not found keeps searching
            If IsArray($coord) Then
                MouseClick("left",503,349,1,0)
                sleep(50)
                MouseClick("left",502,365,1,0)
                sleep(50)
                MouseClick("left",508,355,1,0)
                sleep(50)
                MouseClick("left",510,375,1,0)
                sleep(50)
                MouseClick("left",513,371,1,0)
                sleep(50)
                hp()
            Else
                MouseClick("left",256,326,1,0)
                hp()
            EndIf


       Next
    Wend
EndFunc

Func _Start()
    MouseClick ("left",578,265,1,0)
    MouseClick ("left", 610,223,1,0)
    _Search()
EndFunc   ;==>_Start

Func _Stop()
While 1
    Sleep(10)
WEnd
EndFunc   ;==>_Stop

Func _Exit()
    Exit
EndFunc   ;==>_Exit
Func hp()
    if "0xBE1010" <> "0x"&Hex(PixelGetColor(228,157),6) then ;change coordinates of position on that pixel
        MouseClick("left", 731,330,1,0) 
        Do
            Sleep(100)
        Until "0xBE1010" = "0x"&Hex(PixelGetColor(420,158),6);end hp pixel position for full hp
    EndIf
EndFunc

this shud work now