Pisanie / Poprawa Questów !

lordgrzegorz · 28 Czerwca 2011

Witam wszystkich mam prośbę o napisanie jednego questa. Powinien być dla was bardzo prosty.

Chciałbym aby Duch Wojownika (id 30122) mógł teleportować prosto do groty v2. Np,

(tekst ducha) Witaj jestem strażnikiem groty v2 czego chcesz?

(opcje) "Chciałbym Wejść" lub "Już Nic"

(tekst ducha) Widzę ,że bardzo chcesz wejść to tej groty ale będziesz potrzebował tym razem aż Dwóch Krwistych Kamieni. Czy je posiadasz?

(id 30190 - krwisty kamień)

(opcje) "Tak" lub "Nie"

ZABIERA JE I NASTĘPNIE

(tekst ducha) Jesteś bardzo odważny zapraszam do groty.

TELEPORTUJE do V2 GROTY i wszyscy są HAPPY.

To wszystko o co was proszę .

Sparow · 28 Czerwca 2011

dzieki wielkie dziala:)

a mozecie mi sprawdzic jeszcze ten quest? blad mi wywala w 47 linijce

quest horse_menu begin

state start begin

function horse_menu()

if horse.is_mine() then

say_title("Menu wierzchowca")

say("")

local s = 6

if horse.is_dead() then

s = select( "Wskrzesz konia", "Wskrzesz konia", "Opusc")

if s == 1 then s = 0

elseif s == 2 then s = 3

elseif s == 3 then return

end

else

s = select(

"Nakarm konia", "Osiodlaj", "Odwolaj konia", "Status konia",

"Nadaj koniowi imie", "Anuluj")

end

if s == 0 then

horse.revive()

elseif s == 1 then

local food = horse.get_grade() + 50054 - 1

if pc.countitem(food) > 0 then

pc.removeitem(food, 1)

horse.feed()

else

say("Ten przedmiot "..item_name(food).." Bedzie potrzebny.")

say("")

end

elseif s == 2 then

horse.ride()

elseif s == 3 then

horse.unsummon()

elseif s == 4 then

say_title("Status konia")

say("Zycie: "..horse.get_health_pct().."%")

say("Wytrzymalosc: "..horse.get_stamina_pct().."%")

say("")

elseif s == 5 then

if pc.countitem("71110") <= 0 then

say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")

say("")

return

end

local old_horse_name = horse.get_name() ;

say_title("Nadawanie imienia koniu")

say("Mozesz nadac swojemu koniu nowe imie")

say("Pamietaj ze jezeli go raz nazwiesz, to nie bedziesz mogl mu zmienic imienia bez kolejnego cukru")

say("")

if string.len(old_horse_name) == 0 then

say_reward("Kon nie ma aktualnie imienia.")

else

say_reward("Kon aktualnie nazywa sie "..old_horse_name..".")

end

say("")

say("Wpisz nowe imie konia:")

say("")

local horse_name = input()

if string.len(horse_name) < 2 then

say_title("Imie konia")

say("Imie jest za krotkie")

say("")

return

elseif string.len(horse_name) > 12 then

say_title("Imie konia")

say("Imie jest za dlugie")

say("")

return

end

local ret = horse.set_name(horse_name)

say_title("Imie konia")

if ret == 0 then

say_reward("Nie masz atualnie konia ktorego moznaby bylo nazwac!")

say("")

elseif ret == 1 then

say_reward("Nie mozna nadac tego imienia!")

say("")

elseif ret == 2 then

pc.remove_item("71110")

say("Twoj kon ma juz nowe imie!")

say("")

end

when 20030.click begin horse_menu.horse_menu() end

when 20101.click begin horse_menu.horse_menu() end

when 20102.click begin horse_menu.horse_menu() end

when 20103.click begin horse_menu.horse_menu() end

when 20104.click begin horse_menu.horse_menu() end

when 20105.click begin horse_menu.horse_menu() end

when 20106.click begin horse_menu.horse_menu() end

when 20107.click begin horse_menu.horse_menu() end

when 20108.click begin horse_menu.horse_menu() end

when 20109.click begin horse_menu.horse_menu() end

end

Hmm · 28 Czerwca 2011

Witam zrobi mi ktos quest'a takiego ze :

Kilku NPC u jednego handlarza na SF 2010 bo ten quest z plików 2k8 nie działa ;/

Stelios · 28 Czerwca 2011

a mozecie mi sprawdzic jeszcze ten quest? blad mi wywala w 47 linijce

elseif s == 5 then
if pc.countitem("71110") <= 0 then
say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")
say("")
return
end
local old_horse_name = horse.get_name() ;
say_title("Nadawanie imienia koniu")
say("Mozesz nadac swojemu koniu nowe imie")

A else ?

Albo elseif s == X then --- X to jakaś liczba..

zrób tak:

elseif s == 5 then
if pc.countitem("71110") <= 0 then
say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")
say("")
return
end
else
local old_horse_name = horse.get_name() ;
say_title("Nadawanie imienia koniu")
say("Mozesz nadac swojemu koniu nowe imie")

