Всем доброго времени суток, друзья. Мне очень нужны стандартные квесты биолога, если есть у кого, скиньте пожалуйста, можно даже не перведенные! Буду очень благодарен, закидаю + и подарками ;)tags-zB11Стандартные, квесты, биолога
Оукай, вот тебе квест биолога 4-ого уровня и 30ого уровня, по ним, ты сможешь другие легко перевести. Лови: [spoiler=" Биолог 4 лвл."] ---------------------------------------------------- --MAKE HERB LV4 --METIN2 Herb Quest ---------------------------------------------------- quest make_herb_lv4 begin state start begin when login or levelup with pc.get_level() ==4 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, " Биолог Шагираб ") end send_letter(" Иследование биолога ") end
when button or info begin say_title(" Найти биолога ") say("") say(" Биолог Шагираб, ученик Уриила. ") say(" Идите к нему, выполните его просьбу. ") say("") end
when __TARGET__.target.click begin target.delete("__TARGET__") say_title("Biologe Chaegirab:") --- l say(" Я рад, что ты пришёл! ") say(" Я изучаю местную растительность. ") say(" Поскольку у меня много работы, мне нужна твоя помощь. ") say(" Ты поможешь мне? ") wait() say_title(" Биолог Шагираб: ") say(" Для нынешних моих экспериментов мне нужны цветы персика. ") say(" Убивайте голодных волков альфа, пока не собирёте цветы.") say(" Приносите мне по 1 цветку, так как я буду изучать их поотдельности. ") 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(" Специальное задание! Сбор цветов. ")
end when button or info begin say_title(" Сбор цветов. ") --- l say("") say(" Биолог Шагираб, ученик Уриила ") say(" ждёт пока вы принисёте цветы. ") say(" Приносите ему по 1 цветку.") say(" Вы можете найти их убивая "..mob_name(105)..". ") say("") say_item_vnum(50701) say_reward(" Пока у вас есть ".." "..pc.getqf("collect_count").." собранных цветов. ") say("") end
when 71035.use begin --°gґbГД¤ф if pc.getqf("drink_drug")==1 then say("") say("¤wёgЁПҐО¤F1¦ё") say("")
return end if pc.count_item(50701)==0 then say("ҐНЄ«ѕЗЄМ±з¬f¦~:") say("Ґэ§дЁм®зЄбҐH«б,") say("¤~ЁПҐО°gґbГД¤ф¤]¤Ј·|¦і°ЭГD.") say("") return end item.remove() pc.setqf("drink_drug",1) end
when 173.kill begin if pc.count_item(50701)<5-pc.getqf("collect_count") then pc.give_item2(50701, 1) end end
when 20084.chat."Pfirsichblьten" with pc.count_item(50701) >0 begin say_title(" Биолог Шагираб ") --- l say(" Ох! Ты принёс цветы! ") say(" Дай-ка посмотреть... ") say("") pc.remove_item(50701, 1) wait()
local pass_percent if pc.getqf("drink_drug")==0 then pass_percent=90 else pass_percent=100 end
[/spoiler] [spoiler=" Биолог 30 лвл."] quest collect_quest_lv30 begin state start begin when login or levelup with pc.level >= 30 and pc.level <= 90 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, " Помощь Биологу ") end send_letter(" Вас разыскивает Биолог. ") end
when button or info begin say_title(" Вас разыскивает Биолог. ") say("") say(" Биолог нуждается в Вашей помощи, ") say(" найдите его и узнайте, ") say(" что у него стряслось.") say("") end
when __TARGET__.target.click begin target.delete("__TARGET__") say_title(" Биолог: ") say("") say(" Эххх..Трудные времена.. ")
say(" Очень хорошо, что Вы пришли.. ") say(" Мне очень нужна Ваша помощь, ") say("") say(" надеюсь Вы мне поможете.. ") wait() say_title(" Биолог: ") say("") say(" Вам нужно будет приносить мне зубы орка, ") say(" т.к. чтобы изучить их мне потребуется время, ") say(" Вы должны будете приносить 1 раз ") say(" каждые 30 минут. ") say_reward(" Запомните: Зубы могут быть гнилыми.. ") say("") wait() say_title(" Биолог: ") say("") say(" Вы сможете их получить из ") say(" специальной шкатулки, ") say(" которая называется: ") say_reward(" Изумрудная шкатулка. ") say("") set_state(go_to_disciple) pc.setqf("duration",0) -- ҐiҐHёХёХЄє®Й¶Ў pc.setqf("collect_count",0) -- ЎXЁъ±o№LЄєЄ««~јЖ¶q pc.setqf("drink_drug",0) -- ЎX іЬ°gґbГД¤фЄєёЬ 1 end end
state go_to_disciple begin when letter begin send_letter(" Помощь Биологу. ")
end when button or info begin say_title(" Информация: ") --- l say("") say(" Биолог взялся за изучение Зубов орка.. ") say(" Вы сможете получить их из ") say(" Изумрудной шкатулки или ") say(" убивая орков в долине драконов. ")
say("") say_item_vnum(30006) say_reward(" Сейчас Вы сдали: ".." "..pc.getqf("collect_count").." зубов. ") say("") end
when 71035.use begin --°gґbГД¤ф if get_time() < pc.getqf("duration") then say("") say("БЩ¤ЈҐiҐHЁПҐО°gґbГД¤ф") say("") return end if pc.getqf("drink_drug")==1 then say("") say("¤wёgЁПҐО¤F1¦ё") say("")
return end if pc.count_item(30006)==0 then say_title("Biologe Chaegirab") say("Ґэ§дЁм°¤ъҐH«б, ") say("¤~ЁПҐО°gґbГД¤ф¤]¤Ј·|¦і°ЭГD.") say("") return end item.remove() pc.setqf("drink_drug",1) end
when 20084.chat." Зубы орка " with pc.count_item(30006) >0 begin if get_time() > pc.getqf("duration") then say_title(" Биолог: ") say("") say(" Ммм.. Вы принесли зуб.. ") say(" Что же дайте мне его для изучения. ") say("") pc.remove_item("30006", 1) pc.setqf("duration",get_time()+60*30) -----------------------------------22?? wait()
local pass_percent if pc.getqf("drink_drug")==0 then pass_percent=60 else pass_percent=90 end
state key_item begin when letter begin send_letter(" Помощь Биологу ")
if pc.count_item(30220)>0 then local v = find_npc_by_vnum(20084) if v != 0 then target.vid("__TARGET__", v, " Помощь Биологу ") end end
end when button or info begin if pc.count_item(30220) >0 then say_title(" Поздравляю! ") say("") --- l say(" Вы нашли нужный камень. ") say(" Отнесите его Биологу. ") say("") return end say_title(" Информация: ") say("") say(" Для завершения квеста с Биологом трубуется ") say(" ещё кое-что... А именно: ") say_reward(" Камень души Джинунгайя. ") say("") say_item_vnum(30220)----------- Їu°±ЪЖF»оҐЫ say(" Найти Вы его сможете, убивая: ") say(" "..mob_name(635).."; ") say(" "..mob_name(636).."; ") say(" "..mob_name(637).."; ") say("") end
when 635.kill or 636.kill or 637.kill begin local s = number(1, 350) if s == 1 and pc.count_item(30220)==0 then pc.give_item2(30220, 1) send_letter(" Вы получили нужный камень. ") end end
when __TARGET__.target.click or 20084.chat." Помощь Биологу. " with pc.count_item(30220) > 0 begin target.delete("__TARGET__") say_title(" Биолог: ") say("") say(" Отлично! ") say(" Вы принесли камень, ") say(" Вам полагается награда.;) ") say(" Но дл начала найдите Баек-Го. ") say("") pc.remove_item(30220,1) set_state(__reward__) end
end
state __reward__ begin when letter begin send_letter(" Найдите Баек-Го. ")
local v = find_npc_by_vnum(20018) if v != 0 then target.vid("__TARGET__", v, " Найдите Баек-Го. ") end
end when button or info begin say_title(" Найдите Баек-Го. ") --- l say(" Биолог отправил Вас к Баек-Го, ") say(" чтобы Вы передали секретный рецепт. ") say("") end
when __TARGET__.target.click or 20018.chat." Найдите Баек-Го. " begin target.delete("__TARGET__") say(" Баек-Го: ") say("") say(" Тебя прислал Биолог? ") say(" Ммм..у него наконец-то появился рецепт... ") say(" В награду Вы получает спец. бонус: ") say_reward(" + 1000 к Вашему хп. ") say("")