quest biologistchaegirab_informations begin
state start begin
when 20084.chat."Unde gãsesc obiectele?" begin
say("Informaþii despre sarcinile biologului")
say_size(350, 360)

local s = select("Dinþii de Orc","Cãrþile blestemelor","Suvenirele Demonului","Globurile de gheaþã ","Crengile Zelkova","Tãbliþele Tugyis","Rãmurelele roºii","Însemnele Liderilor","Ieºire")

if s == 1 then
say_title("Dinþii de Orc")
say("[ENTER]Ii gãseºti la Orci Negrii, Orci Negrii Mari ºi Ork.[ENTER]Biologul are nevoie de 10 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")

elseif s == 2 then
say_title("Cãrþile blestemelor")
say("[ENTER]Le gãseºti la Despoþi Înalþi ºi Despoþi Întunecaþi.[ENTER]Biologul are nevoie de 15 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")

elseif s == 3 then
say_title("Suvenirele Demonului")
say("[ENTER]Le gãseºti la Arcaºi Demon, Sulitaº Demon,[ENTER]ªaman Demon ºi Soldat Demon.[ENTER]Biologul are nevoie de 15 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")

elseif s == 4 then
say_title("Globurile de gheaþã ")
say("[ENTER]Le gãseºti la Golemi de gheaþã.[ENTER]Biologul are nevoie de 20 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")

elseif s == 5 then
say_title("Crengile Zelkova")
say("[ENTER]Le gãseºti la Driade, Copac Rãu, Copac fantomã,[ENTER]Salcie Fantomã Driade Roºii, Copac Rãu Roºu,[ENTER]Buturuga Fantomã Roºie, Salcie Fantomã Roºie.[ENTER]Biologul are nevoie de 25 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")

elseif s == 6 then
say_title("Tãbliþele Tugyis")
say("[ENTER]Le gãseºti la Giganþii din Câmpul cu ºerpi.[ENTER]Biologul are nevoie de 30 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")

elseif s == 7 then
say_title("Rãmurelele roºii")
say("[ENTER]Le gãseºti Driade Roºii, Copac Rau Roºu,[ENTER]Buturugã Fantoma Roºie, Salcie Fantomã Roºie.[ENTER]Biologul are nevoie de 40 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")

elseif s == 8 then
say_title("Însemnele Liderilor")
say("[ENTER]Le gãseºti la monºtrii din categoria ªef.[ENTER]Biologul are nevoie de 50 exemplare pentru a[ENTER]termina cercetarea.[ENTER]")
end
end
end
end

quest biologistchaegirab_search begin
state start begin
when letter with pc.get_level() >= 30 begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Chaegirab")
end
send_letter( "Cautã-l pe Biologul Chaegirab" )
end

when button or info begin
say_title("Cautã-l pe Biologul Chaegirab")
say("")
say("Du-te în primul sat ºi cautã-l pe Biologul")
say("Chaegirab. El are nevoie de ajutor la")
say("cercetãrile lui. Vei fi rãsplãtit pe mãsurã.")
say("")
end

when __TARGET__.target.click or
20084.chat."Ai venit sã mã ajuþi?" begin
target.delete("__TARGET__")

say_title("Biologul Chaegirab:")
say("")
say("Dupã cum ºtii, am nevoie de ajutorul tãu pentru")
say("a-mi termina studiile. O sã îþi dau o listã ")
say("cu obiectele pe care le studiez. Pentru fiecare")
say("studiu terminat te voi rãsplãti.")
say("")
say_reward("Ascultã foarte bine indicaþiile care þi le dau")
say_reward("pentru cã am sã þi le spun doar o singurã datã!")
say("")
wait ()
say_title("Biologul Chaegirab:")
say("")
say("Toate obiectele de studiu cad doar la monºtrii.")
say("Obiectele pe care le vinde fierarul nu sunt bune")
say("pentru cercetãrile mele, ele ajutã doar la")
say("imbunãtãþirea obiectelor.")
say("Obiectele cad odatã cu nivelul misiunii,")
say("pânã la terminiarea acesteia.")
say("Cam atâta am avut de zis, sper cã ai ascultat")
say("cu atenþie. Succes!")
say("")