albo tak:

elseif s == 5 then
if pc.countitem("71110") <= 0 then
say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")
say("")
return
end
elseif s == X then  -- w miejsce X wstaw kolejna liczbe
local old_horse_name = horse.get_name() ;
say_title("Nadawanie imienia koniu")
say("Mozesz nadac swojemu koniu nowe imie")

xDeStRuCtx · 28 Czerwca 2011

@UP

Fail ;x

Po co tam else?

On robi to tak:

Jeżeli wybrałeś s=5 to sprawdza, czy mamy 0 itemów od id 71110, jeżeli tak to mówi coś i kończy questa (return).

Jeżeli mamy więcej niż 0 itemów (odwrotność <=0) to robi coś dalej...

AmOs · 28 Czerwca 2011

Witam wszystkich mam do was prośbę o kilka questów które opisze na dole będą one proste więc problemów nie powinniście mieć:]

1 quest

Polega na tym że idziemy do stajennego

(Najlepiej gdy byście dali całego spolszczonego Stajennego)

I gdy na niego klikniemy mamy zakładkę Imię Konia!

Treść questa

Witaj drogi graczu,widać że wyrastasz na potężnego obywatela naszego Miasta!

Ale przejdźmy do rzeczy chcesz nadać swojemu Koniowi imię?

Wybór Opcji Tak lub/Nie

Jeśli wybierze nie: Zrezygnowałeś no nic wróć później

(Mówi sam do siebie)Tylko zawraca mi czas...

Jeśli wybierze Tak

Twój koń zostanie wynagrodzony Imieniem lecz są z tym kłopoty

Ostatnio nasz Legendarny smok Cienia zażyczył sobie opłat...

I niestety musisz mi za to zapłacić 15 mln(15kk)

I teraz dwie opcje Zapłać/Zastanowię się...

Opcja Zapłać

Oj! Tak twój koń teraz się wyróżnia a Legendarny smok się uspokaja

Opcja Zastanowię się:

No nic masz dużo czasu drogi graczu zastanawiaj się ile chcesz

Tylko pamiętaj zastanów się dobrze i nie zawracaj mi głowy widzisz że muszę wychować Kucyki w zagrodzie!

To na tyle:D

Ps: 15 kk za to się płaci,i bez żadnych itemków i innych dupereli;]

Ps2:Dobrze jak quest mógł by pokazywać się od 5 lvl:]

tak jak mówiłem najlepiej jak byście dali całego stajennego ponieważ ja nie mam go spolszczonego

2 quest.

Polega na tym że idziemy do Handlarki różności

I mamy dwie opcję właśnie jej sklep to co ona ma tam w środku prze zemnie ustawione

A druga opcja to:Sprzedaj Ulepszacze!

Polega na tym że gdy klikniemy na Sprzedaj Ulepszacze

Handlarka się pyta:Czy na pewno chcesz sprzedać wszystkie swoje ulepszacze Legendarnemu Smoku?

Pamiętaj ten wybór jest nie odwracalny!

Opcje Tak/Nie

Opcja Tak: Hmmm zdecydowałeś się na sprzedaż ich?

No to sprzedajemy.

I teraz jak byście umieli żeby w queście było odliczanie do 5 taki timer czas

I po Liczbie 5 pisało: Twoje Ulepszacze zostały sprzedane Uzyskałeś sporą kwotę!

Ps:Za jeden ulepszacz dostawało by się 15mln(15k)

Dobrze jak tą informację umieścicie w queście

Ps:Pamiętajcie o usunięciu Polskich znaków mam trochę lat na karku więc Piszę poprawnie nawet na forach!

Hmm questy nie są trudne więc chyba sobie poradzicie..

Jak możecie poróbcie odpowiednie przecinki a i Ps:Jak wam nie będzie odpowiadała trochę treść możecie zmienić.Tych oby dwóch questów.

A 3 quest jest naprawdę prosty;x

Niech każdy Master i Admin dostaje po pierwszym zalogowaniu pieczęcie

Id pieczęci zostawcie sam sobie wypełnię

Niech będą tam 3 pola na pieczęcie.

No i ostatni

Każdy Master i Admin po pierwszym zalogowaniu niech siedzi na wierzchowcu

No i tak jak w pieczęciach te pole to id mounta zostawcie sam wypełnię.

Pozdrawiam

Jeśli ktoś to dla mnie zrobi Limit.

Powtarzam prośbę.

lordgrzegorz · 28 Czerwca 2011

Witam wszystkich mam prośbę o napisanie jednego questa. Powinien być dla was bardzo prosty.

Chciałbym aby Duch Wojownika (id 30122) mógł teleportować prosto do groty v2. Np,

(tekst ducha) Witaj jestem strażnikiem groty v2 czego chcesz?

(opcje) "Chciałbym Wejść" lub "Już Nic"

(tekst ducha) Widzę ,że bardzo chcesz wejść to tej groty ale będziesz potrzebował tym razem aż Dwóch Krwistych Kamieni. Czy je posiadasz?

