[Tut] Kilka Questów

TheSzczepan44 · 26 Września 2010

Kamień dający różne możliwości

http://hotfile.com/dl/71916380/ec2a225/FunKamie.rar.html

Quest Biolog od 40 lvl do 80

http://hotfile.com/dl/71950884/02ebd17/Questy_Biolog.rar.html

Pierścień dający range skille itp questa należy wgrać do folderu object 80009

say ( "Witaj" ) 
say ( "Masz Do wyboru Opcje Wybierz Jaka Ci sie Podoba !" ) 
say ( "" ) 
wait ( ) 
local s = select ( "Wróć_Do_Miasta" ,"Idź _Do_Atlantydy" , "Idź _do_Czer. Las" , "Idź _Do_V2" , "Bossy" , "Koń I Ranga" , "Skile" , "Poli_Moby" , "Anuluj" ) 
if 1 == s then 
say_title ("Zostaniesz Przeniesiony")
say ("Trzymaj się Mocno")
wait ()
local empire = pc . get_empire ( ) 
if empire == 1 then 
pc . warp ( 474300 , 954800 ) 
elseif empire == 2 then 
pc . warp ( 63800 , 166400 ) 
elseif empire == 3 then 
pc . warp ( 959900 , 269200 )
end


elseif 2 == s then 
say_title ("Zostaniesz Przeniesiony")
say ("Trzymaj się Mocno")
wait ()
local empire = pc . get_empire ( ) 
if empire == 1 then
pc.warp ( 9800 , 1215100 )
elseif empire == 2 then 
pc.warp ( 9800 , 1215100 )
elseif empire == 3 then 
pc.warp ( 9800 , 1215100 )
end




elseif 3 == s then 
say_title ("Zostaniesz Przeniesiony")
say ("Trzymaj się Mocno")
wait ()
local empire = pc . get_empire ( ) 
if empire == 1 then 
pc.warp ( 1119900 , 70800 )
elseif empire == 2 then 
pc.warp ( 1119900 , 70800 )
elseif empire == 3 then 
pc.warp ( 1119900 , 70800 )
end


elseif 4 == s then
say_title ("Zostaniesz Przeniesiony")
say ("Trzymaj się Mocno")
wait () 
local empire = pc . get_empire ( ) 
if empire == 1 then 
pc.warp ( 704100 , 464100 )
elseif empire == 2 then 
pc.warp ( 704100 , 464100 )
elseif empire == 3 then 
pc.warp ( 704100 , 464100 )
end

elseif 5 == s then
say ( "Cześć" )
say ( "Wybierz Jednego Z tych Bossów" )
say ("Lub Wybierz Opcje Powrotu Do Noralnej Postaci ")
local s = select ( "Reaper" ,"Ogni.Krol" , "Eli.Krol.Demo." , "Tysięczny Woj" , "Wroc_Do_Normalnej_Postaci." )
say ("Czy Napewno Chcesz Kontynuowac?")
local scelta = select ( "Tak","Nie" ) 
if scelta==1 then
pc.polymorph ( 1093, 80 )
elseif scelta==2 then
say ( "Nie To Nie Łaski Bez" )
return
end 



if 2 == s then
pc.polymorph ( 2206, 90 )
end 


if 3 == s then
pc.polymorph ( 1092, 80 )
end 


if 4 == s then
pc.polymorph ( 1403, 80 )
end 

if 5 == s then
pc.polymorph ( 1, 1 )
end 



elseif 6 == s then
say ( "Cześć" )
say ( "Czy Chcesz Dostać Konia lvl 21 I Range Rycerski??" )
local scelta = select ( "Tak","Nie" )
if scelta==1 then
pc . set_skill_level ( 131 , 10 )
horse.set_level ( 21 )
pc.change_alignment ( 200000 )
elseif scelta==2 then
say ("Nie to Nie laski Bez ")
return
end 

elseif 7 == s then
say_title ( "Cześć" )
say ( "Czy chcesz wbić wszystkie skille na P??" )
local s = select ( "Tak" , "Nie" )
if 2 == s then
say ("Nie To Nie Łaski Bez ")
return
end
say ( "Otrzymałeś Wszystkie Skille P" )
if pc . get_job() == 0 and pc . get_skill_group()==1 then
pc . set_skill_level (1, 59)
pc . set_skill_level (2, 59)
pc . set_skill_level (3, 59)
pc . set_skill_level (4, 59)
pc . set_skill_level (5, 59)
elseif pc . get_job()==0 and pc . get_skill_group()==2 then
pc . set_skill_level (16, 59)
pc . set_skill_level (17, 59)
pc . set_skill_level (18, 59)
pc . set_skill_level (19, 59)
pc . set_skill_level (20, 59)
elseif pc . get_job()==1 and pc . get_skill_group()==1 then
pc.set_skill_level(31, 59)
pc.set_skill_level(32, 59)
pc.set_skill_level(33, 59)
pc.set_skill_level(34, 59)	
pc.set_skill_level(35, 59)
elseif pc . get_job()==1 and pc . get_skill_group()==2 then
pc.set_skill_level(46, 59)
pc.set_skill_level(47, 59)
pc.set_skill_level(48, 59)
pc.set_skill_level(49, 59)
pc.set_skill_level(50, 59)	
elseif pc . get_job()==2 and pc . get_skill_group()==1 then
pc.set_skill_level(61, 59)
pc.set_skill_level(62, 59)
pc.set_skill_level(63, 59)
pc.set_skill_level(64, 59)
pc.set_skill_level(65, 59)
pc.set_skill_level(66, 59)	
elseif pc . get_job()==2 and pc . get_skill_group()==2 then
pc.set_skill_level(76, 59)
pc.set_skill_level(77, 59)
pc.set_skill_level(78, 59)
pc.set_skill_level(79, 59)
pc.set_skill_level(80, 59)
pc.set_skill_level(81, 59)	
elseif pc . get_job()==3 and pc . get_skill_group()==1 then
pc.set_skill_level(91, 59)
pc.set_skill_level(92, 59)
pc.set_skill_level(93, 59)
pc.set_skill_level(94, 59)
pc.set_skill_level(95, 59)
pc.set_skill_level(96, 59)
elseif pc . get_job()==3 and pc . get_skill_group()==2 then
pc.set_skill_level(106, 59)
pc.set_skill_level(107, 59)
pc.set_skill_level(108, 59)
pc.set_skill_level(109, 59)
pc.set_skill_level(110, 59)
pc.set_skill_level(111, 59)
end

