-------------------------------
-- SERVERFILE BY HOPE v2
-------------------------------
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