(id 30190 - krwisty kamień)

(opcje) "Tak" lub "Nie"

ZABIERA JE I NASTĘPNIE

(tekst ducha) Jesteś bardzo odważny zapraszam do groty.

TELEPORTUJE do V2 GROTY i wszyscy są HAPPY.

To wszystko o co was proszę .

Ability · 28 Czerwca 2011

Up zobacz czy zadziała, nie mam jak sprawdzić chwilowo:

quest drugi_poziom_groty begin
state start begin
	when 30122.chat."Drugi Poziom Groty" begin
		say_title("Duch Sura")
		say("Witaj jestem strażnikiem groty v2 czego chcesz?")
		local d = select("Chciałbym wejść ", "Już nic")
		if d == 1 then
			say("Widzę ,że bardzo chcesz wejść to tej")
			say("groty ale będziesz potrzebował tym")
			say("razem aż Dwóch Krwistych Kamieni.")
			say("Czy je posiadasz?")
			local s = select("Tak ", "Nie")
			if s == 2 then
				return
			end
				if pc.count_item(30190) > 2 then
					say("Jesteś bardzo odważny, zapraszam do groty.")
					pc.warp(kordy , kordy)
					pc.remove_item(30190,2)
				else
					say("Czemu robisz mnie w konia?")
				end
			end
		end
	ens
end
end

wpisz swoje koordynaty

xDeStRuCtx · 28 Czerwca 2011

@UP

Jeden end za dużo i na dodatek zamiast end jest "ens" ;x

lordgrzegorz · 28 Czerwca 2011

eh nie chce się wgrać . gdy dodaje pisze :

 expeting 'when' of 'function'     grota_v2.quest:25:Abort (core dumped)

PROSZĘ O POMOC

ok juz działa thx

lordgrzegorz · 28 Czerwca 2011

Mam problem z tym questem bo gdy klikam na ducha wojownika to wszystko ładnie jest ale gdy przechodzi do teleportu i chce dać te 2 krwiste to pisze czemu robisz mnie w konia?

z4z0l · 28 Czerwca 2011

@up

bo pewnie nie masz dwóch krwistych co najmniej w eq ... kolega źle troszke napisał, zrób tą linijkę tak :

if pc.count_item(30190) >= 2 then

@edit

tak z wyjaśnieniem (oczywiście łopatologicznie, żeby się destruct nie czepiał ), kolegi up linijka : jeżeli mamy WIĘCEJ niż dwa krwiste kamienie, czyli co najmniej 3 to dopiero możemy wejść.

a moja : jeżeli mamy dwa lub więcej krwistych

rozumiesz ?

@edit2

no i jeszcze jedno ...

                                        if pc.count_item(30190) >= 2 then
                                               say("Jesteś bardzo odważny, zapraszam do groty.")
                                               pc.remove_item(30190,2)
                                               wait()
                                               pc.warp(kordy , kordy)
                                       else

Sparow · 28 Czerwca 2011

elseif s == 5 then
if pc.countitem("71110") <= 0 then
say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")
say("")
return
end
local old_horse_name = horse.get_name() ;
say_title("Nadawanie imienia koniu")
say("Mozesz nadac swojemu koniu nowe imie")

A else ?

Albo elseif s == X then --- X to jakaś liczba..

zrób tak:

elseif s == 5 then
if pc.countitem("71110") <= 0 then
say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")
say("")
return
end
else
local old_horse_name = horse.get_name() ;
say_title("Nadawanie imienia koniu")
say("Mozesz nadac swojemu koniu nowe imie")

albo tak:

elseif s == 5 then
if pc.countitem("71110") <= 0 then
say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")
say("")
return
end
elseif s == X then  -- w miejsce X wstaw kolejna liczbe
local old_horse_name = horse.get_name() ;
say_title("Nadawanie imienia koniu")
say("Mozesz nadac swojemu koniu nowe imie")

Nadal nie dziala a blad wywala

locale/germany/quest/object/state/horse_menu:58: <name>expected near '('

a malo tego zniknelo menu konia w grze

quest horse_menu begin

state start begin

function horse_menu()

if horse.is_mine() then

say_title("Menu wierzchowca")

say("")

local s = 6

if horse.is_dead() then

s = select( "Wskrzesz konia", "Wskrzesz konia", "Opusc")

if s == 1 then s = 0

elseif s == 2 then s = 3

elseif s == 3 then return

end

else

s = select(

"Nakarm konia", "Osiodlaj", "Odwolaj konia", "Status konia",

"Nadaj koniowi imie", "Anuluj")

end

if s == 0 then

horse.revive()

elseif s == 1 then

local food = horse.get_grade() + 50054 - 1

if pc.countitem(food) > 0 then

pc.removeitem(food, 1)

horse.feed()

else

say("Ten przedmiot "..item_name(food).." Bedzie potrzebny.")

say("")

end

elseif s == 2 then

horse.ride()

elseif s == 3 then

horse.unsummon()

elseif s == 4 then

say_title("Status konia")

