Cod: Selectaţi tot

----------------------------------------------------
--COLLECT QUEST_lv30
--METIN2 Collecting Quest
----------------------------------------------------
quest collect_quest_lv30  begin
	state start begin
		when login or levelup with pc.level >= 30 begin
			set_state(information)
		end
	end
			
	state information begin
		when letter begin
			local v = find_npc_by_vnum(20084)
			if v != 0 then
				target.vid("__TARGET__", v, "Biologul Chaegirab")
			end
			send_letter("Cercetarile Biologului")
		end
					
		when button or info begin
			say_title("Cercetarile Biologului")
			say("")
			----"123456789012345678901234567890123456789012345678901234567890"|
			say("Biologul Chaegirab, ucenicul lui Uriel,")
			say("are nevoie de ajuorul tau.")
			say("")
			say("Grabeste-te si vorbeste cu el.")
			say("")
		end
		
		when __TARGET__.target.click or 20084.chat."Am nevoie de ajutorul tau!" begin
			target.delete("__TARGET__")
			say_title("Biologul Chaegirab:")
			----"123456789012345678901234567890123456789012345678901234567890"|
			say("")
			say("Salut!! Crezi ca ma poti ajuta ?")
			say("")
			say("Eu colectez informatii despre monstrii din regatul nostru")
			say("dar eu nu ma pot descurca pe cont propriu...")
			say("")
			say("Te rog ajuta-ma ! Si vei fi rasplatit pe masura!")
			say("")
			wait()
			say_title("Biologul Chaegirab:")
			say("")
			----"123456789012345678901234567890123456789012345678901234567890"|
			say("Acum fac studii pe orciile din Valea Seungryoung. Dintele")
			say("de orc este foarte dur, poate zdrobi orice.")
			say("")
			say("De aceea este foarte important pentru studiile mele.")
			say("")
			say("Teoria mea este ca noi avem legaturi cu orcii. Dintii de orc")
			say("ar putea fi o cheie spre evolutie.")
			say("")
			wait()
			say_title("Biologul Chaegirab")
			say("")
			----"123456789012345678901234567890123456789012345678901234567890"|
			say("Poti sa-mi faci rost de Dinti de orc ?")
			say("")
			say("Dar te rog adumi-le la un interval de timp, pentru a le")
			say("putea examina corespunzator. Mult noroc !")
			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 de orc")
		end
					
		when button or info begin
			say_title("Dintii de orc din Valea Seungryoung")
			----"123456789012345678901234567890123456789012345678901234567890"|
			say("")
			say("Biologul Chaegirab are nevoie de dintii de orc din")
			say("Valea Seungryoung pentru examinarea sa.")
			say("")
			say("Adu-i cate unu la un interval de timp, astfel incat el sa poate sa le examineze.")
			say("")
			say("")
			say_reward("Ai adus "..pc.getqf("collect_count").." dinti de orc.")
			say("")
		end
					
        	when 71035.use or 76020.use begin 
			if get_time() < pc.getqf("duration") then
				syschat("Nu poti folosi potiunea misiunii inca.")
				return
			end
			if pc.getqf("drink_drug")==1 then
				syschat("Deja ai folosit-o.")
				return
			end
			if pc.count_item(30006)==0 then
				syschat("Poti utiliza misiunea potiunii odata ce ai gasit un Dinte de orc.")
				return
			end
			item.remove()
			pc.setqf("drink_drug",1)
		end
		
		when 20084.chat."GM: Skip Delay Quest lv30" with pc.count_item(30006) >0 and pc.is_gm() and get_time() <= pc.getqf("duration") begin
			say(mob_name(20084))
			say("Esti GM, OK")
			pc.setqf("duration", get_time()-1)
			return
		end
		
		when 20084.chat."Dinte de Orc" with pc.count_item(30006) >0 begin
			if get_time() > pc.getqf("duration") then
				if  pc.count_item(30006) >0 then
					say_title("Biologul Chaegirab")
					---                                                   
					say("")
					say("Salutare! Mi-ai adus un Dinte de orc?")
					say("Trebuie sa-l verific mai intai...")
					say("Da-mi un minut.")
					say("")
					pc.remove_item("30006",1)
					pc.setqf("duration",get_time()+600) 
					wait()
					local pass_percent
					if pc.getqf("drink_drug")==0 then
						pass_percent=70
					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("Biologul Chaegirab")
							say("")
							say("Bravo! Acesta este foarte bun.")
							say("Te rog sa-mi mai aduci inca "..10-pc.getqf("collect_count").. " dinti de orc.")
							say("Am nevoie de mai  multi pentru a termina examinariile.")
							say("Iti doresc mult noroc !")
							say("")
							pc.setqf("drink_drug",0)
							return
						end
						say_title("Biologul Chaegirab:")
						say("")
						say("Ai colectat toti dintii de orc!")
						say("")
						say("Dar acum am nevoie de o piatra speciala, se numeste")
						say("Piatra Orcilor")
						say("")
						say("Poti sa faci rost de ea omorand Orci..")
						say("")
						pc.setqf("collect_count",0)
						pc.setqf("drink_drug",0)
						pc.setqf("duration",0)
						set_state(key_item)
						return
					else
						say_title("Chaegirab:")
						say("")
						say("Hum...Din pacate, aceasta nu-mi este de folos deloc.")
						say("Poti sa-mi faci rost de altul, nu-i asa?")
						say("")
						pc.setqf("drink_drug",0)
						return
					end
				else
					say_title("Chaegirab:")
					say("")
					say("Nu ai o "..item_name(30006).."!")
					return
				end
			else
				say_title("Chaegirab:")
				say("")
				---                                                   l
				local hoursleft = math.floor((pc.getqf("duration")-get_time()))
				say("Imi pare foarte rau...")
				say("Nu am analizat inca ultimul dinte pe care mi l-ai dat.")
				say("Te rog sa ai rabdare!...")
				say("in alte"..secondsleft.." secunde")
				say("")
				return
			end
		end
	end
			
	state key_item begin
		when letter begin
			send_letter("Cercetarile Biologului")
			if pc.count_item(30220)>0 then
				local v = find_npc_by_vnum(20084)
				if v != 0 then
					target.vid("__TARGET__", v, "")
				end
			end
		end
		
		when button or info begin
			if pc.count_item(30220) >0 then
				say_title("Piatra orcilor")
				say("")
				---                                                   l
				say_reward("Ai gasit Piatra orcilor")
				say_reward("Grabeste-te si spune-i Biologului")
				say_reward("El te asteapta.")
				say("")
				return
			end
			say_title("Piatra orcilor")
			say("")
			---                                                   l
			say("Ai colectat deja 10 dinti de orc.")
			say("Pentru examinarile sale Biologul Chaegirab")
			say("are nevoie si de Piatra Orcilor.")
			say("")
			say_item_vnum(30220)
			say("Du-i piatra biologului")
			say("cand ai gasit-o.")
			say("Poti face rost de piatra omorand "..mob_name(635)..", ")
			say(""..mob_name(636).." and "..mob_name(637)..".")
			say("")
		end
					
		when 635.kill or 636.kill or 637.kill  begin
			local s = number(1, 100)
			if s == 1 and pc.count_item(30220)==0 then
				pc.give_item2(30220, 1)
				send_letter("Ai gasit piatra orcilor!")
			end
		end
					
		when __TARGET__.target.click or 20084.chat."Am gasit Piatra Orcilor" with pc.count_item(30220) > 0  begin
			target.delete("__TARGET__")
			if pc.count_item(30220) > 0 then 
				say_title("Biologul Chaegirab")
				---                                                   l
				say("")
				say("Iti multumesc foarte mult!")
				say("Ca recompensa, voi ridica puterea ta interioara ..")
				say("Aceasta este o reteta secreta, care contine")
				say("informatii despre putere...")
				say("Dai-o lui Baek-Go, el va produce potiunea puterii.")
				say("Cu ajutorul tau am invatat o multime de lucruri despre orci.")
				say("")
				pc.remove_item(30220,1)
				set_state(__reward)
			else
				say_title("Biologul Chaegirab")
				say("Nu ai un "..item_name(30220).."!")
				say("")
				return
			end
		end
	end
			
	state __reward begin
		when letter begin
			send_letter("Reteta secreta")
			local v = find_npc_by_vnum(20018)
			if v != 0 then
				target.vid("__TARGET__", v, "Baek-Go")
			end
		end
	
		when button or info begin
			say_title("Rasplata de la Biolog")
			---                                                   l
			say("")
			say("Ca recompensa pentru Dintii de orc si Piatra orcilor")
			say("Biologul Chaegirab ti-a dat o reteta.")
			say("Dute la Baek-Go si el iti va crea")
			say("o potiune speciala.")
			say("")
		end
		
		when __TARGET__.target.click or 20018.chat."Reteta secreta"  begin
			target.delete("__TARGET__")
			say_title("Baek-Go:")
			say("")
			say("Lasa-ma sa ma uit")
			say("Deci, aceasta e reteta pe care Biologul ti-a dat-o?")
			say("Hmm, a crescut viteza de miscare. Nu-i rau nu-i asa??")
			say("Pentru interesul tau eu iti voi mai da si o cutie de Ebonita Rosie !!")
			say("")
			-----------                                                   l
			say_reward("Ca rasplata pentru misiunea Biologului Chaegirab")
			say_reward("ai primit +10 viteza de miscare")
			say("")
			say_reward("Acest efect este PERMANENT !")
			affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) -- 60Years
			pc.give_item2(50109)
			clear_letter()
			set_quest_state("collect_quest_lv40", "run")
			set_state(__complete)
		end
	end
	state __complete begin
	end