elseif 8 == s then
say ( "Cześć" )
say ( "Wybierz Jakiego Moba Chcesz Sie Zamienic," )
say ( "Lub Wybierz Opcje Powrotu Do Normalnej Postaci " )
local s = select ( "Silny Dziki Sluga" ,"Dziki Pies" , "Goo-Pae" , "Podly Demoni Zolnierz" , "Niebianski Zolnierz" , "Wroc_Do_Normalnej_Postaci." )
say ("Czy Napewno Chcesz Kontynuowac?")
local scelta = select ( "Tak","Nie" ) 
if scelta==1 then
pc.polymorph ( 552, 80 )
elseif scelta==2 then
say ( "Nie To Nie Łaski Bez" )
return
end 


if 2 == s then
pc.polymorph ( 101, 90 )
end 


if 3 == s then
pc.polymorph ( 493, 80 )
end 


if 4 == s then
pc.polymorph ( 1031, 80 )
end 


if 5 == s then
pc.polymorph ( 2401, 80 )
end 


if 6 == s then
pc.polymorph ( 1, 1 )
end 

pc . setqf ( "next_time" , get_time ( ) + 3600 ) 
elseif 9 == s then 
say ( "Może Innym razem" ) 
say ( "" ) 
end

Quest dający co dusza zapragnie

say ( "Witaj" )
say ( "Chcesz otworzyc sklep?" )
say ( "Wybierz jaki chcesz" )
say ( "" )
local s = select ( "Bronie" ,"Zbroje" ,"EQ" ,"Szkaty" ,"Anuluj" )

if 1 == s then
npc.open_shop( "Id sklepu" )
end

if 2 == s then
npc.open_shop( "Id sklepu" )
end

if 3 == s then
npc.open_shop( "Id sklepu" )
end

if 4 == s then
npc.open_shop( "Id sklepu" )
end

if 5 == s then
say ( "Nie to nie" )
say ( "" )
return
end

Quest dający itemy typu hwang

say_title ( "Witaj" )
say ( "Chcesz eq ta?" )
say ( "" )
say ( "Wybierz Swoja klase" )
local s = select ( "Wojownik" ,"Ninja" ,"Sura" ,"Shaman" )

if 1 == s then
pc.give_item2 ( 11971 )
pc.give_item2 ( 219 )
pc.give_item2 ( 3159 )
pc.give_item2 ( 2529 )
pc.give_item2 ( 14209 )
pc.give_item2 ( 15249 )
pc.give_item2 ( 16209 )
pc.give_item2 ( 17209 )
end

if 2 == s then
pc.give_item2 ( 11972 )
pc.give_item2 ( 4049 )
pc.give_item2 ( 2199 )
pc.give_item2 ( 2529 )
pc.give_item2 ( 14209 )
pc.give_item2 ( 15249 )
pc.give_item2 ( 16209 )
pc.give_item2 ( 17209 )
end

if 3 == s then
pc.give_item2 ( 11973 )
pc.give_item2 ( 289 )
pc.give_item2 ( 2529 )
pc.give_item2 ( 14209 )
pc.give_item2 ( 15249 )
pc.give_item2 ( 16209 )
pc.give_item2 ( 17209 )
end

if 4 == s then
pc.give_item2 ( 11974 )
pc.give_item2 ( 7199 )
pc.give_item2 ( 5149 )
pc.give_item2 ( 2529 )
pc.give_item2 ( 14209 )
pc.give_item2 ( 15249 )
pc.give_item2 ( 16209 )
pc.give_item2 ( 17209 )
end

Quest przywołujący Bossy

say ( "Witaj" )
say ( "" )
say ( "Chcesz kogos przywolac?" ) 
say ( "UWAGA!! ON PRZYWOLA SIE KOLO URIEL!" )
say ( "Wybierz kogo chcesz przywolac" )
local s = select ( "Riper" ,"Nieb.Smierc" ,"9 ogonow" ,"Anuluj" )

if 1 == s then
mob.spawn( 1093, 658, 550, 0, 0, 0 )
chat( "Potwor zostal przywolany!" )
chat( "Przy Urielu" )
end 

if 2 == s then
mob.spawn( 1095, 658, 550, 0, 0, 0 )
chat( "Potwor zostal przywolany!" )
chat( "Przy Urielu" )
end

if 3 == s then
mob.spawn( 1901, 658, 550, 0, 0, 0 )
chat( "Potwor zostal przywolany!" )
chat( "Przy Urielu" )
end

if 4 == s then
return
end

Quest Main quest Lvl1

----------------------------------
--      Main Quest LV1
--      Glowny Quest LV1         
----------------------------------
quest main_quest_lv1 begin
       state start begin
               when login or levelup with pc.get_level() == 1 begin
                       set_state( gotoinfomation )
               end
       end
       state gotoinfomation begin
               when letter begin
                       send_letter("Witamy w twoja nazwa serwera")
               end
               when button or info begin
                       say_title("Witamy w twoja nazwa serwa")

                       ----"12345678901234567890123456789012345678901234567890"|
                                               say ( "Witamy na serwerze twoja nazwa serwera," )
                                               say ( "na start dostaniesz:" )
                                               pc . change_money ( kasa na start )
                                               horse.set_level ( lvl konia na start )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_item2 ( "item na start" , 1 )
                                               pc . give_exp2 ( exp na start )
                                               say_reward ( "Dostales 300kk yang" )
                                               say_reward ( "Dostales Militara" )
                                               say_reward ( "Dostales Stalke" )
                                               say_reward ( "Dostales exp" )
                                               say("")
                                               set_state( gototeacher )
                                       end
                               end

       state gototeacher begin
               when letter begin
                       local v=find_npc_by_vnum(20354)
                       if 0==v then
                       else
                               target.vid("__TARGET__", v, "Znajdz Straznika Miejskiego")
                       end
               end
               when letter begin
                       send_letter("Witamy w Metin2!")
               end
               when button or info begin
                       say_title("Znajdz Straznika Miejskiego")
                       say("")
                       ----------"12345678901234567890123456789012345678901234567890"|
                       say_reward("Porozmawiaj ze Straznikiem Miejskim.")
                       say_reward("Znajdz NPC,na ktorego wskazuje strzalka i na")
                       say_reward("niego kliknij.Jesli nie widzisz zadnego NPC,")
                 say_reward("podazaj za czerwonym znaczkiem na Mini-mapie.")
                       say("")
               end
               when __TARGET__.target.click begin
                       target.delete("__TARGET__")
                       say("Straznik Miejski:")

                       ----"12345678901234567890123456789012345678901234567890"|
                       say("Jestes nowy?Widze,ze nie zrobili jeszcze z")
                       say("ciebie zolnierza.")
                       say("Miales wogole juz jakis")
                       say("trening?Spojrz na siebie!")
                       say("Wiesz w ogole jak uzyc broni?Sluchaj!")
                       say("Musimy byc czujni,jesli chcemy przetrwac na")
                       say("tej wojnie.Dopoki nie osiagniesz 10 poziomu")
                       say("bede ci pomagal.Nie bedzie latwo!Ruszaj!")

                       say("")
                       wait()
                       say("Teraz idz i naucz sie podstaw! :")
                       say("Kiedy osiagniesz wyzszy poziom,przyjdz do")
                       say("wioski i ze mna porzmawiaj")
                       say("Czemu jeszcze tu stoisz?")
                 say("Za samo stanie w miejscu nie dostaje sie Punktow")
                 say("Doswiadczenia")  
                       say("")
                       clear_letter()

                       set_quest_state("find_squareguard", "find")
                       set_quest_state("main_quest_lv2","run")
                       set_state( __COMPLETE__ )
               end
       end
       state __COMPLETE__ begin
       end
