Pisanie / Poprawa Questów !

xDeStRuCtx · 26 Lutego 2011

@up

quest atrybuty begin
state start begin
when 50512.use with pc.get_level()>=75 begin
if pc.getqf("juz")>=1 then
say("Nie mozesz jeszcze uzyc przedmiotu!")
return
else
say_title("Teczowy Kamien: [ENTER] [ENTER]")
say("Uzywajac tego przedmiotu mozesz zwiekszyc")
say("wybrana przez siebie statystyke o 10 pkt.")
say("Na stale, ale uwazaj szansa ze szkolenie")
say("sie powiedzie jest bardzo mala")
say_reward("[ENTER] [ENTER] Nawet jesli szkolenie sie nie powiedzie [ENTER] kamien zostanie Ci odebrany")
wait()
local s = select("Witalnosc", "Inteligencja", "Sila", "Zrecznosc", "Anuluj")
if s == 4 then
say_title("Trening Zrecznosci:")
say(" [ENTER] Szkolenie zrecznosci...")
pc.removeitem(50512, 1)
wait()
local szansa = number(1, 10)
if szansa==1 then
affect.add_collect(apply.DEX, 10, 60*60*24*365*99)
chat("Pomyslnie zwiekszyles wybrana statystyke")
else
chat("Proba zwiekszenie statystiki zakonczyla sie niepomyslnie")
end
pc.setqf("juz", 1)
timer("jeszcze", 60*60)
elseif s == 5 then
return
elseif s == 3 then
say_title("Trening Sily:")
say(" [ENTER] Szkolenie Sily...")
pc.removeitem(50512, 1)
wait()
local szansa = number(1, 10)
if szansa==1 then
affect.add_collect(apply.STR, 10, 60*60*24*365*99)
chat("Pomyslnie zwiekszyles wybrana statystyke")
else
chat("Proba zwiekszenia statystyki zakonczyla sie niepomyslnie")
end
pc.setqf("juz", 1)
timer("jeszcze", 60*60)
elseif s == 2 then
say_title("Trening Inteligencji:")
say(" [ENTER] Szkolenie Inteligencji...")
pc.removeitem(50512, 1)
wait()
local szansa = number(1, 10)
if szansa==1 then
affect.add_collect(apply.INT, 10, 60*60*24*365*99)
chat("Pomyslnie zwiekszyles wybrana statystyke")
else
chat("Proba zwiekszenia statystyki zakonczyla sie niepomyslnie")
end
pc.setqf("juz", 1)
timer("jeszcze", 60*60)
elseif s == 1 then
say_title("Trening Witalnosci:")
say(" [ENTER] Szkolenie Witalnosci...")
pc.removeitem(50512, 1)
wait()
local szansa = number(1, 10)
if szansa==1 then
affect.add_collect(apply.CON, 10, 60*60*24*365*99)
chat("Pomyslnie zwiekszyles wybrana statystyke")
else
chat("Proba zwiekszenia statystyki zakonczyla sie niepomyslnie")
end
pc.setqf("juz", 1)
timer("jeszcze", 60*60)
end
end
end
when jeszcze.timer begin
pc.setqf("juz", 0)
end
end
end

sprawdź

Bambus3k™ · 26 Lutego 2011

@xDeStRuCtx

Na moje oko ten quest nie ma prawa działać, otwierasz 'elseif' a później zamykasz go 'end' a za chwilę otwierasz kolejnego 'elseif'. No więc...? :F

A do tego co to za głupi timer ja się pytam po co ? Jest przecież get_time() =)

xDeStRuCtx · 26 Lutego 2011

Sporo do poprawiania było, przeoczyłem to.

A timer przecież może być, co za problem? ;x

GibsoN62 · 26 Lutego 2011

Witam. Znów proszę was o wykonanie 2 questów

Nr.1

Quest który spowoduje, że po zabiciu danych potwórków wyskakują na czacie (tak jakby gm pisal) wiadomości które podaje niżej ( "vnum mobka" - "wiadomość" )

"2597" - "Gracz <nick_gracza> pokonał Śmierć."

"2604" - "<nick_gracza> zgładził Olbrzymiego Minotaura."

"2684" - "<nick_gracza> zrównał z ziemią Mistycznego Dowódce."

Nr.2

Quest dzięki któremu u koe-punga (20093) będzie można wymieniać yang na sztabki i na odwrót. Niżej podaje jak to ma wyglądać

Klikamy na npc i wyskakują 2 opcje: "Wymień yang" i "Wymień sztabke"

