Cod: Selectaţi tot

quest horse_menu begin
    state start begin
      function horse_menu()
         if horse.is_mine() then
            say_title("Manualul Armãsarului ")
            say("De aici puteþi monitoriza starea Armãsarului dvs. ")
            say("")
            local s = 6
            if horse.is_dead() then
               s = select( "Învie Armãsarul ", "Starea Armãsarului ", "Închide ")
               if s == 1 then s = 0
               elseif s == 2 then s = 3
               elseif s == 3 then return
               end
            else
               s = select(
               "Hrãneºte Armãsarul ", "Cãlãreºte Armãsarul ", "Alungã Armãsarul ", "Starea Armãsarului ",
               "Dã un nume armãsarului ", "Închide")
            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("Das Item "..item_name(food).." wird benötiogt.")
                  say("")
               end
            elseif s == 2 then
               horse.ride()
            elseif s == 3 then
               horse.unsummon()
            elseif s == 4 then
               say_title("Starea Armãsarului: ")
               say("Sãnãtatea curentã a armãsarului: "..horse.get_health_pct().."%")
               say("Rezistenþa momentanã a armãsarului: "..horse.get_stamina_pct().."%")
               say("")
            elseif s == 5 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("Zahãrul armãsarului îþi dã posibilitatea de a ")
               say("alege un nume armãsarului tãu.")
               say("")
               if string.len(old_horse_name) == 0 then
                  say_reward("Armãsarul dumneavoastrã nu a avut nici un nume.")
               else
                  say_reward("Numele actual al armãsarului este: "..old_horse_name..".")
               end
               say("")
               say("Alege numele armãsarului:")
               say("")
               local horse_name = input()
               if string.len(horse_name) < 2 then
                  say_title("Schimbã numele:")
                  say("Nu ai ales niciun nume.")
                  say("")
                  return
               elseif string.len(horse_name) > 12 then
                  say_title("Schimbã numele:")
                  say("Numele ales este prea lung.")
                  say("")
                  return
               end
               local ret = horse.set_name(horse_name)
               say_title("Schimbã numele:")
               if ret == 0 then
                  say_reward("Nu aveþi armãsar!")
                  say("")
               elseif ret == 1 then
                  say_reward("Acest nume este folosit deja.!")
                  say("")
               elseif ret == 2 then
                  pc.remove_item("71110")
                  say("Ai dat armãsarului tãu un nume.")
                  say("")
               end
            end
         end
      end
      when 20030.click begin horse_menu.horse_menu() end
      when 20101.click begin horse_menu.horse_menu() end
      when 20102.click begin horse_menu.horse_menu() end
      when 20103.click begin horse_menu.horse_menu() end
      when 20104.click begin horse_menu.horse_menu() end
      when 20105.click begin horse_menu.horse_menu() end
      when 20106.click begin horse_menu.horse_menu() end
      when 20107.click begin horse_menu.horse_menu() end
      when 20108.click begin horse_menu.horse_menu() end
      when 20109.click begin horse_menu.horse_menu() end
      when 20212.click begin horse_menu.horse_menu() end
    end
end