Quest For the horse

Metin2 Resources said:

Code:

quest horse_menu begin
    state start begin
        function horse_menu()
            if horse.is_mine() then
                say_title("Manualul Armasarului ")
                say("De aici puteti monitoriza starea Armasarului dvs. ")
                say("")
                local s = 6
                if horse.is_dead() then
                    s = select( "Alunga Armasarul ", "Readu la viata Armasarul ", "Închide ")
                    if s == 1 then s = 0
                    elseif s == 2 then s = 3
                    elseif s == 3 then return
                    end
                else
                    s = select(
                    "Hraneşte Armasarul ", "Calareşte Armasarul ", "Alunga Armasarul ", "Starea Armasarului ",
                    "Da un nume armasarului ", "Î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_title("Manualul Armasarului ")
                        say("Pentru a hrani armasarul "..item_name(food).." este hrana ")
                        say("corespunzatoare armasarul tau. ")
                        say("")
                    end
                elseif s == 2 then
                    horse.ride()
                elseif s == 3 then
                    horse.unsummon()
                elseif s == 4 then
                    say_title("Starea Armasarului: ")
                    say("Sanatatea curenta a armasarului: "..horse.get_health_pct().."%")
                    say("Rezistenta momentana a armasarului: "..horse.get_stamina_pct().."%")
                    say("")
                elseif s == 5 then
                    if pc.countitem("71110") <= 0 then
                        say_title("Manualul Armasarului ")
                        say("Pentru a putea da un nume armasarului tau, ")
                        say("trebuie sa deti "..item_name("71110")..". ")
                        say("")
                        return
                    end
                    local old_horse_name = horse.get_name() ;
                    say_title("Schimba numele: ")
                    say("Zaharul armasarului îti da posibilitatea de a ")
                    say("alege un nume armasarului tau. ")
                    say("")
                    if string.len(old_horse_name) == 0 then
                        say_reward("Armasarul dumneavoastra nu a avut nici un nume. ")
                    else
                        say_reward("Numele actual al armasarului este: "..old_horse_name..".")
                    end
                    say("")
                    say("Alege numele armasarului. ")
                    say("")
                    local horse_name = input()
                    if string.len(horse_name) < 2 then
                        say_title("Schimba numele: ")
                        say("Nu ai ales nici un nume. ")
                        say("")
                        return
                    elseif string.len(horse_name) > 12 then
                        say_title("Schimba numele: ")
                        say("Numele ales este prea lung. ")
                        say("")
                        return
                    end
                    local ret = horse.set_name(horse_name)
                    say_title("Schimba numele: ")
                    if ret == 0 then
                        say_reward("Nu aveti armasar. ")
                        say("")
                    elseif ret == 1 then
                        say_reward("Acest nume este folosit deja. ")
                        say("")
                    elseif ret == 2 then
                        pc.remove_item("71110")
                        say("Ai dat armasarului tau 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 20121.click begin horse_menu.horse_menu() end
        when 20122.click begin horse_menu.horse_menu() end
        when 20123.click begin horse_menu.horse_menu() end
        when 20124.click begin horse_menu.horse_menu() end
        when 20125.click begin horse_menu.horse_menu() end
        when 20126.click begin horse_menu.horse_menu() end
        when 20127.click begin horse_menu.horse_menu() end
        when 20128.click begin horse_menu.horse_menu() end
        when 20129.click begin horse_menu.horse_menu() end
        when 20130.click begin horse_menu.horse_menu() end
        when 20131.click begin horse_menu.horse_menu() end
        when 20132.click begin horse_menu.horse_menu() end
        when 20133.click begin horse_menu.horse_menu() end
        when 20134.click begin horse_menu.horse_menu() end
        when 20135.click begin horse_menu.horse_menu() end
        when 20136.click begin horse_menu.horse_menu() end
        when 20137.click begin horse_menu.horse_menu() end
        when 20138.click begin horse_menu.horse_menu() end
        when 20139.click begin horse_menu.horse_menu() end
        when 20140.click begin horse_menu.horse_menu() end
    end
end

Code:

quest horse_guard begin
   state start begin
   when 20349.chat."Calareste calul" begin
            say_title("Mire:")
            say("")
            say("Buna!")
            say("Cu mine poti sa-ti imbunatatesti calul")
            say("Calul va costa cresterea 1kk pe nivel.")
            say("")
            say_reward("Doriti sa creasca nivelul calului?")
            say("")
              
            local s = select("Da", "Nu")
              
                if s == 1 then
                    say_title("Mire:")
                    say("")
                            if pc.money>=1000000 then
                            pc.changemoney("-1000000")
                     horse.unride()
                     horse.advance()
                     horse.ride()
                     say("Calul tau a ajuns la nivelul "..(horse.get_level()).." acum.")
                     say("")
                            elseif horse.get_level()>=30 then
                     say("Calul tau a ajuns la nivelul 30.")
                     say("Nu-l mai poti creste.")
                     say("")
                            elseif pc.money<1000000 then
                     say("Nu ai suficient yang pentru a creste calul.")
                     say("")
            end
                elseif s == 2 then
                    return
        end
    end
          when 20349.chat."Magazin de echitatie" begin
       npc.open_shop(11)
             say("Aici gasesti toate elementele pentru cal.")
   end
      when 20349.chat."Information" begin
         local s=number(1, 7)
         if 1>=s then -- 14.29% (1/7)
            say("Hraneste-ti calul")
            say("in mod regulat")
            say("altfel moare.")
         elseif 2>=s then -- 14.29% (1/7)
            say("Calul novice")
            say("e epuizat foarte repede.")
            say("Nu ramai in picioare in spatele lui.")
         elseif 3>=s then -- 14.29% (1/7)
            say("Pentru a imbunatati calul")
            say("ai nevoie de 1kk yang.")
            say("Adu-mi yang si eu")
            say("iti voi creste calul.")
         elseif 4>=s then -- 14.29% (1/7)
            say("Daca ti-a murit calul")
            say("exista mai multe")
            say("ierburi ale regelui maimuta")
            say("pentru a-ti putea")
            say("reinvia calul.")
         elseif 5>=s then -- 14.29% (1/7)
            say("Exista mai multe")
            say("tipuri de cai.")
            say("Fara breasla,pentru breasla,si ca lider.")
         elseif 6>=s then -- 14.29% (1/7)
            say("Calului novice")
            say("ii place sa manance fan.")
            say("Calului de lupta")
            say("ii place sa manance morcovi.")
            say("Calului militar")
            say("ii place Ginseng Rosu.")
         elseif 7>=s then -- 14.29% (1/7)
            say("Ia ghidul de lectura pentru imblanzirea cailor")
            say("pentru a apela mai rapid calul.")
         end
      end
   end
   state __COMPLETE__ begin
      when enter begin
         q.done()
      end
   end
end

Click to expand...

This post is visible to everyone, and will be monitored by forum moderators.

Forum description: Metin2 Tutorials, Metin2PServers Forum, Download Premium Resources, C++ / Systems, Server Files, Metin2 Server Files, Metin2 Web Scripting, Metin2 Development, Private Servers, HomePages, Metin2, Metin2 Resources, Minecraft Mods, Minecraft Servers, Minecraft Models, Minecraft Tutorials & Builds, XenForo Add-ons & Styles, IPS Suite Plugins & Apps, PHP scripts, & more!