[Questfiles] Quest By Zonni!

Zonni · 29 Listopada 2009

Witam wszystkich

Jestem w trakcie nauki pisania Questów do silnika gry Metin2 Dlatego będę umieszczał poszczególne moje prace w tym temacie...

Quest na 34 LVL

Opis : Mała dziewczynka Taurean jest smutna. Jej babcia* pomyślała że Indiańska Lalka ją pocieszy ( w końcu od dziecka o takiej marzyła ). Pomyślała że powinniśmy iść do Kowala alby ją dla nas uszył ( tak kochani... kowal umie szyć ). Musimy zebrać 10 futer białego tygrysa ( wypadają z białych tygrysów ). Wtedy nam kowal daje Indiańską Lalkę. Potem znajdujemy Taurean, dajemy jej lalkę ( UWAŻNIE RADZE CZYTAĆ CO MÓWI ). Potem idziemy do Starszej Pani po nagrodę ( zależy czy zapamiętaliśmy coś ) a wiec możemy dostać 600 Dużych Czerwonych Miksturek, Trzecią Rękę, 1kk Yang oraz 10k Expa lub tylko 10k Expa

*babcia - Starsza Pani (przyp. autora)

quest pociesz_dziewczynke begin
state run begin
       when login with pc.level<=34 begin
		set_state(informacje_o_zadaniu)
	end
end

state informacje_o_zadaniu begin
	when letter begin
		send_letter("Pociesz dziewczynkę")
	end

	when button or info begin
		say_title("Pociesz dziewczynkę")
			say("Posłuchaj... Mała Taurean jest smutna...")
			say("Nikt z rady wioski nie wie co mogło się stać,")
			say("Mam nadzieję że ty pomożesz nam rozwiązać tą zagadkę.")
			say("Na początek idź do jej Babci - Starszej Pani,")
			say("Może ona będzie wiedzieć jak ją pocieszyć.")
		set_state(idz_do_babci)
	end
end

state idz_do_babci begin
	when letter begin
		local v=find_npc_by_vnum(9006)
		if 0==v then
			else
				target.vid("__TARGET__", v, "Idź do Babci")
			end
		end
	end

	when letter begin
		send_letter("A więc jesteś")
	end

	when __TARGET__.target_click begin
			target_delete("__TARGET__")
		say("Starsza Pani:")
		say("A więc moja wnusia się załamała...")
		say("Jestem ciekawa co mogło być tego powodem")
		say("lecz wiem co może ją pocieszyc !!")
		say("I nawet wiem kto może wykonać dla niej zabawkę")
		say("o której marzyła od urodzenia.")
		say("Idź do kowala niech zrobi tobie Indiańską Lalkę")
		say("")
			local s = select("No jasne, że wam pomogę !!","Nie chce mi się")
			if s=1 then
				set_state(idz_do_kowala)
			else
				say("Masz racje... Siedź w mieście i obrastaj w tłuszcz...")
				say("")
				clear_letter
				q.done()
			end
	end
end

state idz_do_kowala begin
	when letter begin
		local v=find_npc_by_vnum(20016)
		if 0==v then
			else
				target.vid("__TARGET__", v, "Indiańska Lalka")
			end
		end
	end

	when letter begin
		send_letter("Indiańska Lalka")
	end

	when __TARGET__.target_click begin
			target_delete("__TARGET__")
		say("Heh... mam zrobić dla ciebie")
		say("tą lalkę tak ? no to potrzebuje")
		say("10 futer białego tygrysa")
		say("przyjdź do mnie jak je już będziesz mieć")
		say("")
		set_state(idziemy_zbierac_skory)
		pc.setqf("collect_count",0) 
		pc.setqf("drink_drug",0) 
	end
end	



