Pisanie / Poprawa Questów !

Stelios · 5 Maja 2011

@xDestructx A jednak nie działa ;P

Ale dzięki za poprawki

-------------------------------------

-- Misja by Czarny Serwer CzarnyMT2

-- Prosze o nie przypisywanie sobie

-- cudzej pracy, pozdrawiam

-------------------------------------

quest mapy_czesc1 begin

state start begin

when login or levelup with pc.level >= 40 begin

setstate(info)

end

state info begin

when letter begin

local v = find_npc_by_vnum(20011)

if v != 0 then

target.vid("__TARGET__", v, "20011")

end

send_letter("Strony Mapy - Uriel")

setstate(idz)

end

state idz begin

when __TARGET__.target.click or 20011.chat."Strony Mapy" begin

target.delete("__TARGET__")

say_title(mob_name(20011)..":")

say("Witaj przyjacielu! Mam dla ciebie")

say("wazna misje! ")

say("")

say("Nie jest to proste, ale tez nie jest")

say("nadto trudne!")

say("")

say("Pomozesz mi przyjacielu?")

say("")

wait()

say("A wiec? Moge na ciebie liczyc")

say("czy nie?")

say_reward("Hmm.?")

say("")

local s = ("Pomoge!", "Nie, nie pomoge")

if s == 2 then

return

end

elseif s == 1 then

say("Ciesze sie z tego!")

say("")

say("A teraz powiem ci o co chodzi...")

say("Krotko i na temat...!")

say("Musisz zdobyc dla mnie kilka")

say("kawalkow mapy!")

say("")

wait()

say("Zdobedziesz jeden zabijajac pajaki")

say("z Lochu pajakow poziom 1!")

setstate(zabij)

end

state zabij begin

when 2031.kill begin

pc.give_item2(30120)

setstate(wracaj)

end

state wracaj begin

when letter begin

local v = find_npc_vnum(20011)

if v != 0 then

target.vid("__CEL__", v, "20011")

end

send_letter("Zdobylem!")

end

when button or info begin

say("Wracaj do Uriela!")

say("Przekaz mu kawalek mapy.")

end

when __CEL__.target.click or 20011.chat."Oto kawalek mapy!" begin

target.delete("__CEL__")

if pc.count_item(30120) > 0 then

say_title(mob_name(20011)..":")

say("Udalo ci sie! Dziekuje przyjacielu!")

say("Jestes mi bardzo pomocny")

say("mam dla ciebie wiecej zadan...")

say("")

wait()

say_title(mob_name(20011)..":")

say("Ale najpierw zakonczę to zadanie!")

say("")

pc.changemoney(2500000)

pc.give_exp2(2000000)

say("Dobrze sie baw! Pamietaj, ze mam")

say("dla ciebie wiecej zadan!")

say("Wroc do mnie kiedy zdobedziesz 47lvl!")

setstate(__COMPLETE__)

end

state __COMPLETE__ begin

end

Ja też troszkę poprawiłem, ale nie wiem w czym teraz tkwi problem.

Wywala błąd w 21 linijce

czyli

end
send_letter("Strony Mapy - Uriel")

setstate(idz)

end

state idz begin

when __TARGET__.target.click or 20011.chat."Strony Mapy" begin

target.delete("__TARGET__")

say_title(mob_name(20011)..":")

say("Witaj przyjacielu! Mam dla ciebie")

say("wazna misje! ")

say("")

to linijki od 17 do 27 . a w 21 jest błąd... ;| (jakby to nie o ten fragment chodziło to wyżej jest cały quest ;D)

Z góry dzięki za pomoc ;P

@EDIT

A teraz potrzebuję questa a mianowicie...
Na 83lvl dostajemy list z treścią zadania ale to zadanie możemy wykonać dopiero na 85lvl...

Chodzi o zabicie 200 mobków o id 2503 ;P

(Proste, ale zacząć go możemy od innego lvl, jak to się robi? )

A po zabiciu tych 200mobków dostajemy item 30122 ;P

xDeStRuCtx · 5 Maja 2011

@UP

Lepiej 'nie poprawiaj' questów ;p

