[HELP]modified bioquest

----------------------------------------------------
--MAKE HERB LV7
--METIN2 Collecting Quest
----------------------------------------------------
quest collect_lv45 begin
state start begin
when login or levelup with pc.get_level() >=45 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, "Chaegirab")
end
send_letter("The study of Biologist_Chaegirab")
end

when button or info begin
say_title("The study of Biologist_Chaegirab")
say("")
say("Chaegirab, the apprentice of Uriel")
say(" is desperately looking for you")
say("Please go down there and find out what is going on and help him.")
say("")
end

when __TARGET__.target.click or
20084.chat."Listen to me" begin
target.delete("__TARGET__")
say("Chaegirab:")
--- l
say("Hey, I found something really really cool!")
say("Listen: do you see this "..item_name(11520).."?")
say("As you can see, these are one fifth of an "..item_name(50512).."!")
say("You know what they do?")
say(""..item_name(50512).." makes your skills P")
say("I found a way to melt 5 "..item_name(11520).." into such stone.")
wait()
say("Chaegirab:")
say("The problem is that they are quite rare...")
say("If you can get me 5 good ones,")
say("I'll reward you with an "..item_name(50512).."!")
say("They say you can get them from some metins")
say("However, I don't know wich ones... I thought one in the desert.")
say("Deal?")
say("I knew i could count on you!")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)--Current number of items
pc.setqf("drink_drug",0) -- 1 when take the Quest Potion
end
end

state go_to_disciple begin
when letter begin
send_letter("Special Task! Collect "..item_name(11520).."")

end
when button or info begin
say_title("Need to collect Crystals")
--- l
say("")
say("Chaegirab, the apprentice of Uriel ")
say("is currently studying on"..item_name(11520).."")
say("Let's bring him some Crystals")
say("You can get them from desert metins")
say("")
say_item_vnum(11520)
say_reward("Currently I have collected".." "..pc.getqf("collect_count").."Crystals")
say("")
end

when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("")
say("used once already")
say("")

return
end
if pc.count_item(11520)==0 then
say("Chaegirab:")
say("Even after you collected Crystals ")
say("It is not too late to use the potion")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end


when 8009.kill begin
if pc.count_item(11520)< 5 -pc.getqf("collect_count") then
pc.give_item2(11520, 1)
end
end


when 20084.chat."Have you brought the Crystals? " with pc.count_item(11520) >0 begin
say("Chaegirab")
--- l
say("Oh!! you have got them...")
say("Let me examine these...")
say("Wait up for a minute")
say("")
pc.remove_item(11520, 1)
wait()

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

local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 4 then --5°³¹Ì¸¸_Less than 5
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --you got one, so you would get +1
say("Chaegirab:")
say("Oh~!! these are the best quality")
say("It would be nicer if you bring".." "..5-pc.getqf("collect_count").. "more Crystals")
say("Please work on it~!")
say("")
pc.setqf("drink_drug",0) --Initialize the potions
return
end
say("Chaegirab:")
say("You've collected them all~!!")
say("OOOOHHH~!!! Good job...")
say("For a reward, here is the "..item_name(50512).."")
say("Please take it..")
say("")
say_reward("For a reward of helping Chaegirab's study ")
say_reward("you get an "..item_name(50512).."")
end

pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)

clear_letter()
set_state(__complete)

pc.give_item2(50512)
set_quest_state("levelup","run")

return
else
say("_Chaegirab:")
say("Too bad, I don't think I can use them..")
say("please get me another ones")
say("")
pc.setqf("drink_drug",0) --Initialize Potions
return
end

end
end



state __complete begin
end
end