[Quest] Militar

[Bil3T]

http://wklej.to/p4v5x

 

------------------------------------
-- Copyright. Draconis -------------
---- GrotyStrzal -------------------
------------------------------------
quest horse_lv21 begin
state start begin
when login or levelup with pc.get_level() >= 100 begin
if horse.get_level()>=1 then
setstate(gotostable21)
end
end
end

state gotostable21 begin
when letter begin
local v = find_npc_by_vnum(20349)
if 0==v then
else
target.vid("__TARGET__", v, "Stajenny")
end
end

when letter begin
send_letter("Idz do stajennego!")
end

when button or info begin
say_title("Udaj sie do stajennego!")
say("Stajenny ma dla Ciebie ciekawa oferte")
say("udaj sie do niego niezwlacznie,")
say("na pewno nie pozalujesz!")
say("")
end

when __TARGET__.target.click begin
target.delete("__TARGET__")
say_title("Stajenny:")
say("Widze ze jestes zainteresowany")
say("Moja oferta: zadanie nie jest proste")
say("Jednak nagroda Cie nie ominie.")
say("Jesli chcesz zrezygnowac zrob to teraz")
say("jesli jednak nie, to odwrotu juz nie bedzie.")
say("")
wait()
say("Widze jednak ze jestes zdeterminowany,")
say("dobrze wiec, zadanie nie jest proste, ale")
say("nagroda jest sowita.")
wait()
say("Przywodcy potworow rozkradly moj magazyn")
say("kradnac wszystkie moje cenne przedmioty.")
say("Czesc juz odzyskalem jednak jedna bardzo")
say("cenna dla mnie rzecz dalej jest w ich posiadaniu.")
say()
wait()
say("Przedmiotem tym jest czerwony monokl")
say("Ktory jest dla mnie pamiatka rodzinna")
say("Prosze zdobac go pokonujac bossy")
say("Otrzymasz sowitą zapłatę.")
setstate(runmisja)
end
end

state runmisja begin
when letter begin
send_letter("Koń Militarny")
end

when button or info begin
say_pistacja(" Zdobądź konia militarnego: ")
say(" Aby wykonac misje powierzoną przez stajennego ")
say(" musisz zabic jednego z przywodcow potworow! ")
say(" - Zabij 9 Ogonow ")
say(" - Zjawe Zoltego Tygrysa ")
say(" - Czerwonego Smoka ")
say(" - Umarlego Rozpruwacza ")
say(" - Lodowa Wiedzme ")
say(" - Niebieskiego Smoka ")
say(" - Ognistego Krola. ")
say(" Gdy odzyskasz skradziony przedmiot wroc do ")
say(" stajennego. ")
end

when 1901.kill with pc.countitem(70030) == 0 begin
local random = math.random(10)
if random > 9 then
pc.give_item2(70030, 1)
syschat("Zdobyto przedmiot zabijajac 9 Ogonow")
setstate(juzzabity)
send_letter("Wroc do stajennego!")
else
chat(" Niestety ten nie miał Czerwonego Monoklu. Szukaj dalej... ")
end
end

when 1304.kill with pc.countitem(70030) == 0 begin
local random = math.random(20)
if random > 19 then
pc.give_item2(70030, 1)
syschat("Zdobyto przedmiot zabijajac Zjawe Zoltego Tygrysa")
setstate(juzzabity)
send_letter("Wroc do stajennego!")
else
chat(" Niestety ten nie miał Czerwonego Monoklu. Szukaj dalej... ")
end
end

when 2291.kill with pc.countitem(70030) == 0 begin
local random = math.random(20)
if random > 19 then
pc.give_item2(70030, 1)
syschat("Zdobyto przedmiot zabijajac Czerwonego Smoka")
setstate(juzzabity)
send_letter("Wroc do stajennego!")
else
chat(" Niestety ten nie miał Czerwonego Monoklu. Szukaj dalej... ")
end
end

when 1191.kill with pc.countitem(70030) == 0 begin
local random = math.random(30)
if random > 29 then
pc.give_item2(70030, 1)
syschat("Zdobyto przedmiot zabijajac Lodowa Wiedzme")
setstate(juzzabity)
send_letter("Wroc do stajennego!")
else
chat(" Niestety ten nie miał Czerwonego Monoklu. Szukaj dalej... ")
end
end

when 1093.kill with pc.countitem(70030) == 0 begin
local random = math.random(10)
if random >= 8 then
pc.give_item2(70030, 1)
syschat("Zdobyles przedmiot zabijajac Umarlego Rozpruwacza")
setstate(juzzabity)
send_letter("Wroc do stajennego!")
else
chat(" Niestety ten nie miał Czerwonego Monoklu. Szukaj dalej... ")
end
end

when 2493.kill with pc.countitem(70030) == 0 begin
local random = math.random(10)
if random >= 8 then
pc.give_item2(70030, 1)
syschat("Zdobyles przedmiot zabijajac Niebieskiego Smoka")
setstate(juzzabity)
send_letter("Wroc do stajennego!")
else
chat(" Niestety ten nie miał Czerwonego Monoklu. Szukaj dalej... ")
end
end

when 2206.kill with pc.countitem(70030) == 0 begin
local random = math.random(10)
if random >= 8 then
pc.give_item2(70030, 1)
syschat("Zdobyles przedmiot zabijajac Ognistego Krola")
setstate(juzzabity)
send_letter("Wroc do stajennego!")
else
chat(" Niestety ten nie miał Czerwonego Monoklu. Szukaj dalej... ")
end

end
end

state juzzabity begin
when letter begin
local s = find_npc_by_vnum(20349)
if 0==s then
else
target.vid("__TARGET__", v, "Stajenny")
end
end

when letter begin
send_letter("Wroc do stajennego!")
end

when button or info begin
say_title("Wroc do stajennego!")
say("Odzyskales to co zostalo skradzione")
say("udaj sie teraz do stajennego po nagrode.")
say("Pamietaj ze na zbroje Wojskowego konia")
say("Musisz miec 400.000.000 Yang")
say("")
end

when 20349.chat."Nagroda" with pc.countitem(70030) > 0 begin
target.delete("__TARGET__")

if pc.get_gold() >= 400000000 then
say_title("Stajenny:")
say("Swietnie! Zdobyles Czerwony Monocykl!")
say("W nagrode otrzymasz Konia Wojskowego")
say("")


local odejmij = 400000000
pc.change_money(-odejmij)

horse.set_level("21")
pc.remove_item(70030, 1)
pc.give_item2(50053, 1)
horse.unride()
horse.summon()
horse.ride()
say_reward("Otrzymano Księga Wojskowego Konia.")
clear_letter()
setstate( __COMPLETE__ )
q.done()
else
say_title("Stajenny:")
say("Nie masz odpowiedniej ilości yang!")
say("Musisz miec 400000000 Yang.")
say("Wroc gdy je zdobedziesz")
end
end

end

state __COMPLETE__ begin
end
end

[Dingox]

Mozna wersje z Tabami?

Ps: Tyle bossow na militara?

Zart jakis?

[Ciasteczkowyy]

@up Zgadzam się w 100 %, tyle bosów?. Może dać, np tylko ripa?.

[Erom]

Mi nie dropią z niego coś itemy i wgl. brak napisu że nie dropło itp.

[Erom]

Właśnie nic , mam tak z każdym dropem.