set_state ( "__COMPLETE__" )
clear_letter()
end
end

state __COMPLETE__ begin
end
end

quest biologistchaegirab_tasks begin
state start begin
when 71035.use begin
say("La ce misiune vrei sã elimini timpul de aºteptare?")
say_size(350, 360)

local s = select ("Dinþii de orc", "Cãrþile blestemelor", "Suvenirele Demonului", "Globuri de gheaþã", "Crengile Zelkova", "Tãbliþele Tugyis", "Rãmurelele roºii", "Însemnele Liderilor", "Închide")

if s == 1 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_30", get_time() + 1 * 1)
remove_item_time()

elseif s == 2 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_40", get_time() + 1 * 1)
remove_item_time()

elseif s == 3 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_50", get_time() + 1 * 1)
remove_item_time()

elseif s == 4 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_60", get_time() + 1 * 1)
remove_item_time()

elseif s == 5 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_70", get_time() + 1 * 1)
remove_item_time()

elseif s == 6 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_80", get_time() + 1 * 1)
remove_item_time()

elseif s == 7 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_85", get_time() + 1 * 1)
remove_item_time()

elseif s == 8 then
syschat("Timpul a fost eliminat.")
pc.setqf("BiologistTaskTime_90", get_time() + 1 * 1)
remove_item_time()
end
end

function Tasks(Level, Item, ItemCount, Reward, Bonus1, BonusValue1, Bonus2, BonusValue2, ItemBonus, ItemBonusCount)
if pc.get_level()<Level then
say_title("Biologul Chaegirab:")
say("")
say("Îmi pare rãu, dar trebuie sã ai nivelul "..Level)
say("pentru aceastã misiune! Revin-o când atingi")
say("nivelul necesar.")
say("")
return
end
if get_time() < pc.getqf("BiologistTaskTime_"..Level.."") then
say_title("Biologul Chaegirab:")
say("")
say("Momentan nu am terminat de studiat obiectul")
say("care mi le-ai adus. Revin-o mai târziu.")
say("Poþi aduce un obiect odatã la 10 minute.")
say("")
return
end
if pc.getqf("BiologistTask_"..Level.."")==1 then
say_title("Biologul Chaegirab:")
say("")
say("Îmi pare rãu, dar nu poþi face o misiune de mai")
say("multe ori deoarece am terminat de studiat")
say("aceste obiecte.")
say("")
return
end
say_title("Biologul Chaegirab:")
say("")
say("Pentru a finaliza aceastã misiune este nevoie de")

local ItemCount2

if pc.getqf("BiologistTask_"..Level..""..ItemCount.."")==0 then
ItemCount2=ItemCount
else
ItemCount2=ItemCount-pc.getqf("BiologistTask_"..Level..""..ItemCount.."")
end
say(""..item_name(Item)..", "..ItemCount2.." de bucãþi.")
say("")
say("Recompensa pentru aceastã misiune este:")
say_reward(Reward)
say("")

local s = select("Am adus "..item_name(Item).."", "Înapoi")

if s==1 then
if pc.count_item(Item)==0 then
say_title("Biologul Chaegirab:")
say("")
say("Nu ai obiectele necesare.")
say("Pentru aceastã misiune este nevoie de "..item_name(Item).."")
say("")
return
end

local Prob = number(1,2)
if Prob==1 then
say_title("Biologul Chaegirab:")
say("")
say("Îmi pare rãu, dar acest exemplar nu este bun!")
say("Revin-o cu un exemplar nou.")
say("")
pc.setqf("BiologistTaskTime_"..Level.."", get_time() + settings.biologist_time * 60)
pc.remove_item(Item, 1)
return
end