state idziemy_zbierac_skory begin
	when letter begin
		send_letter("Musisz zebrac 10 futer")

	end
	when button or info begin
		say_title("Zbieraj Futra !!")
		---                                                   l
		say("")
		say("Otrzymałeś zadanie od Kowala.")
		say("Musisz przynieść 10 Futer Białego Tygrysa")
		say("Wypadają one z Białych Tygrysów")
		say("jak juz je znajdziesz daj je mi.")
		say("")
		say_item_vnum(30023)
		say_reward(" Musisz przynieść jeszcze".." "..pc.getqf("collect_count").." futer!")
		say("")
	end


	when 71035.use begin
	if pc.getqf("drink_drug")==1 then
			say("")
			say("¤w¸g¨IYÎ¤F1¦¸")
			say("")
	return
	end
	if pc.count_item(50701)==0 then
			say("Nic nie przyniosłeś!")
			say("Jeśli chcesz zabawkę to przynieś futra...")
			say("")
			return
	end
		item.remove()	
		pc.setqf("drink_drug",1)
	end

	when 115.kill begin
		if pc.count_item(30023)<20-pc.getqf("collect_count") then
			pc.give_item2(30023, 1)
		end
	end

   	when 20016.chat."Daj futro" with pc.count_item(30023) >0   begin
			say("Chwileczke ...")
			---                                                   l
			say("Dziękuję za przyniesienie futra")
			say("teraz sprawdze czy nada się do")
			say("uszycia z niego lalki")
			say("")
			pc.remove_item(30023, 1)
			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("Kowal:")
					say("Przyniosłeś futro dobrej jakości.")
					say("Zostało ci tylko ".." "..10-pc.getqf("collect_count").. " do przyniesienia!")
					say("Postaraj się!")
					say("")
					pc.setqf("drink_drug",0)
					return
				end
				say("Kowal:")
				say("Mam nadzieje że mała Taurean będzie szczęśliwa")
				say_reward("Otrzymales Indiańską Lalkę!")
				pc.setqf("collect_count",0)
				pc.setqf("drink_drug",0)	
				set_state(daj_lalke_dziewczynce)
				pc.give_item2(70016)

			else								
			say("Kowal:")
			say("Niestety to futro jest")
			say("wyliniałe. Musisz mi przynieść")
			say("nowe.")
			say("")
			pc.setqf("drink_drug",0)
			return
			end

end	

state daj_lalke_dziewczynce begin
      when letter begin
           local v=find_npc_by_vnum(20014)
           if 0==v then
           else
               target.vid("__TARGET__", v, "Znajdź Taurean")
           end
       end

       when letter begin
           send_letter("Znajdź Taurean !")
       end

       when button or info begin
           say_title("Masz lalkę")
           say("Teraz tylko znajdź dziewczynkę")
           say("i daj jej prezent")
		say("")
       end

       when __TARGET__.target.click begin
           target.delete("__TARGET__")
           say("Taurean :")
		say("Czy to je-e-e-est ??")
           say("To jest dla mnie ??")
		say("Dziękuję ci nieznajomy")
		say("Moja babcia ma coś dla ciebie")
		say("wystarczy że powiesz jej hasło")
		say("Sang-Chang-Mang")
		say("")
		pc.remove_item(70016) 
		set_state(idz_do_babcii)
	end
end	

