ok so here it is again. use it or don't vote or don't I don't care. it also picks up some items. it probably won't pick up all items but some is better than none.
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
$Pethunger = 0xCECB00
$Pethealth = 0x0B10000
$Pethealth2=0xCE0000
$Pethunger2=0xCECB00
While 1
$coord = PixelSearch( 176, 100, 178, 105, $Pethealth, 1 )
If @error Then
Send("{1 down}")
Sleep("100")
Send("{1 up}")
Sleep("100")
EndIf
$coord=pixelsearch(138, 102, 138, 102, $Pethealth2, 1)
if @error Then
send("{3 down}")
sleep(100)
Send("{3 up}")
sleep(100)
EndIf
$coord=pixelsearch(226, 119, 226, 119, $Pethunger, 1)
if @error Then
Send("{2 down}")
sleep(100)
Send("{2 up}")
sleep(100)
endif
$coord=pixelsearch(224, 118, 224, 118, $Pethunger2, 1)
if @error Then
Send("{4 down}")
sleep(100)
send("{4 up}")
sleep(100)
EndIf
$coord = PixelSearch( 431, 68, 431, 68, 0x000103, 1 )
If @error Then
Send("{v down}")
Sleep("100")
Send("{v up}")
send("{s down}")
send("{s up}")
sleep(100)
Send("{a down}")
Sleep("100")
Send("{a up}")
Sleep("100")
send("{s down}")
send("{s up}")
sleep(100)
Send("{a down}")
Sleep("100")
Send("{a up}")
Sleep("100")
send("{s down}")
send("{s up}")
EndIf
Sleep("1000")
WEnd