pc.setqf("BiologistTask_"..Level..""..ItemCount.."", pc.getqf("BiologistTask_"..Level..""..ItemCount.."")+1)
if pc.getqf("BiologistTask_"..Level..""..ItemCount.."")==ItemCount then
pc.remove_item(Item, 1)

say_title("Biologul Chaegirab:")
say("")
say("În sfârºit! Am terminat de studiat aceste obiecte.")
say("Mulþumesc pentru ajutor. Recompensa ta este")
say("")
pc.setqf("BiologistTask_"..Level.."", 1)
say_reward(Reward)
say("")
affect.add_collect(Bonus1, BonusValue1, 60*60*24*365*60)
pc.give_item2 (ItemBonus, ItemBonusCount)
if Bonus2!=0 then
affect.add_collect(Bonus2, BonusValue2, 60*60*24*365*60)
end
else
say_title("Biologul Chaegirab:")
say("")
say("Excelent! Acest exemplar este de calitate.")
say("Mai trebuie sã aduci doar "..ItemCount-pc.getqf("BiologistTask_"..Level..""..ItemCount.."").." de exemplare.")
say("")
pc.setqf("BiologistTaskTime_"..Level.."", get_time() + settings.biologist_time * 60)
pc.remove_item(Item, 1)
end
end
end

-- Drop

when biologist_30_mob01.kill or biologist_30_mob02.kill or biologist_30_mob03.kill begin
Level = 30
if pc.get_level() > Level and pc.count_item(30305) < 10 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
local chance = number(1, 30)
if chance == 1 then
pc.give_item2 ( 30305, 1 )
syschat("Ai gãsit un Dinte de Ork pentru cercetarea biologului.")
end
end
end
end
when biologist_40_mob01.kill or biologist_40_mob02.kill begin
Level = 40
if pc.get_level() > Level and pc.count_item(30306) < 15 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
local chance = number(1, 35)
if chance == 1 then
pc.give_item2 ( 30306, 1 )
syschat("Ai gãsit Cartea Blestemelor pentru cercetarea biologului.")
end
end
end
end
when biologist_50_mob01.kill or biologist_50_mob02.kill or biologist_50_mob03.kill or biologist_50_mob04.kill begin
Level = 50
if pc.get_level() > Level and pc.count_item(30307) < 15 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
local chance = number(1, 60)
if chance == 1 then
pc.give_item2 ( 30307, 1 )
syschat("Ai gãsit Suvenirul Demonului pentru cercetarea biologului.")
end
end
end
end
when biologist_60_mob01.kill begin
Level = 60
if pc.get_level() > Level and pc.count_item(30308) < 20 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
local chance = number(1, 30)
if chance == 1 then
pc.give_item2 ( 30308, 1 )
chat("Ai gãsit Glob de Gheaþã pentru cercetarea biologului.")
end
end
end
end
when biologist_70_mob01.kill or biologist_70_mob02.kill or biologist_70_mob03.kill or biologist_70_mob04.kill or biologist_70_mob05.kill or biologist_70_mob06.kill or biologist_70_mob07.kill or biologist_70_mob08.kill begin
Level = 70
if pc.get_level() > Level and pc.count_item(30165) < 25 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
local chance = number(1, 60)
if chance == 1 then
pc.give_item2 ( 30165, 1 )
syschat("Ai gãsit o Crenguþã Zelkova pentru cercetarea biologului.")
end
end
end
end
when biologist_80_mob01.kill or biologist_80_mob02.kill or biologist_80_mob03.kill or biologist_80_mob04.kill or biologist_80_mob05.kill or biologist_80_mob06.kill or biologist_80_mob07.kill or biologist_80_mob08.kill or biologist_80_mob09.kill begin
Level = 80
if pc.get_level() > Level and pc.count_item(30166) < 30 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
local chance = number(1, 7)
if chance == 1 then
pc.give_item2 ( 30166, 1 )
syschat("Ai gãsit o Tãbliþã Tugyis pentru cercetarea biologului.")
end
end
end
end
when biologist_85_mob01.kill or biologist_85_mob02.kill or biologist_85_mob03.kill or biologist_85_mob04.kill or biologist_85_mob05.kill begin
Level = 85
if pc.get_level() > Level and pc.count_item(30167) < 40 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
local chance = number(1, 100)
if chance == 1 then
pc.give_item2 ( 30167, 1 )
syschat("Ai gãsit o Rãmuricã roºie pentru cercetarea biologului.")
end
end
end
end
when biologist_90_mob01.kill or biologist_90_mob02.kill or biologist_90_mob03.kill or biologist_90_mob04.kill or biologist_90_mob05.kill or biologist_90_mob06.kill or biologist_90_mob07.kill or biologist_90_mob08.kill or biologist_90_mob09.kill or biologist_90_mob10.kill or biologist_90_mob11.kill begin
Level = 90
if pc.get_level() > Level and pc.count_item(30168) < 50 then
if pc.getqf("BiologistTask_"..Level.."")== 0 then
pc.give_item2 ( 30168, 1 )
syschat("Ai gãsit un Însemn al Liderilor pentru cercetarea biologului.")
end
end
end