state idz_do_babcii begin
	when letter begin
		local v=find_npc_by_vnum(9006)
		if 0==v then
		else
			target.vid("__TARGET__", v, "Nagroda !"
		end
	end

	when letter begin
		send_letter("Nagroda!")
	end

	when button or info begin
		say_title("Nagroda!")
		say("Idź do Starszej Pani i odbierz nagrode")
		say("")
	end

	when __TARGET__.target.click begin
           target.delete("__TARGET__")
           say("Starsza Pani :")

           say("Udało ci się")
           say("Dzięki tobie moja wnuczka znowu jest wesoła !!")
           say("Podała ci również hasło... Podaj mi je to otrzymasz nagrodę")
		local s = select("Sang-Chang-Mang","Mang-Chang-Sang")
			if s=1 then
				pc.give_exp2( 10000 )
				pc.change_money(1000000)
				pc.give_item2(71010)
				pc.give_item2(27003,200 )
				pc.give_item2(27003,200 )
				pc.give_item2(27003,200 )
				say_reward("Otrzymałeś 600 Czerwonych Miksturek")
				say_reward("Otwrzymałeś Trzecią Rękę")
				set_state(__COMPLETE__)
				clear_letter()
			else
				say("Szkoda że nie zapamiętałeś...")
				say("Ominęły cie wspaniałe nagrody !!")
				say("")
				pc.give_exp2( 10000 )
				clear_letter
				q.done()
				clear_letter()
				set_state(__COMPLETE__)
			end
       end
end	


state __COMPLETE__ begin
   end

end

Quest na LVL 15

Opis : Myśliwemu Yang-Shin podoba się sprzedawczyni tortów ryżowych Yu-Rang. Mamy doprowadzić aby byli razem poprzez danie kwiatów Yu-Rang.

Nagroda : Ebonitowy Naszyjnik +7

quest wszm_v1 begin
state run begin
	when login with pc.get_level() >= 15 then
		set_state(informacje)
	end
end

state informacje begin
	when letter begin
		send_letter("Pomóż mu powiedzieć jej...")
	end
	when button or info begin
		say_title("Pomóż mu powiedzieć jej...")
		say("Nasza wioska ma kolejny problem,")
		say("jeden z naszych myśliwych jest")
		say("nieszczęśliwy bo kocha pewną dziewczynę.")
		say("Pomóż mu powiedzieć jej co do niej czuje,")
		say("a wynagrodzi cie należycie.")
		set_state(idz_do_mysliwego)
	end	
end

state idz_do_mysliwego begin
         when letter begin
           local v=find_npc_by_vnum(20019)
           if 0==v then
           else
               target.vid("__TARGET__", v, "Kogo Kochasz ??")
           end
       end
       when letter begin
           send_letter("Kogo Kochasz ??")
       end
       when button or info begin
           say_title("Kogo Yang-Shin kocha ?")
           say("Idz do niego i pomóż mu a się dowiesz...")
           say("")
       end

       when __TARGET__.target.click begin
           target.delete("__TARGET__")
           say("Yang-Shin :")
           say("Posłuchaj mam problem... Zakochałem się")
           say("w pewnej dziewczynie. Ma na imię Yu-Rang.")
           say("Chciałbym z nią być lecz nie wiem jak...")
           say("Sądzę ze powinienem jej powiedzieć to prosto")
           say("w oczy, lecz potrzebuje kwiatów !!")
           say("Znajdź mi kwiaty a solidnie ciw wynagrodze...")
           say("Popmożesz mi ??")
		say("")
           local s = select("No jasne...","Niee... Nie lubie romantyzmu...")
           if s=1 then
               set_state(idz_po_kwiaty)
           else
               say("Pustak !!")
               say("")
               clear_letter()
               q.done()
           end
       end
   end

state idz_po_kwiaty begin
	when letter begin
		local v=fing_npc_by_vnum(20358)
		if 0==v then
		else
			targer.vid("__TARGET__", v, "Zerwij kwiaty")
		end
	end

	when letter begin
		send_letter("Zerwij kwiaty!")
	end
	when button or info begin
		say_title("Zerwij kiwaty!")
		say("Idź do krzewu i zerwij kwiaty")
		say("")
	end

	when __TARGET__.target.click begin
		target.delete("__TARGET__")
		say("Zerwałeś kwiaty")
		say("")
		pc.give_item2(30153)
		set_state(daj_je_jej_i_powiedz_ze_Yang_Shim_kocha_cie)
	end
end

state daj_je_jej_i_powiedz_ze_Yang_Shim_kocha_cie begin
	when letter begin
		local v=fing_npc_by_vnum(20012)
		if 0==v then
		else
			targer.vid("__TARGET__", v, "Daj kwiaty!")
		end
	end

	when letter begin
		send_letter("Daj kwiaty!")
	end
	when button or info begin
		say_title("Daj kwiaty !!")
		say("Daj kwiaty Yu-Rang i powiedz co")
		say("czuje do niej Yang-Shin")
		say("")
	end

	when __TARGET__.target.click begin
		target.delete("__TARGET__")
		say("Yang-Shin coś do mnie czuje ?")
		say("To się znakomicie składa !!")
		say("Ja też już od jakiegoś czasu")
		say("o nim myślałam... dzięki ci")
		say("")
		pc.remove_item(30153)
		set_state(wroc_po_nagrode)
	end
end

	state wroc_po_nagrode begin
	when letter begin
		local v=fing_npc_by_vnum(20012)
		if 0==v then
		else
			targer.vid("__TARGET__", v, "Odbierz nagrode!")
		end
	end

	when letter begin
		send_letter("Odbierz nagrode!")
	end
	when button or info begin
		say_title("Odbierz nagrode!")
		say("Odbierz nagrodę od Yang-Shin")
		say("")
	end

	when __TARGET__.target.click begin
		target.delete("__TARGET__")
		say("Yang-Shin:")
		say("Oto twoa nagroda... Trzymaj się...")
		say("")
		pc.give_item2(16107)
		say_reward("Dostałeś Ebonitowy Naszyjnik+7")
		set_state(__COMPLETE__)
	end
end


   state __COMPLETE__ begin
   end
end

Flipper · 29 Listopada 2009

Bardzo ładnie Widzę. że się postarałeś pisząc to patrząc na wielkość :P Ok powiedziałeś, że będziesz dodawał coraz to nowsze qesty Ja podpinam zobaczę co jutro powie na ten temat Mou

Pozdrawiam!

ravenonly · 29 Listopada 2009

No no .

Jestem nowy przy robieniu serwera...

Dopiero wczoraj z kolegą zrobiliśmy ..

I zapytam jak dodać takie questy?

raxon · 29 Listopada 2009

pprzez Ftp np Filezilla ro masz w poradniku jak sie połonyc

Zonni · 29 Listopada 2009

Jak można to prosiłbym o pisanie swoich pomysłów na Zadania w Metin2 a ja postaram się je zrealizować...

Spire · 1 Grudnia 2009

Napisz jeszcze jak wgrać te questy bo nie każdy wie

CiamCiaRamCia · 1 Grudnia 2009

no włąśćie

Dargon · 1 Grudnia 2009

Chciałem sprawdzić ten quest z lalka, bo myślałem o kilku new questach, więc wgrałem, lecz tego questa nie ma

mila1094 · 1 Grudnia 2009

wklej tresc questa do notatnika i zapisz jako lalka.quest i wyedytuj plik "hongkong_list" i dodaj do niego na samym końcu taką frazę : "lalka.quest" w nowej linijce bynajmniej tak mi się wydaje

Dargon · 1 Grudnia 2009

Myślisz że tak nie zrobiłem? ...

Spire · 1 Grudnia 2009

Tu jest napisane co trzeba zrobić po wgraniu questa :

http://www.mpcforum.pl/index.php?showtopic=69551&view=&hl=quest&fromsearch=1

rainbowek · 3 Grudnia 2009

Rób questy na większe lvle, np. zabij 5 ogrów rzeźników, w nagrodę dostaniesz jakąś szkate.

Pro^^Help^BoY · 3 Grudnia 2009

człowieku ty się prosisz o to żeby on robił Qesty na większe lvl to najpierw sam sprubuj i zobacz jakie trudne to jest przynajmiej 2 dni nad tym siedział jak nie więcej.

Spire · 3 Grudnia 2009

Jak można to prosiłbym o pisanie swoich pomysłów na Zadania w Metin2 a ja postaram się je zrealizować...

Zonni sam pisał ,żeby dawać pomysły więc nie spamuj -.-

Questy jak coś działają i NAWET ,NAWET się przydają :P

Zonni · 3 Grudnia 2009

ProHelpBoy... uczyłem sie je pisać aż 5 godzin A i tak nie umiem wszystkiego a przynajmniej nie tak jakbym chciał... jak mozecie dawajcie mi pomysły bo jestem kreatywny ale moja kreatywność jest skierowana w światło Insomnii A Questy dla MPC będę pisać dla przyjemności

Kodexior · 4 Grudnia 2009

Pomysł?

Oryginalny;)

