[Quest] Groty Strzał

[Bil3T]

Bez zbędnego gadania, udostępniam wam quescika

 

http://wklej.to/ouy9W

 

------------------------------------
-- Copyright. Draconis -------------
---- GrotyStrzal -------------------
------------------------------------
quest grotyStrzal begin
state start begin
when login or levelup with pc.get_level() >= 50 begin
set_state( groty_start )
end
end

state groty_start begin
when letter begin
send_letter("Nowe Zadanie")
local v = find_npc_by_vnum(20011)
if v == 0 then
else
target.vid("__TARGET__", v,"Uriel")
end
end

when button or info begin
say(" Udaj się do Uriela ma dla Ciebie ciekawe zadanie! ")
end

when __TARGET__.target.click begin
target.delete("__TARGET__")
say_title("Uriel: ")
say(" Witaj "..pc.get_name().." mam dla Ciebie ciekawą ")
say(" propozycję. Nasz ostatni wysłannik nie wrócił z ")
say(" tego wnioskuję więc że poległ. Nie znam żadnego ")
say(" innego kandydata prócz Ciebie. Musisz zanieść ")
say(" kowalowi 5000 Grot Strzał. Możesz je zdobyć pokonując ")
say(" czarne ork, potwory w krainie zombie oraz w lochu ")
say(" pająków V1 i V2. Przynieś mu je a zostaniesz ")
say(" sowicie wynagrodzony. ")
clear_letter()
set_state( groty_drop )
end
end

state groty_drop begin
when letter begin
send_letter("Groty Strzal")
end

when button or info begin
say(" Musisz zdobyć 5000 sztuk grot strzał ")
say(" Zdobądź je zabijając Czarne Orki, ")
say(" Pająki z Lochu V1 i V2 oraz potwory ")
say(" z Czerwonego Lasu. A następnie zanieś ")
say(" je Kowalowi. ")
end

---orki
when 636.kill begin
local drop = math.random(150)
if drop == 3 then
pc.give_item2(30157, 10)
end
end
---V1
when 2401.kill begin
local drop = math.random(150)
if drop == 8 then
pc.give_item2(30157, 10)
end
end
---V2
when 2411.kill begin
local drop = math.random(150)
if drop == 9 then
pc.give_item2(30157, 10)
end
end

---Zombie
when 2501.kill begin
local drop = math.random(150)
if drop == 99 then
pc.give_item2(30157, 10)
end
end

when 20016.chat."Groty Strzal" begin
if pc.countitem(30157) >= 5000 then
clear_letter()
say(" O zdobyłeś wszystkie groty strzał. ")
say(" Jesteś słownym, niezawodnym człowiekiem. ")
say(" Przyczyniłeś się do wzmocnienia naszego wojska.")
say(" Oto twoja nagroda...")
say("")
wait()
say_reward("Otrzymano 50000000 exp")
say_reward("Otrzymano broń na 75 poziom +0")
say_reward("Otrzymano 150000000 Yang")
say_reward("Otrzymano bonus staly: ")
say_reward(" -Silny przeciwko ludziom +10% ")
say_reward(" -Odporność na magię +10% ")
pc.remove_item(30157, 5000)
pc.give_item2(50112, 3)
pc.change_money(150000000)
pc.give_exp2(50000000)
affect.add_collect(apply.ATTBONUS_HUMAN,10,60*60*24*365*60) --ˇV60?~
affect.add_collect(apply.RESIST_MAGIC,10,60*60*24*365*60) --ˇV60?~
wait()


if pc.job==0 then
local s0 = select("Miecz Żalu", "Zatruty Miecz")

say_title("Otrzymano: ")
say("")
if s0 == 1 then
say_item_vnum(3160)
pc.give_item2(3160, 1)
else
say_item_vnum(180)
pc.give_item2(180, 1)
end
end

if pc.job==1 then
local s1 = select("Stalowy Luk Kruka", "Skrzydla Demona Chakram", "Zatruty Miecz")

say_title("Otrzymano: ")
say("")
if s1 == 1 then
say_item_vnum(2170)
pc.give_item2(2170, 1)
elseif s1 == 2 then
say_item_vnum(1130)
pc.give_item2(1130, 1)
else
say_item_vnum(180)
pc.give_item2(180, 1)
end
end

if pc.job==2 then
local s2 = select("Zatruty Miecz", "Demoniczne Ostrze")

say_title("Otrzymano: ")
say("")
if s2 == 1 then
say_item_vnum(180)
pc.give_item2(180, 1)
else
say_item_vnum(250)
pc.give_item2(250, 1)
end
end

if pc.job==3 then

say_title("Otrzymano: ")
say("")
say_item_vnum(5120)
pc.give_item2(5120, 1)

end

setstate( __COMPLETE__)
else
say(" Gdy zdobędziesz już 5000 Grot Strzał, ")
say(" szybko mi je przynieś ")
end
end
end
state __COMPLETE__ begin
end
end

[JonyNawa1ony]

Szczerze? Słaby ten quest.

Posiadam o wiele lepszy na komputerze, sam pisałem od zera.

[Bil3T]

Bardzo się ciesze, że posiadasz lepszy. Ten pisałem ja i mi się podoba. Udostepniam może komuś się przyda.

[axetiv323]

Dzięki przyda sie

[Mentor™]

Ogólnie to bardzo prosta fabuła tego questu, mogłeś to ciekawiej rozpisać :P

Pare błędów językowych w dialogach się wkradło, ale ogólnie jest w porządku :P

[Cort]

Dobrze, że chociaż jakiś mod metina wypowiada się nie tylko w celu bana/warna.

 

local v = find_npc_by_vnum(20011)
if v == 0 then
else
target.vid("__TARGET__", v,"Uriel")

nie lepiej zamienić na

 

local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("__TARGET__", v,"Uriel")

Wiem, że to żadna różnica, ale wolę krótsze kody

[Erom]

/delete