Bio küldi elfogadási esély növelése.. (K)

[15edmond15]

Sziasztok!
P3NG3R bio kuldijeit hasznalom es azt szeretnem meg tudni hogyan novelhetem az eselyet hogy ellfogadja a cuccokat?

Kód Kijelölés Kibont

-------------------------------------------
--     Biológus gyüjtögetõs küldetés     --
--              Lv60                     --
-----------              ------------------
--         |   P3NG3R    |               --
--          -------------                --
quest collect_quest_lv60  begin
state start begin
end
state run begin
when login or levelup with pc.level >= 60 and pc.level <= 250 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biológus")
end
send_letter("A Biológus negyedik kutatása")
end

when button or info begin
say_title("A Biológus negyedik kutatása")
say("")
say("A Biológus keres téged!")
say("Újabb feladata van számodra.")
say("")
say("")
say_reward("Menj el a Biológushoz.")
say("")
end

when __TARGET__.target.click or 20084.chat."A Jéggömbök" begin
target.delete("__TARGET__")
say_title("Biológus:")
---                                                   l
say("")
say("Üdvözöllek, örülök, hogy újra segítessz nekem.")
say("Nagyon megfáztam mialatt Jégföldön jártam.")
say("Amikor ott voltam egy újabb tárgyra figyeltem fel.")
say("Óriási Jégharcosok eledele az a tárgy.")
say("Én nem tudom beszerezni, mert gyenge is vagyok")
say("és ez a fránya megfázás... Szipp.")
say("Segíts nekem, kérlek!")
say("")
wait()
say_title("Biológus:")
say("")
say("A Jéghegy szülöttei nagyon erõsek, vigyázz velük.")
say("Különleges erejüket abból az eledelbõl szerzik.")
say("Meg szeretném vizsgálni, hogy valóban mágikus")
say("erõvel bír-e az a tárgy.")
say("Segítesz nekem?")
say("")
wait()
say_title("Biológus:")
say("")
say("Menj el a Sohan hegyekbe és szerezd be")
say("a Jéggömböt nekem, hogy megvizsgálhassam.")
say("De siess, mert ha elolvadtan hozod nem")
say("tudom megvizsgálni. Remélem észben tartod!")
say("Hozz nekem 20 darab Jéggömböt.")
say("Sok szerencsét!")
say("")  
set_state(go_to_disciple)
pc.setqf("duration",0)  --Idõhatár
pc.setqf("collect_count",0)--Gyüjtési darabszám
pc.setqf("drink_drug",0) --Kutatók elixírje
end
end

state go_to_disciple begin
when letter begin
send_letter("A fagyos jéggömbök")

end
when button or info begin
say_title("A fagyos jéggömbök")
---                                                   l
say("")
say("Chaegirab biológusnak, Uriel tanítványának")
say("szüksége van 20 Jéggömbre Sohan hegységrõl")
say("a kutatáshoz. Egyszerre csak egy darabot")
say("vigyél neki hogy jól megvizsgálhassa õket.")
say("Az ilyen jéggömböket Jég Gólemtõl és")
say("Alvilági Jéggólemtõl szerezhetsz.")
say("")
say_item_vnum(30050)
say_reward("Eddig leszállítottál "..pc.getqf("collect_count").." Jéggömböt.")
say("")
end

when 71035.use begin --Kutatók elixírje
if get_time() < pc.getqf("duration") then
say_title("Kutatók elixírje:")
say("A Biológus még vizsgálja az elõzõ tárgyat,")
say("amit vittél neki.")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say_title("Kutatók elixírje:")
say("Már használatban van.")
say("")
return
end
if pc.count_item(30050)==0 then
say_title("Kutatók elixírje:")
say("Nem használhatod ezt a szent tárgyat, ha nincs")
say("nálad az tárgy, amire szüksége van a biológusnak")
say("")
return
end
pc.remove_item(71035, 1)
pc.setqf("drink_drug",1)
end

    when 20084.chat."A Jéggömbök" with pc.count_item(30050) >0   begin
if get_time() > pc.getqf("duration") then
say_title("Biológus:")
say("")
say("Hoztál nekem egyet?")
say("Nagyon jó, hadd nézzem meg,")
say("hogy ezzel tudok e dolgozni...")
say("")
pc.remove_item(30050, 1)
pc.setqf("duration",get_time()+1*1) ---------------- 60*60*8 = 8óra // 60*60 = 1óra // 60*60*24 = 1 nap
wait()

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