Zabij 5 Tysięcznych Wojowników - Misja od Kapitana (80 LvL)

Tekst:

Niech zadziała wyobraźnia u Ciebie ;]

Nagroda:

Pomyślmy...

3 x Zielona Ebonitowa Szkatułka

1 x Złodziej Dusz +4

To moze być

Licze na twoją pomoc! Z góry dzięki

CiamCiaRamCia · 4 Grudnia 2009

kodexior dodaj jescze 5kk za fatyge.

TimeToSleep · 6 Grudnia 2009

hmmmm... ładna robota sam się biorę za robienie questów mogę nawet wrzucić tyle co zrobiłem (robie na podstawie twojego questa na 15 level (czyt. edytuje treść twojego questa) ).

quest Zadanie_Bojowe begin
       state run begin
               when login with pc.get_level() >= 5 then
                       set_state(informacje)
               end
       end

       state informacje begin
               when letter begin
                       send_letter("Zadanie Bowjowe")
               end
               when button or info begin
                       say_title("Zadanie Bojowe")
                       say("Witaj,")
                       say("dzielny poszukiwaczu przygód.")
                       say("Jesteś bardzo dobrym myśliwym, ale to")
                       say("nieznaczy, że jesteś najlepszy.")
                       say("A teraz idź i zabij 50 Głodnych")
                       say("Niebieskich Wilków")
                       set_state(........)
               end     
       end

       state ........ begin
         when letter begin
           local v=find_npc_by_vnum(.......)
           if 0==v then
           else
               target.vid("__TARGET__", v, ".......")
           end
       end
       when letter begin
           send_letter("........")
       end
       when button or info begin
           say_title("........")
           say(".........")
           say("")
       end

           else
               say("Pustak !!")
               say("")
               clear_letter()
               q.done()
           end
       end
   end

       state idz_po_kwiaty begin
               when letter begin
                       local v=fing_npc_by_vnum(......)
                       if 0==v then
                       else
                               targer.vid("__TARGET__", v, "......")
                       end
               end

               when letter begin
                       send_letter("......")
               end
               when button or info begin
                       say_title(".......")
                       say(".........")
                       say("")
               end

               when __TARGET__.target.click begin
                       target.delete("__TARGET__")
                       say(".........")
                       say("")
                       pc.give_item2(.....)
                       set_state(.............)
               end
       end


   state __COMPLETE__ begin
   end