end

Quest na wierzchowce

----------------------------------------------
-- Wierzchowce Menu Quest by TheSzczepan4
----------------------------------------------
quest wierzchowce begin
   state start begin
       when 70045.use begin
           say_title("Hey ".. pc.get_name() ..".")
           say("Na jakim zwierzaku chcesz pojeździc?")
           local s = select("Lew","Dzik","Tygrys","Wilk","Wyjdź")
       if s == 1 then
           say_reward("Dostałeś lwa!")
           pc.mount(39912)
           end
       if s == 2 then
           say_reward("Dostałeś dzika!")
           pc.mount(39913)
           end
       if s == 3 then
           say_reward("Dostałeś tygrysa!")
           pc.mount(39914)
           end
       if s == 4 then
           say_reward("Dostałeś wilka!")
           pc.mount(39915)
           end
       end
   end
end

Quest na Grotę

------------------------------
--Koe Pung Quest
--Grota Wygnańców
------------------------------
quest grota_wygnancow begin
state start begin
	when 20093.chat."Chcę Wejść " begin
		say_title("Koe-Pung:")
			local wstep =
				"Witaj,[ENTER]Mogę Cię przenieść do Groty Wygnańców,"..
				"Lecz musisz mi ukazać Krwisty Kamień."
			say(wstep)

				local wybor = select("Przekaż Krwisty Kamień ",
									 "Anuluj")

						if wybor == 2 then 
							return
						elseif wybor == 1 then
							local brak_kamienia =
								"Wybacz ale nie posiadasz Krwistego Kamienia."
							local kamien_akceptowany =
								"Posiadasz Krwisty Kamień "..
								"Zostaniesz Przeniesiony!"
							local krwisty_kamien = ID_KRWISTEGO_KAMIENIA
							local x = 100*100
							local y = 12078*100
								if pc.count_item(krwisty_kamien) > 0 then
								say_title("Koe-Pung:")
									say(kamien_akceptowany)
									pc.remove_item(krwisty_kamien, 1)
									pc.warp(x,y)
								else
								say_title("Koe-Pung:")
									say(brak_kamienia)
									npc.lock()
								end
						end
	end
end
end

Quest na Zbroję

--Quest na Stalke
-- LV 76
----------------------------------------------------

quest stalka_dla_ciebie begin
       state start begin
               when login or levelup with pc.level >= 70 and pc.level <= 80 begin
                       set_state(information)
               end

       end

       state information begin
               when letter begin

                       local v = find_npc_by_vnum(20020)

                       if v != 0 then
                               target.vid("__TARGET__", v, "Słyszałem że masz dla mnie ciekawą zbroje...")
                       end
               end

               when __TARGET__.target.click or
                       20020.chat."Zbroja dla mnie ??" with pc.level >= 80 begin
                       target.delete("__TARGET__")

                       say("Taaakk... Miałem dla ciebei coś takiego...")
                       say("Niech pomyślę...")
                       say("A tak kowal właśnie ją ma !")
                       say("Miał w niej cos ulepszyć")
                       say("Mam tylko najdzieje że jej znowu nie spali ")
                       say("Idź do niego i zobacz jak mu idzie ")
                       say("")
                       set_state(zapytaj_o_zbroje)


               end
       end


       state zapytaj_o_zbroje begin
               when letter begin
                       send_letter("Idź do Kowala")
               end

               when letter begin
                       local v=find_npc_by_vnum(20016)
                       if 0== v then
                       else
                               target.vid("__TARGET__",v,"¸ß°ÝŃÂÎ")
                       end

               end

               when info or button begin
                       say(locale.NOTICE_COLOR.."Zbroja"..locale.NORMAL_COLOR)
                       say("To jak masz dla mnie tą zbrojkę ?")
                       say("")
               end

               when __TARGET__.target.click or 
                       20016.chat."Masz zbroje ?" begin
                       target.delete("__TARGET__")
                       say("No... takjakby")
                       say("Bo widzisz... ")
                       say("Nie chciało mi się szukać czegoś")
                       say("Musisz lecieć do Starszej Pani spytać się czy ma")
                       say("Futro wilka !")
                       say("")

                       set_state(starsza_pani)
               end
       end
               end


       state starsza_pani begin
               when letter begin
                       send_letter("Futro wilka dla Kowala")

                       local v=find_npc_by_vnum(9006)
                       if 0==v then
                       else
                               target.vid("__TARGET__",v," Futro Wilka")
                       end
               end

               when info or button begin
                       say(locale.NOTICE_COLOR.."Futro wilka dla Kowala"..locale.NORMAL_COLOR)
                       say("No mam ")
                       say("")
               end

               when __TARGET__.target.click or
                       9006.chat." Futro Wilka" begin
                       target.delete("__TARGET__")
                       say("Po co temu staremu prykowi moje futro...")
                       say("Eh... ten mój mały napaleniec...")
                       say("Ależ proszę młody awanturniku oto futro wilka")
                       pc.give_item2("30027", 1)
                       say("")
                       set_state(wracamy_do_kowala)
               end
       end
       state wracamy_do_kowala begin
               when letter begin
                       send_letter("Wracamy do kowala")

                       local v=find_npc_by_vnum(20016)
                       if 0==v then
                       else
                               target.vid("__TARGET__",v," Wracamy do kowala")
                       end
               end

               when info or button begin
                       say(locale.NOTICE_COLOR.."Futro wilka dla Kowala"..locale.NORMAL_COLOR)
                       say("No mam ")
                       say("")
               end

               when __TARGET__.target.click or
                       20016.chat."Zbrojka" begin
                       if pc.count_item("30027") >= 1 then
                       target.delete("__TARGET__")
                       say("Szybko się z tym uwinąłeś młody :P")
                       say("Masz tutaj swoją wymarzoną zbroję...")
                       pc.remove_item("30027")
                       pc.give_item2("11290", 1)
                       say("")
                       set_state(__GIVEUP__)
                       clear_letter()  
                       set_state(__COMPLETE__)
               end

       end

               state __GIVEUP__ begin
       end

       state __COMPLETE__ begin
       end