w obydwóch opcjach wyskakują następujące wartości:

250kk - (80003)

500kk - (80004)

750kk - (80005)

1kkk - (80006)

1.750kkk - (80007)

W nawiasach podalem id sztabek które maja się wymieniać na dane kwoty.

DraVee · 26 Lutego 2011

1.

quest xasd begin
state start begin
	when 2597.kill begin
		say_all("Gracz "..pc.get_name().." pokonał Śmierć.")
	end
	when 2603.kill begin
		say_all(""..pc.get_name().." zgładził Olbrzymiego Minotaura.")
	end
	when 2684.kill begin
		say_all(""..pc.get_name().." zrównał z ziemią Mistycznego Dowódce.")
	end
end
end

Damdus · 26 Lutego 2011

@2xUP

quest boss begin
state start begin
	when 2597.kill begin
		notice_all("Gracz "pc.get_name().." pokonał Śmierć.")
	end
	when 2604.kill begin
		notice_all(pc.get_name().." zgładził Olbrzymiego Minotaura.")
	end
	when 2684.kill begin
		notice_all(pc.get_name().." zrównał z ziemią Mistycznego Dowódce.")
	end
end
end

Edit:

UP szybszy

GibsoN62 · 26 Lutego 2011

Dzięki panowie, prosiłbym jeszcze o tego drugiego

Nr.2

Quest dzięki któremu u koe-punga (20093) będzie można wymieniać yang na sztabki i na odwrót. Niżej podaje jak to ma wyglądać

Klikamy na npc i wyskakują 2 opcje: "Wymień yang" i "Wymień sztabke"

w obydwóch opcjach wyskakują następujące wartości:

250kk - (80003)

500kk - (80004)

750kk - (80005)

1kkk - (80006)

1.750kkk - (80007)

W nawiasach podalem id sztabek które maja się wymieniać na dane kwoty.

Damdus · 26 Lutego 2011

proszę bardzo

sprawdź czy działa:

podmień nazwy do sztabek w:

xxx1

xxx2

xxx3

xxx4

xxx5

