[Download] Questy By Xdominikax

[xDominikax]

A więc w tym temacie będziemy zamieszać questy nie wszystkie na raz :P

 

 

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

--Quest Tarantula

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

quest diabel begin

state start begin

when login or levelup with pc.level >=65 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("Wezwanie")

end

 

when button or info begin

say_title("Wezwanie")

say("Kowal potrzebuje Twojej")

say("Pomocy i dlatego Cie wzywa")

say("Udaj sie do Niego")

say("")

end

 

when __TARGET__.target.click or

20016.chat."Kowal" begin

target.delete("__TARGET__")

say("Slyszalem ze istnieje tajemniczy")

say("Odłamek Diabła")

say("Za Pomocą Ktorego")

say("Bede Mogl Zrobic Czarna Zbroje")

set_state(Krol)

end

end

 

state Krol begin

when letter begin

send_letter("Diabel")

end

when button or info begin

say_title("Diabel")

say("Kowal chce, abys zdoby dla niego")

say(Odlamek Diabla. Zdobadz Odlamek Diabla")

say("Od Ognistego Krola")

end

 

when 2206.kill with pc.countitem(70042)==0 begin

local random = math.random(3)

if random == 1 then

pc.give_item2(70042, 1)

chat("Zdobyłeś Odlamek Diabla")

chat("Wroc jak najszybciej i Dostarcz go Kowalowi")

local v = find_npc_by_vnum(20016)

if v != 0 then

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

end

end

end

 

 

when 20016.chat."Diabel" with pc.countitem(70042)>0 begin

say_title("Kowal:")

target.delete("__TARGET__")

say("Swietnie! Masz Odlamek Diabla!")

say("Zdobyles go. Dziekuje Ci.")

say("Postaram sie aby twoje czyny")

say("Zostaly Wynagrodzone.")

say("")

say("No oczywiscie, nagroda. Tak, nalezy Ci sie.")

say("")

chat("Otrzymales Biala Perla 2x")

chat("Otrzymales Magiczny Metal x 2")

chat("Otrzymales 50 000 000 Yang")

chat("Otrzymales 200 000 000 Doswiadczenia")

pc.change_money(50000000)

pc.give_exp2(200000000)

pc.remove_item(70042, 1)

pc.give_item2(25041,2)

pc.give_item2(27992,2)

set_state(__COMPLETE__)

end

end

state __COMPLETE__ begin

end

end

 

 

 

Download:

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

Skan:

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

 

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

--Quest Tarantula

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

quest Kleryk begin

state start begin

when login or levelup with pc.get_level() >=85 begin

set_state(information)

end

end

 

state information begin

when letter begin

local v = find_npc_by_vnum(20016)

if v != 0 then

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

end

send_letter("Kleryk")

end

 

when button or info begin

say_title("Kowal")

say("Musisz jak najszybciej do mnie przyjsc")

say("Sprawa wagi ciezkiej !!!")

 

end

 

when __TARGET__.target.click or

20355.chat."Kowal" begin

target.delete("__TARGET__")

say(locale.NOTICE_COLOR.."Kowal:"..locale.NORMAL_COLOR)

say("Ah.. Dzielny wojowniku. Przybyles")

say("Jest pilna sprawa")

say("Moze nie slyszales o starej gwardii.")

say("Sa to najpotezniejsi magowie, a nawet potezniejsi od ciebie")

say("Prosze pomoz mi i przyjmij to zadanie")

local a= select("Tak","Nie, zostane")

if 1==a then

say(locale.NOTICE_COLOR.."Kowal:"..locale.NORMAL_COLOR)

say("Widze ze jestes zadny przygod mlody czlowieku")

say("A wiec nie marnuj mojego cennego czasu i zabij bestie")

set_state(kleryk)

end

if 2==a then

say(locale.NOTICE_COLOR.."Kowal:"..locale.NORMAL_COLOR)

say("Trudno zrobi to ktos inny... Nie wiesz co tracisz")

set_state(__complete)

end

end

end

state kleryk begin

 

when letter begin

q.set_counter("Zabij Niebianski Kleryk", 50-pc.getqf("kill_count"))

send_letter("Zabij Niebianski Kleryk")

end

 

 

when enter begin

pc.setqf("kill_count", 0)

end

 

 

when 2403.kill begin

pc.setqf("kill_count", pc.getqf("kill_count")+1)

q.set_counter("Zabij Niebianski Kleryk", 50-pc.getqf("kill_count"))

end

 

 

when button begin

say(locale.NOTICE_COLOR.."Zabij Niebianski Kleryk"..locale.NORMAL_COLOR)

say("Masz za zadanie zabic ''50''")

say("Niebianskich Klerykow")

say("Ktorzy nawiedzaja nasza kraine!")

say("Stworow poszukaj w ''Grocie''!")

say("Kowal juz nie moze sie doczekac by Cie wynagrodzic")

end

 

when info begin

say(locale.NOTICE_COLOR.."Zabij Niebianski Kleryk"..locale.NORMAL_COLOR)

say("Masz za zadanie zabic ''50'' ''Niebianskich Klerykow''")

say("Ktorzy nawiedzaja nasza kraine!")

say("Stworow poszukaj w ''Grocie''!")

say("Kowal juz nie moze sie doczekac by Cie wynagrodzic")

end

 

when 2403.kill with pc.getqf("kill_count") >= 50 begin

setstate(reporcikkleryk)

end

end

 

 

state reporcikkleryk begin

 

 

when letter begin

local v = find_npc_by_vnum(20016)

if v != 0 then

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

end

send_letter("Zabiles Niebianskich Klerykow")

end

 

when button or info begin

say_title("Zabiles Niebianskich Klerykow")

say("Wykonales zadanie... Wroc do Kowala")

say("Po odbior nagrody")

 

end

 

when __TARGET__.target.click or

20016.chat."Kowal" begin

target.delete("__TARGET__")

say(locale.NOTICE_COLOR.."Kowal:"..locale.NORMAL_COLOR)

say("Widze ze juz wypelniles zadanie")

say("Dziekuje ci za twoja pomoc:")

say("twoja Nagroda:")

say_reward("Otrzymales 200 000 000 Yang")

say_reward("Otrzymales 200 000 000 Doswiadczenia")

say_reward("Otrzymales magiczny Metal")

say_reward("Teczowy Kamien")

pc.change_money(200000000)

pc.give_exp2(200000000)

pc.give_item2(25041)

pc.give_item2(50512)

clear_letter()

set_state(__complete)

end

end

state __complete begin

end

end

 

 

 

Download:

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

Skan:

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

 

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

--Quest Tarantula

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

quest soonzolw begin

state start begin

when login or levelup with pc.get_level() >=78 begin

set_state(information)

end

end

state information begin

when letter begin

local v = find_npc_by_vnum(20023)

if v != 0 then

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

end

send_letter("Soon potrzebuje pomocy")

end

 

when button or info begin

say_title("Soon potrzebuje pomocy")

say("")

say("Udaj sie do niego")

say("Aby poznac szczegoly wezwania")

end

 

when __TARGET__.target.click or

20023.chat."Soon" begin

target.delete("__TARGET__")

say(locale.NOTICE_COLOR.."Soon:"..locale.NORMAL_COLOR)

say("Witaj mlody wojowniku, slyszalem duzo dobrego o tobie")

say("O tym ze pomagales Urielowi Kapitanowi oraz wielu innym...")

say("Tym razem ja mam dla ciebie bardzo wazne zadanie")

say("Musisz udac sie na pustynie")

say("Tam o to ukryl sie Wielki Zolw")

say("Musisz go zabic i odzyskac Tajemnicza Ksiege")

say("Wielu juz probowalo lecz nikomu sie nie udalo")

say("Blagam pomoz mi odzyskac Ksiege")

say("Wynagrodze cie, obiecuje")

local a= select("W takim razie juz wyruszam!","Starcze Oszalales?")

if 1==a then

say(locale.NOTICE_COLOR.."Soon:"..locale.NORMAL_COLOR)

say("Dziekuje Ci, niech Bog ma Cie w opiece")

set_state(soonkrol)

end

if 2==a then

say(locale.NOTICE_COLOR.."Soon:"..locale.NORMAL_COLOR)

say("Zapamietam sobie Ciebie...")

say("Smaz sie w PIEKLE!!")

set_state(__complete)

end

end

 

end

 

state soonzolw begin

when letter begin

send_letter("Tajemnicza Ksiega")

if pc.count_item(30164)>=1 then

local v = find_npc_by_vnum(20023)

if v != 0 then

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

end

end

end

when button or info begin

if pc.count_item(30164)>=1 then

say_title("Tajemnicza Ksiega")

say("Udalo Ci sie zdobyc Tajemnicza Ksiege")

say("Udaj sie jak najszybciej do Soon'a")

say("I oddaj mu ja")

 

return

end

 

say_title("Tajemnicza Ksiega")

say("Zdobadz Tajemnicza Ksiege")

say_item_vnum(30164)

say("Soon Prosil Cie o odzyskanie")

say("Tajemniczej Ksiegi. Zdobedziesz ja")

say("Od Wielkiego Zolwia")

end

 

when

2191.kill begin

local s = number(1, 2)

if s == 1 and pc.count_item(30164)<1 then

pc.give_item2(30164, 1)

end

end

 

when __TARGET__.target.click with pc.count_item(30164)>=1 begin

target.delete("__TARGET__")

say(locale.NOTICE_COLOR.."Soon:"..locale.NORMAL_COLOR)

say("Ohhh, Moja Ksiega...")

say("Myslalem ze juz nigdy jej nie zobacze")

say("Dziekuje Ci bardzo, Bog bedzie Ci wdzieczny")

say("W nagrode trzymaj:")

 

 

 

say_reward("Otrzymales Biala Perla")

say_reward("Otrzymales Magiczny Metal")

say_reward("Otrzymales 100 000 000 Yang")

say_reward("Otrzymales 50 000 000 Doswiadczenia")

 

 

pc.remove_item(30164,1)

pc.give_item2(27992)

pc.give_item2(25041)

 

pc.change_money(100000000)

pc.give_exp2(50000000)

clear_letter()

set_state(__complete)

end

 

end

 

 

state __complete begin

end

end

 

 

 

Download:

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

Skan:

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

Edytowane 6 Grudnia 2010 przez Siera
Połączyłem posty, dostałeś warna za potrójny, podczas dodawania questa edytuj 1. post i umieszczaj questy w spoilerach.

[WhazUp!]

3X +

[adrian989]

Nie wiem czy mod pozwoli ci pisać post pod postem

[xDominikax]

No to już od niego zależy ale chyba lepiej w jednym temacie zamieszczać questy niż robić od dzielnie 50 tematów to już jego wybór

[HeroMetin2]

Jest taka opcja "Edytuj"

@top

1 quest nie zadziała, brakuje nawiasów

[yohito]

tarantule wywalili z teamu newdestiny.pl to daje questy z servera BRAWO

[xDominikax]

tarantule wywalili z teamu newdestiny.pl to daje questy z servera BRAWO

 

Jak byś nie zauważył zamieszczam questy pisane przeze mnie a nie przez Arymana więc w czym masz problem ... Własnoręcznie pisaliśmy te questy więc nie widzę tutaj problemu aby je udostępniać . nikt ich od nas nie wykupił aby miał do nich prawa ..

[fast77]

Możesz dawać do spoiler te questy ??