Cod: Selectaţi tot

quest bloodstone begin   
    state start begin
        when login or levelup with pc.get_level()>=75 begin
            if pc.count_item("80041")>=1 then
                syschat("Nu poti folosi acest obiect.")
                return
            end
                local v=find_npc_by_vnum(20091)
                if 0==v then
            else
                target.vid("__TARGET__",v,"Seon-Pyeong")
                set_state(run)
            end
        end
    end
    state run begin
        when letter begin
            send_letter("In grota")
        end
        when button or info begin
            say_title("In Campia Dong:")
            say("Probabil ai auzit de Campia Dong. Ca sa poti")
            say("intra acolo ai nevoie de Cartea Intelepciunii.")
            say("Seon-Pyeong este singurul care stie cum sa produca")
            say("aceste carti. In acest moment chiar te cauta sa-ti")
            say("dea o sarcina. Mergi la el, cu putin noroc poate")
            say("poti obtine o Carte a intelepciunii.")
            say()
        end
        when __TARGET__.target.click or 20091.chat."In Campia Dong" begin
            target.delete("__TARGET__")
            if pc.get_level()<75 then
                say_title("Seon-Pyeong:")
                say("Tinere razboinic, aceasta misiune este mult prea")
                say("periculoasa pentru tine. Revino dupa ce ai")
                say("acumulat mai multa experienta.")
                say()
                say_reward("Trebuie sa ai cel putin nivelul 75.")
                say()
                return
            end
            say_title("Seon-Pyeong:")
            say("Oh, cat ma bucur ca ai venit. Am o sarcina")
            say("dificila pe care nu o pot indeplinii singur.")
            say("Tu pari a fi omul potrivit care ma poate")
            say("ajuta.")
            say()
            wait()
            say_title("Seon-Pyeong:")
            say("Ma ocup de ceva timp de misterele Campiei Dong")
            say("si producerea Cartilor Intelepciunii.")
            say("Dar ingredientele necesare nu sunt usor de")
            say("obtinut. Trebuie sa strabat Padurea Intunecata pentru")
            say("a le gasi si aici am nevoie de ajutorul tau.")
            say()
            wait()
            say_title("Seon-Pyeong:")
            say("O sa-ti marchez pe harta punctele unde")
            say("Baljit-Elvedin a ascuns Bucatile de harta.")
            say("Le aduni pe toate si mi le aduci. Era sa uit ,")
            say("daca tot esti acolo, poti sa-mi aduci papucii sotiei")
            say("mele ,au fost furati de copacii , 4 i-au furat.")
            say("Trebuie sa fii foarte atent!")
            say()
            wait()
            say_title("Seon-Pyeong:")
            say("Poftim harta cu punctele marcate unde poti")
            say("gasii lacrimile fosilizate. Eu am sa te")
            say("astept aici. Mult noroc!")
            say()
            if pc.count_item(30127)>=7 and pc.count_item(30133)>=4 then
                say("In Campia Dong")
                set_state(backtoseon)
                return 
            end
            set_state(doyyumhwaji)
        end
    end
    state doyyumhwaji begin
        when letter begin
            if pc.count_item(30127)>=7 and pc.count_item(30133)>=4 then
                set_state(backtoseon)
                return 
            end
            send_letter("In Campia Dong")
        end
        when letter with pc.get_map_index()==67 begin
            --pc.remove_item(30127,anzahl1)
            --pc.remove_item(30133,anzahl2)
            local tear={
                {147,67},
                {19,195},
                {32,281},
                {98,332},
                {185,339},
                {96,300},
                {56,192},
                {87,256},
                {132,261},
                {170,274},
                {119,227},
                {146,339},
                {146,139},
                {319,146},
                {221,64},
                {265,214},
                {378,163},
                {413,81},
                {444,387},
                {447,371},
                {352,356},
                {286,437},
                {165,381},
                {66,414},
                {118,461},
                {416,388},
                {443,274},
                {371,204},
                {261,365},
                {404,271},
                {393,347},
                {332,304},
                {229,350},
                {216,397},
                {219,247},
            }
            local r=number(1,30)
            target.pos("p1",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p2",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r= r+1
            target.pos("p3",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p4",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p5",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p6",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p7",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
        end
        when button or info begin
            say_title("In Campia Dong:")
            say("Mergi in Padurea Fantoma si cauta cei patru ")
            say("papuci si cele sapte Bucati dintr-o harta.")
            say("Seon-Pyeong ti-a marcat pe harta unde le poti gasi.")
            say()
        end
        when p1.target.arrive begin
            target.delete("p1")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Se pare ca sub pamantul pietros este o")
            say("Bucata dintr-o harta.")
            say()
            pc.give_item2(30127,1)
            if pc.count_item(30127)>=7 then
                say("Ai luat ultima bucata de lacrima fosilizata.")
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci")
                    say("de flori.")
                    say()
                end
            end
        end
        when p2.target.arrive begin
            target.delete("p2")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Se pare ca sub pamantul pietros este o")
            say("lacrima fosilizata.")
            say()
            pc.give_item2(30129,1)
            if pc.count_item(30129)>=7 then
                say("Ai luat ultima bucata de harta.")
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci de")
                    say("flori.")
                    say()
                end
            end
        end
        when p3.target.arrive begin
            target.delete("p3")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Se pare ca sub pamantul pietros este o")
            say("Bucata dintr-o harta.")
            say()
            pc.give_item2(30127,1)
            if pc.count_item(30127)>=7 then
                say("Ai luat ultima bucata dintr-o harta.")
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci de")
                    say("flori.")
                    say()
                end
            end
        end
        when p4.target.arrive begin
            target.delete("p4")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Se pare ca sub pamantul pietros este o")
            say("Bucata dintr-o harta.")
            say()
            pc.give_item2(30127,1)
            if pc.count_item(30127)>=7 then
                say("Ai luat ultima bucata dintr-o harta.")
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci de")
                    say("flori.")
                    say()
                end
            end
        end
        when p5.target.arrive begin
            target.delete("p5")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Se pare ca sub pamantul pietros este o")
            say("Bucata dintr-o harta.")
            say()
            pc.give_item2(30127,1)
            if pc.count_item(30127)>=7 then
                say("Ai luat ultima bucata dintr-o harta.")
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci de")
                    say("flori.")
                    say()
                end
            end
        end
        when p6.target.arrive begin
            target.delete("p6")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Se pare ca sub pamantul pietros este o")
            say("Bucata dintr-o harta.")
            say()
            pc.give_item2(30127,1)
            if pc.count_item(30127)>=7 then
                say("Ai luat ultima bucata dintr-o harta.")
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci de")
                    say("flori.")
                    say()
                end
            end
        end
        when p7.target.arrive begin
            target.delete("p7")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Ai luat ultima bucata dintr-o harta.")
            pc.give_item2(30127,1)
            if pc.count_item(30127)>=7 then
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci de")
                    say("flori.")
                    say()
                end
            end
        end
        when 2302.kill begin
            local n=number(1,30)
            if n<=7 then
                pc.give_item2(30133,1)
                if pc.count_item(30133)>=4 then
                    say_title("In Campia Dong:")
                    say("Ai luat ultimi papuci de flori.")
                    if pc.count_item(30127)>=7 then
                        say("Intoarce-te la Seon-Pyeong.")
                        say()
                        set_state(backtoseon)
                    else
                        say("Mai ai nevoie de cele sapte Bucati dintr-o harta.")
                        say()
                    end
                end
            end
        end       
    end
    state backtoseon begin
        when letter begin
            send_letter("In Campia Dong")
            local v=find_npc_by_vnum(20091)
            if 0==v then
            else
                target.vid("__TARGETs__",v,"Bucata dintr-o harta")
            end
            target.delete("__TARGET1__")
            target.delete("__TARGET2__")
            target.delete("__TARGET3__")
            target.delete("__TARGET4__")
            target.delete("__TARGET5__")
            target.delete("__TARGET6__")
            target.delete("__TARGET7__")
        end
        when button or info begin
            say_title("In Campia Dong:")
            say("Bun, ai gasit toate materialele necesare.")
            say("Intoarce-te la Seon-Pyeong acum.")
            say()
        end
        when 20091.chat."In Campia Dong" with pc.count_item(30127)>=7 and  pc.count_item(30133)>=4 begin 
            target.delete("__TARGETs__")
            pc.remove_item(30127,7)
            pc.remove_item(30133,4)
            say_title("Seon-Pyeong:")
            say("Foarte bine, dar mai avem de facut un singur")
            say("lucru in Padurea Rosie.")
            say("Mergi cu acest vas magic acolo si cauta spiritul")
            say("zeitei Bahar-Taraji. Aceasta iti va oferii")
            say("o notita in schimbul lacrimilor fratelui sau.")
            say("Un strop ar trebuii sa fie de ajuns sa-si faca")
            say("efect.")
            say()
            set_state(gototrent02)
            pc.give_item2(30160,1)
        end
    end
    state gototrent02 begin
        when letter begin
            send_letter("In Campia Dong")   
        end
        when letter begin
            target.pos("__TARGETtr2__",650,633,68,"Nota")
        end
        when button or info begin
            say_title("In Campia Dong:")
            say("Cauta spiritul zeitei Bahar-Taraji in Lungsang,")
            say("zona Padurii Rosii. Chiar daca nu poti vedea")
            say("spiritul zeitei poti simti prezenta ei.")
            say()
        end
        when __TARGETtr2__.target.arrive begin
            target.delete("__TARGETtr2__")
            say_title("Nota:")
            say("O voce inceată iti zice:")
            say("Ai adus lacrimile fratelui meu pentru a ma")
            say("consola, ca recompensa iti dau sângele meu")
            say("pentru a putea lupta in continuare.")
            say()
            pc.give_item2(30160, 1)
            set_state(backtoseon2)
        end
    end
    state backtoseon2 begin
        when letter begin
            send_letter("In Campia Dong")   
            target.vid("__TARGETseon2__",v,"Seon-Pyeong")

        end
        when button or info begin
            say_title("In Campia Dong:")
            say("Ai obtinut ultimul ingredient necesar. Intoarce-te")
            say("la Seon-Pyeong.")
            say()
        end
        when 20091.chat."In grota" begin 
        if pc.count_item(30160)>=1 then
            pc.remove_item(30160,1)
        end
        if pc.count_item(30160)>=1 then
            pc.remove_item(30160,1)
        end
        target.delete("__TARGETseon2__")
            say_title("Seon-Pyeong:")
            say("Perfect, acum avem toate ingredientele")
            say("necesare. Voi transforma nota zeitei")
            say("Bahar-Taraji în Cartea Intelepciunii.")
            say("Da-mi cateva minute[DELAY value;400]. . .[/DELAY]")
            say()
            wait()
            say_title("Seon-Pyeong:")
            say("Poftim, sa-ti foloseasca cu bine.")
            say()
            say_reward("Ai primit 3 Nota Intelepciunii.")
            say()
            wait()
            say_title("Seon-Pyeong:")
            say("Cu aceste pietre poti trece de Kim Gwang Taek")
            say("paznicul Campiei Dong.")
            say("Poti reveni la mine de fiecare data cand")
            say("ai nevoie de o noua Carte a intelepciunii.")
            local serverid=game.get_event_flag("SERVERID")
            if serverid==2 then
                pc.give_item2(70101,3)
            else
                pc.give_item2(70101,3)
            end
            clear_letter()
            pc.setqf("time",get_global_time())
            set_state(__COMPLETE__)
        end
    end
    state __COMPLETE__ begin
        when 20091.chat."In Campia Dong" begin
            local delay=86400
            if get_global_time()-pc.getqf("time")<delay and pc.getqf("time")!=0 then
                local remaining_time=delay-(get_global_time()-pc.getqf("time"))
                say_title("Seon-Pyeong:")
                say("Ai nevoie de inca Un permis? Kim Gwang Taek")
                say("nu este cel mai intelept, dar trebuie sa astepti")
                say("putin, in caz contrar ar putea observa ca nu faci")
                say("parte din ordinul lui.")
                say()
                say_reward("Timp ramas: "..remaining_time.." secunde.")
                say()
                return
            end
            if pc.get_level()<75 then
                say_title("Seon-Pyeong:")
                say("Tinere razboinic, aceasta misiune este mult prea")
                say("periculoasa pentru tine. Revino dupa ce ai")
                say("acumulat mai multa experienta.")
                say()
                say_reward("Trebuie sa ai cel putin nivelul 75.")
                return
            end
            target.delete("__TARGET__")
            say_title("Seon-Pyeong:")
            say("Mai ai nevoie de Cartea Intelepciunii pentru a")
            say("trece de Kim Gwang Taek? In acest caz strange")
            say("alte sapte bucati dintr-o harta si patru papuci de")
            say("de flori din Lungsang.")
            say()
            set_state(doyyumhwaji)
        end
    end
end

Cod: Selectaţi tot

 when letter with pc.get_map_index()==67 begin
            --pc.remove_item(30127,anzahl1)
            --pc.remove_item(30133,anzahl2)
            local tear={
                {147,67},
                {19,195},
                {32,281},
                {98,332},
                {185,339},
                {96,300},
                {56,192},
                {87,256},
                {132,261},
                {170,274},
                {119,227},
                {146,339},
                {146,139},
                {319,146},
                {221,64},
                {265,214},
                {378,163},
                {413,81},
                {444,387},
                {447,371},
                {352,356},
                {286,437},
                {165,381},
                {66,414},
                {118,461},
                {416,388},
                {443,274},
                {371,204},
                {261,365},
                {404,271},
                {393,347},
                {332,304},
                {229,350},
                {216,397},
                {219,247},
            }
            local r=number(1,30)
            target.pos("p1",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p2",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r= r+1
            target.pos("p3",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p4",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p5",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p6",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
            target.pos("p7",tear[r][1],tear[r][2],62,"Bucata dintr-o harta")
            local r=r+1
        end
        when button or info begin
            say_title("In Campia Dong:")
            say("Mergi in Padurea Fantoma si cauta cei patru ")
            say("papuci si cele sapte Bucati dintr-o harta.")
            say("Seon-Pyeong ti-a marcat pe harta unde le poti gasi.")
            say()
        end
        when p1.target.arrive begin
            target.delete("p1")
            say_title("In Campia Dong:")
            say("Acesta este locul marcat pe harta.")
            say("Se pare ca sub pamantul pietros este o")
            say("Bucata dintr-o harta.")
            say()
            pc.give_item2(30127,1)
            if pc.count_item(30127)>=7 then
                say("Ai luat ultima bucata de lacrima fosilizata.")
                if pc.count_item(30133)>=4 then
                    say("Intoarce-te la Seon-Pyeong.")
                    say()
                    set_state(backtoseon)
                else
                    say("Mai ai de cautat cei patru papuci")
                    say("de flori.")
                    say()