end

I to tyle liczę na dobre komentarze

Schittset · 27 Września 2010

Dodaj skany ;]

Schittset · 27 Września 2010

Automatyczna wiadomość.

Ten temat został przeniesiony z forum:

"MMORPG -> Metin2 -> Metin 2 - Serwery Prywatne"

do:

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

Kyrene · 27 Września 2010

Schittset, jesteś świetny! Pliki tekstowe i skan do literek?! Kocham pseudo moderatorów tego forum. Co z tego, że wymaga tego regulamin? ;f W pliku tekstowym Satility się kryje?

Pierwsze cztery to skrypty do (sic!) object, a nie questy :f

Kwasiarz · 27 Września 2010

Questy niczego sobie, ale wrzuć na inny hosting niż na hotfile. -.-

Z niego mi na złość ściąga 10x wolniej niż z innych...

:.Bialy_miS.: · 27 Września 2010

Doyy... cośtam

To jakie ty masz łacze że =0 mb ( pewnie kilka kb ) ściąga ci tak wolno ?

moim zdaniem kilka questów, było lecz mały zbiór się przyda.

TheSzczepan44 · 27 Września 2010

nom skanów nie dam niestety bo to sa pliki tekstowe nie żadne programy a za dobre komety dziekuje dziś poszukam jeszcze inne

Vizorg · 27 Września 2010

Wielkie dzięki,questy mi się bardzo przydadzą

Oczywiście dla Cb. lecą + i 5

Pozdrawiam.

TheSzczepan44 · 27 Września 2010

dziękuje lecz nie musisz dawać mi + i -

globasek · 27 Września 2010

Mogles podac do jakies sciezki sie wkleja je ..

D&G · 27 Września 2010

Chłopie, takie olbrzymie teksty chowamy w spojlery, bo tak nie potrzebnie ładuje strone i spowalnia innym działanie.

TheSzczepan44 · 27 Września 2010

D&G następnym razem pomyślę i thx za pouczenie

PolandLongju · 27 Września 2010

To jest moje nowe konto ponieważ zablokowali mi pisanie postów do 11 pazdziernika

PolandLongju · 27 Września 2010

subquest_04.quest

---------------------------------------------------- --MAKE HERB LV4 --METIN2 Herb Quest ---------------------------------------------------- quest make_herb_lv4 begin state start begin when login or levelup with pc.get_level() ==4 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, "ĄÍŞ«ľÇŞĚ±ç¬f¦~") end send_letter("Analiza Biologa") end when button or info begin say_title("Analiza Biologa") say("") say("Biolog Chaegirab,uczen Uriela,") say("wlasnie Cie szukal.Prosze idz") say("do niego i zaoferuj swoja pomoc.") say("") end when __TARGET__.target.click or 20084.chat."˝Đ±zĹĄĹĄ§ÚŞş¸Ü§a." begin target.delete("__TARGET__") say("Biolog Chaegirab:") --- l say("Niebiosa,prosze pomozcie mi...") say("Badam wszystkie rodzaje roslin w tym ") say("imperium.Jest bardzo duzo rzeczy,") say("ktore musza zostac zrobione.Nie mam") say("czasu abym mogl sam wybrac sie na wyprawe.") say("Prosze,pomoz mi.") wait() say("Aktualnie badam Kwiaty Brzoskwini.") say("Musze przeprowadzic kilka eksperymentow,") say("dlatego potrzebuje kilku Kwiatow.") say("Czy moglbys przyniesc mi 5 Kwiatow Brzoskwini?") say("Prosze,pomoz mi!Zawsze przynos mi po jednym,") say("abym mial czas na ich dokladne przebadanie!") say("") set_state(go_to_disciple) pc.setqf("collect_count",0) pc.setqf("drink_drug",0) end end state go_to_disciple begin when letter begin send_letter("Zadanie specjalne!") end when button or info begin say_title("Znajdz Kwiaty Brzoskwini") --- l say("") say("Biolog Chaegirab,uczen Uriela,") say("szuka Kwiatow Brzoskwini.") say("Zawsze przynos mu po jednym,aby mial czas") say("na ich dokladne przebadanie.") say("Kwiatow szukaj u Glodnych Alfa Wilkow.") say("") say_item_vnum(50701) say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Kwiatow Brzoskwini.") say("") end when 71035.use begin --°g´bĂÄ¤ô if pc.getqf("drink_drug")==1 then say("") say("¤w¸g¨ĎĄÎ¤F1¦¸") say("") return end if pc.count_item(50701)==0 then say("ĄÍŞ«ľÇŞĚ±ç¬f¦~:") say("Ąý§ä¨ěçŞáĄH«á,") say("¤~¨ĎĄÎ°g´bĂÄ¤ô¤]¤Ł·|¦ł°ÝĂD.") say("") return end item.remove() pc.setqf("drink_drug",1) end when 173.kill begin if pc.count_item(50701)<5-pc.getqf("collect_count") then pc.give_item2(50701, 1) end end when 20084.chat."Kwiaty Brzoskwini" with pc.count_item(50701) >0 begin say("Biolog Chaegirab") --- l say("Oh!!Znalazles!") say("Pozwol,ze rzuce okiem...") say("Jeszcze chwilke.") say("") pc.remove_item(50701, 1) wait() local pass_percent if pc.getqf("drink_drug")==0 then pass_percent=90 else pass_percent=100 end local s= number(1,100) if s<= pass_percent then if pc.getqf("collect_count")< 4 then --5ÓĄH¤U local index =pc.getqf("collect_count")+1 pc.setqf("collect_count",index) --¨ú±o¤@ÓÉ +1 say("Biolog Chaegirab") say("Oh!!Ten Kwiat jest doskonalej jakosci!") say("Przynies mi jeszcze".." "..5-pc.getqf("collect_count").. " Kwiatow Brzoskwini.") say("Prosze,sprobuj je znalezc!") say("") pc.setqf("drink_drug",0) --ĂÄ¤ôŞěl¤Ć return end say("Biolog Chaegirab") say("Oh,zebrales juz wszystkie?") say("Dobra robota...") say("Jako dowod mojej wdziecznosci otrzymasz") say("troche Yang i wynik moich prac.") say("Nagroda:") say_reward("Jako nagrode,Biolog Chaegirab dal ci 500") say_reward("Punktow Doswiadczenia,1000 Yang oraz Bron+3") pc.setqf("collect_count",0) pc.setqf("drink_drug",0) clear_letter() set_state(__complete) if pc.job==3 then pc.give_item2(07003) say_reward("Wachlarz+3") return else pc.give_item2(00013) say_reward("Miecz+3") end pc.change_money(1000) pc.give_exp2(500) set_quest_state("levelup","run") else say("Biolog Chaegirab") say("Bardzo mi przykro,ale ten Kwiat jest zlej") say("jakosci.Prosze,przynies mi nastepny.") say("") pc.setqf("drink_drug",0) --ĂÄ¤ôŞěl¤Ć return end end end state __complete begin end end