quest zamiana_perly begin
       state start begin
               when 9009.chat."Handel Perłami"  with pc.level >= 75 begin

		say("Witam Cię "..pc.get_name().."")

                       local z = select("Wymień yang", "Wymień sztabke", "Anuluj")
                       if z == 3 then
                               return

                       elseif z == 1 then
			say("Jaka sztabka Cię interesuje??")

                       	local x = select("xxx1 za 250kk", "xxx2 za 500kk", "xxx3 za 750kk", "xxx4 za 1kkk", "xxx5 za 1,750kkk", "Anuluj")
                       	if x == 6 then
				return

                       	elseif x == 1 then
				if pc.money >= 250000000 then
				pc.give_item2(80003, 1)
				say_title("Otrzymałeś xxx1")
					pc.change_gold(-250000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 250kk")
				end

                       	elseif x == 2 then
				if pc.money >= 500000000 then
				pc.give_item2(80004, 1)
				say_title("Otrzymałeś xxx2")
					pc.change_gold(-500000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 500kk")
				end

                       	elseif x == 3 then
				if pc.money >= 750000000 then
				pc.give_item2(80005, 1)
				say_title("Otrzymałeś xxx3")
					pc.change_gold(-750000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 750kk")
				end

                       	elseif x == 4 then
				if pc.money >= 1000000000 then
				pc.give_item2(80006, 1)
				say_title("Otrzymałeś xxx4")
					pc.change_gold(-1000000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 1kkk")
				end

                       	elseif x == 5 then
				if pc.money >= 1750000000 then
				pc.give_item2(80006, 1)
				say_title("Otrzymałeś xxx4")
					pc.change_gold(-1750000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 1,750kkk")
				end

				end
			end

                       elseif z == 2 then
			say("Jaką sztabkę chcesz sprzedać?")

                       	local x = select("xxx1 za 250kk", "xxx2 za 500kk", "xxx3 za 750kk", "xxx4 za 1kkk", "xxx5 za 1,750kkk", "Anuluj")
                       	if x == 6 then
				return

                       	elseif x == 1 then
				if pc.count_item(80003) >=1 then
					pc.change_gold(250000000)
				say_title("Otrzymałeś 250kk")
					pc.remove_item(80003, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx1")
 					say_item_vnum(80003)
				end

                       	elseif x == 2 then
				if pc.count_item(80004) >=1 then
					pc.change_gold(500000000)
				say_title("Otrzymałeś 500kk")
					pc.remove_item(80004, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx2")
 					say_item_vnum(80004)
				end

                       	elseif x == 3 then
				if pc.count_item(80005) >=1 then
					pc.change_gold(750000000)
				say_title("Otrzymałeś 750kk")
					pc.remove_item(80005, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx3")
 					say_item_vnum(80005)
				end

                       	elseif x == 4 then
				if pc.count_item(80006) >=1 then
					pc.change_gold(1000000000)
				say_title("Otrzymałeś 1kkk")
					pc.remove_item(80006, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx4")
 					say_item_vnum(80006)
				end

                       	elseif x == 5 then
				if pc.count_item(80007) >=1 then
					pc.change_gold(1750000000)
				say_title("Otrzymałeś 1,750kkk")
					pc.remove_item(80007, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx5")
 					say_item_vnum(80007)
				end
			end

				end
			end
		end
	end
end
end

Kubaman · 26 Lutego 2011

Może ktoś poprawić to?:

----------------------------------------------------
-- Serwer Helios
-- Quest by KubiX
-- Sfera Czerni
----------------------------------------------------

quest sfera begin
       state start begin
               when login or levelup with pc.get_level() >= 23 begin
                       set_state(dzem)
               end
       end
       state dzem begin
               when letter begin
                       local v = find_npc_by_vnum(11004)
                       if v != 0 then
                               target.vid("__TARGET__", v, "Strażnik Wsi")
                       end
                       send_letter("Sfera Czerni")
               end

               when button or info begin
                       say_title("Sfera Czerni")
                       say("")
                       say("Strażnik Wsi cię wzywa!")
                       say("Udaj się do niego.")
                       say("")
               end

               when 11004.chat."Wezwanie " begin
               target.delete("__TARGET__")
               say(""..pc.get_name()..":")
               say("Wzywałeś mnie?")
	wait(")
               say("Strażnik Wsi:")
               say("Tak, mam dla ciebie zadanie.")
               say("Musisz zniszczyć Metin Czerni.")
               say("Lecz, najpierw powiedz mi, czy warto ")
               say("ci to opowiadać...")

                       local z = select("Opowiadaj ", "Odrzuć Misję")
                       if z == 1 then
               		say(""..pc.get_name()..":")
                               say("Proszę, opowiedz mi.")
                               say("Chcę ci pomóc.")
			wait()
			say("Strażnik Wsi:")
			say("A więc, było tak:")
			say("Spacerowałem z Handlarką Różności,")
			say("Lecz nagle z nieba spadł Metin Czerni!")
			say("Potwory, które zostały przez niego wysłane,")
			say("Zabrały jej Cenny Klejnot.")
			say("Odzyskaj go!")
                       set_state(metek) 

                       else
                               return
                                               end
               end

       state metek begin
               when letter begin
                       send_letter("Zniszcz Metin Czerni ")
               end
               when info or button begin
                       say_title("Zniszcz Metin Czerni ")
                       say("Odzyskaj klejnot,")
                       say("likwidując:")
                       say_reward("Metin Czerni ")
                       say_title("Informacje:")
                       say_title("Poziom: 25 ")
                       say_title("Potwory: Klan Zaprzysiężonych ")
                       say("")
                       local count = pc.getqf("nieb")
                       say_title("Pozostał: "..30-count.." Metin Czerni")
               end

                       when 8005.kill begin
                       local count = pc.getqf("nieb") + 1

                               if count < 1 then
                               pc.setqf("nieb", count)
                               end
                               if count == 1 then
                                       say_title("Zniszczyłeś Metin Czerni! ")
                                       say("Odzyskałeś klejnot Handlarki.")
                                       say("Idź do niej.")
                                       set_state(powrot)
                               end
                       end
       end 

               state powrot begin
                               when letter begin
                   local v = find_npc_by_vnum(9003)
                       if v != 0 then
                               target.vid("__TARGET__2", v, "Handlarka Różnością ")
                       end                             
                       send_letter("Odzyskałeś Klejnot ")
               end
               when button or info begin
                       say_title("Odzyskałeś Klejnot ")
                       say("")
                       say("Klejnot Odzyskany!")
		say("Wróć do Handlarki Różnością ")
                       say("")
               end

               when 11006.chat."Mam klejnot " begin
               	target.delete("__TARGET__2")    
                       say("Handlarka Różnością:")
               	say("Oh, dziękuję ci!")
               	say("Dokończę swoją kolekcję Kamieni!")
               	say("To mój ostatni taki kamień!")
		wait("")
		say(""..pc.get_name()..":")
		say("Nie ma sprawy...!")
		say("Proszę, przyjmij to:")
		wait("")
		say_reward("Broń na 20 poziom +7")
		say_reward("K. Duszy Przysp. +3")
		say_reward("Zwój Błogosławieństwa")
		say("")

                               if pc.job == 0 then 
                               pc.give_item2 ("57" , 1) 
			pc.give_item2 ("28343" , 1)
			pc.give_item2 ("25040" , 1)
                               end 

                               if pc.job == 1 then 
                               pc.give_item2 ("1027" , 1) 
			pc.give_item2 ("28343" , 1)
			pc.give_item2 ("25040" , 1)
                               end 

                               if pc.job == 2 then 
                               pc.give_item2 ("57" , 1) 
			pc.give_item2 ("28343" , 1)
			pc.give_item2 ("25040" , 1)
                               end 

                               if pc.job == 3 then 
                               pc.give_item2 ("7047" , 1)
			pc.give_item2 ("28343" , 1)
			pc.give_item2 ("25040" , 1)

                               end

                               set_state(__COMPLETE__)

                               end
               end

       state __COMPLETE__  begin

               end
end

xDeStRuCtx · 26 Lutego 2011

@up

po pierwsze, nie ma takiego npc o id 11006...

po drugie

wait()

a nie wait(")

po trzecie

"Odrzuć Misję")

na końcu linijki nie piszemy polskich znaków...

po czwarte

                        local z = select("Opowiadaj ", "Odrzuć Misję ")
                       if z == 1 then
                               say(""..pc.get_name()..":")
                               say("Proszę, opowiedz mi.")
                               say("Chcę ci pomóc.")
                               wait()
                               say("Strażnik Wsi:")
                               say("A więc, było tak:")
                               say("Spacerowałem z Handlarką Różności,")
                               say("Lecz nagle z nieba spadł Metin Czerni!")
                               say("Potwory, które zostały przez niego wysłane,")
                               say("Zabrały jej Cenny Klejnot.")
                               say("Odzyskaj go!")
                       set_state(metek) 

                       else
                               return
end                    

               end

tu do zamknięcia jest state if i when, więc jeden end za mało.

Popraw id tego npc...

----------------------------------------------------
-- Serwer Helios
-- Quest by KubiX
-- Sfera Czerni
----------------------------------------------------

quest sfera begin
       state start begin
               when login or levelup with pc.get_level() >= 23 begin
                       set_state(dzem)
               end
       end
       state dzem begin
               when letter begin
                       local v = find_npc_by_vnum(11006)
                       if v != 0 then
                               target.vid("__TARGET__", v, "Strażnik Wsi")
                       end
                       send_letter("Sfera Czerni")
               end

               when button or info begin
                       say_title("Sfera Czerni")
                       say("")
                       say("Strażnik Wsi cię wzywa!")
                       say("Udaj się do niego.")
                       say("")
               end

               when 11006.chat."Wezwanie " begin
               target.delete("__TARGET__")
               say(""..pc.get_name()..":")
               say("Wzywałeś mnie?")
               wait()
               say("Strażnik Wsi:")
               say("Tak, mam dla ciebie zadanie.")
               say("Musisz zniszczyć Metin Czerni.")
               say("Lecz, najpierw powiedz mi, czy warto ")
               say("ci to opowiadać...")

                       local z = select("Opowiadaj ", "Odrzuć Misję ")
                       if z == 1 then
                               say(""..pc.get_name()..":")
                               say("Proszę, opowiedz mi.")
                               say("Chcę ci pomóc.")
                               wait()
                               say("Strażnik Wsi:")
                               say("A więc, było tak:")
                               say("Spacerowałem z Handlarką Różności,")
                               say("Lecz nagle z nieba spadł Metin Czerni!")
                               say("Potwory, które zostały przez niego wysłane,")
                               say("Zabrały jej Cenny Klejnot.")
                               say("Odzyskaj go!")
                       set_state(metek) 

                       else
                               return
end                    
				end
               end

       state metek begin
               when letter begin
                       send_letter("Zniszcz Metin Czerni ")
               end
               when info or button begin
                       say_title("Zniszcz Metin Czerni ")
                       say("Odzyskaj klejnot,")
                       say("likwidując:")
                       say_reward("Metin Czerni ")
                       say_title("Informacje:")
                       say_title("Poziom: 25 ")
                       say_title("Potwory: Klan Zaprzysiężonych ")
                       say("")
                       local count = pc.getqf("nieb")
                       say_title("Pozostał: "..30-count.." Metin Czerni")
               end

                       when 8005.kill begin
                       local count = pc.getqf("nieb")+1

                               if count < 1 then
                               pc.setqf("nieb", count)
                               elseif count == 1 then
                                       say_title("Zniszczyłeś Metin Czerni! ")
                                       say("Odzyskałeś klejnot Handlarki.")
                                       say("Idź do niej.")
                                       set_state(powrot)
                               end
                       end
       end 

               state powrot begin
                               when letter begin
                   local v = find_npc_by_vnum(9003)
                       if v != 0 then
                               target.vid("__TARGET__2", v, "Handlarka Różnością ")
                       end                             
                       send_letter("Odzyskałeś Klejnot ")
               end
               when button or info begin
                       say_title("Odzyskałeś Klejnot ")
                       say("")
                       say("Klejnot Odzyskany!")
                       say("Wróć do Handlarki Różnością ")
                       say("")
               end

               when 11006.chat."Mam klejnot " begin
                       target.delete("__TARGET__2")    
                       say("Handlarka Różnością:")
                       say("Oh, dziękuję ci!")
                       say("Dokończę swoją kolekcję Kamieni!")
                       say("To mój ostatni taki kamień!")
                       wait("")
                       say(""..pc.get_name()..":")
                       say("Nie ma sprawy...!")
                       say("Proszę, przyjmij to:")
                       wait("")
                       say_reward("Broń na 20 poziom +7")
                       say_reward("K. Duszy Przysp. +3")
                       say_reward("Zwój Błogosławieństwa")
                       say("")

                               if pc.job == 0 then 
                               pc.give_item2 ("57" , 1) 
                               pc.give_item2 ("28343" , 1)
                               pc.give_item2 ("25040" , 1)

                               elseif pc.job == 1 then 
                               pc.give_item2 ("1027" , 1) 
                               pc.give_item2 ("28343" , 1)
                               pc.give_item2 ("25040" , 1)

                               elseif pc.job == 2 then 
                               pc.give_item2 ("57" , 1) 
                               pc.give_item2 ("28343" , 1)
                               pc.give_item2 ("25040" , 1)

                               elseif pc.job == 3 then 
                               pc.give_item2 ("7047" , 1)
                               pc.give_item2 ("28343" , 1)
                               pc.give_item2 ("25040" , 1)

                               end

                               set_state(__COMPLETE__)

                               end
               end

       state __COMPLETE__  begin

               end
end

robo112 · 26 Lutego 2011

Potrzebuje questa który daje o 1 wyższy poziom konia.

ID itemka to:

70101

xDeStRuCtx · 27 Lutego 2011

@up

quest lvlkonia begin
state start begin
when 70101.use begin
local lvl = horse.get_level()
horse.set_level(lvl+1)
end
end
end

Damdus · 27 Lutego 2011

@2xUP

UP dobrze napisał, ale ja również coś nadziergałem

quest kon begin
       state start begin
		when 70101.use begin
		say("Chcesz aby Twój koń otrzymał wyższy poziom?")
                       local s = select("Tak", "Nie")
                       if s == 2 then
                               return

                       elseif s == 1 then
					local lvl = horse.get_level()
					horse.set_level(lvl+1)
					say("Poziom Twojego konika został podwyższony")
					pc.remove_item("70101", 1)
                       end
           end
       end
end

GibsoN62 · 27 Lutego 2011

proszę bardzo

sprawdź czy działa:

podmień nazwy do sztabek w:

xxx1

xxx2

xxx3

xxx4

xxx5

quest zamiana_perly begin
       state start begin
               when 9009.chat."Handel Perłami"  with pc.level >= 75 begin

		say("Witam Cię "..pc.get_name().."")

                       local z = select("Wymień yang", "Wymień sztabke", "Anuluj")
                       if z == 3 then
                               return

                       elseif z == 1 then
			say("Jaka sztabka Cię interesuje??")

                       	local x = select("xxx1 za 250kk", "xxx2 za 500kk", "xxx3 za 750kk", "xxx4 za 1kkk", "xxx5 za 1,750kkk", "Anuluj")
                       	if x == 6 then
				return

                       	elseif x == 1 then
				if pc.money >= 250000000 then
				pc.give_item2(80003, 1)
				say_title("Otrzymałeś xxx1")
					pc.change_gold(-250000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 250kk")
				end

                       	elseif x == 2 then
				if pc.money >= 500000000 then
				pc.give_item2(80004, 1)
				say_title("Otrzymałeś xxx2")
					pc.change_gold(-500000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 500kk")
				end

                       	elseif x == 3 then
				if pc.money >= 750000000 then
				pc.give_item2(80005, 1)
				say_title("Otrzymałeś xxx3")
					pc.change_gold(-750000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 750kk")
				end

                       	elseif x == 4 then
				if pc.money >= 1000000000 then
				pc.give_item2(80006, 1)
				say_title("Otrzymałeś xxx4")
					pc.change_gold(-1000000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 1kkk")
				end

                       	elseif x == 5 then
				if pc.money >= 1750000000 then
				pc.give_item2(80006, 1)
				say_title("Otrzymałeś xxx4")
					pc.change_gold(-1750000000)
					else
					say_reward("Brak Yang")
				say_title("Potrzebujesz 1,750kkk")
				end

				end
			end

                       elseif z == 2 then
			say("Jaką sztabkę chcesz sprzedać?")

                       	local x = select("xxx1 za 250kk", "xxx2 za 500kk", "xxx3 za 750kk", "xxx4 za 1kkk", "xxx5 za 1,750kkk", "Anuluj")
                       	if x == 6 then
				return

                       	elseif x == 1 then
				if pc.count_item(80003) >=1 then
					pc.change_gold(250000000)
				say_title("Otrzymałeś 250kk")
					pc.remove_item(80003, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx1")
 					say_item_vnum(80003)
				end

                       	elseif x == 2 then
				if pc.count_item(80004) >=1 then
					pc.change_gold(500000000)
				say_title("Otrzymałeś 500kk")
					pc.remove_item(80004, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx2")
 					say_item_vnum(80004)
				end

                       	elseif x == 3 then
				if pc.count_item(80005) >=1 then
					pc.change_gold(750000000)
				say_title("Otrzymałeś 750kk")
					pc.remove_item(80005, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx3")
 					say_item_vnum(80005)
				end

                       	elseif x == 4 then
				if pc.count_item(80006) >=1 then
					pc.change_gold(1000000000)
				say_title("Otrzymałeś 1kkk")
					pc.remove_item(80006, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx4")
 					say_item_vnum(80006)
				end

                       	elseif x == 5 then
				if pc.count_item(80007) >=1 then
					pc.change_gold(1750000000)
				say_title("Otrzymałeś 1,750kkk")
					pc.remove_item(80007, 1)
					else
					say_reward("Brak sztabki")
				say_title("Potrzebujesz:")
				say("xxx5")
 					say_item_vnum(80007)
				end
			end

				end
			end
		end
	end
end
end

Nie działa mi ten quest, mogłby go ktoś sprawdzić ? :P

xDeStRuCtx · 27 Lutego 2011

@up

quest zamiana_perly begin
       state start begin
               when 9009.chat."Handel Perłami"  with pc.level >= 75 begin

                       say("Witam Cię "..pc.get_name().."")

                       local z = select("Wymień yang", "Wymień sztabke", "Anuluj")
                       if z == 3 then
                               return

                       elseif z == 1 then
                               say("Jaka sztabka Cię interesuje??")

                               local x = select("xxx1 za 250kk", "xxx2 za 500kk", "xxx3 za 750kk", "xxx4 za 1kkk", "xxx5 za 1,750kkk", "Anuluj")
                               if x == 6 then
                                       return

                               elseif x == 1 then
                                       if pc.money >= 250000000 then
                                       pc.give_item2(80003, 1)
                                       say_title("Otrzymałeś xxx1")
                                       pc.change_gold(-250000000)
                                       else
                                       say_reward("Brak Yang")
                                       say_title("Potrzebujesz 250kk")
                                       end

                               elseif x == 2 then
                                       if pc.money >= 500000000 then
                                       pc.give_item2(80004, 1)
                                       say_title("Otrzymałeś xxx2")
                                       pc.change_gold(-500000000)
                                       else
                                       say_reward("Brak Yang")
                                       say_title("Potrzebujesz 500kk")
                                       end

                               elseif x == 3 then
                                       if pc.money >= 750000000 then
                                       pc.give_item2(80005, 1)
                                       say_title("Otrzymałeś xxx3")
                                       pc.change_gold(-750000000)
                                       else
                                       say_reward("Brak Yang")
                                       say_title("Potrzebujesz 750kk")
                                       end

                               elseif x == 4 then
                                       if pc.money >= 1000000000 then
                                       pc.give_item2(80006, 1)
                                       say_title("Otrzymałeś xxx4")
                                       pc.change_gold(-1000000000)
                                       else
                                       say_reward("Brak Yang")
                                       say_title("Potrzebujesz 1kkk")
                                       end

                               elseif x == 5 then
                                       if pc.money >= 1750000000 then
                                       pc.give_item2(80006, 1)
                                       say_title("Otrzymałeś xxx4")
                                       pc.change_gold(-1750000000)
                                       else
                                       say_reward("Brak Yang")
                                       say_title("Potrzebujesz 1,750kkk")
                                       end

                                       end

                       elseif z == 2 then
                               say("Jaką sztabkę chcesz sprzedać?")

                               local x = select("xxx1 za 250kk", "xxx2 za 500kk", "xxx3 za 750kk", "xxx4 za 1kkk", "xxx5 za 1,750kkk", "Anuluj")
                               if x == 6 then
                                       return

                               elseif x == 1 then
                                       if pc.count_item(80003) >=1 then
                                       pc.change_gold(250000000)
                                       say_title("Otrzymałeś 250kk")
                                       pc.remove_item(80003, 1)
                                       else
                                       say_reward("Brak sztabki")
                                       say_title("Potrzebujesz:")
                                       say("xxx1")
                                       say_item_vnum(80003)
                                       end

                               elseif x == 2 then
                                       if pc.count_item(80004) >=1 then
                                       pc.change_gold(500000000)
                                       say_title("Otrzymałeś 500kk")
                                       pc.remove_item(80004, 1)
                                       else
                                       say_reward("Brak sztabki")
                                       say_title("Potrzebujesz:")
                                       say("xxx2")
                                       say_item_vnum(80004)
                                       end

                               elseif x == 3 then
                                       if pc.count_item(80005) >=1 then
                                       pc.change_gold(750000000)
                                       say_title("Otrzymałeś 750kk")
                                       pc.remove_item(80005, 1)
                                       else
                                       say_reward("Brak sztabki")
                                       say_title("Potrzebujesz:")
                                       say("xxx3")
                                       say_item_vnum(80005)
                                       end

                               elseif x == 4 then
                                       if pc.count_item(80006) >=1 then
                                       pc.change_gold(1000000000)
                                       say_title("Otrzymałeś 1kkk")
                                       pc.remove_item(80006, 1)
                                       else
                                       say_reward("Brak sztabki")
                                       say_title("Potrzebujesz:")
                                       say("xxx4")
                                       say_item_vnum(80006)
                                       end

                               elseif x == 5 then
                                       if pc.count_item(80007) >=1 then
                                       pc.change_gold(1750000000)
                                       say_title("Otrzymałeś 1,750kkk")
                                       pc.remove_item(80007, 1)
                                       else
                                       say_reward("Brak sztabki")
                                       say_title("Potrzebujesz:")
                                       say("xxx5")
                                       say_item_vnum(80007)
                                       end
                               end

                       end
               end
       end
end

GraczMetin2 · 27 Lutego 2011

Ok wiec prosze o questa... tylko dla GM!

wiec klikam na item najlepiej wpisz cos np item to sie skapne aby wpisac id mojego itemka

i jak jestem gm to pokazuje mi sie zeby wpisac haslo haslo : lol

jak wpisze to leci dalej jak nie to mi pisze : bledne haslo lub cos

jak juz dobrze wpisze to mi sie pokazuje : Wpisz id itemka ktory chcesz dac wszystkim !

wpisuje id itemka i daje wszystkim z calego serwa ten itemek ;p

i pisze na dole " Kazdy dostal prezent od [GM]XRampager) :P )

jak sie bedzie dalo to poprosze thx

xDeStRuCtx · 27 Lutego 2011

@up

nie jestem pewien na 100% czy zadziała, ale powinno ;p

quest tylkoGM begin
state start begin
when 9003.chat."GM" with pc.is_gm() begin
say("Wpisz hasło: ")
local haslo = input()
if haslo="lol" then
say("Wpisz id itemka, ktory chcesz dac")
say("kazdemu. Tylko dokladnie!")
local item = input()
wait()
say("Wpisz ilosc...")
local ilosc = input()
pc.setqf("item", 1)
notice_all(pc.get_name().." dał wszystkim przedmiot!")
notice_all("Aby go odebrać, przeloguj się!")
else
say("zle haslo")
return
end
end
when login with pc.getqf("item")==1 begin
pc.setqf("item", 0)
pc.give_item2(item, ilosc)
end
end
end

GraczMetin2 · 27 Lutego 2011

Juz testuje dam edita

blad przy wgrywaniu

I jeszcze mam podac id itemka czy npc? :P

xDeStRuCtx · 27 Lutego 2011

sorry, mój błąd jeden znak równania za mało. masz:

quest tylkoGM begin 
state start begin 
when 9003.chat."GM" with pc.is_gm() begin 
say("Wpisz hasło: ") 
local haslo = input() 
if haslo=="lol" then 
say("Wpisz id itemka, ktory chcesz dac") 
say("kazdemu. Tylko dokladnie!") 
local item = input() 
wait() 
say("Wpisz ilosc...") 
local ilosc = input() 
pc.setqf("item", 1) 
notice_all(pc.get_name().." dał wszystkim przedmiot!") 
notice_all("Aby go odebrać, przeloguj się!") 
else 
say("zle haslo") 
return 
end 
end 
when login with pc.getqf("item")==1 begin 
pc.setqf("item", 0) 
pc.give_item2(item, ilosc) 
end 
end 
end

GraczMetin2 · 27 Lutego 2011

Po wpisaniu ID itemka nic sie nie dzieje

xDeStRuCtx · 27 Lutego 2011

quest tylkoGM begin 
state start begin 
when 9003.chat."GM" with pc.is_gm() begin 
say("Wpisz hasło: ") 
local haslo = input() 
if haslo=="lol" then 
say("Wpisz id itemka, ktory chcesz dac") 
say("kazdemu. Tylko dokladnie!") 
local item = input() 
say("Wpisz ilosc...") 
local ilosc = input() 
pc.setqf("item", 1) 
notice_all(pc.get_name().." dał wszystkim przedmiot!") 
notice_all("Aby go odebrać, przeloguj się!") 
else 
say("zle haslo") 
return 
end 
end 
when login with pc.getqf("item")==1 begin 
pc.setqf("item", 0) 
pc.give_item2(item, ilosc) 
end 
end 
end

sprawdź bez wait

GraczMetin2 · 27 Lutego 2011

Nadal nie dziala dobra juz zrezygnuje ale dziekuje za checi :P

Nagasheek · 27 Lutego 2011

na mapie o indexie "6" respi się 6 metinów z czego 5 jest fałszywych a jeden poprawny. Po ubiciu jednego poprawnego ma się respić mob o ID 101 w określonych kordach. Quest ma być rozpoczynany po zalogowaniu na daną mapę.

Ktoś się tego podejmie?

Bambus3k™ · 27 Lutego 2011

na mapie o indexie "6" respi się 6 metinów z czego 5 jest fałszywych a jeden poprawny. Po ubiciu jednego poprawnego ma się respić mob o ID 101 w określonych kordach. Quest ma być rozpoczynany po zalogowaniu na daną mapę.

Ktoś się tego podejmie?

deviltower_zone.quest

Twoją odpowiedzą na pytanie, nie widzę potrzeby pisania questa jak najważniejsze zapiski typu

resp 5 fake metinów czy króla jest zapisana w tym pliku.

xDeStRuCtx · 27 Lutego 2011

@up

quest evencik begin
state start begin
when 9003.chat."Event" with pc.is_gm() and pc.get_map_index()==6 begin
game.set_event_flag("eveent", 1)
say("Za chwilę rozpocznie się event")
mob.spawn(idmetka1, x, y, 0, 0, 1)
mob.spawn(idmetka2, x, y, 0, 0, 1
mob.spawn(idmetka3, x, y, 0, 0, 1)
mob.spawn(idmetka4, x, y, 0, 0, 1
mob.spawn(idmetka5, x, y, 0, 0, 1)
mob.spawn(idmetka6, x, y, 0, 0, 1
end
when idmetka1.kill with game.get_event_flag("eveent")==1 and pc.get_map_index()==6 or idmetka2.kill with game.get_event_flag("eveent")==1 and pc.get_map_index()==6 or idmetka3.kill with game.get_event_flag("eveent")==1  and pc.get_map_index()==6 or idmetka4.kill with game.get_event_flag("eveent")==1  and pc.get_map_index()==6 or idmetka5.kill with game.get_event_flag("eveent")==1  and pc.get_map_index()==6 or idmetka6.kill with game.get_event_flag("eveent")==1  and pc.get_map_index()==6 begin
local metek = number(1, 6)
if number==1 then
notice_all(pc.get_name().." zniszczył metina eventowego! ")
mob.spawn(101, x, y, 0, 0, 1)
else
return
end
end
end
end

Może trochę skomplikowanie, ale powinno działać ;p

Zaloguj się

👋 Witaj na MPCForum!

Pisanie / Poprawa Questów !

Rekomendowane odpowiedzi

Zarchiwizowany