local s= number(1,150)
if s<= pass_percent  then
   if pc.getqf("collect_count")< 19 then     --20 Jéggömb
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index)     --Számláló+1
say_title("Biológus:")
say("")
say("Ez a Jéggömb nagyon hideg, pont megfelel!")
say("Köszönöm szépen, el is kezdem rajta a vizsgálatot.")
say("")
say("Hozz még: ".." "..20-pc.getqf("collect_count").. " darabot.")
say("Sok szerencsét!")
say("")
pc.setqf("drink_drug",0) --Kutatók elixírje
return
end
say_title("Biológus:")
say("")
say("Gratulálok!")
say("Elhoztad nekem mind a 20 darab Jéggömböt.")
say("Már csak egy dolog választ el, hogy lezárhassam")
say("ezt a kutatást is. A Jégföld harcosai védelmezik")
say("az Aurtumryus lélekkövet, ami telis tele van")
say("szellemi energiával! Megkell szerened nekem!")
say("")
say_reward("Szerezd meg az Aurtumryus lélekkövet.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say_title("Biológus:")
say("")
say("Sajnálom, de ez a Jéggömb megolvadt.")
say("Ez így használhatatlan.")
say("Gyere vissza késõbb, és hozz egy fagyottat!")
pc.setqf("drink_drug",0) --Kutatók elixírje
return
end
else
  say_title("Biológus:")
  say("")
  say("Sajnálom, de a vizsgálat még tart,")
  say("gyere vissza egy kicsit késõbb.")
  say("")
  return
end
end
end

state key_item begin
when letter begin
send_letter("Aurtumryus lélekköve")

if pc.count_item(30223)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biológus")
end
end

end
when button or info begin
if pc.count_item(30223) >0 then
say_title("Aurtumryus lélekköve")
say("")
---                                                   l
say("Megtaláltad a lélekkövet!")
say("Vidd el gyorsan a Biológushoz.")
say("")
return
end
say_title("Aurtumryus lélekköve")
say("")
say("A Biológus már a kutatás végénél jár.")
say("Arra kért téged, hogy szerezd meg neki az")
say("Aurtumryus lélekkövet.")
say("")
say_item_vnum(30223)----------Aurtumryus lélekköve
say_reward("Menj a Sohan hegységbe és keresd meg a lelekkövet!")
say("")
end

when 1102.kill or
1103.kill or
1105.kill or
1106.kill or
1107.kill begin
local s = number(1, 275)
if s == 1 and pc.count_item(30223)==0 then
pc.give_item2(30223, 1)
send_letter("Megszerezted az Aurtumryus lélekkövet.")
end
end

when __TARGET__.target.click or 20084.chat."Aurtumryus lélekköve" with pc.count_item(30223) > 0  begin
    target.delete("__TARGET__")
say_title("Biológus:")
say("")
say("Szuper!")
say("Köszönöm szépen, hogy elhoztad nekem a lélekkövet!")
say("Hála neked kedves "..pc.get_name().." lezárhatom a kutatást.")
say("")
say("Most pedig fogd ezt a receptet, és menj el")
say("Baek-Go barátomhoz, tudni fogja mit kell tennie.")
say("")
pc.remove_item(30223,1)
set_state(__reward__)
end
end

state __reward__ begin
when letter begin
send_letter("Recept a biológustól")

local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Baek-Go")
end
end
when button or info begin
say_title("Recept a biológustól")
say("")
---                                                   l
say("A Biológustól kaptál egy receptet,")
say("amit csak Baek-Go tud elkészíteni.")
say("Siess és vedd át jutalmad.")
say("")
end

when __TARGET__.target.click or 20018.chat."Recept a biológustól" begin
    target.delete("__TARGET__")
say_title("Baek-Go:")
say("")
say("Isten hozott.")
say("A Biológus küldött egy recepttel?")
say("Hmmm[DELAY value;300]...[/DELAY] ")
say("Rendben elkészítem ezt a fõzetet neked.")
say("")
wait()
say_title("Baek-Go:")
say("Tessék idd meg ezt.")
say("")
say_reward("Kaptál:")
say_reward("Támadó érték +400 (Végleges)")
say_reward("Világoszöld ébenláda")

affect.add_collect(apply.ATT_GRADE_BONUS,400,60*60*24*365*60) -----Örökös idõtartam
pc.give_item2(50112, 1)

clear_letter()
set_quest_state("collect_quest_lv70", "run")
set_state(__complete__)
end
end


state __complete__ begin
end
end






Elore kosz!

[DeathKnight]

Szia!

Itt fogod tudni

Kód Kijelölés Kibont


pass_percent=60
else
pass_percent=150
end
local s= number(1,150)

A pass_percent=60 és pass_percent=150 és a local s= number(1,150) -t kell átírnod....

PL: pass_percent=30 és pass_percent=50 ==> local s= number(1,50)
(ez a példa 3x nagyobb eséllyel fogadja el a tárgyat!)

További szépnapot!

[15edmond15]

Tehat ha jol ertem ez 1 az 50-hez valo esely..
Ertem kosz
Temat zarom.