Cod: Selectaţi tot

    ----------------------------------------------------
    --COLLECT QUEST_lv30
    --METIN2 Collect Quest 
    ----------------------------------------------------
    quest roua_quest_lv30  begin
       state start begin
          when login or levelup with pc.level >= 230 and pc.level <= 250 begin
             set_state(information)
          end   
       end

       state information begin
          when letter begin
             local v = find_npc_by_vnum(20095)
             if v != 0 then
                target.vid("__TARGET__", v, "Roua Permanenta")
             end
             send_letter("Roua Permanenta")
          end

          when button or info begin
             say_title("Roua Permanenta:")
             say("Din cauza bugului la roua, si din cauza excessului")
             say("Am decis , sa  scoatem roua de pe")
             say("server. Fugi la Seon-Hae!")
             say("Si el iti va da bonusurile de la Roua maxima permanent..")
             say("")
          end
          
          when __TARGET__.target.click or
             20095.chat."Misiunea pentru pt roua permanenta" begin
             target.delete("__TARGET__")
             say_title("Seon-hae:")
             say("Oh!! Te rog ajuta-ma.")
             say("Adun informatii despre")
             say("monstrii din tinutul nostru, dar nu")
             say("ma pot ocupa singur.")
             say("Iti poti imagina ca eu, un")
             say("simplu batran, am")
             say("probleme in acest sens. Te rog,")
             say("ajuta-ma. Bineinteles ca vei primi")
             say("bonusurile de la roua PERMANENTE.")
             wait()
             say_title ( "Seon-Hae:" )
             say("In acest moment examinez" )
             say("orcii negri din Valea Seungryong.")
             say("Dintii lor sunt plini de calciu.")
             say("De aceea sunt asa de")
             say("interesanti pentru mine. Este posibil sa")
             say("fim legati de acesti orci")
             say("..Dintii pot fi o cheie")
             say("a evolutiei umane pentru noi toti!")
             say("")
             wait()
             say_title("Seon-Hae:")
             say("Poti sa-mi faci rost de niste")
             say("dinti? Dar am nevoie de")
             say("dinti speciali prin urmare fii foarte")
             say("atent..Poti sa-l folosesti pe prietenul meu")
             say("din apropiere in cazul in care nu-ti place sa vanezi")
             say("orcii..Dar cred ca te va costa foarte mult!")
             say("")                                                                                                                   
             set_state(go_to_disciple)
             pc.setqf("duration",0)
             pc.setqf("collect_count",0)
             pc.setqf("drink_drug",0)
          end
       end

       state go_to_disciple begin
          when letter begin
             send_letter("Dintii din Valea Seungryong")
             
          end
          when button or info begin
             say_title("Dintii din Valea Seungryong:")
             say("Seon-Hae are nevoie")
             say("de dintii de orc din Valea")
             say("Seungryong pentru cercetarile sale.")
             say("Adu-i mereu cate unul pe rand,")
             say("in asa fel incat sa aiba timp sa ii")
             say("examineze.")
             say("")
             say_item_vnum(30006)
             say_reward("Pana acum ai colectat".." "..pc.getqf("collect_count").." dinti de orc.")
             say("")
          end
          
          when 71035.use begin
             if get_time() < pc.getqf("duration") then
                say_title("Elixir:")
                say("Poti diminua timpul de asteptare daca vrei.")
                return
             end
             if pc.getqf("drink_drug")==1 then
                say_title("Elixir:")
                say("Poti diminua timpul de asteptare daca vrei.")

                return
             end
             if pc.count_item(30006)==0 then
                say_title("Seon-Hae:")
                say("Daca nu-mi aduci dintii de orc")
                say("cum imi voi termina")
                say("cercetarea? Gaseste-mi cativa!")
                say("")
                return
             end
             item.remove()   
             pc.setqf("drink_drug",1)
          end



          
          when 20095.chat."Ai un dinte de orc?" with pc.count_item(30006) >0   begin
             if get_time() > pc.getqf("duration") then
                say_title("Seon-Hae:")
                say("Humm...")
                say("Mi-ai adus un dinte de orc..")
                say("Sa ma uit o clipa.")
                say("")
                pc.remove_item("30006", 1)
                pc.setqf("duration",get_time()+0) -----------------------------------00??
                wait()
                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                   pass_percent=80
                else      
                   pass_percent=100
                end
                
                local s= number(1,100)
                if s<= pass_percent  then
                   if pc.getqf("collect_count")< 9 then
                      local index =pc.getqf("collect_count")+1
                      pc.setqf("collect_count",index)
                      say_title("Seon-Hae:")
                      say("Perfect aventurierule!")
                      say("Acest dinte de orc este potrivit pentru cercetarea mea.")
                                             say("")
                      say_reward("Trebuie sa-mi mai aduci".." "..10-pc.getqf("collect_count").. " dinti de orc!")
                      say("")
                      pc.setqf("drink_drug",0)
                      return
                   end
                   say_title("Seon-Hae:")
                   say("Excelent!!!")
                   say("Mi-am terminat cercetarea...")
                   say("Nu... Asteapta...")
                   say("Pentru a-mi termina cercetarea am nevoie")   
                   say("de Piatra sufletului Jununggyis.")
                   say("Ea pica la orci.")
                   say("")
                   pc.setqf("collect_count",0)
                   pc.setqf("drink_drug",0)   
                   pc.setqf("duration",0)
                   set_state(key_item)
                   return
                else                        
                say_title("Biologul Cheagirab:")
                say("Acest dinte nu este potrivit pentru")
                say("cercetarea mea.")
                say("Poti sa-mi aduci altul?")
                pc.setqf("drink_drug",0)
                return
                end
          else
            say_title("Seon-Hae:")
            say("Ah... Adu-ti aminte sa-mi aduci cate")
            say("un dinte pe rand!")
            say("In cazul in care aduci mai mult de un dinte, vei putea")
            say("sa-i aduni, dar iti voi lua")
            say("unul singur...Prin urmare fii atent!")
            return
          end

       end
    end


       state key_item begin
          when letter begin
             send_letter("Piatra Sufletului")
             
             if pc.count_item(30220)>0 then   
                local v = find_npc_by_vnum(20095)
                if v != 0 then
                   target.vid("__TARGET__", v, "Piatra Sufletului")
                end
             end

          end
          when button or info begin
             if pc.count_item(30220) >0 then
                say_title("Piatra Sufletului:")
                say("Acum ca ai adus toti dintii de orc")
                say("si ai gasit Piatra Sufletului")
                say("intoarce-te la Seon-Hae sa ")
                say("iti dea recompensa!")
                return
             end
             say_title("Piatra Sufletului:")
             say("Acum ca ai gasit toti cei ")
             say("zece dinti..Gaseste Piatra Sufletului")
             say("pentru a termina cercetarea.")
             say_item_vnum(30220)
             say("O vei gasi vanand orcii negri sau mereu")
             say("de la prietenul meu din apropiere.")
             say("")
          end
          

       
          when 635.kill or
              636.kill or
              637.kill  begin
             local s = number(1, 30)
             if s == 1 and pc.count_item(30220)==0 then
                pc.give_item2(30220, 1)
                send_letter("Am Piatra Sufletului")      
             end   
          end
       
          when __TARGET__.target.click  or
             20095.chat."Am Piatra Sufletului" with pc.count_item(30220) > 0  begin
             target.delete("__TARGET__")
             say_title ( "Seon-Hae:" )
             say ( "Acum ca ai gasit Piatra Sufletului" )
             say ( "pot intr-un final sa-mi termin" )
             say ( "cercetarea.Du-te sa iti ridici recompensa." )
             say ( "" )
             say_reward("Du-te la Beak-go.")
             pc.remove_item(30220,1)
             set_state(__reward)
          end
          
       end
       
       state __reward begin
          when letter begin
             send_letter("Gaseste-l pe Beak-go")
             
             local v = find_npc_by_vnum(20018)
             if v != 0 then
                target.vid("__TARGET__", v, "Beak-go")
             end

          end
          when button or info begin
             say_title("Gaseste-l pe Beak-go:")
             say("Ai gasit Piatra Sacra a Sufletului ..Minunat!")
             say("Acum nu-ti mai lipseste decat sa te duci sa-ti iei")
             say("recompensa..")
             say("")
             say_reward("Mergi la Beak-go si ia-ti recompensa.")
             say("")
          end
          
          when __TARGET__.target.click  or
             20018.chat."Recompensa Roua Permanenta"  begin
             target.delete("__TARGET__")
             say_title("Beak-go:")
             say("Mi-a spus Seon-Hae ca ai reusit")
             say("sa-i termini cercetarea")
             say("aducandu-i ce avea nevoie.")
             say("Te asteapta, prin urmare, o recompensa mare.")
             say("")
             say_title("Ca recompensa vei primi:")
             say_reward("Bonus Viteza de miscare +10% (Permanent).")
             say_reward("Bonus Viteza de atac +10% (Permanent).")
             say_reward("Valoarea atacului +120% (Permanent).")
             say_reward("Rezistenta la magie +10% (Permanent).")
             say_reward("Aparare +200% (Permanent).")
             say_reward("Sansa de lov. Critica +15% (Permanent).")
             say_reward("Sansa de lov. Patrunzatoare +15% (Permanent).")
             affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) --60¦~   
             affect.add_collect(apply.ATT_SPEED, 10, 60*60*24*365*60) --60¦~   
             affect.add_collect(apply.CRITICAL_PCT, 15, 60*60*24*365*60) --60¦~
             affect.add_collect(apply.PENETRATE_PCT, 15, 60*60*24*365*60) --60¦~   
             affect.add_collect(apply.ATT_GRADE_BONUS, 120, 60*60*24*365*60) --60¦~
             affect.add_collect(apply.DEF_GRADE_BONUS, 200, 60*60*24*365*60) --60¦~
             affect.add_collect(apply.RESIST_MAGIC, 10, 60*60*24*365*60) --60¦~
             pc.give_item2(50109, 1)
             clear_letter()
             set_state(__complete)
          end
       end
       state __complete begin
       end
    end