Zaginiona nagroda

[Dragonir119]

Cześć, ostatnio nudziło mi się więc postanowiłem wziąść się za pisanie questów. Jest to mój pierwszy qest od 4 lat. Nie jest on może najlepszej jakości ale może komuś przypadnie do gustu

 

 

 

quest subquest18 begin
state start begin
when login or levelup with pc.level >= 18 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter("Zaginiona nagroda")
local v = find_npc_by_vnum(20013)
if v != 0 then
target.vid("tar", v, "Tar")
end
end
when button or info begin
say_title("Udaj się do Rybaka")
say("Rybak Cię potrzebuje.")
say("Idź do niego i pomóż mu.")
end
when tar.target.click begin
target.delete("tar")
npc.name()
say("Witaj,czy mógłbyś mi pomóc?")
say("Wczoraj wieczorem chciałem odwiedzić")
say("mojego przyjaciela w fachu, lecz po drodze")
say("zostałem zaatakowany przez dzikie zwierzęta.")
say("Gdy uciekałem zgubiłem coś bardzo cennego,")
say("a mianowicie medal który dostałem za ciężką pracę.")
say("Poszedłbym to odzyskać lecz nie jestem wojownikiem.")
say("Czy mógłbyś odzsyakć ten medal dla mnie?")
say("Wyglądasz na odważnego. Potrzebuję Medal Za Pracowitość.")
if select(locale.yes,locale.no) == 1 then
npc.name()
say("No to wspaniale. Już na Ciebie czekam!")
set_state(run)
else
npc.name()
say("Najwyraźniej się pomyliłem. Trudno, znajdę kogoś...")
set_state(complete)
end
end
end
state run begin
when letter begin
send_letter("Zaginiona nagroda")
end
when button or info begin
say_title("Zaginiona nagroda")
say("Rybak zgubił swoją cenną nagrodę Medal Za Pracowitość")
say("odzyskaj ją dla niego.")
say_item_vnum(70004)
say_reward("Możesz ją wydropić z Tygrysów.")
end
when kill with npc.get_race() == 114 begin
if math.random(100) < 25 then
pc.give_item2(70004)
say_title("Okradziony Rybak")
say("Wydropiłeś medal, udaj się do Rybaka.")
say_item_vnum(70004)
set_state(reward)
end
end
end
state reward begin
when letter begin
send_letter("Zaginiona nagroda")
local v = find_npc_by_vnum(20013)
if v != 0 then
target.vid("tar", v, "Tar")
end
end
when button or info begin
say_title("Zaginiona nagroda")
say("Zdobyłeś medal, idź do Rybaka.")
end
when tar.target.click or 20013.chat."Mam medal!" with pc.count_item(70004) >= 1 begin
npc.name()
say("Wspaniale!")
say("Za takie informacje należy Ci się nagroda:")
say("")
say_reward("Otrzymano:")
say_reward("Białą Perłę")
say_reward("9.000 PD")
say_reward("20.000 Yang")
pc.give_item2(27987)
pc.give_exp2(3000)
pc.change_money(5000)
set_state(complete)
end
end
state complete begin
end
end

 

 

Jeśli widzicie jakiś błąd piszcie, poprawię.

[MichalTechnikxD]

Tutek ładny wykorzystam go i trochę zmodyfikuje

[Nexicoll]

Nie pokaże CI ostatniego say bo jest znak diakrytyczny przy nawiasie :

 

say_reward("Białą Perłę")
 

[aQs]

Wrzucać na wklej.to z tabami oraz popraw błąd z ę" i będzie nawet nawet

Quest nawet fajny

[AviuZ©]

Nie pokaże CI ostatniego say bo jest znak diakrytyczny przy nawiasie :

 

 

say_reward("Białą Perłę")
 

 

 

Co w związku z tym, że jest ę na końcu? Wystarczy spacje postawić na końcu ot co.

[Nexicoll]

Co w związku z tym, że jest ę na końcu? Wystarczy spacje postawić na końcu ot co.

Pierdolisz? Uczę się questów od roku ale o tym nie widziałem. Dzięki !