-------------------------------------
-- Misja by Czarny Serwer CzarnyMT2
-- Prosze o nie przypisywanie sobie
-- cudzej pracy, pozdrawiam
-------------------------------------
quest mapy_czesc1 begin
state start begin
when login or levelup with pc.level >= 40 begin
setstate(info)
end
end
state info begin
when letter begin
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("__TARGET__", v, "20011")
end
send_letter("Strony Mapy - Uriel")
setstate(idz)
end
end
state idz begin
when __TARGET__.target.click or 20011.chat."Strony Mapy" begin
target.delete("__TARGET__")
say_title(mob_name(20011)..":")
say("Witaj przyjacielu! Mam dla ciebie")
say("wazna misje! ")
say("")
say("Nie jest to proste, ale tez nie jest")
say("nadto trudne!")
say("")
say("Pomozesz mi przyjacielu?")
say("")
wait()
say("A wiec? Moge na ciebie liczyc")
say("czy nie?")
say_reward("Hmm.?")
say("")
local s = ("Pomoge!", "Nie, nie pomoge")
if s == 2 then
return
elseif s == 1 then
say("Ciesze sie z tego!")
say("")
say("A teraz powiem ci o co chodzi...")
say("Krotko i na temat...!")
say("Musisz zdobyc dla mnie kilka")
say("kawalkow mapy!")
say("")
wait()
say("Zdobedziesz jeden zabijajac pajaki")
say("z Lochu pajakow poziom 1!")
setstate(zabij)
end
end
end
state zabij begin
when 2031.kill begin
pc.give_item2(30120)
setstate(wracaj)
end
end
state wracaj begin
when letter begin
local v = find_npc_vnum(20011)
if v != 0 then
target.vid("__CEL__", v, "20011")
end
send_letter("Zdobylem!")
end
when button or info begin
say("Wracaj do Uriela!")
say("Przekaz mu kawalek mapy.")
end