say("Zycie: "..horse.get_health_pct().."%")

say("Wytrzymalosc: "..horse.get_stamina_pct().."%")

say("")

elseif s == 5 then

if pc.countitem("71110") <= 0 then

say("Ten przedmiot "..item_name("71110").." bedzie potrzebny")

say("")

return

end

local old_horse_name = horse.get_name()

say_title("Nadawanie imienia koniu")

say("Mozesz nadac swojemu koniu nowe imie")

say("Pamietaj ze jezeli go raz nazwiesz, to nie bedziesz mogl mu zmienic imienia bez kolejnego cukru")

say("")

if (old_horse_name) == 0 then

say_reward("Kon nie ma aktualnie imienia.")

else

say_reward("Kon aktualnie nazywa sie "..old_horse_name..".")

end

say("")

say("Wpisz nowe imie konia:")

say("")

local horse_name = input()

if pc.(horse_name) < 2 then

say_title("Imie konia")

say("Imie jest za krotkie")

say("")

return

elseif (horse_name) > 12 then

say_title("Imie konia")

say("Imie jest za dlugie")

say("")

return

end

local ret = horse.set_name(horse_name)

say_title("Imie konia")

if ret == 0 then

say_reward("Nie masz atualnie konia ktorego moznaby bylo nazwac!")

say("")

elseif ret == 1 then

say_reward("Nie mozna nadac tego imienia!")

say("")

elseif ret == 2 then

pc.remove_item("71110")

say("Twoj kon ma juz nowe imie!")

say("")

end

when 20030.click begin horse_menu.horse_menu() end

when 20101.click begin horse_menu.horse_menu() end

when 20102.click begin horse_menu.horse_menu() end

when 20103.click begin horse_menu.horse_menu() end

when 20104.click begin horse_menu.horse_menu() end

when 20105.click begin horse_menu.horse_menu() end

when 20106.click begin horse_menu.horse_menu() end

when 20107.click begin horse_menu.horse_menu() end

when 20108.click begin horse_menu.horse_menu() end

when 20109.click begin horse_menu.horse_menu() end

end

mam jeszce pytanie

Czy da sie tego questa zedytowac tak by pierwsze 10 osob co wbija 250 lvl otrzymuja itemy a potem quest niedziala

quest by Bambus3k™

quest okienko begin

state start begin

when login or levelup with pc.level == 255 begin

say_title("Gratulacje!")

say("xxxxxxxxxxxxxxxxxxxx")

say_reward("Otrzymasz nowe przedmioty!")

if pc.job == 0 then --- itemy dla woja

pc.give_item2(19, 1)

elseif pc.job == 1 then --- itemy dla ninja

pc.give_item2(69, 1)

pc.give_item2(666, 1)

elseif pc.job == 2 then --- itemy dla sury

pc.give_item2(13, 1)

pc.give_item2(8, 1)

elseif pc.job == 3 then --- itemy dla szamana

pc.give_item2(21, 1)

set_state(__KONIEC__)

end

state __KONIEC__ begin

end

Ability · 28 Czerwca 2011

Gdy się człowiek śpieszy, to się diabeł cieszy :rolleyes: tutaj jest poprawiony:

quest drugi_poziom_groty begin
state start begin
	when 30122.chat."Drugi Poziom Groty" begin
		say_title("Duch Sura")
		say("Witaj jestem strażnikiem groty v2 czego chcesz?")
		local d = select("Chciałbym wejść ", "Już nic")
		if d == 1 then
			say("Widzę ,że bardzo chcesz wejść to tej")
			say("groty ale będziesz potrzebował tym")
			say("razem aż Dwóch Krwistych Kamieni.")
			say("Czy je posiadasz?")
			local s = select("Tak ", "Nie")
			if s == 2 then
				return
			end
				if pc.count_item(30190) >= 2 then
					say("Jesteś bardzo odważny, zapraszam do groty.")
					pc.remove_item(30160, 2)
					wait()
					pc.warp(kordy , kordy)
				else
					say("Nie posiadasz Krwistych Kamieni")
					return
				end
		end
	end
end
end

nie zapomnij wpisać swoich kordów

Rooney10 · 28 Czerwca 2011

Witam.

Proszę o kilka questów.

