Pisanie / Poprawa Questów !

Stelios · 29 Października 2011

@UP

a jakby dać server_timer ?
server_timer("next" 60*60)
pokażesz jak ma to wyglądać ? bo nie wiem

tego nigdy nie używałem, więc nie wiem jak..

Ale qf jest dobre, najpierw ustawiasz w jakimś ifie sprawdzenie czy jest 0

czyli:

if pc.getqf("czas_1") == 0 then

później w tym ifie ustalasz na jaki czas ma go ustawić:

pc.setqf("czas_1", 60*60*2)

albo ustawiasz else co ma zrobić jeśli jest inne niż == 0 czyli

całość w przykładzie:

if pc.getqf("czas_1") == 0 then
pc.give_exp2( 500 )
pc.setqf("czas_1", 60*5)
else
say("Nie mozesz tego zrobic... Jeszcze.")
end

A jak chcesz ustawić z powrotem 0 ustawiasz tak:

if pc.getqf("czas_1") <= get_time() then
pc.setqf("czas_1", 0)

zrozumiałe? ;p

.:ShaZz:. · 30 Października 2011

Quest :

Lvl -> 70

Klikamy na quest i mamy do wyboru do zabicia 200 moobów o ID 1093 lub 300 moobów o ID 1094

nagroda

10000 rangi

100kk yang

5% expa

i do wyboru przedmiot

149 / 159 / 139 / 179 -> tylko 1 mozemy wybrac

kajojzdw · 30 Października 2011

Witam mam problem z questem nie wiem co jest z niom zle prosił bym o poprawe jego

quest atlanta begin
state start begin

when 20016.chat."Skradzione przedmioty!" with pc.get_level()>85 begin

say_title("Kowal:")

say("Witaj! Widze, ze wyrosles juz na zolnierza!")

say("Dobrze sie sklada!")

say("Poszedlem do handlarza zbroja na chwile[ENTER]a kiedy wrocilem go juz nie bylo!")

wait()

say("Hmm...")

say("Ale czego?")

wait()

say_item("Pierscionek zemsty", 30201, "")

say("On jest dla mnie bardzo wazny!")

wait()

say("Czy moglbys go dla mnie znalezc?")

local s=select("Sprobuje","Nie mam czasu")

if s==1 then

say("Hmm, tutaj, prosze, wszystko co musisz wiedziec[ENTER]zapisalem w liscie!")

set_state(accept)

end

state accept begin

when letter begin

send_letter("Pierscien kowala")

end

when button begin

say(locale.NOTICE_COLOR.."Pierscien kowala"..locale.NORMAL_COLOR)

say("Kowal zgubil swoj pierscien!")

say("Musisz go odzyskac!")

say("Znajdziesz go zabijajac Niebianskiego Zolnierza!")

say("Szukaj go w Atlantydzie!")

say("Znajduje sie ona w lewym dolnym rogu Seungryong")

set_state(kill)

end

when info begin

say(locale.NOTICE_COLOR.."Pierscien kowala"..locale.NORMAL_COLOR)

say("Kowal zgubil swoj pierscien!")

say("Musisz go odzyskac!")

say("Znajdziesz go zabijajac Niebianskiego Zolnierza!")

say("Szukaj go w Atlantydzie!")

say("Znajduje sie ona w lewym dolnym rogu Seungryong")

set_state(kill)

end

state kill begin

when 2401.kill begin

local random = math.random(35)

if random == 1 then

game.drop_item(30201, 1)

set_state(report)

else

return

end

end

state report begin

when letter begin

send_letter("Odnalazles Pierscien")

end

when button begin

say(locale.NOTICE_COLOR.."Odnalazles Pierscien"..locale.NORMAL_COLOR)

say("Udaj sie do kowala po nagrode!")

set_state(kowcio)

end

when info begin

say(locale.NOTICE_COLOR.."Odnalazles Pierscien"..locale.NORMAL_COLOR)

say("Udaj sie do kowala po nagrode!")

set_state(kowcio)

end

state kowcio begin

when 20016.chat."Znalazlem Pierscien" with pc.countitem(30201)>0 begin

say("Ohh! Znalazles moj pierscien!")

say("Co ja bym bez Ciebie zrobil!")

say("Tutaj! Masz, moje podziekowania!")

say("")

say_reward("Otrzymales pare Yang oraz nowy miecz, ktory stworzylem!")

if pc.job==0 then

local s = select ( "Miecz Bojowy+5" , "Partyzana+5" )

if s == 1 then

pc.give_item2(145)

if s == 2 then

pc.give_item2(3135)

say_reward("Dostałes swój itemek")

end

if pc.job==1 then

local s = select ( "Smoczy nóż+5" , "Olbrzymi Łuk Żółtego Smoka+5" )

if s == 1 then

pc.give_item2(1105)

if s == 2 then

pc.give_item2(2145)

say_reward("Dostałes swój itemek")

end

if pc.job==2 then

local s = select ( "Miecz Egzorcysty+5" , "Miecz Szponu Ducha+5" )

if s == 1 then

pc.give_item2(245)

if s == 2 then

pc.give_item2(155)

say_reward("Dostałes swój itemek")

end

if pc.job==3 then

local s = select ( "Dzwon Burzowego Ptaka+5" , "Wachlarz Zbawienia+5" )

if s == 1 then

pc.give_item2(5095)

if s == 2 then

pc.give_item2(7145)

say_reward("Dostałes swój itemek")

