Questttt

------------------------------------------------------ Missione livello 75
-- Grotta dell'Esilio
----------------------------------------------------


quest grotto_of_exile begin



    state start begin

    when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri enormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end


    when login or levelup with pc.level >= 75 begin
            set_state(information)
        end

    end

    state information begin

        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end

        when letter begin
            send_letter("Grotta dell'Esilio")
            local v = find_npc_by_vnum(20095)
            if v == 0 then
            else
                target.vid("__TARGET__", v, "Seon-Hae")
            end
        end

        when button or info begin
            say_title("Grotta dell'Esilio:")
            say("Seon-Hae conosce il modo per entrare nella Grotta dell'Esilio")
            say("Va da lui, ti dirà di cosa ha bisogno")
            say("Per consentirti l'accesso alla dimora di Beran-Setaou")
        end

        when __TARGET__.target.click or 20095.chat."Grotta dell'Esilio" begin
            target.delete("__TARGET__")
            local asd = pc.getqf("rifai_quest_time")
            if pc . is_gm ( ) then
            pc.setqf ( "rifai_quest_time" , get_time() -1 )
            end
            if get_time ( ) < asd then
            say_title("Seon-Hae:")
            say("Mi dispiace,posso crearti una sola Ematite al giorno")
            say("Se il Guardiano della Grotta dell'Esilio si accorgesse")
            say("Che entri piu volte al giorno nella Grotta del'Esilio")
            say("Non ti farebbe piu entrare...")
            else
            say_title("Seon-Hae:")
            say("Giovane avventuriero, vedo in te un animo forte ed intraprendente")
            wait()
            say_title("Seon-Hae:")
            say("Vorresti oltrepassare la soglia della Grotta dell'Esilio?!")
            say("Creature spaventose si nascondono nei meandri della dimora di Beran-Setaou")
            say("Deve albergare molto coraggio nel tuo cuore. La maggior parte di coloro i quali varcano quell'entrata scompaiono definitivamente nell'Oblio")
            say("Se la tua scelta è quella di proseguire io non posso fare nulla per impedirtelo.")
            say("Ma l'accesso non è consentito a tutti. Baljit-Elvedin sigillò questo luogo maledetto")
            say("Per rompere il sigillo ho bisogno di particolari oggetti estremamente rari e preziosi.")
            wait()
            say_title("Procurami l'Ossidiana")
            say("L'ossidiana è una pietra lavica sulla quale gli antichi alchimisti")
            say("Incidevano le preghiere rivolte a Baljit-Elvedin.")
            say("Me ne servirebbero quattro... Si, quattro dovrebbero proprio bastare!")
            set_state(ossidiane)
            end


        end

    end


    state ossidiane begin

        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end


        when letter begin
            send_letter("Le ossidiane")
        end

        when button or info begin
            say_title("Le Ossidiane:")
            say ( "Dopo la caduta delle rocce Metin le pietre laviche sono state recuperate" )
            say ( "Da esseri malvagi noti come FIAMMA e riportate alle pendici dei vulcani" )
            say ( "Di Carta Dojum. Uccidi i FIAMMA e riappropriati delle Ossidiane!" )
        end

        when 2204.kill begin
            local s = number(1, 10)
            local a = 0
            if s == 1 and pc.count_item(30188)<4 then
                a = a + 1
                pc.give_item2(30188, a )
            end
            if pc.count_item(30188)==4 then

                local v = find_npc_by_vnum(20095)
                if v == 0 then
                else
                    target.vid("__TARGET__", v, "??????")
                end
                set_state(ossidiane_trovate)
            end
        end
    end

    state ossidiane_trovate begin


        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end

        when letter begin
            send_letter("Ho le Ossidiane")
        end
        when button or info begin
            say_title("Ho le Ossidiane:")
            say ( "Hai trovato le Ossidiane!!" )
            say ( "Portale al piu presto da Seon-Hae in modo" )
            say ( "che le possa esaminare")
        end
        when __TARGET__.target.click  or
            20095.chat."Ho le Ossidiane" with pc.count_item(30188) >= 4 begin
            target.delete("__TARGET__")
            say_title ( "Seon-Hae:" )
            say ( "Bene giovane guerriero" )
            say ( "Ora che ho le ossidane posso cominciare a lavorare sulla creazione dell'Ematite.." )
            say ( "Ma senza le lacrime pietrificate il mio lavoro si fermerà presto." )
            wait()
            say_title("Procurami lacrima pietrificata")
            say("Ho bisogno di una Lacrima Pietrificata del dio Baljit-Elvedin")
            say("Colui che oggi veneriamo col nome di Dio Drago")
            say("Credo che avrò bisogno di almeno 7 Lacrime")
            say("Recati nella Terra del Fuoco, Ma stai attento, creature mostruose")
            say("Si celano tra le anguste rocce incandescenti.")
            pc.remove_item(30188,4)
            set_state(lacrime_pietrificate)
        end


    end

    state lacrime_pietrificate begin

        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end


        when letter begin
            send_letter("Le Lacrime pietrificate")
        end

        when button or info begin
            say_title("Le Lacrime pietrificate:")
            say("Le Lacrime di Baljit-Elvedin caddero dal cielo")
            say("Quando il dio pianse per il destino dei suoi fratelli.")
            say("Così cariche del suo spirito non tutte evaporarono")
            say("E quelle rimaste si trasformarono in rocce sacre")
            say("Trovale nella Carta Dojum.")
            set_state(lacrima1)




        end
    end

    state lacrima1 begin



        when letter begin
            local x1 = number(1145, 1414)
            local y1 = number(649, 819)
            target.pos("__TARGET__", x1, y1, 62, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato un Lacrima pietrificata" )
            say ( "E' gelida nonostante la temperatura dell'ambiente." )
            say ( "Trova le altre e portale a Seon-Hae" )
            pc.give_item2(30186, 1)
            setstate(lacrima2)
        end




    end


    state lacrima2 begin
        when letter begin
            local x2 = number(1245, 1414)
            local y2 = number(160, 266)
            target.pos("__TARGET__", x2, y2, 62, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato un Lacrima pietrificata" )
            say ( "E' gelida nonostante la temperatura dell'ambiente." )
            say ( "Trova le altre e portale a Seon-Hae" )
            pc.give_item2(30186, 1)
            setstate(lacrima3)
        end




    end


    state lacrima3 begin
        when letter begin
            local x3 = number(84, 198)
            local y3= number(671, 877)
            target.pos("__TARGET__", x3, y3, 62, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato un Lacrima pietrificata" )
            say ( "E' gelida nonostante la temperatura dell'ambiente." )
            say ( "Trova le altre e portale a Seon-Hae" )
            pc.give_item2(30186, 1)
            setstate(lacrima4)
        end




    end
state lacrima4 begin
        when letter begin
            local x4 = number(568, 690)
            local y4 = number(365, 498)
            target.pos("__TARGET__", x4, y4, 62, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato un Lacrima pietrificata" )
            say ( "E' gelida nonostante la temperatura dell'ambiente." )
            say ( "Trova le altre e portale a Seon-Hae" )
            pc.give_item2(30186, 1)
            setstate(lacrima5)
        end




    end
state lacrima5 begin
        when letter begin
            local x5 = number(1059, 1395)
            local y5 = number(139, 237)
            target.pos("__TARGET__", x5, y5, 62, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato un Lacrima pietrificata" )
            say ( "E' gelida nonostante la temperatura dell'ambiente." )
            say ( "Trova le altre e portale a Seon-Hae" )
            pc.give_item2(30186, 1)
            setstate(lacrima6)
        end




    end
state lacrima6 begin
        when letter begin
            local x6 = number(368, 454)
            local y6 = number(977, 1122)
            target.pos("__TARGET__", x6, y6, 62, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato un Lacrima pietrificata" )
            say ( "E' gelida nonostante la temperatura dell'ambiente." )
            say ( "Trova le altre e portale a Seon-Hae" )
            pc.give_item2(30186, 1)
            setstate(lacrima7)
        end




    end
state lacrima7 begin
        when letter begin
            local x7 = number(888, 975)
            local y7 = number(690, 867)
            target.pos("__TARGET__", x7, y7, 62, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato tutte le Lacrime Pietrificate" )
            say ( "Del dio Baljit-Elvedin." )
            say ( "Ora portale a Seon-Hae" )
            pc.give_item2(30186, 1)
            setstate(Lacrime_Bajit)
        end




    end
    state Lacrime_Bajit begin

        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end

        when letter begin
            local v = find_npc_by_vnum(20095)
            if v != 0 then
                target.vid("__TARGET__", v, "?????")
            end
            send_letter("Hai 7 Lacrime Pietrificate")
        end

        when button or info begin
            say_title ( "Le Lacrime pietrificate:" )
            say ( "Hai trovato tutte le Lacrime Pietrificate" )
            say ( "Del dio Baljit-Elvedin." )
            say ( "Ora portale a Seon-Hae" )
        end

        when __TARGET__.target.click  or
            20095.chat."Hai 7 Lacrime Pietrificate" with pc.count_item(30186) >= 7 begin
            target.delete("__TARGET__")
            say_title("Seon-Hae:")
            say( "Dai tuoi occhi posso intuire che hai trovato cio'" )
            say( "Che cercavi." )
            say( "Si, sono proprio le lacrime pietrificate del sommo Baljit-Elvedin" )
            wait()
            say_title("Seon-Hae:")
            say( "Bene, non ti resta che consacrare" )
            say( "Le Lacrime dove il dio Baljit-Elvedin ha riposato" )
            say( "Un'ultima volta, cullato dal fruscio del vento, prima di abbandonare la dimora dei mortali." )
            say( "Recati nel bosco ed ascolta il canto della brezza" )
            say( "Svuota il tuo cuore, il Dio ascolterà le tue preghiere" )
            wait()
            say_title("Seon-Hae:")
            say("Se il Dio Drago vedra' la purezza nel tuo animo")
            say("Ti darà in dono una goccia del sangue di sua sorella,")
            say("La dea Bahar-Taraji.")
               pc.removeitem(30186, 7)
            pc.give_item2(30189, 1)
            set_state( Goccia_Sangue )
        end

    end

    state Goccia_Sangue begin

        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end


        when letter begin

            send_letter("Trova la il luogo consacrato")
        end

        when button or info begin
            say_title("Recati nel bosco rosso:")
            say("Recati nel bosco rosso e trova il punto")
            say("Che Seon-Hae ti ha indicato.")
            say("Lì troverai una goccia del sangue di Bahar-Taraji")
            set_state(goccia1 )
        end
    end




    state goccia1 begin


        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end

        when letter begin
            target.pos("__TARGET__", 234, 483, 68, "")
        end

        when letter begin
            -- setskin(NOWINDOW)
            -- makequestbutton("lacrima 1")
            -- q.set_title("Trova la prima lacrima")
            -- q.start()
        end


        when __TARGET__.target.arrive begin
            target.delete("__TARGET__")
            say_title("Baljit-Elvedin:")
            say("Giovane e valoroso guerriero dal cuore puro")
            say("Hai dimostrato tenacia e coraggio, hai meritato la mia benedizione")
            say("Il cammino che intendi intraprendere ti porterà in un luogo")
            say("In cui la malvagità ed il caos regnano sovrani.")
            say("Bada bene a non sprofondare nell'Oblio.")
            wait()
            say_title("Baljit-Elvedin:")
            say("Questa è una goccia del sangue di Bahar-Taraji")
            say("che ti permetterà di rompere il sigillo della Grotta dell'Esilio")
            say("Ora vai, impugna la tua arma e combatti le forze del male")
            say("Che contaminano questa terra.")
            pc.removeitem( 30189, 1)
            pc.give_item2(30187, 1)
            set_state(Ematite)

        end
    end

    state Ematite begin

        when 20091.chat."Grotta dell'Esilio" with pc . get_map_index ( ) == 64 begin
    say_title ( "Seon-Pyeong:" )
    say ( "Ciao " .. pc.get_name() .. "" )
    say ( "Perchè sei giunto fin qui?" )
    wait()
    say_title ( "Seon-Pyeong:" )
    say ( "Dunque vorresti entrare nella Grotta dell'Esilio?" )
    say ( "Sai che nella Grotta dell'Esilio si nascondono mostri abnormi")
    say ( "E creature possenti e immortali..." )
    say ( "Per questo motivo per entrare devi essere almeno livello 75!" )
    say ( "E non solo! Devi dimostrarmi il tuo valore! Devi avere con te un'Ematite!" )
    say ( "Un mistico oggetto che solo i Guerrieri piu' forti hanno!" )
    say ( "Dunque,vuoi ancora entrare?" )
    local a = select ( "Si" , "No" )
    if a == 2 then
    say_title ( "Seon-Pyeong:" )
    say ( "Saggia decisione..." )
    return
    elseif a == 1 then
    if pc . get_level ( ) >= 75 then
    if pc . countitem ( "30190" ) > 0 then
    say_title ( "Seon-Pyeong:" )
    say ( "Hai tutti i requisiti necessari per entrare nella Grotta dell'Esilio!" )
    say ( "Adesso ti teleportero'..." )
    pc . removeitem ( "30190" )
    pc . warp ( 0 , 1203200 )
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non hai con te nessuna Ematite!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    else
    say_title ( "Seon-Pyeong:" )
    say ( "Non sei al livello adatto per entrare!" )
    say ( "Non posso far entrare chiunque! Torna quando potrai dimostrarmi il tuo valore!" )
    end
    end
    end


        when letter begin
            local v = find_npc_by_vnum(20095)
            if v != 0 then
                target.vid("__TARGET__", v, "?????")
            end
            send_letter("Hai Goccia di Sangue")
        end

        when button or info begin
            say_title("Torna da Seon-Hae:")
            say("Hai tutto l'occorrente per produrre l'Ematite.")


        end

        when __TARGET__.target.click or
            20095.chat."Goccia di Sangue" begin
            target.delete("__TARGET__")
            say_title("Seon-Hae:")
            say("Non credevo potessi davvero riuscire ad ottenere")
            say("La benedizione del magnanimo Baljit-Elvedin.")
            say("Solo pochi prescelti possono attirare la sua attenzione")
            wait()
            say("Ecco a te l'Ematite, una goccia cristallizzata del sangue")
            say("Di Bahar-Taraji.")
            say("Con questa potrai accedere alla Grotta dell'Esilio.")
            pc.removeitem( 30187, 1)
            pc.give_item2(30190, 1)
            pc.setqf("rifai_quest_time", get_time()+ 24*60*60)
            set_state( _COMPLETE_ )
        end

    end

    state _COMPLETE_ begin
    when login or levelup begin
    if pc.getqf ( "rifai_quest_time" ) >= get_time ( ) then
    set_state ( information )
    end
    end
    end
    end