horse_menu={["start"]=0,horse_menu= function ()if horse . is_mine ( ) then 
say ( "Informaii armsar:" ) 
say_reward ( "Nivel: " .. horse . get_level ( ) .. "[ENTER]Sntate: " .. horse . get_health_pct ( ) .. "%[ENTER]Rezisten " .. horse . get_stamina_pct ( ) .. "%" ) 
say ( "" ) 
local s = 6 
if horse . is_dead ( ) then 
s = select ( "nvie armsarul" , "Starea armsarului" , "nchide" ) 
if s == 1 then s = 0 
elseif s == 2 then s = 3 
elseif s == 3 then return 
end 
else 
s = select ( "Hrnete" , "ncalec " , "Trimite" , "Numete" , "Nimic (nchide ferastra)" ) 
end 
if s == 0 then 
horse . revive ( ) 
elseif s == 1 then 
local food = horse . get_grade ( ) + 50054 - 1 
if pc . countitem ( food ) > 0 then 
pc . removeitem ( food , 1 ) 
horse . feed ( ) 
else 
say ( "Ai nevoie de " .. item_name ( food ) .. " pentru a hrni calul." ) 
say ( "" ) 
end 
elseif s == 2 then 
horse . ride ( ) 
elseif s == 3 then 
horse . unsummon ( ) 
elseif s == 4 then 
if pc . countitem ( "71110" ) <= 0 then 
say ( "Ai nevoie de " .. item_name ( "71110" ) .. " pentru a schimba numele calului." ) 
say ( "" ) 
return 
end 
local old_horse_name = horse . get_name ( ) ; 
say_title ( "Schimb numele" ) 
say ( "" ) 
say ( "Zahrul armsarului i d posibilitatea de a" ) 
say ( "alege un nume calului tu." ) 
say ( "" ) 
if string . len ( old_horse_name ) == 0 then 
say_reward ( "Calul dumneavoastr nu a avut nici un nume." ) 
say ( "" ) 
else 
say_reward ( "Numele actual este: " .. old_horse_name .. "." ) 
say ( "" ) 
end 
say ( "" ) 
say ( "Alege numele armsarului:" ) 
say ( "" ) 
local horse_name = input ( ) 
if string . len ( horse_name ) < 2 then 
say_title ( "Schimb numele" ) 
say ( "" ) 
say ( "Nu ai ales niciun nume." ) 
say ( "" ) 
return 
elseif string . len ( horse_name ) > 12 then 
say_title ( "Schimb numele" ) 
say ( "" ) 
say ( "Numele ales este prea lung." ) 
say ( "" ) 
return 
end 
local ret = horse . set_name ( horse_name ) 
say_title ( "Schimb numele" ) 
say ( "" ) 
if ret == 0 then 
say_reward ( "Nu avei armsar!" ) 
say ( "" ) 
elseif ret == 1 then 
say_reward ( "Acest nume este folosit deja.!" ) 
say ( "" ) 
elseif ret == 2 then 
pc . remove_item ( "71110" ) 
say ( "Ai dat armsarului tu un nume." ) 
say ( "" ) 
end 
end 
end 
end }