-- NPC

when 20084.chat."Sarcinile biologului Chaegirab" with pc.getqf("BiologistTask")==0 begin
say_title("Sarcinile biologului Chaegirab")
say_size(350, 360)

local s = select("Dinþii de orc", "Cãrþile blestemelor", "Suvenirele Demonului", "Globuri de gheaþã", "Crengile Zelkova", "Tãbliþele Tugyis", "Rãmurelele roºii", "Însemnele Liderilor", "Închide")

if s==1 then
biologistchaegirab_tasks.Tasks(30, 30305, 10, "+10% viteza de miºcare (permanentã)[ENTER]Cutie roºie de ebonitã ", 8, 10, 0, 0, 50109, 1)

elseif s==2 then
biologistchaegirab_tasks.Tasks(40, 30306, 15, "+5% viteza de atac (permanentã)[ENTER]Cutie de abanos maro", 7, 5, 0, 0, 50110, 1)

elseif s==3 then
biologistchaegirab_tasks.Tasks(50, 30307, 15, "+60 apãrare (permanentã)[ENTER]Cutie de abanos galbenã ", 54, 60, 0, 0 , 50111, 1)

elseif s==4 then
biologistchaegirab_tasks.Tasks(60, 30308, 20, "+50 atac (permanent)[ENTER]Cutie de abanos verde-deschis", 53, 50, 0, 0, 50112, 1)

elseif s==5 then
biologistchaegirab_tasks.Tasks(70, 30165, 25, "+10% viteza de miºcare (permanentã)[ENTER]+5% puternic împotriva monºtrilor (permanent)[ENTER]Cutie de abanos verde", 8, 10, 63, 5, 50113, 1)

elseif s==6 then
biologistchaegirab_tasks.Tasks(80, 30166, 30, "+10 forþã (permanent)[ENTER]+10% viteza de atac (permanentã)[ENTER]Cutie de abanos albastrã ", 5, 10, 7, 10, 50114, 1)

elseif s==7 then
biologistchaegirab_tasks.Tasks(85, 30167, 40, "+10% reducerea pagubelor încasate de la[ENTER]ceilalþi jucãtori[ENTER]Cutie de abanos purpurie", 73, 10, 0, 0, 50115, 1)

elseif s==8 then
biologistchaegirab_tasks.Tasks(90, 30168, 50, "+10% puternic împotriva semi-oamenilor[ENTER]Cutie de abanos albastrã ", 17, 10, 0, 0, 50114, 1)

end
end
end
end