[Inne]Pisze Questy

[Sensual]

 

 

quest krwisty begin
state start begin
when login or levelup with pc.level >= 75 begin
set_state(info)
end
end

state info begin
when letter begin
local v = find_npc_by_vnum(20016)
if v != 0 then
target.vid("__TARGET__", v, "Kowal")
end
send_letter("Umarły Rozpruwacz")
end

when button or info begin
say_title("Umarły rozpruwacz")
say("Witaj udaj się do Kowala ma on dla Ciebie zadanie.")
end

when __TARGET__.target.click or
20016.chat."Kowal:" begin
target.delete("__TARGET__")
say("Witaj ! ")
say("Ostatnio naszą wioske nachodzi Umarły Rozpruwacz ! ")
say("Chodzi po mieście i ludzi straszy ")
say("Idź do wierzy demonów i daj mu nauczke ! ")
say("Wzamian za to dostaniesz odemnie przepustke do nowego świata.")
set_state(kill)
end
end

state kill begin
when letter begin
send_letter("Udaj się!")
end
when button or info begin
say("Udaj się do demonicznej wierzy aby zabić umarłego rozpruwacza.")
end

when 1093.kill with pc.countitem(50082)==0 begin
local random = math.random(3)
if random == 1 then
pc.give_item2(50082, 1)
say("Blabla...")
local v = find_npc_by_vnum(20016)
if v != 0 then
target.vid("__TARGET__", v, "Kowal")
end
end
end
when 20016.chat."Ramka" with pc.countitem(ID_ITEMU)>0 begin
say_title("Kowal:")
target.delete("__TARGET__")
say("Hmm Więc pokonałeś umarłego rozpruwacza...W nagrodę dostaniesz przepustkę do nowego świata!")
pc.remove_item(50082, 1)
pc.give_item2(30190 , 1)
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
end
end

 

 

W ID_ITEMU WPISZ ID ITEMU TAK JAK MÓWIŁEM ABYŚ UZUPEŁNIŁ ID_NPC.

 

 

 

 

Hmm masz tutaj

 

 

 

quest nowa_mapaa begin
state start begin
	when login or levelup with pc.level >75 begin
		set_state(event_map)
	end
end

state event_map begin
	when 20092.chat."Nowa Mapa" begin
		say(""..mob_name(20092)..":")
		say("")
		say("x!")
		say("x?")
		say("xxx.")
		say("")
		say("Gdzie chcesz się przeteleportować?")
		say("")
		local a= select("Nowa Mapa","Anuluj")
		if 1==a then
			say(""..mob_name(20092)..":")
			say("")
			say("xx")
			say("xx!!")
			wait()
			pc.warp(105200 , 10000)
		elseif 2==a then
			say(""..mob_name(20092)..":")
			say("")
			say("Ok")
			say("x")
		end


	end


end

end

 

[Mastick]

@Up Ten temat już jest stary. Napisz tutaj:

 

http://www.mpcforum.pl/topic/223876-innepisanie-questow-na-zamowienie/

 

Zamykam.