change_empire.quest

quest change_empire begin state start begin when 20090.chat."Imperium" with game.get_event_flag("c_e") >0 begin local count = pc.get_change_empire_count() ; if count >= 1 then say("Nie możesz zmienić Imperium") say("") return end say_reward("Imperium") say("") say("Wybierz jedno z królestw") say("Przywódca Gildii nie może zmienić królestwa") say("Najpierw usuń gildie.") say("Jeżeli jestes zamężny/ zamężna musisz wziąsć rozwód") say("Koszt rozwodu to 500.000 Yang.") say("") say("Napewno Chcesz Zmienić Imperium?") say("") local s = select("Zmień Imperium", "Nie Zmieniaj Imperium") if s == 1 then change_empire.move_pc() end end when 71054.use begin say("Zmiana Imperium powiodła się") say("Władcy Nowego Imperium Zapraszają") if get_time() < pc.getqf("next_use_time") then say("Nie możesz jeszcze zmienić Imperium.") say("") if pc.is_gm() then say("Czy chcesz może usunać rame czasową?") say("Jesli to uczynisz będziesz mógł") say("zmienić Królestwo od razu.") say("") local s = select("Tak, chce zresetować.", "Rozmysliłem się.") if s == 1 then say_reward("Zlecono reset czasu.") say_reward("Możesz już zmienić Królestwo.") pc.setqf("next_use_time", 0) end end return end if change_empire.move_pc() == true then pc.setqf("next_use_time", get_time() + 86400 * 7) end end function move_pc() if pc.is_engaged() then say("Jestes zamężny/ zamężna, ") say("Nie możesz zmienić królestwa.") say("") return false end if pc.is_married() then say("Jestes zamężny/ zamężna,") say("Nie możesz zmienić królestwa.") say("") return false end if pc.is_polymorphed() then say("Jestes przemieniony") say("Nie możesz zmienić królestwa.") say("") return false end if pc.has_guild() then say("Jestes w Gildii.") say("Nie możesz zmienić królestwa.") say("") return false end if pc.money < 500000 then say("Nie masz wystarczającej ilosci Yang") say("żeby dokonać przeniesienia potrzebujesz 500k Yang.") say("") return false end say("Dokonaj wyboru:") local s = select("Shinsoo", "Chunjo", "Jinno", "Anuluj") if 4==s then return false end say("") say_reward("Napewno chcesz zmienić Imperium?") say_reward("Po zmianie nie ma Odwrotu!") say("") local a = select("Zmień", "Nie Zmieniaj") if 2== a then return false end local ret = pc.change_empire(s) local oldempire = pc.get_empire() if ret == 999 then say("Pomyslnie zmieniłes Imperium.") say("Proszę się wylogować i zalogować ponownie") say("") pc.change_gold(-500000) pc.remove_item(71054) ; char_log(0, "CHANGE_EMPIRE",string.format("%d -> %d", oldempire, s)) return true else if ret == 1 then say("Jestes w tym Imperium.") say("Wybierz Imperium powtórnie") say("") say("") elseif ret == 2 then say("Zmiana nie jest możliwa") say("Nie możesz zmienić Imperium, niedawno odeszłes z Gildii") say("") say("") elseif ret == 3 then say("Zmiana nie jest możliwa") say("Nie możesz zmienić Imperium, niedawno byłas/es mężatką/ żonaty.") say("") end end return false end end end

find_squareguard.quest

