Questow.

Medalowy · 12 Stycznia 2014

Cześć, chciałbym was poprosić o 2 questy w sumie, to będą misje.

1. Misja od Seona ktorej zadaniem jest zdobyc 20 krysztalow.

Czas oddawania: 15min

Szansa: 100% na pomyslne oddanie.

Nagroda: 50k hp 20 na ludzi.

2. Misja od Seona.

Opis: Daje misję, w ktorej trzeba oddac 10 krwistych diamentow, za oddanie 1 jest nagroda w postaci +10 do wybranego ststusu, i tak za kazdym razem az do zakonczenia misji.

Czas oddawania: 30min

Szansa: 100%

Nagroda: 10 do wybranego statusu za oddanie 1.

Takke cos szybkiego a hamachi, limit +5. Do profilu za zdobienie.

PhoEnix licze na cb .

Phoenix. · 12 Stycznia 2014

1.

quest seon_pyeong_95 begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 95 begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Klejnot Zawisci")
			end
			send_letter("Znajdz Biologa")
		end

		when button or info begin
			say_title("Badanie Seon-Pyeonga")
			say("Seon-Pyeong przebywajacy w Dolinie Seungryong")
			say("potrzebuje Twojej pomocy. Udaj sie do niego")
			say("i zobacz co sie tam dzieje.")
		end
		
		when __TARGET__.target.click or
			20091.chat."Klejnot Zawisci" begin
			target.delete("__TARGET__")
			say_title("Seon-Pyeong:")
			say("Hej ty, dzielny wojowniku! Przyszedles w")
			say("odpowiednim momencie. Poszukuje wyjatkowego")
			say("rodzaju kamieni szlachetnych do moich badan nad")
			say("bronia. Moglbys mi pomoc? Niekture kreatury")
			say("zyjace w Grocie Wygnancow posiadaja te kamienie.")
			say("Ja, jednak jestem zbyt wazny i potrzebny, aby")
			say("ryzykowac zycie w takim miejscu")
			wait()
			say_title("Seon-Pyeong:")
			say("Potrzebuje teraz nieskazitelne Klejnoty Zawisci -")
			say("promieniujace pieknosci, ktore wystepuja tylko w")
			say("glebi tej gory. To wyjatkowe diamenty, ktore")
			say("przez dlugi czas byly poddane poteznemu")
			say("promieniowaniu zlego Boga Beran-Setaou i przejely")
			say("znikomy ulamek jego energii. Potrzebuje 20")
			say("Doskonalych kamieni. Powodzenia i do zobaczenia")
			say("wkrotce!")																																	  
			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("Poszukiwanie Klejnotow Zawisci")
			
		end
		when button or info begin
			say_title("Szlachetny Kamienie potrzebne do badan nad bronia")
			say("Bronmistrz oraz badacz, Seon-Pyeong, potrzebuje")
			say("10 Klejnotow Zawisci do swoich badan. Przynos je")
			say("pojedynczo, aby mogl przebadac je indywidualnie.")
			say("Zdobedziesz je u Podziemnych Lodowych Ludzi oraz")
			say("Podziemnych Lodowych Golemow.")
			say_item_vnum(30251) 
			say_reward("Do tej pory dostarczyles".." "..pc.getqf("collect_count").." klejnotow.")
			say("Powodzenia w Dalszych Poszukiwaniach")
		end
		when 1135.kill or 1137.kill begin
			local n = number(1, 200)
			if n == 1 and pc.count_item(70022)>=0 then
				game.drop_item(70022)
				chat("Otrzymałeś xxx, podnieś go.")
			end	
		end
    	when 20091.chat."Klejnoty do badan nad bronia" with pc.count_item(70022) >0   begin
			if get_time() > pc.getqf("duration") then
				say_title("Seon-Pyeong:")
				say("Znalazles Klejnoty? Fantastycznie! Poczekaj")
				say("chwileczke, musze sie upewnic...")
				pc.remove_item("70022", 1)
				pc.setqf("duration",get_time()+60*15)
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=100
				else		
					pass_percent=100
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 19 then
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)
						say_title("Seon-Pyeong")
						say("Och Cudownie!")
						say("Przyniosles Wlasciwy Klejnot...")
						say_reward("Pozostalo ".." "..20-pc.getqf("collect_count").. " Klejnotow do oddania")
						say("Dziekuje ci Poszukiwaczu!")
						say("Ruszaj po nastepne Klejnoty Zawisci!")
						pc.setqf("drink_drug",0)
						return
					end
					say_title("Seon-Pyeong:")
					say("To juz ostatni Klejnot, zebrales wszystkie 20.")
					say("Jestem Ci bardzo wdzieczny... i nie bede skąpy.")
					say("Dostajesz PŻ i ABS na ludzi.")
					affect.add_collect(apply.ATTBONUS_HUMAN, 50000, 60*60*24*365*60)
					affect.add_collect(apply.MAX_HP, 20, 60*60*24*365*60)
					set_state(__complete)
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)
					pc.setqf("duration",0)
				else								
				say("Niestety ten klejnot jest uszkodzony.")
				say("Przynies kolejny klejnot za 15 min.")
				say("Moze tym razem Ci sie poszczesci")
				say("Powodzenia!")
				say("Pozostalo".." "..20-pc.getqf("collect_count").. " klejnotow do oddania")
				pc.setqf("drink_drug",0)
				return
			end
		else
		  say("Nie mozesz w tej chwili")
		  say("Oddac Klejnotu Zawisci")
		  say("Nie skonczylem jeszcze badac poprzedniego")
		  say("Badania powinny mi zajac okolo 15 min.")
		  say("Wroc za ten czas!")
		  return
		end

	end