1. Prosiłbym o quest (do wejścia wymagane takie same itemy jak na pl'u lub podobne (chyba medal portalu jeśli dobrze pamiętam)) wejście do komnaty smoka. Może być pod ducha sury lub jakiegoś innego NPC.

2. Quest za pomocą którego NPC będzie przenosił na mapę (kordy 555500 555500). NPC to 20090. Item wymagany do tego to 70036.

3. Misja od Strażnika Wsi. Zabij niebiańskiego smoka i żeby po zabiciu jego wypadał item 70001. Fabuła: strażnik żąda odzyskania dla swojej małej córki 70001. W nagrodę otrzymujemy 70036, 300kk yang i stal ( tylko tak że np dla sury stal dla sury dla woja stal dla woja itp).

4.OStatni proszę sprawdzić mi go i poprawić:

quest give_basic_weapon begin
state start begin
when login begin
if pc.getqf("basic_weapon") == 0 then
pc.setqf("basic_weapon", 1)

local item = 10

if pc.job == 0 then
pc.give_item2(19)
pc.give_item2(11209)
pc.give_item2(12209)
pc.give_item2(15009)
pc.give_item2(13009)
if pc.job == 1 then
pc.give_item2(11409)
pc.give_item2(13009)
pc.give_item2(12349)
pc.give_item2(15009)
pc.give_item2(1009)
if pc.job == 2 then			
pc.give_item2(19)
pc.give_item2(12489)
pc.give_item2(11609)
pc.give_item2(15009)
pc.give_item2(13009)
if pc.job == 3 then
pc.give_item2(5009)
pc.give_item2(11809)
pc.give_item2(12629)
pc.give_item2(15009)
pc.give_item2(13009)
end

if pc.countitem(item) == 0 and pc.weapon != item then
pc.give_item2(item)
pc . change_money(100000)
pc . give_exp2(0)
pc.give_item2(50053)
pc.give_item2(14009)
pc.give_item2(27003)
--pc.give_item2(72701)

end
end
end
end
end

Stelios · 29 Czerwca 2011

@UP

1. Tutaj masz źle:

if pc.job == 0 then
pc.give_item2(19)
pc.give_item2(11209)
pc.give_item2(12209)
pc.give_item2(15009)
pc.give_item2(13009)
if pc.job == 1 then
pc.give_item2(11409)
pc.give_item2(13009)
pc.give_item2(12349)
pc.give_item2(15009)
pc.give_item2(1009)
if pc.job == 2 then                     
pc.give_item2(19)
pc.give_item2(12489)
pc.give_item2(11609)
pc.give_item2(15009)
pc.give_item2(13009)
if pc.job == 3 then
pc.give_item2(5009)
pc.give_item2(11809)
pc.give_item2(12629)
pc.give_item2(15009)
pc.give_item2(13009)
end

Albo zrób tak:

if pc.job == 0 then
pc.give_item2(19)
pc.give_item2(11209)
pc.give_item2(12209)
pc.give_item2(15009)
pc.give_item2(13009)
end
if pc.job == 1 then
pc.give_item2(11409)
pc.give_item2(13009)
pc.give_item2(12349)
pc.give_item2(15009)
pc.give_item2(1009)
end
if pc.job == 2 then                     
pc.give_item2(19)
pc.give_item2(12489)
pc.give_item2(11609)
pc.give_item2(15009)
pc.give_item2(13009)
end
if pc.job == 3 then
pc.give_item2(5009)
pc.give_item2(11809)
pc.give_item2(12629)
pc.give_item2(15009)
pc.give_item2(13009)
end

Albo tak:

if pc.job == 0 then
pc.give_item2(19)
pc.give_item2(11209)
pc.give_item2(12209)
pc.give_item2(15009)
pc.give_item2(13009)
elseif pc.job == 1 then
pc.give_item2(11409)
pc.give_item2(13009)
pc.give_item2(12349)
pc.give_item2(15009)
pc.give_item2(1009)
elseif pc.job == 2 then                     
pc.give_item2(19)
pc.give_item2(12489)
pc.give_item2(11609)
pc.give_item2(15009)
pc.give_item2(13009)
elseif pc.job == 3 then
pc.give_item2(5009)
pc.give_item2(11809)
pc.give_item2(12629)
pc.give_item2(15009)
pc.give_item2(13009)
end

A patrząc na resztę questa jest ok.

@EDIT

@UP

Quest nr. 2:

-------------------------------------
--- Misja by Czarny dla MPCForum
--- Prosze o nie przypisywanie sobie
--- cudzej pracy! Pozdrawiam
-------------------------------------

quest przejscie begin
state start begin
when 20090.chat."Chce przejsc!" begin
say_title(mob_name(20090)..":")
say("Tekst")
say("Tekst")
say("Tekst")
say("Tekst")
local s = select("Tak, chce!", "Nie, innym razem")
if s == 2 then
say_title(mob_name(20090)..":")
say("Trudno, przyjdz kiedy bedziesz gotowy!")
say("")
wait()
return
end
elseif s == 1 then
say_title(mob_name(20090)..":")
say("Aby przejsc potrzebujesz")
say_item("", 70036 , "")
say("")
say("Czy aby na pewno go masz?")
say("")
wait()
if pc.count_item(70036) >= 1 then
say_title(mob_name(20090)..":")
say("Dobrze więc. Przeniose cie! ")
say("")
pc.removeitem(70036, 1)
wait()
pc.warp(555500, 555500)
else
if pc.count_item(70036) == 0 then
say_title(mob_name(20090)..":")
say("Nie posiadasz tego przedmiotu!")
say("Nie moge cie przeniesc.. ")
say("")
end
end
end
end
end

@EDIT2

@UP

Quest nr. 3:

-------------------------------------
--- Misja by Czarny dla MPCForum
--- Prosze o nie przypisywanie sobie
--- cudzej pracy! Pozdrawiam
-------------------------------------

quest przejscie begin
	state start begin
			when login or levelup with pc.level() >= X begin  --- w miejsce X wpisz lvl na ktorym sie zacznie misja
			setstate(list)
			end
	end

	state list begin
	when letter begin
		local v = find_npc_by_vnum(id straznika)
		if v != 0 then
		target.vid("__TARGET__", v, "")
	end
	send_letter("Nazwa listu")
	end
	when button or info begin
		say("Straznik cie szuka.")
		say("Ma dla ciebie misje.")
		say("")
		end
	end

	when __TARGET__.target.click or id straznika.chat."Nazwa misji" begin
		target.delete("__TARGET__")
		say_title(mob_name(id straznika)..":")
		say("Tekst")
		say("Tekst")
		say("Tekst")
		say("Tekst")
		say("Tekst")
		setstate(zabij)
		end
	end

	state zabij begin
	when idsmoka.kill then
	pc.give_item2(70001, 1)
	setstate(list2)
	end

	state list2 begin
	when letter begin
		send_letter("Nazwa listu2")
	end
	when button or info begin
		say("Zabiles smoka.")
		say("Wroc do straznika")
		say("")
		setstate(list3)
		end
	end
		state list3 begin
		when letter begin
			local v = find_npc_by_vnum(id straznika)
			if v != 0 then
			target.vid("__TARGET2__", v, "")
			end
			send_letter("Wroc do Straznika")
		end
		when button or info begin
			say("Wroc do straznika")
			say("")
			setstate(idz)
			end
		end
		when __TARGET2__.target.click or id straznika.chat."Wrocilem" begin
		say_title(mob_name(id straznika)..":")
		say("Tekst")
		say("Tekst")
		say("Tekst")
		say("Tekst")
		pc.remove_item(70001, 1)
		pc.change_money(yang)
		pc.give_exp2(exp)
			if pc.job == 0 then
			pc.give_item2(id, ilosc)
			elseif pc.job == 1 then
			pc.give_item2(id, ilosc)
			elseif pc.job == 2 then
			pc.give_item2(id, ilosc)
			elseif pc.job == 3 then
			pc.give_item2(id, ilosc)
			end
		setstate(koniec)
		end
	end
	state koniec begin
end
end

Rooney10 · 29 Czerwca 2011

@UP

Dzięki sprawdzę czy działają.

A czy mógłbyś mi dodać żeby można było teleportować od 90 lvl?

Tu masz quest:

-------------------------------------
--- Misja by Czarny dla MPCForum
--- Prosze o nie przypisywanie sobie
--- cudzej pracy! Pozdrawiam
-------------------------------------

quest przejscie begin
state start begin
when 20090.chat."Chce przejsc!" begin
say_title(mob_name(20090).."Heuk-Yong:")
say("Witaj poszukiwaczu przygód.")
say("Mogę cię zabrać na wyspę z groźniejszymi potworami.")
say("Exp jest tam dostateczny, ale wymaga dużo potów")
say("Czy na pewno chcerz przjeść?")
local s = select("Tak, chce!", "Nie, innym razem")
if s == 2 then
say_title(mob_name(20090).."Heuk-Yong:")
say("Trudno, przyjdz kiedy bedziesz gotowy!")
say("")
wait()
return
end
elseif s == 1 then
say_title(mob_name(20090).."Heuk-Yong:")
say("Aby przejsc potrzebujesz")
say_item("", 70036 , "")
say("")
say("Czy aby na pewno go masz?")
say("")
wait()
if pc.count_item(70036) >= 1 then
say_title(mob_name(20090)..":")
say("Dobrze więc. Przeniose cie! ")
say("")
pc.removeitem(70036, 1)
wait()
pc.warp(555500, 555500)
else
if pc.count_item(70036) == 0 then
say_title(mob_name(20090).."Heuk-Yong:")
say("Nie posiadasz tego przedmiotu!")
say("Nie moge cie przeniesc.. ")
say("")
end
end
end
end

@edit

3 quest nie działa. Expecting ''State'' abort Core dumped

Podobny problem jest z teleportetrami.

xDeStRuCtx · 29 Czerwca 2011

--- Misja by Czarny dla MPCForum
--- Prosze o nie przypisywanie sobie
--- cudzej pracy! Pozdrawiam
-------------------------------------

quest przejscie begin
state start begin
when 20090.chat."Chce przejsc!" begin
say_title(mob_name(20090).."Heuk-Yong:")
say("Witaj poszukiwaczu przygód.")
say("Mogę cię zabrać na wyspę z groźniejszymi potworami.")
say("Exp jest tam dostateczny, ale wymaga dużo potów")
say("Czy na pewno chcerz przjeść?")
local s = select("Tak, chce!", "Nie, innym razem")
if s == 2 then
say_title(mob_name(20090).."Heuk-Yong:")
say("Trudno, przyjdz kiedy bedziesz gotowy!")
say("")
wait()
return
end
say_title(mob_name(20090).."Heuk-Yong:")
say("Aby przejsc potrzebujesz")
say_item("", 70036 , "")
say("")
say("Czy aby na pewno go masz?")
say("")
wait()
if pc.count_item(70036) >= 1 then
say_title(mob_name(20090)..":")
say("Dobrze więc. Przeniose cie! ")
say("")
pc.removeitem(70036, 1)
wait()
pc.warp(555500, 555500)
else
say_title(mob_name(20090).."Heuk-Yong:")
say("Nie posiadasz tego przedmiotu!")
say("Nie moge cie przeniesc.. ")
say("")
return
end
end
end
end

z4z0l · 29 Czerwca 2011

@UP

say_title(mob_name(20090).."Heuk-Yong:")

heh, śmiesznie to wygląda ;D

Ability · 29 Czerwca 2011

2x UP pc.removeitem(70036, 1) - ma być pc.remove_item(70036, 1)

AmOs · 29 Czerwca 2011

Witam wszystkich mam do was prośbę o kilka questów które opisze na dole będą one proste więc problemów nie powinniście mieć:]