pc.changegold(550000)

end

end

end

Stelios · 30 Października 2011

@UP Pozjadało endy, nie zamykasz state prawie żadnego..

przykład z tego questa:

set_state(kill)
end
state kill begin
when 2401.kill begin

A tak ode mnie, proszę o ustawianie questa w code i spoilerze.

@EDIT

A poza tym, po co ustawiasz button i info oddzielnie?

lepiej zrobić:

when button or info begin

janek1700 · 30 Października 2011

Witam znalazłem tu na forum jak napisać questa, zrobiłem go ale wyskakuje mi bląd podczas wrzucania go na serwer.

Robiłem to dopiero pierwszy raz, czy ktoś mógłby znaleźć i poprawić błędy jakie popełniłem ?

To jest quest

quest Kamienie Dusz begin

state start begin

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

set_state(Uriel Cię szuka ! Skieruj się szybko do niego)

end

state info begin

when letter begin

local v = find_npc_by_vnum(20005)

if v != 0 then

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

end

send_letter("Yohan Cię Szuka")

end

when button or info begin

say_title("Skieruj się do Yohana")

say("Yohan potrzebuje pomocy ze złodziejami Kamieni Dusz")

say("Idz zauoferuj mu swoją pomoc")

say_reward("Zrób to dobrze a na pewno Cię wynagrodzi")

end

when __TARGET__.target.click or

20005.chat."Kamienie Dusz" begin

target.delete("__TARGET__")

say_title("Co Znowu ?! ")

say("A to Ty,Gdy spokojnie rozmawiałem z Kapitanem o stanie naszej wioski zaatakowały nas przęklete Czarne Orki.Ich celem były kamienie dusz, które miały wzmocnić ekiwpunek naszych wojowników podczas wojen,oraz wszelkich potyczek z wrogimi królestwami")

say_reward("Idz na Doline Orków, Odbierz nasze Kamienie zabijając Czarne Orki ")

set_state(kill)

end

state kill begin

when letter begin

send_letter("Zabij Złoczyńców")

end

when button or info begin

say("Zabij Czarne Orki,i odyzkaj nasze kamienie ! Znajdziesz je na środkowej wyspie Doliny Seungryong")

end

when 636.kill with pc.countitem(ID_ITEMU)==0 begin

local random = math.random(10)

if random == 1 then

pc.give_item2(28100, 1)

say("Oh,znalazłeś nasz kamień. Biegnij szybko zanieść go Yohanowi")

say_reward("na pewno solidnie CIę wynagrodzi")

local v = find_npc_by_vnum(20005)

if v != 0 then

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

end

when 20005.chat."Kamień Dusz" with pc.countitem(28100)>0 begin

target.delete("__TARGET__")

say_title("Oh Dzielny Wojowniku")

