Silkroad Online wolf potion bot

[aquaandi]

Here's a try to keep the wolf pet in Silkroad Online alive. The pause function is imported from another script. The problem is that the script always closes after starting it and i don't know why

expandcollapse popup

Global $Paused, $checksum1, $checksum2
HotKeySet("{F1}", "Terminate")
HotKeySet("{F2}", "TogglePause")


Func Health_potter()

    $color = PixelGetColor ( 147 , 87 )   //coordinates of the critical point of the wolfs health bar @ 1280x1024

If $color <> "FF3232" Then 
    Send("{7}") 
    S(1000) 
EndIf

EndFunc


Func HGP_potter()

    $color = PixelGetColor ( 108 , 93 )  //coordinates of the critical point of the wolfs hgp bar @ 1280x1024

If $color <> "FFD652" Then
    Send("{6}") 
    S(1000) 
EndIf

EndFunc


Func TogglePause()
    $Paused = Not $Paused
    While $Paused
    WEnd
EndFunc
Func Terminate()
    Exit 0
EndFunc

[seandisanti]

Here's a try to keep the wolf pet in Silkroad Online alive. The pause function is imported from another script. The problem is that the script always closes after starting it and i don't know why

Global $Paused, $checksum1, $checksum2
HotKeySet("{F1}", "Terminate")
HotKeySet("{F2}", "TogglePause")
Func Health_potter()

    $color = PixelGetColor ( 147 , 87 )   //coordinates of the critical point of the wolfs health bar @ 1280x1024

If $color <> "FF3232" Then 
    Send("{7}") 
    S(1000) 
EndIf

EndFunc
Func HGP_potter()

    $color = PixelGetColor ( 108 , 93 )  //coordinates of the critical point of the wolfs hgp bar @ 1280x1024

If $color <> "FFD652" Then
    Send("{6}") 
    S(1000) 
EndIf

EndFunc
Func TogglePause()
    $Paused = Not $Paused
    While $Paused
    WEnd
EndFunc
Func Terminate()
    Exit 0
EndFunc

you don't appear to have a main loop, just 3 functions that are never called.... try adding

while 1
sleep(100)
wend

outside of your functions (after your hotkeysets)