1 quest

Polega na tym że idziemy do stajennego

(Najlepiej gdy byście dali całego spolszczonego Stajennego)

I gdy na niego klikniemy mamy zakładkę Imię Konia!

Treść questa

Witaj drogi graczu,widać że wyrastasz na potężnego obywatela naszego Miasta!

Ale przejdźmy do rzeczy chcesz nadać swojemu Koniowi imię?

Wybór Opcji Tak lub/Nie

Jeśli wybierze nie: Zrezygnowałeś no nic wróć później

(Mówi sam do siebie)Tylko zawraca mi czas...

Jeśli wybierze Tak

Twój koń zostanie wynagrodzony Imieniem lecz są z tym kłopoty

Ostatnio nasz Legendarny smok Cienia zażyczył sobie opłat...

I niestety musisz mi za to zapłacić 15 mln(15kk)

I teraz dwie opcje Zapłać/Zastanowię się...

Opcja Zapłać

Oj! Tak twój koń teraz się wyróżnia a Legendarny smok się uspokaja

Opcja Zastanowię się:

No nic masz dużo czasu drogi graczu zastanawiaj się ile chcesz

Tylko pamiętaj zastanów się dobrze i nie zawracaj mi głowy widzisz że muszę wychować Kucyki w zagrodzie!