say("Odzyskałeś kamień , który wzmocni szeregi naszych wojsk potężną mocą.A w nagrode otrzymasz niespodziewaną niespodziewankę

say_reward("A w nagrode otrzymasz niespodziewaną niespodziewankę")

pc.remove_item(28100,1)

pc.give_item2(28641)

set_state(drugi_seit)

end

GoGame · 30 Października 2011

@UP

Poprawiony:

quest Kamienie_Dusz begin
state start begin
	when login or levelup with pc.level() >= 43 begin
		set_state(info)
	end
end
state info begin
	when letter begin
		local v = find_npc_by_vnum(20005)
		if v != 0 then
			target.vid("__TARGET__", v, "Yohan")
		end
		send_letter("Yohan Cię Szuka")
	end
	when button or info begin
		say_title("Skieruj się do Yohana")
		say("Yohan potrzebuje pomocy ze złodziejami Kamieni Dusz")
		say("Idz zauoferuj mu swoją pomoc")
		say_reward("Zrób to dobrze a na pewno Cię wynagrodzi")
	end
	when __TARGET__.target.click or 20005.chat."Kamienie Dusz" begin
		target.delete("__TARGET__")
		say_title("Co Znowu ?! ")
		say("A to Ty,Gdy spokojnie rozmawiałem z Kapitanem o stanie naszej wioski zaatakowały[ENTER]nas przęklete Czarne Orki.Ich celem były kamienie dusz, które miały wzmocnić[ENTER]ekiwpunek naszych wojowników podczas wojen,oraz wszelkich potyczek z wrogimi królestwami")
		say_reward("Idz na Doline Orków, Odbierz nasze Kamienie zabijając Czarne Orki ")
		set_state(kill)
	end
end
state kill begin
	when letter begin
		send_letter("Zabij Złoczyńców")
	end
	when button or info begin
		say("Zabij Czarne Orki,i odyzkaj nasze kamienie ! Znajdziesz je na środkowej wyspie Doliny Seungryong")
	end
	when 636.kill with pc.countitem(ID_ITEMU)==0 begin
		local random = math.random(10)
		if random == 1 then
			pc.give_item2(28100, 1)
			say("Oh,znalazłeś nasz kamień. Biegnij szybko zanieść go Yohanowi")
			say_reward("na pewno solidnie CIę wynagrodzi")
			local v = find_npc_by_vnum(20005)
			if v != 0 then
				target.vid("__TARGET__", v, "Yohan")
			end
		end
	end
	when 20005.chat."Kamień Dusz" with pc.countitem(28100)>0 begin
		target.delete("__TARGET__")
		say_title("Oh Dzielny Wojowniku")
		say("Odzyskałeś kamień , który wzmocni szeregi naszych wojsk potężną mocą.")
		say_reward("A w nagrode otrzymasz niespodziewaną niespodziewankę")
		pc.remove_item(28100,1)
		pc.give_item2(28641)
		set_state(__COMPLETE__)
	end
end
state __COMPLETE__ begin
end
end

-w nazwach questa , state'a nie może być spacji , użyj _ (podkreślenie)

-set_state() przenosi do kolejnego state'a i nie może być :

state start begin
when login begin
	set_state(Uriel Cię szuka ! Skieruj się szybko do niego)
end
end
state info begin

może być tak :

state start begin
when login begin
	set_state(Uriel_Cię_szuka__Skieruj_się_szybko_do_niego)
end
end
state Uriel_Cię_szuka__Skieruj_się_szybko_do_niego begin

@3UP

Poprawiony:

quest atlanta begin
state start begin
	when 20016.chat."Skradzione przedmioty!" with pc.get_level()>85 begin
		say_title("Kowal:")
		say("Witaj! Widze, ze wyrosles juz na zolnierza!")
		say("Dobrze sie sklada!")
		say("Poszedlem do handlarza zbroja na chwile[ENTER]a kiedy wrocilem go juz nie bylo!")
		wait()
		say("Hmm...")
		say("Ale czego?")
		wait()
		say_item("Pierscionek zemsty", 30201, "")
		say("On jest dla mnie bardzo wazny!")
		wait()
		say("Czy moglbys go dla mnie znalezc?")
		local s=select("Sprobuje","Nie mam czasu")
		if s==1 then
			say("Hmm, tutaj, prosze, wszystko co musisz wiedziec[ENTER]zapisalem w liscie!")
			set_state(accept)
		else
			return
		end
	end
end
state accept begin
	when letter begin
		send_letter("Pierscien kowala")
	end
	when button or info begin
		say(locale.NOTICE_COLOR.."Pierscien kowala"..locale.NORMAL_COLOR)
		say("Kowal zgubil swoj pierscien!")
		say("Musisz go odzyskac!")
		say("Znajdziesz go zabijajac Niebianskiego Zolnierza!")
		say("Szukaj go w Atlantydzie!")
		say("Znajduje sie ona w lewym dolnym rogu Seungryong")
		set_state(kill)
	end
end
state kill begin
	when 2401.kill begin
		local random = math.random(35)
		if random == 1 then
			game.drop_item(30201, 1)
			set_state(report)
		end
	end
end
state report begin
	when letter begin
		send_letter("Odnalazles Pierscien")
	end
	when button or info begin
		say(locale.NOTICE_COLOR.."Odnalazles Pierscien"..locale.NORMAL_COLOR)
		say("Udaj sie do kowala po nagrode!")
		set_state(kowcio)
	end
end
state kowcio begin
	when 20016.chat."Znalazlem Pierscien" with pc.countitem(30201)>0 begin
		say("Ohh! Znalazles moj pierscien!")
		say("Co ja bym bez Ciebie zrobil!")
		say("Tutaj! Masz, moje podziekowania!")
		say("")
		say_reward("Otrzymales pare Yang oraz nowy miecz, ktory stworzylem!")
		if pc.job==0 then
			local s = select ( "Miecz Bojowy+5" , "Partyzana+5" )
			if s == 1 then
				pc.give_item2(145)
				say_reward("Dostałes swój itemek")
			elseif s == 2 then
				pc.give_item2(3135)
				say_reward("Dostałes swój itemek")
			end
		elseif pc.job==1 then
			local s = select ( "Smoczy nóż+5" , "Olbrzymi Łuk Żółtego Smoka+5" )
			if s == 1 then
				pc.give_item2(1105)
				say_reward("Dostałes swój itemek")
			elseif s == 2 then
				pc.give_item2(2145)
				say_reward("Dostałes swój itemek")
			end
		elseif pc.job==2 then
			local s = select ( "Miecz Egzorcysty+5" , "Miecz Szponu Ducha+5" )
			if s == 1 then
				pc.give_item2(245)
				say_reward("Dostałes swój itemek")
			elseif s == 2 then
				pc.give_item2(155)
				say_reward("Dostałes swój itemek")
			end
		elseif pc.job==3 then
			local s = select ( "Dzwon Burzowego Ptaka+5" , "Wachlarz Zbawienia+5" )
			if s == 1 then
				pc.give_item2(5095)
				say_reward("Dostałes swój itemek")
			elseif s == 2 then
				pc.give_item2(7145)
				say_reward("Dostałes swój itemek")
			end
		end
		pc.changegold(550000)
	end
end
end

Huhu Dużo Błędów...

janek1700 · 30 Października 2011

użytkownik GoGame poprawił mój quest na poniższy. lecz nadal nie mogę go wgrać. Jakie są tu jeszcze błędy ?

quest Kamienie_Dusz begin

state start begin

when login or levelup with pc.level() >= 43 begin

set_state(info)

end

state info begin

when letter begin

local v = find_npc_by_vnum(20005)

if v != 0 then

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

end

send_letter("Yohan Cię Szuka")

end

when button or info begin

say_title("Skieruj się do Yohana")

say("Yohan potrzebuje pomocy ze złodziejami Kamieni Dusz")

say("Idz zauoferuj mu swoją pomoc")

say_reward("Zrób to dobrze a na pewno Cię wynagrodzi")

end

when __TARGET__.target.click or 20005.chat."Kamienie Dusz" begin

target.delete("__TARGET__")

say_title("Co Znowu ?! ")

say("A to Ty,Gdy spokojnie rozmawiałem z Kapitanem o stanie naszej wioski zaatakowały[ENTER]nas przęklete Czarne Orki.Ich celem były kamienie dusz, które miały wzmocnić[ENTER]ekiwpunek naszych wojowników podczas wojen,oraz wszelkich potyczek z wrogimi królestwami")

say_reward("Idz na Doline Orków, Odbierz nasze Kamienie zabijając Czarne Orki ")

set_state(kill)

end

state kill begin

when letter begin

send_letter("Zabij Złoczyńców")

end

when button or info begin

say("Zabij Czarne Orki,i odyzkaj nasze kamienie ! Znajdziesz je na środkowej wyspie Doliny Seungryong")

end

when 636.kill with pc.countitem(ID_ITEMU)==0 begin

local random = math.random(10)

if random == 1 then

pc.give_item2(28100, 1)

say("Oh,znalazłeś nasz kamień. Biegnij szybko zanieść go Yohanowi")

say_reward("na pewno solidnie CIę wynagrodzi")

local v = find_npc_by_vnum(20005)

if v != 0 then

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

end

when 20005.chat."Kamień Dusz" with pc.countitem(28100)>0 begin

target.delete("__TARGET__")

say_title("Oh Dzielny Wojowniku")

say("Odzyskałeś kamień , który wzmocni szeregi naszych wojsk potężną mocą.")

say_reward("A w nagrode otrzymasz niespodziewaną niespodziewankę")

pc.remove_item(28100,1)

pc.give_item2(28641)

set_state(__COMPLETE__)

end

state __COMPLETE__ begin

end

.:ShaZz:. · 30 Października 2011

Witam. Prosilbym o takowego questa

Quest :

Lvl -> 70

Klikamy na quest i mamy do wyboru do zabicia 200 moobów o ID 1093 lub 300 moobów o ID 1094

nagroda

10000 rangi

100kk yang

5% expa

i do wyboru przedmiot

149 / 159 / 139 / 179 -> tylko 1 mozemy wybrac

Stelios · 30 Października 2011

użytkownik GoGame poprawił mój quest na poniższy. lecz nadal nie mogę go wgrać. Jakie są tu jeszcze błędy ?

quest Kamienie_Dusz begin

state start begin

when login or levelup with pc.level() >= 43 begin

set_state(info)

end

end

state info begin

when letter begin

local v = find_npc_by_vnum(20005)

if v != 0 then

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

end

send_letter("Yohan Cię Szuka")

end

when button or info begin

say_title("Skieruj się do Yohana")

say("Yohan potrzebuje pomocy ze złodziejami Kamieni Dusz")

say("Idz zauoferuj mu swoją pomoc")

say_reward("Zrób to dobrze a na pewno Cię wynagrodzi")

end

when __TARGET__.target.click or 20005.chat."Kamienie Dusz" begin

target.delete("__TARGET__")

say_title("Co Znowu ?! ")

say("A to Ty,Gdy spokojnie rozmawiałem z Kapitanem o stanie naszej wioski zaatakowały[ENTER]nas przęklete Czarne Orki.Ich celem były kamienie dusz, które miały wzmocnić[ENTER]ekiwpunek naszych wojowników podczas wojen,oraz wszelkich potyczek z wrogimi królestwami")

say_reward("Idz na Doline Orków, Odbierz nasze Kamienie zabijając Czarne Orki ")

set_state(kill)

end

end

state kill begin

when letter begin

send_letter("Zabij Złoczyńców")

end

when button or info begin

say("Zabij Czarne Orki,i odyzkaj nasze kamienie ! Znajdziesz je na środkowej wyspie Doliny Seungryong")

end

when 636.kill with pc.countitem(ID_ITEMU)==0 begin

local random = math.random(10)

if random == 1 then

pc.give_item2(28100, 1)

say("Oh,znalazłeś nasz kamień. Biegnij szybko zanieść go Yohanowi")

say_reward("na pewno solidnie CIę wynagrodzi")

local v = find_npc_by_vnum(20005)

if v != 0 then

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

end

end

end

when 20005.chat."Kamień Dusz" with pc.countitem(28100)>0 begin

target.delete("__TARGET__")

say_title("Oh Dzielny Wojowniku")

say("Odzyskałeś kamień , który wzmocni szeregi naszych wojsk potężną mocą.")

say_reward("A w nagrode otrzymasz niespodziewaną niespodziewankę")

pc.remove_item(28100,1)

pc.give_item2(28641)

set_state(__COMPLETE__)

end

end

state __COMPLETE__ begin

end

end

Polski znak przy ")

say_reward("A w nagrode otrzymasz niespodziewaną niespodziewankę")

A jaki błąd wywala?

.:ShaZz:. · 30 Października 2011

Witam. Prosilbym o takowego questa

Quest :

Lvl -> 70

Klikamy na quest i mamy do wyboru do zabicia 200 moobów o ID 1093 lub 300 moobów o ID 1094

nagroda

10000 rangi

100kk yang

5% expa

i do wyboru przedmiot

149 / 159 / 139 / 179 -> tylko 1 mozemy wybrac

GoGame · 30 Października 2011

@UP

Nie wiem czy dobrze napisany ale powinno działać

(przy wgrywaniu jest state : __COMPLETE__ , czyli dochodzi do końca bez błędów )

quest polowanie begin
state start begin
	when login or levelup with pc.level() >= 70 begin
		set_state(polowanie)
	end
end
state polowanie begin
	when letter begin
		send_letter(Polowanie)
	end
	when button or info begin
		say("Możesz Wybrać:")
		say_reward("Umarły Rozpruwacz - 200")
		say_reward("Elitarny Podły Król Demonów - 300")
		wait()
		local a = select("Umarły Rozpruwacz - 200","Elitarny Podły Król Demonów - 300")
		if a == 1 then
			set_state(__1093__)
		elseif a == 2 then
			set_state(__1094__)
		end
	end
end
state __1093__ begin
	when 1093.kill begin
		local count = pc.setqf("ile")+200
		if count < 200 then
			pc.getqf("ile", count)
		end
		if count == 200 then
			chat("Zabiłeś 200 "..mob_name(1093).." !")
			chat("Udaj się do Uriel po nagrodę.")
			set_state(__REWARD__)
		end
	end
end
state __1094__ begin
	when 1094.kill begin
		local count2 = pc.setqf("ile2")+300
		if count2 < 300 then
			pc.getqf("ile2", count2)
		end
		if count2 == 300 then
			chat("Zabiłeś 300 "..mob_name(1094).." !")
			chat("Udaj się do Uriel po nagrodę.")
			set_state(__REWARD__)
		end
	end
end
state __REWARD__ begin
	when 20011.chat."Nagroda" begin
		say_title(mob_name(20011)" :")
		say("Wybierz jaką chcesz otrzymać broń !")
		pc.change_alignment(pc.get_alignment() +10000)
		pc.change_money(pc.get_money() +100000000)
		pc.give_exp_perc(5)
		local b = select("Półksiężycowy Miecz","Bojowy Miecz","Miecz Szponu Ducha","Miecz Żądło")
		if b == 1 then
			pc.give_item(139, 1)
			say_reward("Otrzymałeś Półksiężycowy Miecz +9 !")
		end
		if b == 2 then
			pc.give_item(149, 1)
			say_reward("Otrzymałeś Bojowy Miecz +9 !")
		end
		if b == 3 then
			pc.give_item(159, 1)
			say_reward("Otrzymałeś Miecz Szponu Ducha +9 !")
		end
		if b == 4 then
			pc.give_item(179, 1)
			say_reward("Otrzymałeś Miecz Żądło +9 !")
		end
		set_state(__COMPLETE__)
	end
end
state __COMPLETE__ begin
end
end

Stelios · 30 Października 2011

@UP

local count = pc.setqf("ile")+200

+1 zamiast +200

i tu też

local count2 = pc.setqf("ile2")+300

GoGame · 30 Października 2011

@UP

dzięki za poprawę

@2UP

tutaj Quest z poprawą Steliosa :

quest polowanie begin
   state start begin
       when login or levelup with pc.level() >= 70 begin
           set_state(polowanie)
       end
   end
   state polowanie begin
       when letter begin
           send_letter(Polowanie)
       end
       when button or info begin
           say("Możesz Wybrać:")
           say_reward("Umarły Rozpruwacz - 200")
           say_reward("Elitarny Podły Król Demonów - 300")
           wait()
           local a = select("Umarły Rozpruwacz - 200","Elitarny Podły Król Demonów - 300")
           if a == 1 then
               set_state(__1093__)
           elseif a == 2 then
               set_state(__1094__)
           end
       end
   end
   state __1093__ begin
       when 1093.kill begin
           local count = pc.setqf("ile")+1
           if count < 200 then
               pc.getqf("ile", count)
           end
           if count == 200 then
               chat("Zabiłeś 200 "..mob_name(1093).." !")
               chat("Udaj się do Uriel po nagrodę.")
               set_state(__REWARD__)
           end
       end
   end
   state __1094__ begin
       when 1094.kill begin
           local count = pc.setqf("ile2")+1
           if count2 < 300 then
               pc.getqf("ile2", count2)
           end
           if count2 == 300 then
               chat("Zabiłeś 300 "..mob_name(1094).." !")
               chat("Udaj się do Uriel po nagrodę.")
               set_state(__REWARD__)
           end
       end
   end
   state __REWARD__ begin
       when 20011.chat."Nagroda" begin
           say_title(mob_name(20011)" :")
           say("Wybierz jaką chcesz otrzymać broń !")
           pc.change_alignment(pc.get_alignment() +10000)
           pc.change_money(pc.get_money() +100000000)
           pc.give_exp_perc(5)
           local b = select("Półksiężycowy Miecz","Bojowy Miecz","Miecz Szponu Ducha","Miecz Żądło")
           if b == 1 then
               pc.give_item(139, 1)
               say_reward("Otrzymałeś Półksiężycowy Miecz +9 !")
           end
           if b == 2 then
               pc.give_item(149, 1)
               say_reward("Otrzymałeś Bojowy Miecz +9 !")
           end
           if b == 3 then
               pc.give_item(159, 1)
               say_reward("Otrzymałeś Miecz Szponu Ducha +9 !")
           end
           if b == 4 then
               pc.give_item(179, 1)
               say_reward("Otrzymałeś Miecz Żądło +9 !")
           end
           set_state(__COMPLETE__)
       end
   end
   state __COMPLETE__ begin
   end
end

szeler · 30 Października 2011

Witam

Potrzebuje questa.

Polegającego na:

Żeby wejsc do Groty Wygnanców potrzebujemy Krwistego kamienia i 75 lvl jesli nie mam 75 lvl to Pisze że "Masz za niski poziom wróc kiedy nabierzesz wiecej doświadczenia" a jesli nie ma się kamienia to "Nie Posiadasz Krwistego Kamienia zdobądź go i wróć ponownie"

A reszta to jak już będzie pozdrawiam

Donik · 30 Października 2011

Siema,

Potrzebuję questa, a raczej kontynuację:

local vid = d.spawn_mob(2291, 1302, 708)

d.set_unique("real", vid)

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

end

when 2291.kill with pc.in_dungeon() begin

if d.is_unique_dead("real") then

d.setf("devillevel", 0)

d.notice("Ihr habt den Roten Drache, den Wächter des Tals von Ascaria besiegt.");

d.notice("Ihr werdet in 20 Sekunden zurück zum Anfang teleport..");

timer("devildown_escapetimer", 20)

end

when devildown_escapetimer.timer begin

d.exit_all()

end

To wyżej to jest zakończenie questa, ale potrzebuję, żeby po zabiciu tamtego bosa nie wywalało a przenosiło na kolejną lokalizację gdzie od razu zrespi się kolejny boss i po zabiciu jego ma przenosić do miasta.

Wisz · 31 Października 2011

quest Polowanie begin
state start begin
when login or levelup with pc.level >= 5 begin
set_state(da1)
end
end
state da1 begin
when letter begin
send_letter("Polowanie")
end
when button or info begin
say_title("Polowanie:")
say("a")
say("b")
say("c")
say_reward("d")
local s1 = select("Test nr 1", "Test nr 2")
if s1 == 1 then
say_reward("Musisz Zabic Test nr 1")
set_state(kora)
else
say_reward("Musisz Zabic Test nr 2")
set_state(kora2)
end
end
end
state kora begin
when letter begin
send_letter("Polowanie")
end
when button or info begin
say_reward("Musisz Zabic : Test nr 1")
end
when 102.kill begin
if pc.getqf("zabiciosze") < 10 then
pc.setqf("zabiciosze", pc.getqf("zabiciosze")+1)
else
chat("Zabiles juz wszystkie Mobki!")
set_state(koniec)
end
end
end
state kora2 begin
when letter begin
send_letter("Polowanie")
end
when button or info begin
say_reward("Musisz Zabic: Test nr 2")
end
when 101.kill begin
if pc.getqf("zabiciosze") < 8 then
pc.setqf("zabiciosze", pc.getqf("zabiciosze")+1)
else
chat("Zabiles juz wszystkie Mobki!")
set_state(koniec)
end
end
end
state koniec begin
when letter begin
send_letter("Polowanie")
end
when button or info begin
say_title("Polowanie:")
say("a")
say("b")
say("c")
say_reward("d")
pc.change_gold(111 )
pc.give_item2(1 )
horse . advance ( 30 )
pc.change_alignment( 2000000 )
pc . give_exp2 ( 50 )
set_state(KONIEC2)
end
end
state KONIEC2 begin
end
end

Moze to ktoś mi przerobić zeby było tak :

Idziemy do NPC o id ; 20095 i od niego dostajemy ten quest

Jak juz mamy to pokazuje nam ile zostąło moobów do zabicia

Gdy ubijemy mooby wracamy do tego NPC i dostajemy nagrode

kokszpodworza · 31 Października 2011

----------------------------------
-- Main Quest LV1
-- łqŞľ°Ý   
----------------------------------
quest main_quest_lv1 begin
state start begin
when login begin
if pc.getqf("first_login") == 0 then
                               pc.setqf("first_login", 1)
set_state( gotoinfomation )
end
end
state gotoinfomation begin
when letter begin
send_letter("Witaj Nowy Graczu")
end
when button or info begin
say_title("Witaj Na IceMT2")

----"12345678901234567890123456789012345678901234567890"|
say("Serdecznie Witamy.")
say("Na Start Dostaniesz EQ i Kase")
say("Raty na serwerze są w miare dobre")
say("Jeżeli masz jakieś problemy")
say("Wal na PW do Wisniowy1901")
say("")
say("Życzymy miłej i przyjemnej gry")
say("Administracja Serwera IceMT2")
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, "Strażnik Miejski")
end
end
when letter begin
send_letter("Udaj się do nauczyciela")
end
when button or info begin
say_title("Nauczyciel cię wzywa!!")
say("Udaj się do stażnika miasta")
say("")
----------"12345678901234567890123456789012345678901234567890"|
say_reward("Strażnik Miasta ma dla ciebie zadanie")
say_reward("Udaj się do niego.")
say_reward("Możesz się od niego wiele nauczyć.")
say("")
end
when __TARGET__.target.click begin
target.delete("__TARGET__")
say("Nauka")