end

i możesz mi powiedzieć czy zrobiłem jakieś błędy???

Zonni · 7 Grudnia 2009

zamień state run na state start begin, tam gdzie masz when button or info begin rozdziel to na 2 części 0 będzie fajniej - tzn optymalizacja kodu... reszta jest jak na moje oko OK, zdebuguj quest w FreeBSD przez sh make i zobacz czy ci jakieś błędy wyskoczą...

Aha... Kodexior moge ci zrobić tego questa ale nie takiego że masz cos zabić -.- żeby takie coś zrobić wystarczy edytować chyba 2 pliki ( levelup.quest i locale_big5.lua ) i z tym nie powineneś mieć problemu... Sorry ogólnie ze nie daje questów nowych ale cały mój wolny czas poświęcam na pisanie/spolszczanie questów do insomnii... czasu nie posiadam

Schittset · 11 Listopada 2010

Automatyczna wiadomość.

Ten temat został przeniesiony z forum:

"MMORPG -> Metin2 -> Metin 2 - Serwery Prywatne -> Metin2 - Tworzenie serwerów prywatnych"

do:

"MMORPG -> Metin2 -> Metin 2 - Serwery Prywatne -> Metin2 - Tworzenie serwerów prywatnych -> Metin2 - Tutoriale i Download".

Zaloguj się

👋 Witaj na MPCForum!

[Questfiles] Quest By Zonni!

Rekomendowane odpowiedzi

Zarchiwizowany