To na tyle:D

Ps: 15 kk za to się płaci,i bez żadnych itemków i innych dupereli;]

Ps2:Dobrze jak quest mógł by pokazywać się od 5 lvl:]

tak jak mówiłem najlepiej jak byście dali całego stajennego ponieważ ja nie mam go spolszczonego

2 quest.

Polega na tym że idziemy do Handlarki różności

I mamy dwie opcję właśnie jej sklep to co ona ma tam w środku prze zemnie ustawione

A druga opcja to:Sprzedaj Ulepszacze!

Polega na tym że gdy klikniemy na Sprzedaj Ulepszacze

Handlarka się pyta:Czy na pewno chcesz sprzedać wszystkie swoje ulepszacze Legendarnemu Smoku?

Pamiętaj ten wybór jest nie odwracalny!

Opcje Tak/Nie

Opcja Tak: Hmmm zdecydowałeś się na sprzedaż ich?

No to sprzedajemy.

I teraz jak byście umieli żeby w queście było odliczanie do 5 taki timer czas

I po Liczbie 5 pisało: Twoje Ulepszacze zostały sprzedane Uzyskałeś sporą kwotę!

Ps:Za jeden ulepszacz dostawało by się 15mln(15k)

Dobrze jak tą informację umieścicie w queście

Ps:Pamiętajcie o usunięciu Polskich znaków mam trochę lat na karku więc Piszę poprawnie nawet na forach!

Hmm questy nie są trudne więc chyba sobie poradzicie..

Jak możecie poróbcie odpowiednie przecinki a i Ps:Jak wam nie będzie odpowiadała trochę treść możecie zmienić.Tych oby dwóch questów.

A 3 quest jest naprawdę prosty;x

Niech każdy Master i Admin dostaje po pierwszym zalogowaniu pieczęcie

Id pieczęci zostawcie sam sobie wypełnię

Niech będą tam 3 pola na pieczęcie.

No i ostatni

Każdy Master i Admin po pierwszym zalogowaniu niech siedzi na wierzchowcu

No i tak jak w pieczęciach te pole to id mounta zostawcie sam wypełnię.

Pozdrawiam

Jeśli ktoś to dla mnie zrobi Limit.

I znów powtarzam swą prośbę...

xDeStRuCtx · 29 Czerwca 2011

@3up