----"12345678901234567890123456789012345678901234567890"|
say("Witaj Młody Wojowniku")
say("Zanim nie nauczysz się władać bronią")
say("Będę ci pomagał.")
say("Ale Pamiętaj!")
say("Nie będę ci pomagał cały czas.")
say("A ty wzamian będziesz w przyszłości")
say("Pomagał innym młodym adeptom naszej armii.")
say("I byś pamiętał, że ty też kiedyś taki byłeś")
say("Zaczekaj jeszcze chwilę")

say("")
wait()
say("Mam coś dla ciebie.")
say("To twój pierwszy ekwipunek ")
say("Trzymaj też garstke pieniędzy")
say("POWODZENIA.") 
say("")
say_title("Wybierz jaki chcesz ekwipunek")

local s = select("Wojownik", "Ninja", "Sura", "Szaman")
if s == 1 them
pc.give_item2(19)
pc.give_item2(11209)
pc.give_item2(12209)
elseif s == 2 then
pc.give_item2(19)
pc.give_item2(11409)
pc.give_item2(12349)
elseif s == 3 them
pc.give_item2(19)
pc.give_item2(11609)
pc.give_item2(12489)
elseif s == 4 them
pc.give_item2(7009)
pc.give_item2(11809)
pc.give_item2(12629)
end
pc.give_item2(14009)
pc.give_item2(15009)
pc.give_item2(16009)
pc.give_item2(17009)
pc.give_item2(13009
pc.change_money(20000000)
pc.give_exp2(pc.get_next_exp())
pc.give_exp2(pc.get_next_exp())
pc.give_exp2(pc.get_next_exp())
pc.give_exp2(pc.get_next_exp())
pc.give_exp2(pc.get_next_exp())
horse.set_level ( 21 )
horse.ride()

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

Spolszczyłem tego questa według własnego upodobania ale wchodząc na serwer nową postacią (jak powinno być) nie pokazuje się ten zwój z boku

GoGame · 31 Października 2011

@2UP

--[[
Quest By GoGame
V2
]]
quest Polowanie begin
state start begin
	when login or levelup with pc.level >= 5 begin
		set_state(da1)
	end
end
state da1 begin
	when letter begin
		local a = find_npc_by_vnum(20095)
		if a != 0 then
			target.vid("__CEL__", a, "Cel")
		end
		send_letter("Polowanie")
	end
	when button or info begin
		say_title("Polowanie:")
		say("a")
		say("b")
		say("c")
		say_reward("d")
		say_reward("Udaj się do "..mob_name(20095).." !")
	end
	when __CEL__.target.click or 20095.chat."Polowanie" begin
		target.delete("__CEL__")
		local s1 = select("Test nr 1", "Test nr 2")
		if s1 == 1 then
			say_reward("Musisz Zabic Test nr 1")
			set_state(kora)
		else
			say_reward("Musisz Zabic Test nr 2")
			set_state(kora2)
		end
	end
end
state kora begin
	when letter begin
		send_letter("Polowanie")
	end
	when button or info begin
		say_reward("Zabiłeś już : "..pc.getqf("zabiciosze").."")

	end
	when 102.kill begin
		if pc.getqf("zabiciosze") < 10 then
		pc.setqf("zabiciosze", pc.getqf("zabiciosze")+1)
		else
		chat("Zabiles juz wszystkie Mobki!")
		set_state(koniec)
		end
	end
end
state kora2 begin
	when letter begin
		send_letter("Polowanie")
	end
	when button or info begin
		say_reward("Zabiłeś już : "..pc.getqf("zabiciosze").."")
	end
	when 101.kill begin
		if pc.getqf("zabiciosze") < 8 then
		pc.setqf("zabiciosze", pc.getqf("zabiciosze")+1)
		else
		chat("Zabiles juz wszystkie Mobki!")
		set_state(koniec)
		end
	end
end
state koniec begin
	when letter begin
		local b = find_npc_by_vnum(20095)
		if b != 0 then
			target.vid("__REWARD__", b, "Nagroda")
		end
		send_letter("Wróć po nagrodę !")
	end
		when button or info begin
		say_title("Wróć Po nagrodę !")
		say("a")
		say("b")
		say("c")
		say_reward("d")
	end
	when __REWARD__.target.click or 20095.chat."Nagroda" begin
	    target.delete("__REWARD__")
		pc.change_gold(111 )
		pc.give_item2(1 )
		horse . advance ( 30 )
		pc.change_alignment( 2000000 )
		pc . give_exp2 ( 50 )
		set_state(KONIEC2)
	end
end
state KONIEC2 begin
end
end

tamten Quest to mój Quest dla użytkownika .:ShaZz:.

zmieniłeś jedynie teksty na : a , b , c , d

i nazwy questów, stateów no i nagroda , a tak poza tym to pomysł jego wykonanie moje + 1 poprawa steliosa

jednym słowem ŻAL.pl :D

ale napisałem ci go , powinno działać

chociaż nie jestem pewien co do pokazywania ile już zabiłeś

@UP

zamiast tego :

when login begin
if pc.getqf("first_login") == 0 then
							pc.setqf("first_login", 1)
set_state( gotoinfomation )
end
end

daj tak :

   	 when login with pc.getqf("first_login") == 0 begin
		pc.setqf("first_login", 1)
		set_state(gotoinfomation)
	end

zamiast tego :

when letter begin
local v=find_npc_by_vnum(20354)
if 0==v then
else
target.vid("__TARGET__", v, "Strażnik Miejski")
end
end
when letter begin
send_letter("Udaj się do nauczyciela")
end

daj tak :

when letter begin
local v = find_npc_by_vnum(20354)
if v != 0 then
	target.vid("__TARGET__", v, "Strażnik Miejski")
end
send_letter("Udaj się do nauczyciela")
end

Wisz · 31 Października 2011

@2UP

--[[
Quest By GoGame
V2
]]
quest Polowanie begin
state start begin
	when login or levelup with pc.level >= 5 begin
		set_state(da1)
	end
end
state da1 begin
	when letter begin
		local a = find_npc_by_vnum(20095)
		if a != 0 then
			target.vid("__CEL__", a, "Cel")
		end
		send_letter("Polowanie")
	end
	when button or info begin
		say_title("Polowanie:")
		say("a")
		say("b")
		say("c")
		say_reward("d")
		say_reward("Udaj się do "..mob_name(20095).." !")
	end
	when __CEL__.target.click or 20095.chat."Polowanie" begin
		target.delete("__CEL__")
		local s1 = select("Test nr 1", "Test nr 2")
		if s1 == 1 then
			say_reward("Musisz Zabic Test nr 1")
			set_state(kora)
		else
			say_reward("Musisz Zabic Test nr 2")
			set_state(kora2)
		end
	end
end
state kora begin
	when letter begin
		send_letter("Polowanie")
	end
	when button or info begin
		say_reward("Zabiłeś już : "..pc.getqf("zabiciosze").."")

	end
	when 102.kill begin
		if pc.getqf("zabiciosze") < 10 then
		pc.setqf("zabiciosze", pc.getqf("zabiciosze")+1)
		else
		chat("Zabiles juz wszystkie Mobki!")
		set_state(koniec)
		end
	end
end
state kora2 begin
	when letter begin
		send_letter("Polowanie")
	end
	when button or info begin
		say_reward("Zabiłeś już : "..pc.getqf("zabiciosze").."")
	end
	when 101.kill begin
		if pc.getqf("zabiciosze") < 8 then
		pc.setqf("zabiciosze", pc.getqf("zabiciosze")+1)
		else
		chat("Zabiles juz wszystkie Mobki!")
		set_state(koniec)
		end
	end
end
state koniec begin
	when letter begin
		local b = find_npc_by_vnum(20095)
		if b != 0 then
			target.vid("__REWARD__", b, "Nagroda")
		end
		send_letter("Wróć po nagrodę !")
	end
		when button or info begin
		say_title("Wróć Po nagrodę !")
		say("a")
		say("b")
		say("c")
		say_reward("d")
	end
	when __REWARD__.target.click or 20095.chat."Nagroda" begin
		pc.change_gold(111 )
		pc.give_item2(1 )
		horse . advance ( 30 )
		pc.change_alignment( 2000000 )
		pc . give_exp2 ( 50 )
		set_state(KONIEC2)
	end
end
state KONIEC2 begin
end
end

tamten Quest to mój Quest dla użytkownika .:ShaZz:.

zmieniłeś jedynie teksty na : a , b , c , d

i nazwy questów, stateów no i nagroda , a tak poza tym to pomysł jego wykonanie moje + 1 poprawa steliosa

jednym słowem ŻAL.pl :D

ale napisałem ci go , powinno działać

chociaż nie jestem pewien co do pokazywania ile już zabiłeś

Właściwie to nie bo tego questa robiłem z generatora questów =d

Silver™ · 31 Października 2011

Witam Poprosiłbym o kilka questów do biologa niżej podam czas co ile ma być oddawany przedmiot i jaka nagroda

Zęby Orka - 15 ptk. Poruszania się. 5kk Zbroja na 61 lvl +5 Oddawanie co 1 s
Księgi Klątw - 6kk  5 Szybkości Ataku , Tarcza na 61 lvl +0 i Hełm Na 41 +7 Oddawanie co 1 s
Pamiątki po demonie - Def 100 , Broń na 65 +7 i 10kk Oddawanie co 1 s
Matowe Lody - 100 Wartości Ataku 10kk 3 perły do wyboru Oddawanie co 30 min
Konary Zelkova - 10% na potwory 15kk 30 min
Certyfikaty Tugyisa - 10% na ludzi 20kk 30 min
Czerw. Konary Duchodrzewa - 10 Średnie obrażenia  lub 5 Obrażenia UM. 30 min
Notatka Przywódcy - 3k hp Oddawanie co 1 h

Stelios · 31 Października 2011

@GoGame,

--[[
Quest By GoGame
V2
]]

komentarz oznaczamy tylko -

np.:

--- komentarz
- komentarz

GoGame · 31 Października 2011

@UP

a co za różnica , w lua to też komentarz | nie trzeba dawać cały czas od nowej linii --

ale jak już tak chcesz żebym robił -- to ok

@3UP

no dziwnie podobny

ale wierzę na słowo

@TOPIC & UP'y

czy może mi ktoś pomóc

w queście który sprawdza czy item jest założony

(cały czas)

when ... with item.get_id() == ... begin

co dać za piewsze ...

za drugie ... to dam ID

Sterek · 31 Października 2011

Siema, czy mógłby mi ktoś podać spolszczone questy dot. koni? (Chodzi o horse_upgrade, horse_upgrade2 itd.)

pageon · 31 Października 2011

Siema potrzebuje questa w którym ma być:

gdy klikniemy na NPC id 30123 to mamy opcje wymiana zbroi gdy na nią naciśniemy to ten npc chce odnasz stalke +9 oraz 2 broszurki i 3 krwawe perły by wymienił nam stalke na szmaragda.

Wisz · 31 Października 2011

Quest

Gdy kilkniemy na medal konny to dostajemy lvl konia

10% szans na pomyslne przeczytanie

Mozemy czytac medal co 6H

Nie mozna uzyc zwoju zeby mozna było czytac odrazu

Zaloguj się

👋 Witaj na MPCForum!

Pisanie / Poprawa Questów !

Rekomendowane odpowiedzi

Zarchiwizowany