end
	state __complete begin
	end
end

2.

quest seon_pyeong_92 begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 92 begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Klejnot Zawisci")
			end
			send_letter("Znajdz Biologa")
		end

		when button or info begin
			say_title("Badanie Seon-Pyeonga")
			say("Seon-Pyeong przebywajacy w Dolinie Seungryong")
			say("potrzebuje Twojej pomocy. Udaj sie do niego")
			say("i zobacz co sie tam dzieje.")
		end
		
		when __TARGET__.target.click or
			20091.chat."Klejnot Zawisci" begin
			target.delete("__TARGET__")
			say_title("Seon-Pyeong:")
			say("Hej ty, dzielny wojowniku! Przyszedles w")
			say("odpowiednim momencie. Poszukuje wyjatkowego")
			say("rodzaju kamieni szlachetnych do moich badan nad")
			say("bronia. Moglbys mi pomoc? Niekture kreatury")
			say("zyjace w Grocie Wygnancow posiadaja te kamienie.")
			say("Ja, jednak jestem zbyt wazny i potrzebny, aby")
			say("ryzykowac zycie w takim miejscu")
			wait()
			say_title("Seon-Pyeong:")
			say("Potrzebuje teraz nieskazitelne Klejnoty Zawisci -")
			say("promieniujace pieknosci, ktore wystepuja tylko w")
			say("glebi tej gory. To wyjatkowe diamenty, ktore")
			say("przez dlugi czas byly poddane poteznemu")
			say("promieniowaniu zlego Boga Beran-Setaou i przejely")
			say("znikomy ulamek jego energii. Potrzebuje 10")
			say("Doskonalych kamieni. Powodzenia i do zobaczenia")
			say("wkrotce!")																																	  
			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("Poszukiwanie Klejnotow Zawisci")
			
		end
		when button or info begin
			say_title("Szlachetny Kamienie potrzebne do badan nad bronia")
			say("Bronmistrz oraz badacz, Seon-Pyeong, potrzebuje")
			say("10 Klejnotow Zawisci do swoich badan. Przynos je")
			say("pojedynczo, aby mogl przebadac je indywidualnie.")
			say("Zdobedziesz je u Podziemnych Lodowych Ludzi oraz")
			say("Podziemnych Lodowych Golemow.")
			say_item_vnum(70364) 
			say_reward("Do tej pory dostarczyles".." "..pc.getqf("collect_count").." klejnotow.")
			say("Powodzenia w Dalszych Poszukiwaniach")
		end
		when 1135.kill or 1137.kill begin
			local n = number(1, 200)
			if n == 1 and pc.count_item(70364)>=0 then
				game.drop_item(70364)
				chat("Otrzymałeś xxx, podnieś go.")
			end	
		end
    	when 20091.chat."Klejnoty do badan nad bronia" with pc.count_item(70364) >0   begin
			if get_time() > pc.getqf("duration") then
				say_title("Seon-Pyeong:")
				say("Znalazles Klejnoty? Fantastycznie! Poczekaj")
				say("chwileczke, musze sie upewnic...")
				pc.remove_item("70364", 1)
				pc.setqf("duration",get_time()+60*30)
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=100
				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-Pyeong")
						say("Och Cudownie!")
						say("Przyniosles Wlasciwy Klejnot...")
						say_reward("Pozostalo ".." "..10-pc.getqf("collect_count").. " Klejnotow do oddania")
						say("Dziekuje ci Poszukiwaczu!")
						say("Ruszaj po nastepne Klejnoty Zawisci!")
						say("Wybierz dodatkowy bonus do statystyk:")
						local s == select("CON", "INT", "STR", "DEX")
							if s == 1 then
								affect.add_collect(apply.CON, 10, 60*60*24*365*60)
							end
							if s == 2 then
								affect.add_collect(apply.INT, 10, 60*60*24*365*60)
							end
							if s == 3 then
								affect.add_collect(apply.STR, 0, 60*60*24*365*60)
							end
							if s == 4 then
								affect.add_collect(apply.DEX, 10, 60*60*24*365*60)
							end
						pc.setqf("drink_drug",0)
						return
					end
					say_title("Seon-Pyeong:")
					say("To juz ostatni Klejnot, zebrales wszystkie 10.")
					set_state(__complete)
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)
					pc.setqf("duration",0)
				else								
				say("Niestety ten klejnot jest uszkodzony.")
				say("Przynies kolejny klejnot za 30 min.")
				say("Moze tym razem Ci sie poszczesci")
				say("Powodzenia!")
				say("Pozostalo".." "..10-pc.getqf("collect_count").. " klejnotow do oddania")
				pc.setqf("drink_drug",0)
				return
			end
		else
		  say("Nie mozesz w tej chwili")
		  say("Oddac Klejnotu Zawisci")
		  say("Nie skonczylem jeszcze badac poprzedniego")
		  say("Badania powinny mi zajac okolo 30 min.")
		  say("Wroc za ten czas!")
		  return
		end

	end
end
	state __complete begin
	end
end

Mogłem gdzieś walnąć błąd, to daj znać jak coś.

Poza tym zmień sobie treść say'ów (nazwy/ID itemów, mobów...) na swoje.

Medalowy · 17 Stycznia 2014

Do zamknięcia, powód wyżej

Zaloguj się

👋 Witaj na MPCForum!

Questow.

Rekomendowane odpowiedzi

Medalowy

Medalowy

Phoenix.

Phoenix.

Medalowy

Medalowy

Zarchiwizowany