end

Cod: Selectaţi tot

----------------------------------------------------
--COLLECT QUEST_lv30
--METIN2 Collecting Quest
----------------------------------------------------
quest collect_quest_lv30  begin
   state start begin
      when login or levelup with pc.level >= 30 begin
         set_state(information)
      end
   end
         
   state information begin
      when letter begin
         local v = find_npc_by_vnum(20084)
         if v != 0 then
            target.vid("__TARGET__", v, "Biologul Chaegirab")
         end
         send_letter("Cercetarile Biologului")
      end
               
      when button or info begin
         say_title("Cercetarile Biologului")
         say("")
         ----"123456789012345678901234567890123456789012345678901234567890"|
         say("Biologul Chaegirab, ucenicul lui Uriel,")
         say("are nevoie de ajuorul tau.")
         say("")
         say("Grabeste-te si vorbeste cu el.")
         say("")
      end
      
      when __TARGET__.target.click or 20084.chat."Am nevoie de ajutorul tau!" begin
         target.delete("__TARGET__")
         say_title("Biologul Chaegirab:")
         ----"123456789012345678901234567890123456789012345678901234567890"|
         say("")
         say("Salut!! Crezi ca ma poti ajuta ?")
         say("")
         say("Eu colectez informatii despre monstrii din regatul nostru")
         say("dar eu nu ma pot descurca pe cont propriu...")
         say("")
         say("Te rog ajuta-ma ! Si vei fi rasplatit pe masura!")
         say("")
         wait()
         say_title("Biologul Chaegirab:")
         say("")
         ----"123456789012345678901234567890123456789012345678901234567890"|
         say("Acum fac studii pe orciile din Valea Seungryoung. Dintele")
         say("de orc este foarte dur, poate zdrobi orice.")
         say("")
         say("De aceea este foarte important pentru studiile mele.")
         say("")
         say("Teoria mea este ca noi avem legaturi cu orcii. Dintii de orc")
         say("ar putea fi o cheie spre evolutie.")
         say("")
         wait()
         say_title("Biologul Chaegirab")
         say("")
         ----"123456789012345678901234567890123456789012345678901234567890"|
         say("Poti sa-mi faci rost de Dinti de orc ?")
         say("")
         say("Dar te rog adumi-le la un interval de timp, pentru a le")
         say("putea examina corespunzator. Mult noroc !")
         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 de orc")
      end
               
      when button or info begin
         say_title("Dintii de orc din Valea Seungryoung")
         ----"123456789012345678901234567890123456789012345678901234567890"|
         say("")
         say("Biologul Chaegirab are nevoie de dintii de orc din")
         say("Valea Seungryoung pentru examinarea sa.")
         say("")
         say("Adu-i cate unu la un interval de timp, astfel incat el sa poate sa le examineze.")
         say("")
         say("")
         say_reward("Ai adus "..pc.getqf("collect_count").." dinti de orc.")
         say("")
      end
               
           when 71035.use begin 
         if get_time() < pc.getqf("duration") then
            syschat("Nu poti folosi potiunea misiunii inca.")
            return
         end
         if pc.getqf("drink_drug")==1 then
            syschat("Deja ai folosit-o.")
            return
         end
         if pc.count_item(30006)==0 then
            syschat("Poti utiliza misiunea potiunii odata ce ai gasit un Dinte de orc.")
            return
         end
         pc.remove_item(71035, 1)
         pc.setqf("drink_drug",1)
      end
		   when 76020.use begin 
         if get_time() < pc.getqf("duration") then
            syschat("Nu poti folosi potiunea misiunii inca.")
            return
         end
         if pc.getqf("drink_drug")==1 then
            syschat("Deja ai folosit-o.")
            return
         end
         if pc.count_item(30006)==0 then
            syschat("Poti utiliza misiunea potiunii odata ce ai gasit un Dinte de orc.")
            return
         end
         pc.remove_item(76020, 1)
         pc.setqf("drink_drug",1)
      end
      
      when 20084.chat."GM: Skip Delay Quest lv30" with pc.count_item(30006) >0 and pc.is_gm() and get_time() <= pc.getqf("duration") begin
         say(mob_name(20084))
         say("Esti GM, OK")
         pc.setqf("duration", get_time()-1)
         return
      end
      
      when 20084.chat."Dinte de Orc" with pc.count_item(30006) >0 begin
         if get_time() > pc.getqf("duration") then
            if  pc.count_item(30006) >0 then
               say_title("Biologul Chaegirab")
               ---                                                   
               say("")
               say("Salutare! Mi-ai adus un Dinte de orc?")
               say("Trebuie sa-l verific mai intai...")
               say("Da-mi un minut.")
               say("")
               pc.remove_item("30006",1)
               pc.setqf("duration",get_time()+600) 
               wait()
               local pass_percent
               if pc.getqf("drink_drug")==0 then
                  pass_percent=70
               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("Biologul Chaegirab")
                     say("")
                     say("Bravo! Acesta este foarte bun.")
                     say("Te rog sa-mi mai aduci inca "..10-pc.getqf("collect_count").. " dinti de orc.")
                     say("Am nevoie de mai  multi pentru a termina examinariile.")
                     say("Iti doresc mult noroc !")
                     say("")
                     pc.setqf("drink_drug",0)
                     return
                  end
                  say_title("Biologul Chaegirab:")
                  say("")
                  say("Ai colectat toti dintii de orc!")
                  say("")
                  say("Dar acum am nevoie de o piatra speciala, se numeste")
                  say("Piatra Orcilor")
                  say("")
                  say("Poti sa faci rost de ea omorand Orci..")
                  say("")
                  pc.setqf("collect_count",0)
                  pc.setqf("drink_drug",0)
                  pc.setqf("duration",0)
                  set_state(key_item)
                  return
               else
                  say_title("Chaegirab:")
                  say("")
                  say("Hum...Din pacate, aceasta nu-mi este de folos deloc.")
                  say("Poti sa-mi faci rost de altul, nu-i asa?")
                  say("")
                  pc.setqf("drink_drug",0)
                  return
               end
            else
               say_title("Chaegirab:")
               say("")
               say("Nu ai o "..item_name(30006).."!")
               return
            end
         else
            say_title("Chaegirab:")
            say("")
            ---                                                   l
            local hoursleft = math.floor((pc.getqf("duration")-get_time()))
            say("Imi pare foarte rau...")
            say("Nu am analizat inca ultimul dinte pe care mi l-ai dat.")
            say("Te rog sa ai rabdare!...")
            say("in alte"..secondsleft.." secunde")
            say("")
            return
         end
      end
   end
         
   state key_item begin
      when letter begin
         send_letter("Cercetarile Biologului")
         if pc.count_item(30220)>0 then
            local v = find_npc_by_vnum(20084)
            if v != 0 then
               target.vid("__TARGET__", v, "")
            end
         end
      end
      
      when button or info begin
         if pc.count_item(30220) >0 then
            say_title("Piatra orcilor")
            say("")
            ---                                                   l
            say_reward("Ai gasit Piatra orcilor")
            say_reward("Grabeste-te si spune-i Biologului")
            say_reward("El te asteapta.")
            say("")
            return
         end
         say_title("Piatra orcilor")
         say("")
         ---                                                   l
         say("Ai colectat deja 10 dinti de orc.")
         say("Pentru examinarile sale Biologul Chaegirab")
         say("are nevoie si de Piatra Orcilor.")
         say("")
         say_item_vnum(30220)
         say("Du-i piatra biologului")
         say("cand ai gasit-o.")
         say("Poti face rost de piatra omorand "..mob_name(635)..", ")
         say(""..mob_name(636).." and "..mob_name(637)..".")
         say("")
      end
               
      when 635.kill or 636.kill or 637.kill  begin
         local s = number(1, 100)
         if s == 1 and pc.count_item(30220)==0 then
            pc.give_item2(30220, 1)
            send_letter("Ai gasit piatra orcilor!")
         end
      end
               
      when __TARGET__.target.click or 20084.chat."Am gasit Piatra Orcilor" with pc.count_item(30220) > 0  begin
         target.delete("__TARGET__")
         if pc.count_item(30220) > 0 then 
            say_title("Biologul Chaegirab")
            ---                                                   l
            say("")
            say("Iti multumesc foarte mult!")
            say("Ca recompensa, voi ridica puterea ta interioara ..")
            say("Aceasta este o reteta secreta, care contine")
            say("informatii despre putere...")
            say("Dai-o lui Baek-Go, el va produce potiunea puterii.")
            say("Cu ajutorul tau am invatat o multime de lucruri despre orci.")
            say("")
            pc.remove_item(30220,1)
            set_state(__reward)
         else
            say_title("Biologul Chaegirab")
            say("Nu ai un "..item_name(30220).."!")
            say("")
            return
         end
      end
   end
         
   state __reward begin
      when letter begin
         send_letter("Reteta secreta")
         local v = find_npc_by_vnum(20018)
         if v != 0 then
            target.vid("__TARGET__", v, "Baek-Go")
         end
      end
   
      when button or info begin
         say_title("Rasplata de la Biolog")
         ---                                                   l
         say("")
         say("Ca recompensa pentru Dintii de orc si Piatra orcilor")
         say("Biologul Chaegirab ti-a dat o reteta.")
         say("Dute la Baek-Go si el iti va crea")
         say("o potiune speciala.")
         say("")
      end
      
      when __TARGET__.target.click or 20018.chat."Reteta secreta"  begin
         target.delete("__TARGET__")
         say_title("Baek-Go:")
         say("")
         say("Lasa-ma sa ma uit")
         say("Deci, aceasta e reteta pe care Biologul ti-a dat-o?")
         say("Hmm, a crescut viteza de miscare. Nu-i rau nu-i asa??")
         say("Pentru interesul tau eu iti voi mai da si o cutie de Ebonita Rosie !!")
         say("")
         -----------                                                   l
         say_reward("Ca rasplata pentru misiunea Biologului Chaegirab")
         say_reward("ai primit +10 viteza de miscare")
         say("")
         say_reward("Acest efect este PERMANENT !")
         affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) -- 60Years
         pc.give_item2(50109)
         clear_letter()
         set_quest_state("collect_quest_lv40", "run")
         set_state(__complete)
      end
   end
   state __complete begin
   end
end