quest find_squareguard begin state start begin end state run begin when login with pc.level<=5 begin set_state(find) end end state find begin when letter begin if pc.get_empire()==1 then find_npc_vnum = 11000 elseif pc.get_empire()==2 then find_npc_vnum = 11002 elseif pc.get_empire()==3 then find_npc_vnum = 11004 end local v=find_npc_by_vnum(find_npc_vnum) if 0==v then else target.vid("__TARGET__", v, "Udaj sie do Straznika!") end end when letter begin send_letter("Straznik Wsi") end when button begin say(locale.NOTICE_COLOR.." Informacja:"..locale.NORMAL_COLOR) say("Idz do centrum wsi i porozmawiaj ze Straznikiem.") end when info begin say(locale.NOTICE_COLOR.." Informacja:"..locale.NORMAL_COLOR) say("Idz do centrum wsi i porozmawiaj ze Straznikiem.") end when __TARGET__.target.click begin target.delete("__TARGET__") say(locale.NOTICE_COLOR.." Straznik Wsi:"..locale.NORMAL_COLOR) say("Witaj w naszej wiosce,awanturniku!") say("Czy moglbys wyswiadczyc mi przysluge?") say("Jezeli dam ci 200 Yang,moglbys pojsc do") say("Handlarki Roznosci i kupic dla mnie Czerwona") say("Miksture? Ja niestety musze tu stac. Jezeli nie") say("wiesz gdzie znalezc Handlarke,popatrz na") say("Mini-Mape. ") say("") local b=select("Akceptuj", "Odrzuc") if 1==b then say(locale.NOTICE_COLOR.." Informacja:"..locale.NORMAL_COLOR) say_reward("Otrzymales 200 Yang od Straznika Wsi.") say_reward("Idz do Handlarki Roznosci i kup Czerwona") say_reward("Miksture. Za odpowiednia ilosc Yang mozesz kupic") say_reward("w sklepie rozne przedmioty.") pc.changemoney(200) set_state(buy) elseif 2==b then else say("UNKNOWN BUTTON ["..b.."]") end end end state buy begin when letter begin local v=find_npc_by_vnum(9003) if 0==v then else target.vid("__TARGET__", v, "Handlarka Roznosci") end end when letter begin send_letter("Kup Czerwona Miksture") end when button or info begin say(locale.NOTICE_COLOR.." Informacja:"..locale.NORMAL_COLOR) say_reward("Kup Czerwona Miksture u Handlarki i zanies ja do") say_reward("Straznika Wsi. ") end when 11000.chat."Gdzie moge kupic Czerwona Miksture?" begin say(locale.NOTICE_COLOR.." Straznik Wsi:"..locale.NORMAL_COLOR) say("Mozesz ja kupic u Handlarki Roznosci.") say("Jej lokalizacje wskazuje Mini-Mapa.") end when 11002.chat." Gdzie moge kupic Czerwona Miksture?" begin say(locale.NOTICE_COLOR.." Straznik Wsi:"..locale.NORMAL_COLOR) say("Mozesz ja kupic u Handlarki Roznosci.") say("Jej lokalizacje wskazuje Mini-Mapa.") end when 11004.chat." Gdzie moge kupic Czerwona Miksture?" begin say(locale.NOTICE_COLOR.." Straznik Wsi:"..locale.NORMAL_COLOR) say("Mozesz ja kupic u Handlarki Roznosci.") say("Jej lokalizacje wskazuje Mini-Mapa.") end when __TARGET__.target.click begin target.delete("__TARGET__") say(locale.NOTICE_COLOR.." Handlarka Roznosci"..locale.NORMAL_COLOR) say("Witaj awanturniku!") say("Oh! Straznik Wsi Cie przyslal?") say("Potrzebuje Czerwonej Mikstury?") say("Dam ci 5 Mikstur.") say("Prosze bardzo. Sluza one do regeneracji") say("Punktow Zycia (PZ) i smakuja calkiem niezle.") say("") wait() say(locale.NOTICE_COLOR.." Handlarka Roznosci"..locale.NORMAL_COLOR say("Mozesz byc poczatkujacy,ale ja ufam,") say("ze staniesz sie wkrotce stalym klientem.") say("Dlatego teraz te Mikstury sa za darmo.") say("Zapraszam ponownie.") wait() say(locale.NOTICE_COLOR.." Informacja:"..locale.NORMAL_COLOR) say_reward("Otrzymales 5 Czerwonych Mikstur od Handlarki") say_reward("Roznosci.") say_reward("Czerwone Mikstury sluza do regeneracji Puntkow") say_reward("Zycia (PZ).") pc.give_item2("27001", 5) set_state(deliver) end end state deliver begin when letter begin if pc.get_empire()==1 then find_npc_vnum = 11000 elseif pc.get_empire()==2 then find_npc_vnum = 11002 elseif pc.get_empire()==3 then find_npc_vnum = 11004 end local v=find_npc_by_vnum(find_npc_vnum) if 0==v then else target.vid("__TARGET__", v, "Udaj sie do Straznika!") end end when letter begin send_letter("Wroc do Straznika Wsi") end when button or info begin say(locale.NOTICE_COLOR.." Informacja"..locale.NORMAL_COLOR) say("Wroc do Straznika Wsi i daj mu jego Mikstury") end when __TARGET__.target.click with pc.countitem("27001")<1 begin target.delete("__TARGET__") say("Dziekuje Ci bardzo za dostarczenie") say("mi mikstur handlarki Roznosci!") say("Nie wiem co bym bez Ciebie zrobil!") say("Jako podziekowanie zatrzymaj") say("reszte pieniedzy!!!") set_quest_state("find_skillteacher", "find") set_state(__COMPLETE__) end when __TARGET__.target.click with pc.countitem("27001")>=1 begin target.delete("__TARGET__") say(locale.NOTICE_COLOR.." Straznik Wsi"..locale.NORMAL_COLOR) say("Dziekuje za Miksturke!") say("Dobrze,ze nie musze teraz opuszczac stanowiska.") say("Chcesz wiedziec po co tu jestem?") say("Przekazuje uzyteczne informacje. Ale czasami") say("rowniez oferuje pomoc,na przyklad jesli ktos") say("jest scigany przez potwora. Ale przede wszystkim") say("jestem odpowiedzialny za Gildie. Jesli ktoregos") say("dnie bedziesz chcial zalozyc wlasna gildie,daj") say("znac!") wait() say("Przy okazji,nauczyciele o Ciebie pytali.") say("Powinienes sie z nimi spotkac") say("Oh,prawie zapomnialem! Jako dowod mojej") say("wdziecznosci,mozesz zatrzymac reszte pieniedzy.") say("Do zobaczenia wkrotce.") if pc.countitem("27001")>=1 then pc.removeitem("27001", 1) local r=number(1, 3) if r==1 then pc.give_item2("14000", 1) elseif r==2 then pc.give_item2("16000", 1) elseif r==3 then pc.give_item2("17000", 1) end end set_quest_state("find_skillteacher", "find") clear_letter() set_state(__COMPLETE__) end end state __COMPLETE__ begin end end

guild_manage.quest

quest guild_manage begin state start begin when guild_man1.chat."GM: Czas rozwiazania Gildii." or guild_man2.chat."GM: Czas rozwiazania Gildii." or guild_man3.chat."GM: Czas rozwiazania Gildii." with pc.is_gm() begin say_title("Straznik Wsi:") --###################################################### say("Wpisz nazwe uzytkownika, ktorego chcesz sprawdzic.") say_reward("Uzytkownik musi byc aktywny w grze") local u_name = input() local u_vid=find_pc_by_name(u_name) if u_vid==0 then say_title("Straznik Wsi:") say_title("Akutalnie uzytkownik jest niedostepny.") say(u_name) return end local old_vid = pc.select(u_vid) u_withdrawTime=pc.getqf("new_withdraw_time") u_disbandTime=pc.getqf("new_disband_time") pc.select(old_vid) withdrawDelay=game.get_event_flag("guild_withdraw_delay") disbandDelay=game.get_event_flag("guild_disband_delay") say_title("Straznik Wsi:") say("Oto szczegolowe dane dotyczace uzytkownika:") say("") if u_withdrawTime>0 then say("Data opuszczenia Gildii:") say_title(""..time_to_str(u_withdrawTime)) say("Ponowne dolaczenie bedzie mozliwe za: "..withdrawDelay.." dni.") say("") end if u_disbandTime>0 then say("Data rozwiazania Gildii:") say_title(""..time_to_str(u_disbandTime)) say("Ponowne zalozenie bedzie mozliwe za: "..disbandDelay.." dni.") say("") end local retryTime1 = u_withdrawTime + withdrawDelay*86400 local retryTime2 = u_disbandTime + disbandDelay*86400 local retryTime = 0 if retryTime1 > retryTime2 then retryTime = retryTime1 else retryTime = retryTime2 end local curTime = get_time() if curTime < retryTime then say("Dolaczenie do Gildii albo jej Utworzenie mozliwe:") --###################################################### say_title(""..time_to_str(retryTime)) say("Czyli za około "..((retryTime-curTime)/3600).." godzin.") say("") if is_test_server() then local s=select("Tak", "Anuluj") if s==1 then local old_vid = pc.select(u_vid) local curTime=get_time() pc.setqf("new_withdraw_time", curTime-withdrawDelay*86400) pc.setqf("new_disband_time", curTime-disbandDelay*86400) pc.select(old_vid) end end else say("") say("Uzytkownik może utworzyc Gildie") say("albo dolaczyc do juz istniejacej."); say("") end end when guild_man1.chat."GM: stowarzyszenie" or guild_man2.chat."GM: stowrzarzysznie" or guild_man3.chat."GM: stowarzyszenie" with pc.is_gm() begin test_chat("pc.has_guild: "..bool_to_str(pc.has_guild())) test_chat("pc.is_guildmaster: "..bool_to_str(pc.isguildmaster())) test_chat("pc.empire: "..pc.empire) test_chat("npc.empire: "..npc.empire) end when guild_man1.chat.locale.guild.withdraw or guild_man2.chat.locale.guild.withdraw or guild_man3.chat.locale.guild.withdraw with pc.hasguild() and not pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin -- ?? say(locale.guild.withdraw_confirm) local s = select(locale.guild.yes, locale.guild.no) if s==1 then say(locale.guild.withdraw_msg) pc.remove_from_guild() pc.setqf("new_withdraw_time",get_global_time()) end end when guild_man1.chat.locale.guild.disband or guild_man2.chat.locale.guild.disband or guild_man3.chat.locale.guild.disband with pc.hasguild() and pc.isguildmaster() and (pc.is_gm() or npc.empire == pc.empire) begin -- ?? say(locale.guild.disband_confirm) local s = select(locale.guild.yes, locale.guild.no) if s==1 then say(locale.guild.disband_msg) pc.destroy_guild() pc.setqf("new_disband_time",get_global_time()) pc.setqf("new_withdraw_time",get_global_time()) end end when guild_man1.chat."Zaloz Gildie" or guild_man2.chat."Zaloz Gildie" or guild_man3.chat."Zaloz Gildie" with (pc.is_gm() or npc.empire == pc.empire) begin local level_limit; local guild_create_item if get_locale() == "euckr" then level_limit = 40 guild_create_item = false else level_limit = 30 guild_create_item = false end if pc.hasguild() then return end if game.get_event_flag("guild_withdraw_delay")*86400 > get_global_time() - pc.getqf("new_withdraw_time") then say_title("Staznik Wsi:") say(string.format("Musisz odczekac dni: %d by moc zalozyc Gildie.", game.get_event_flag("guild_withdraw_delay"))) return end if game.get_event_flag("guild_disband_delay")*86400 > get_global_time() - pc.getqf("new_disband_time") then say(string.format("trzeba rozpuscic towrzyszsta %d dni ustalic inne gidla", game.get_event_flag("guild_disband_delay"))) return end say(locale.guild.create_confirm) local s = select(locale.guild.yes, locale.guild.no) if s == 2 then return end if pc.level >= level_limit then if pc.gold >= 200000 then if not guild_create_item or pc.countitem(guild_create_item)>0 then game.request_make_guild() else say(locale.guild.no_guild_create_item) end else say(locale.guild.create_not_enough_money) end else say(locale.guild.not_enough_leadership) end end end end

horse_exchange_ticket.quest

quest horse_exchange_ticket begin state start begin when 20349.chat."Jazda Konna(uzyj biletu)" with pc.countitem("50005")>=1 begin say("Czy chcesz wykorzystac swoj bilet,na jazde") say("konna? Ze wzgledu na twoje umiejetnosci") say("mozesz pojezdzic przez 10minut.") say("") local b=select("Jazda na Koniu", "Nie jezdzij") if 1==b then if pc.countitem("50005")>=1 then pc.removeitem("50005", 1) pc.give_item2("50050", 1) say("Prosze oto kon,ale dobrze go traktuj") end elseif 2==b then else say("UNKNOWN BUTTON ["..b.."]") end end end state __COMPLETE__ begin when enter begin q.done() end end end

subquest_09.quest

---------------------------------------------------- -- SUB QUEST -- LV 16 -- LV16 ---------------------------------------------------- quest subquest_9 begin state start begin when login or levelup with pc.level >= 16 and pc.level <= 21 begin set_state(information) end end state information begin when letter begin local v = find_npc_by_vnum(20016) if v != 0 then target.vid("__TARGET__", v, "Udaj sie do Kowala") end end when __TARGET__.target.click or 20016.chat."Udaj sie do Kowala" with pc.level >= 16 begin target.delete("__TARGET__") say("Kowal:") say("Znasz mojego przyjaciela Deokbae?") say("Obiecalem ze zrobie mu Zloty Topor,") say("i zrobilem. Lecz wczoraj sprytnie") say("Zaprzysiezony Zolniez wkradl sie") say("do mojego domu i go ukradl! Czy") say("mozesz mi pomoc i odnalezc go?") say("") local s=select("Pomoge Ci","Nie mam czasu!") if 2==s then say("Czy jestes tego pewien?") local a=select("Tak","Nie") if 2==a then say("Kowal:") say("Jezeli bys zmienil zdanie,") say("przyjdz do Mnie!") say("Do zobaczenia.") return end say("Dziekuje ze chcesz mi pomoc!Uwazaj ") say("na nich, czasem sa niebezpieczni") set_state(__GIVEUP__) return end say("Kowal:") say("Pomoz mi, a wynagrodze Ci to") say("doswiadczeniem i Yangami") say("") set_state(hunt_for_goldenaxe) end end state hunt_for_goldenaxe begin when letter begin setskin(NOWINDOW) makequestbutton("Znajdz Zloty Topor") q.set_title("Znajdz Zloty Topor") q.start() end when info or button begin say(locale.NOTICE_COLOR.."Znajdz Zloty Topor"..locale.NORMAL_COLOR) say("Zaprz. Zolniez ukradl Topor Kowala") say("musisz go znalezc") say("") end when 301.kill begin local s = number(1, 100) if s <= 5 and pc.count_item("30102")==0 then pc.give_item2("30102", 1) send_letter("Znalazles Zloty Topor" ) local v=find_npc_by_vnum(20016) if 0==v then else target.vid("__TARGET__",v,"Zanies Kowalowi Topor") end end end when 20016.chat." łoŞ÷ň.." begin target.delete("__TARGET__") if pc.count_item("30102") >= 1 then say("Kowal:") say("Dziekuje Ci za znalazienie Toporu!") say("Prosze, oto twoja nagroda") say("") pc.remove_item("30102", 1) pc.give_exp2(36000) pc.change_money(10000) pc.give_item2("30031", 1) say_reward("Otrzymales 36000 Doswiadczenia.") say_reward("Otrzymales 10000 Yang.") say_reward("Otrzymales Ornament.") say("") clear_letter() set_state(__COMPLETE__) return end say("Jeszcze go nie masz?Sprobujesz jeszcze raz?") local s=select("Tak","Nie") if 2==s then say("Jestes pewny?") local a=select("Tak","Nie") if 2==a then say("Kowal:") say("Rozumiem, jestes zmeczony!") say("Odpocznij i wroc gdy nabierzesz sil") set_state(information) return end say("Kowal:") say("Ta misja sprawia ci klopoty?") say("Kontynnuj ja i uwazaj na siebie!") set_state(__GIVEUP__) return end say("Kowal:") say("Sprobuj ponownie!") say("Jestem przekonany ze Ci sie uda!") say("") end end state __GIVEUP__ begin end state __COMPLETE__ begin when enter begin q.done() end end end

stalka.quest

--Quest na Stalke -- LV 71 ---------------------------------------------------- quest stalka_dla_ciebie begin state start begin when login or levelup with pc.level >= 71 begin set_state(information) end end state information begin when letter begin local v = find_npc_by_vnum(20006) if v != 0 then target.vid("__TARGET__", v, "Zbroja..") end end when __TARGET__.target.click or 20020.chat."Zbroja ciemnosci" with pc.level >= 71 begin target.delete("__TARGET__") say("Zbroja ciemnosci?") say("Niech pomyślę...") say("chyba cos ci sie pomylilo") say("Zbroja z czarnej stali, tak to rozumiem") say("Moj brat mi ja zostawil, gdy wyruszyl w podroz") say("oddalam ja kowalowi, bo po co mi ona?") say("Jezeli ja chcesz, idz do niego") say("") set_state(zbroja) end end state zbroja when letter begin send_letter("Idz do Kowala") end when letter begin local v=find_npc_by_vnum(20016) if 0== v then else target.vid("__TARGET__",v,"¸ß°ÝŃÂÎ") end end when info or button begin say(locale.NOTICE_COLOR.."Zbroja"..locale.NORMAL_COLOR) say("Zbroja Mirine") say("") end when __TARGET__.target.click or 20016.chat."Masz zbroje brata Mirine?" begin target.delete("__TARGET__") say("Jakiej znowu Mirine?") say("A! Tej kobietki mlodej") say("ktorej brat zagina?") say("Chyba mam... Chyba. Tak, brakuje mi ") say("jednego materialu...") say("Chodzi o tarcze czarniejsza od brudnej stali!") say("Pewnie ta baba bedzie ja miala") say_reward("Znajdz czarna tarcze!") say("") set_state(baba) end end end state baba begin when letter begin send_letter("Tarcza jak czarna stal.") local v=find_npc_by_vnum(9006) if 0==v then else target.vid("__TARGET__",v," Czarna stal.") end end when info or button begin say(locale.NOTICE_COLOR.."Czarna stal"..locale.NORMAL_COLOR) say("Posiadam cos takiego!") say("") end when __TARGET__.target.click or 9006.chat."Czarna stal" begin target.delete("__TARGET__") say("Po co temu pajacowi") say("Ta tarcza?") say("Bierz ja awanturniku! Nie potrzebuje jej") pc.give_item2("13040", 1) say("") set_state(powrot) end end state powrot begin when letter begin send_letter("Powrot") local v=find_npc_by_vnum(20016) if 0==v then else target.vid("__TARGET__",v," Powrot") end end when info or button begin say(locale.NOTICE_COLOR.."Ciemna tarcza"..locale.NORMAL_COLOR) say("O to ona!") say("") end when __TARGET__.target.click or 20016.chat."Zbrojka" begin if pc.count_item("13040") >= 1 then target.delete("__TARGET__") say("Juz jestes?") say("Masz. O to ona! Czarna stal") pc.remove_item("13040") pc.give_item2("11290", 1) pc.give_item2("11490", 1) pc.give_item2("11690", 1) pc.give_item2("11890", 1) say("") set_state(__GIVEUP__) clear_letter() set_state(__COMPLETE__) end end state __GIVEUP__ begin end state __COMPLETE__ begin end end

pociesz_dziewczynke.quest

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

wszm_v1.quest

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

To ja nadal TheSzczepan4 tylko mam nowe konto pozdrawiam

Kyrene · 28 Września 2010

Buahuahua Wszystkie questy w jednej linii. Tego jeszcze nie było!

:.Bialy_miS.: · 28 Września 2010

ctrl c ctrl v ulubionna opcja ludzi z internetu.

Lecz kilka questow z poczatku nawet fajnych plasu

MateuszEk · 28 Września 2010

Bardzo ciekawe questy, niebawem może dodam na swojego serva ; >

Oczywiscie + leci.

GoToSleep. · 29 Września 2010

Bardzo fajne questy! Dzięki. + leci..

Zaloguj się

👋 Witaj na MPCForum!

[Tut] Kilka Questów

Rekomendowane odpowiedzi

Zarchiwizowany