[RELEASE] Vegyeskereskedő megbízása QUEST

[tripleh619]

Üdv!
Unalmamban csináltam egy másolatot.
A lényeg az, hogy 1es szinten kapja meg az illető a questet. 2 Kard +0-t kell leszállítani a vegyeskereskedő asszonynak.
Tovább nem is húzom az időt, íme a quest:

Kód Kijelölés Kibont


----------------------------------------------------
--Quest by Blista.
----------------------------------------------------
quest vegyeskereskedo_megbizasa  begin
state start begin
        when login or levelup with pc.get_level() >=1  begin
set_state(information)
end
end

state information begin
when letter begin
local v = 9003
if v != 0 then
target.vid("__TARGET__", v, "Vegyeskereskedő asszony")
end
send_letter("A Vegyeskereskedő megbízása")
end

when button or info begin
say_title("A Vegyeskereskedő megbízása")
say("")
say("Kérlek menyj el a városba")
say("és keresd meg a vegyeskereskedő nőt!")
say("Valami feladatot emlegetett a minap.")
say("Lehet, hogy sürgős ezért ne késlekedj!")
say("")
end

when __TARGET__.target.click or
9003.chat."A vegyeskereskedő megbízása" begin
target.delete("__TARGET__")
say("Vegyeskereskedő asszony:")
---                                                   l
say("Áh, Köszöntelek kalandor!")
say("A minap sokat töprengtem azon, hogy jól jönne")
say("egy kard+0, hogy megvédhessem magamat.")
say("A sárkány hatalmas felfordulást okozott")
say("mint tudhatod, ezért szükség van az önvédelemre.")
say("Szerezz nekem egyet kérlek!")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end

state go_to_disciple begin
when letter begin
send_letter("A vegyeskereskedő megbízása")

end
when button or info begin
say_title("A vegyeskereskedő megbízása")
---                                                   l
say("")
say("A vegyeskereskedő asszony azt a feladatot")
say("adta számodra, hogy szerezz kettő kard+0-t!")
say("Bármelyik szörny dobhatja 5ös szintig!")
say("Sok sikert kívánok!")
say("")
say_item_vnum(10)
say_reward("   Te eddig".." "..pc.getqf("collect_count").." kardot adtál le!")
say("")
end

when 71035.use begin --°g´bAĤô
if pc.getqf("drink_drug")==1 then
say("")
say("Bónuz dropp!")
say("")

return
end
if pc.count_item(10)==0 then
say("")
say("Szia!")
say("Bocsi de nincs kardod!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end


when 101.kill begin
if pc.count_item(10, 2)<Anzahl-pc.getqf("collect_count") then
pc.give_item2(10, 1)
end
end

    when 9003.chat."A Vegyeskereskedő megbízása" with pc.count_item(10) >0   begin
say("Szép napot!")
---                                                   l
say("Áh, szóval hoztál nekem egyet!")
say("köszönöm szépen barátom.")
say("Mindjárt megnézem a minőségét!")
say("")
pc.remove_item(10, 1)
wait()

local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=2
else
pass_percent=2
end

local s= number(1,100)
if s<= pass_percent  then
   if pc.getqf("collect_count")< -1 then     --5*ÓYH¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index)     --¨ú±o¤@* +1
say("Vegyeskereskedő nő:")
say("Tökéletes, ez a kard pompás!")
say("Eddig ".." "..Anzahl-pc.getqf("collect_count").. " kardot adtál le!")
say("Köszönöm szépen!")
say("")
pc.setqf("drink_drug",0) --AĤôai©l¤A
return
end
say("Vegyes kereskedő nő:")
say("Yuhu! Megvannak a kardok")
say("nagyon hálás vagyok barátom!")
say("Mivel sokat segítettél nekem")
    say("ezért a jutalmad sem maradhat el!")
say("")
say_reward("Vörös ital(Közepes) kapott")
say_reward("Vörös ital(Közepes) kapott")
say_reward("Kék ital(Közepes) kapott")
say_reward("A jutalmad 15000 Yang!")
say_reward("Illetve 150 tapasztalati pont!")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
clear_letter()
set_state(__complete)

pc.give_item2(27002, 200)
pc.give_item2(27002, 200)
pc.give_item2(27005, 200)
pc.change_money(15000)
pc.give_exp2(150)
set_quest_state("levelup","run")


return
else
say("Vegyeskereskedő nő:")
say("Ez a kard nem épp a legjobb!")
say("Kérlek hozz egy másikat.")
say("De siess, a sárkány bármikor felbukkanhat!")
say("")
pc.setqf("drink_drug",0) --AĤôai©l¤A
return
end
end
end



state __complete begin
end
end

Használat:
-Kimásolod és beilleszted egy vegyeskereskedo_megbizasa.quest fájlba majd felmásolod a szervered /home/game/share/locale/germany/qeust mappájába és beírod a quest nevét a quest_listbe.Ha kész vagy vele ./qc vegyeskereskedo_megbizasa.quest

Tesztelni teszteltem hibát nem találtam benne személy szerint.
Ha felhasználod egy - karmát dobhatnál.
Köszi.^^