Ja go tylko poprawiałem, aby działał, nie patrzyłem nawet na say`e

@2up

Może być i tak i tak

Sparow · 29 Czerwca 2011

quest xxx begin
state start begin
when idnpc.chat."Asd" begin
say ( "Masz do wyboru 3 rodzaje pergaminu" )
say ( "wybierz ktory cie interesuje" )
local s = select ("Pergamin Ognia", "Anuluj")
if s==2 then
return
else
say ( "Do wytworzenia Pergaminu Ognia" )
say ( "Potrzebowal bedziesz " )
say ( "nastempujacych przedmiotow" )
say ( "" )
if pc . count_item ( 85000 ) < 100 and pc . count_item ( 85001 ) < 100 and pc . count_item ( 85002 ) < 100 then
say ( "Potrzebujesz przedmiotu:" )
say ( "" )
say_item ( "Rubin" , 85000 , "" )
say_reward ( "Mozesz go kupic od innych graczy" )
say ( "lub zdobyc walczac z potworami" )
say ( "" )
wait()
say_item ( "Szafir" , 85001 , "" )
say_reward ( "Mozesz go kupic od innych graczy" )
say ( "lub zdobyc walczac z potworami" )
say ( "" )
wait()
say_item ( "Diament" , 85002 , "" )
say_reward ( "Mozesz go kupic od innych graczy" )
say ( "lub zdobyc walczac z potworami" )
say ( "" )
return
end
say ( "Tworzenie tego przedmiotu" )
say ( "nie kosztuje, aczkolwiek jest duza szansa, ze sie nie uda!" )
say ( "Czy chcesz kontynuowac?" )
say ( "" )
local x = number(1, 2)
local z = select ( "Tak" , "Nie" )
if 1 == z then
if pc . count_item ( 85000 ) > 100 and pc . count_item ( 85001) > 100 and pc . count_item ( 85002 )> 100 then
pc . remove_item ( 85000,100 )
pc . remove_item ( 85001,100 )
pc . remove_item ( 85001,100 )
if x == 1 then
pc . give_item2 ( 85012 )
say_title ( "Udalo sie!" )
say ( "" )
say ( "Otrzymales:" )
say ( "" )
say_item ( "Pergamin Ognia" , 70039 , "" )
else
say ( "Nie udalo sie!" )
return
end
end
end
end
end
end
end

Na podstawie pergaminu ognia, pozostałe dodaj do selecta (local s=select()) i popraw questa wg tego co dałem wyżej.

znalazlem buga w tym quescie

Jak mam 100 danych itemow to mi niechce ulepszyc ale jak mam 101 to juz ulepsza.

Da sie to jakos naprawic?

old_kwiatosz · 29 Czerwca 2011

@up

Chyba musi być tak:

quest xxx begin
state start begin
when idnpc.chat."Asd" begin
say ( "Masz do wyboru 3 rodzaje pergaminu" )
say ( "wybierz ktory cie interesuje" )
local s = select ("Pergamin Ognia", "Anuluj")
if s==2 then
return
else
say ( "Do wytworzenia Pergaminu Ognia" )
say ( "Potrzebowal bedziesz " )
say ( "nastempujacych przedmiotow" )
say ( "" )
if pc . count_item ( 85000 ) = 100 and pc . count_item ( 85001 ) = 100 and pc . count_item ( 85002 ) = 100 then
say ( "Potrzebujesz przedmiotu:" )
say ( "" )
say_item ( "Rubin" , 85000 , "" )
say_reward ( "Mozesz go kupic od innych graczy" )
say ( "lub zdobyc walczac z potworami" )
say ( "" )
wait()
say_item ( "Szafir" , 85001 , "" )
say_reward ( "Mozesz go kupic od innych graczy" )
say ( "lub zdobyc walczac z potworami" )
say ( "" )
wait()
say_item ( "Diament" , 85002 , "" )
say_reward ( "Mozesz go kupic od innych graczy" )
say ( "lub zdobyc walczac z potworami" )
say ( "" )
return
end
say ( "Tworzenie tego przedmiotu" )
say ( "nie kosztuje, aczkolwiek jest duza szansa, ze sie nie uda!" )
say ( "Czy chcesz kontynuowac?" )
say ( "" )
local x = number(1, 2)
local z = select ( "Tak" , "Nie" )
if 1 == z then
if pc . count_item ( 85000 ) = 100 and pc . count_item ( 85001) = 100 and pc . count_item ( 85002 )= 100 then
pc . remove_item ( 85000,100 )
pc . remove_item ( 85001,100 )
pc . remove_item ( 85001,100 )
if x == 1 then
pc . give_item2 ( 85012 )
say_title ( "Udalo sie!" )
say ( "" )
say ( "Otrzymales:" )
say ( "" )
say_item ( "Pergamin Ognia" , 70039 , "" )
else
say ( "Nie udalo sie!" )
return
end
end
end
end
end
end
end

SDeath · 29 Czerwca 2011

Witam, potrzebuje Questa do NPC. A raczej NPC np. żeby tę funkcję dodać do kowala.

Chodzi mi o to, że jak mamy np. Instrukcje Zasadzka, a jesteśmy wojem to możemy u tego NPC wymienić na Instrukcje Aura miecza ;d

Z góry dziękuje ;]

Zaloguj się

👋 Witaj na MPCForum!

Pisanie / Poprawa Questów !

Rekomendowane odpowiedzi

Zarchiwizowany