when __CEL__.target.click or 20011.chat."Oto kawalek mapy!" begin
target.delete("__CEL__")
if pc.count_item(30120) > 0 then
say_title(mob_name(20011)..":")
say("Udalo ci sie! Dziekuje przyjacielu!")
say("Jestes mi bardzo pomocny")
say("mam dla ciebie wiecej zadan...")
say("")
wait()
say_title(mob_name(20011)..":")
say("Ale najpierw zakonczę to zadanie!")
say("")
pc.changemoney(2500000)
pc.give_exp2(2000000)
say("Dobrze sie baw! Pamietaj, ze mam")
say("dla ciebie wiecej zadan!")
say("Wroc do mnie kiedy zdobedziesz 47lvl!")
setstate(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end

Stelios · 5 Maja 2011

@xDestructx właśnie wyłączyłem serwer

Zaraz go odpalę z zamiarem wgrania poprawnie questa i mam nadzieje ze się wgra, bo to pisanie questów już mnie wkur... denerwuje mnie a nawet dobrze nie zacząłem ;D

@EDIT

Błąd:

syntax error : [string "idz"]:16: ')' expected near ','
mapy_czes1.quest:55:Abort (core dumped)

(nic nie poprawiałem, ani nic... ;P)

a teraz dobranoc

MorlinkaUU11 · 6 Maja 2011

Witam!

Mam taki nietypowy Quest do napisania, nie wiem w zasadzie czy jest on realnie do stworzenia.

Quest polega na tym, że gdy użyjemy przedmiot o określonym ID (wpiszę sam) pozwoli on na oddawanie ziół i innych pierdół biologowi po czasie 15 sekund (zamiast czekać 24h), przedmiot działa przez godzinę, gdy ten czas upłynie przedmiot znika z ekwipunku.

Za pewne większość z was powie 'zmień sobie w bazie aby biolog przyjmował po 15 sekundach', ale ja tak nie chcę . Mam na celu lekkie urozmaicenie na swoim serwerze .

Jeżeli jest możliwy taki Quest, to proszę o jego napisanie .

@edit: Czy wie ktoś jak dodawać wpisy do itemdesc? Bo chcę pod przedmiotem dodać opis .

@edit2: Say'e w queście: Gdy klikniemy na przedmiot pojawia się tekst: '' Nazwa przedmiotu: Dzięki temu przedmiotowi nie musisz czekać 24 godzin zanim oddasz następne zioła Biologowi, po użyciu tego kamienia, czas oddania następnych ziół, czy innych rzeczy zostaje zredukowany do 15 sekund.' Teraz przejście do następnego okna: 'Czy chcesz użyć Nazwa Przedmiotu? teraz say_reward: ''Uwaga! Ten przedmiot działa tylko przez godzinę!" pod spodem: "Tak", "Nie". Gdy ''Tak" - "Przedmiot został aktywowany. Pamiętaj działa on tylko przez godzinę!", gdy "Nie" - "Dobrze więc, zastanów się i użyj przedmiotu rozważnie".

Sunushi · 6 Maja 2011

Witam!

Mam taki nietypowy Quest do napisania, nie wiem w zasadzie czy jest on realnie do stworzenia.

Quest polega na tym, że gdy użyjemy przedmiot o określonym ID (wpiszę sam) pozwoli on na oddawanie ziół i innych pierdół biologowi po czasie 15 sekund (zamiast czekać 24h), przedmiot działa przez godzinę, gdy ten czas upłynie przedmiot znika z ekwipunku.

Za pewne większość z was powie 'zmień sobie w bazie aby biolog przyjmował po 15 sekundach', ale ja tak nie chcę . Mam na celu lekkie urozmaicenie na swoim serwerze .

Jeżeli jest możliwy taki Quest, to proszę o jego napisanie .

@edit: Czy wie ktoś jak dodawać wpisy do itemdesc? Bo chcę pod przedmiotem dodać opis .

@edit2: Say'e w queście: Gdy klikniemy na przedmiot pojawia się tekst: '' Nazwa przedmiotu: Dzięki temu przedmiotowi nie musisz czekać 24 godzin zanim oddasz następne zioła Biologowi, po użyciu tego kamienia, czas oddania następnych ziół, czy innych rzeczy zostaje zredukowany do 15 sekund.' Teraz przejście do następnego okna: 'Czy chcesz użyć Nazwa Przedmiotu? teraz say_reward: ''Uwaga! Ten przedmiot działa tylko przez godzinę!" pod spodem: "Tak", "Nie". Gdy ''Tak" - "Przedmiot został aktywowany. Pamiętaj działa on tylko przez godzinę!", gdy "Nie" - "Dobrze więc, zastanów się i użyj przedmiotu rozważnie".

Czyli że tak, używamy jakiegoś przedmiotu który działa przez godzinę a jego efektem jest możliwość oddawania przedmiotów co 15 sekund, tak?

MorlinkaUU11 · 6 Maja 2011

@UP: Owszem, dokładnie o to mi chodzi

Sunushi · 6 Maja 2011

@UP: Owszem, dokładnie o to mi chodzi

To będziesz musiał edytować każdego questa na biologa, już piszę to uzupełnienie.

MorlinkaUU11 · 6 Maja 2011

dobrze, czekam

Sunushi · 6 Maja 2011

A więc tak, pierwszą część już napisałem:

		when xxx.use begin
		if pc.getqf("next_time") < get_time() then
			say_title("Nazwa przedmiotu:")
			say("Dzięki temu przedmiotowi nie musisz czekać 24")
			say("godzin zanim oddasz następne zioła Biologowi,")
			say("po użyciu tego kamienia, czas oddania następnych")
			say("ziół, czy innych rzeczy zostaje zredukowany")
			say("do 15 sekund.")
			say("")
			say("Czy chcesz użyć Nazwa Przedmiotu?")
			say_reward("Uwaga! Ten przedmiot działa tylko przez godzinę!")
			local a = select("Tak","Nie")
			if a == 2 then
				say("Dobrze więc, zastanów się i użyj przedmiotu rozważnie")
			elseif a == 1 then
				say("Przedmiot został aktywowany.")
				say("Pamiętaj działa on tylko przez godzinę!")
				pc.setqf("next_time", get_time()+60*60)
			end
		else
			say("Efekt tego przedmiotu już trwa!")
		end
	end

qf next_time to godzina, czyli czas przez jaki można używać przedmiotu. Tą część najlepiej wkleić przed rozmową z biologiem na temat oddawania przedmiotu (przykładowo przed tym: when 20084.chat."Ząb Orka" with pc.count_item(30006) > 0 begin). I teraz zastanawiałem się nad następną częścią, jak zrobić to oczekiwanie 15-sto sekundowe. Są 2 opcje, qf albo timer. Timer jest prostszy w użyciu lecz resetuje się po restarcie serwa, qf pozostaje. No a więc spróbujmy z qf coś wykombinować. Najpierw wykombinowałem coś takiego:

    	when 20084.chat."Ząb Orka" with pc.count_item(30006) > 0 begin
		if pc.getqf("next_time") < get_time() then
			say("Efekt przedmiotu przestał działać.")
			say("Następnego Zęba możesz oddać za 24 godziny.")
			say("")
			pc.setqf("duration",get_time()+60*60*24)
			return
		end
		if pc.getqf("next_time") - get_time() <= 15 and pc.getqf("next_time") - get_time() >= 0 then 
			say("Efekt przedmiotu przestaje działać...")
			wait()
		end
		if get_time() > pc.getqf("duration") then
			say_title(mob_name(20084)..":")
			say("Znalazłeś dla mnie Zęba?")
			dalsza czesc questa...

Ta część sprawdza ile czasu działa jeszcze przedmiot (jeśli czas się skończył to ustawia czas następnego oddania na 24h i resetuje qf przedmiot) oraz informuje o końcu działania przedmiotu. Pozostało nam jeszcze ustawić czas oczekiwania na 15 sekund od czasu oddania ostatniego przedmiotu. Takie coś należy ustawić na samym końcu rozmowy, a więc:

						say("Ten Ząb jest doskonałej jakości!")
					say("Przynieś mi jeszcze "..10-pc.getqf("collect_count").. " Zębów.")
					say("Powodzenia w dalszym zdobywaniu!")
					say("")
					pc.setqf("drink_drug",0)
					if pc.getqf("next_time") > get_time() then
						pc.setqf("duration", get_time()+15)
					end
					return
				end

Uważam, że powinno to wszystko działać pomimo chaosu i szybkości w jakim go napisałem. Tak należy zrobić z każdym questem u biologa i aby to poprawnie działało może być odpalona na raz tylko jedna misja u niego. W razie problemów pisz

MorlinkaUU11 · 6 Maja 2011

Dzięki za pomoc

Ethylin · 6 Maja 2011

Witam!!

Chcial bym poprosić o napisanie questa takiego że idę do kowala daje mu 1kkk i a on mi daje item z epickiego eq, który sobie wybiorę

Chyba tak można

@EDIT

i chciał bym jeszcze o przerobienie tego questa, aby w totka można była grać co 10 min a nie co 2 godziny

quest lotek begin

state start begin

when 20042.chat."Duży lotek" begin

if get_time() >= pc.getqf("tajm") then

say_title("Witaj " .. pc . name .. "")

say("[ENTER]Czy chcesz zagrać w Dużego lotka ?[ENTER]")

local s=select("Tak", "Nie")

if s==1 then

say_title("Pani od Totolotka :")

say("[ENTER]Aby zagrać w Dużego lotka ,[ENTER]trzeba wpłacić 2000000 Yang.")

say("Losawać można co dwie godziny.")

say("Wybrane liczby musza byc od 1 do 36.")

say("Aby cos wygrać trzeba trafić przynajmniej 3 liczby.")

say("Wygrać można olbrzymią ilość Yang.")

say("[ENTER]Czy chczesz wziąć udział w losowaniu ?[ENTER]")

local s=select("Tak", "Rezyguje")

if s==1 then

if pc.money<2000000 then

say_title("Pani od Totolotka :")

say("[ENTER]Nie masz 20000000 Yang.[ENTER]")

else

pc.setqf("juz", 1)

pc.changemoney(-2000000)

say_title("Pani od Totolotka :")

say("[ENTER]A więc tak ,[ENTER]wybierz sześć liczb.[ENTER]")

wait()

say_title("Wpisz")

say("[ENTER]Liczbe numer 1 :[ENTER]")

local jeden = tonumber(input(""))

say_title("Wpisz")

say("[ENTER]Liczbe numer 2 :[ENTER]")

local dwa = tonumber(input(""))

say_title("Wpisz")

say("[ENTER]Liczbe numer 3 :[ENTER]")

local trzy = tonumber(input(""))

say_title("Wpisz")

say("[ENTER]Liczbe numer 4 :[ENTER]")

local cztery = tonumber(input(""))

say_title("Wpisz")

say("[ENTER]Liczbe numer 5 :[ENTER]")

local piec = tonumber(input(""))

say_title("Wpisz")

say("[ENTER]Liczbe numer 6 :[ENTER]")

local szesc = tonumber(input(""))

local jeeden = number(1, 36)

local dwaa = number(1, 36)

local trzyy = number(1, 36)

local czteryy = number(1, 36)

local pieec = number(1, 36)

local szescc = number(1, 36)

say_title("Pani od Totolotka :")

say("[ENTER]Twoje liczby to :[ENTER]")

say_reward(jeden.." , "..dwa.." , "..trzy.." , "..cztery.." , "..piec.." , "..szesc.."")

say("[ENTER]Wylosowane liczby to :[ENTER]")

say_reward(jeeden.." , "..dwaa.." , "..trzyy.." , "..czteryy.." , "..pieec.." , "..szescc.."[ENTER]")

if jeden == jeeden then