quest breasla_administreaza begin
state start begin
when 11000.chat."Pãrãseºte breasla" or 11002.chat."Pãrãseºte breasla" or 11004.chat."Pãrãseºte breasla" with pc.hasguild() and not pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin

say_title ( "Gardian:" )
say ( "Chiar vrei sã pãrãseºti aceastã breaslã?[ENTER]Sunt sigur cã membrii vor fi foarte[ENTER]dezamãgiþi de tine ...[ENTER]" )
local s = select("Da", "Nu")

if s==1 then
say_title ( "Gardian:" )
if pc.getflag("restrict.player") == 1 then
say("Securizarea caracterului este activã.")
say("Nu poþi face asta.")
return
end
say ( "Ai pãrãsit breasla![ENTER]" )
pc.remove_from_guild()
end

end

when
11000.chat."Desfiinteaza breasla" or
11002.chat."Desfiinteaza breasla" or
11004.chat."Desfiinteaza breasla" with pc.hasguild() and pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin

say_title("Gardian:")
say("")
say("Am depus mult efort în crearea acestei bresle")
say("iar acum tu vrei sa o distrugi? Toata experienta")
say("si amintirile vor fi pierdute pentru totdeauna.")
say("")
say("Chiar vrei sa distrugi aceasta breasla?")
say("")

local s = select("Da", "Nu")

if s==1 then
say_title("Gardian:")
say("")
say("Ai distrus breasla!")
say("")
pc.destroy_guild()
end
end

when 11000.chat."Înfiinþeazã o breaslã " or 11002.chat."Înfiinþeazã o breaslã " or 11004.chat."Înfiinþeazã o breaslã " with not pc.hasguild() and not pc.isguildmaster() and npc.get_empire() == pc.get_empire() begin

say_title ( "Gardian:" )
if pc.hasguild() then
say("Eºti deja membrul unei bresle.")
else
say ( "Vrei sa înfiinþezi o breaslã ?" )
say_reward ("Ai nevoie de 100.000 yang.")

local s = select("Da", "Nu")
if s == 2 then
return
end
if s == 1 then
if pc.gold < 100000 then
say_reward("Ai nevoie de 100.000yang.")
return
end
say("Introdu numele breslei:")
local guild_name = string.gsub(input(), "[^A-Za-z0-9]", "")
local guild_len_name = string.len(guild_name)
if not ((2 < guild_len_name) and (guild_len_name < 12)) then
say_reward("Eroare, numele breslei trebuie sã aibã între 2 - 12 caractere.")
return
end
local ret = pc.make_guild0(guild_name)
if ret==-2 then
say_reward("Eroare, numele breslei trebuie sã aibã între 2 - 12 caractere.")
elseif ret==-1 then
say_reward("Eroare, caractere speciale gãsite.")
elseif ret==0 then
say_reward("O breaslã cu numele "..guild_name.." existã deja.")
elseif ret==1 then
pc.changegold(-100000)
say_reward("Breasla "..guild_name.." a fost creatã cu succes.")
elseif ret==2 then
say_reward("Eºti deja membrul unei bresle.")
elseif ret==3 then
say_reward("Eºti deja liderul unei bresle.")
end
end
end
end
end
end

SYSERR: May 11 10:12:52.702785 :: DestroyCharacter: [CHARACTER_MANAGER::DestroyCharacter] <Factor> 40886 not found
SYSERR: May 11 10:12:52.703113 :: DestroyCharacter: [CHARACTER_MANAGER::DestroyCharacter] <Factor> 40887 not found

SYSERR: May 11 10:18:48.755377 :: Process: SEQUENCE 297f0e00 mismatch 0xaf != 0x64 header 254
SYSERR: May 11 10:18:48.755603 :: Process: SEQUENCE_LOG [UNKNOWN]-------------

quest collect_quest_lv30 begin
state start begin
when login or levelup with pc.level >= 30 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, "Biologul Chaegirab:")
end
q.set_icon("scroll_open_blue.tga")
send_letter("Cercetãrile Biologului - Misiunea 1")
end

when button or info begin
say_title("Cercetãrile Biologului:")
say("Biologul Chaegirab, ucenicul lui Uriel, are nevoie")
say("de ajutor imediat.")
say("Grãbeºte-te ºi vorbeºte cu el.")
end

when __TARGET__.target.click or 20084.chat."Am nevoie de ajutorul tãu." begin
target.delete("__TARGET__")
say_title("Biologul Chaegirab:")
say("Oh!!! Te rog, ajutã-mã...")
say("Colectez informaþii despre monºtrii din regat,dar")
say("nu mã pot descurca singur... Aº dori sã le pot")
say("colecta eu,dar poþi sã îþi imaginezi cã aº avea")
say("probleme deoarece sunt doar un om de ºtiinþã.")
say("Te rog ajutã-mã. Desigur, vei primi o recompensã.")
wait()
say_title("Biologul Chaegirab:")
say("Cercetez Orcii din Valea Seungryong. Dinþii de orc")
say("sunt capabili sã treacã cu uºurinþã prin fier.")
say("De asta sunt aºa de interesat de ei. Teoria mea")
say("este cã noi suntem legaþi de Orci. Dinþii lor")
say("trebuie sã fie o cheie pentru evoluþia noastrã.")
wait()
say_title("Biologul Chaegirab:")
say("Poþi sã îmi aduci câþiva Dinþi de Orc?")
say("Dar te rog sã îmi aduci câte unul la un interval")
say("mai mare de timp pentru a putea sã îi examinez")
say("în detaliu. Succes !")
set_state(go_to_disciple)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end

state go_to_disciple begin
when letter begin
send_letter("Dinþii de Orc")
end

when button or info begin
say_title("Dinþii de Orc din Valea Seungryong:")
say("Biologul Chaegirab are nevoie de Dinþi de Orcilor")
say("din Valea Seungryong pentru a îi examina.")
say("Trebuie sã îi duci câte unul la un interval de 2")
say("ore pentru a avea timp sã îi examineze")
say_reward("Ai gãsit "..pc.getqf("collect_count").." Dinþi de Orc pânã acum.")
end

when 71035.use or 76020.use begin
if get_time() < pc.getqf("duration") then
syschat("Nu poþi folosi Elixirul Exploratorului încã.")
return
end
if pc.getqf("drink_drug")==1 then
syschat("Ai folosit deja Elixirul Exploratorului.")
return
end
if pc.count_item(30006)==0 then
syschat("Nu poþi folosi Elixirul Exploratorului dacã nu ai un Dinte de Orc.")
return
end
pc.remove_item(71035, 1)
pc.setqf("drink_drug",1)
end

when 70030.use begin
if get_time() > pc.getqf("redm_duration") then
pc.setqf("monocles_used", 0)
end
if get_time() > pc.getqf("duration") then
syschat("Deja îi poþi da Biologului urmãtorul obiect. Nu trebuie sã foloseºti Monoclul.")
return
end
if pc.getqf("monocles_used") > 4 then
syschat("Ai folosit deja 3 Monoacle Roºii pe ziua de azi.")
return
end
if pc.getqf("monocles_used") == 0 then
pc.setqf("redm_duration", get_time()+24*2*2)
end
pc.remove_item(70030, 1)
pc.setqf("duration", get_time()-1)
local use = pc.getqf("monocles_used")+1
pc.setqf("monocles_used",use)
syschat("Ai folosit un Monoclu Roºu. Îi poþi da urmãtorul Dinte de Orc Biologului.")
end

when 20084.chat."GM: Sari peste timpul de aºteptare Quest Lv.30" with pc.count_item(30006) >0 and pc.is_gm() and get_time() <= pc.getqf("duration") begin
say(mob_name(20084))
say("Eºti un GM, OK !")
pc.setqf("duration", get_time()-1)
return
end

when 20084.chat."Dinþii de Orc." with pc.count_item(30006) >0 begin
if get_time() > pc.getqf("duration") then
if pc.count_item(30006) >0 then
say_title("Biologul Chaegirab:")
say("Salut!! Mi-ai adus un Dinte de Orc?")
say("Trebuie sã îl verific mai întâi...")
say("Aºteaptã puþin.")
pc.remove_item("30006",1)
pc.setqf("duration",get_time()+24*2*2)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=70
else
pass_percent=100
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 9 then
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index)
say_title("Biologul Chaegirab:")
say("Ohhh!! Eºti cel mai bun...")
say("Te rog adu-mi încã "..10-pc.getqf("collect_count").. " Dinþi de Orc.")
say("Am nevoie de mai mulþi pentru a îmi finaliza")
say("cercetarea. Îþi doresc mult succes !")
pc.setqf("drink_drug",0)
return
end
say_title("Biologul Chaegirab::")
say("Ai reuºit sã colectezi toþi Dinþii de Orc!")
say("Dar acum am nevoie de o Piatrã a Sufletului. Este")
say("numitã Piatra Sufletului Jinunggyi. O poþi gãsi")
say("pentru mine? O poþi obþine de la Orci.")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say_title("Chaegirab:")
say("Hum....din pãcate acesta este spart.")
say("Îmi pare rãu dar nu îl pot folosi..")
say("Te rog sã îmi aduci altul, bine?")
pc.setqf("drink_drug",0)
return
end
else
say_title("Chaegirab:")
say("Nu ai "..item_name(30006).."!")
return
end
else
say_title("Chaegirab:")
local hoursleft = math.floor((pc.getqf("duration")-get_time())/60)
say("Îmi pare foarte rãu....")
say("Nu am terminat de analizat ultimul Dinte adus.")
say("Îmi pare foarte rãu... Poþi sã mi-l aduci peste")
say(""..hoursleft.." minute?")
say("")
return
end
end
end

state key_item begin
when letter begin
send_letter("Cercetãrile Biologului - Misiunea 1")
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("Piatra Sufletului:")
say_reward("În sfârºit ai gãsit P. Sufletului Jinunggyi")
say_reward("Du-te cu ea la Biolog. Acesta te aºteaptã.")
return
end
say_title("Piatra Specialã:")
say("Ai colectat deja 10 Dinþi de Orc.")
say("Pentru cercetarea sa Biologul Chaegirab are nevoie")
say("de asemenea de P. Sufletului Jinunggyi.")
say_item_vnum(30220)
say("Du-i piatra Biologului Chaegirab când o gãseºti.")
say("O poþi obþine de la "..mob_name(635)..", ")
say(""..mob_name(636).." ºi "..mob_name(637)..".")
end

when 635.kill or 636.kill or 637.kill begin
local s = number(1, 100)
if s == 1 and pc.count_item(30220)==0 then
pc.give_item2(30220, 1)
send_letter("Ai gãsit P. Sufletului Jinunggyi!")
end
end

when __TARGET__.target.click or 20084.chat."Am adus P. Sufletului Jinungyi." with pc.count_item(30220) > 0 begin
target.delete("__TARGET__")
if pc.count_item(30220) > 0 then
say_title("Biologul Chaegirab:")
say("Ohh!!! Îþi mulþumesc foarte mult!")
say("Ca ºi recompensã îþi voi creºte rezistenþa ..")
say("Aceasta este o reþetã secretã care conþine detalii")
say("despre putere...")
say("Du-te cu ea la Baek-Go. El va produce Poþiunea")
say("Puterii. Succes !")
say("Cu ajutorul tãu am învãþat multe despre Orci.")
pc.remove_item(30220,1)
set_state(__reward)
else
say_title("Biologul Chaegirab:")
say("Nu ai "..item_name(30220).."!")
return
end
end
end

state __reward begin
when letter begin
send_letter("Reþeta Secretã ")
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("Recompensa Biologului:")
say("Drept recomepensã pentru ajutorul oferit ")
say("cercetãrilor Biologului Chaegirab acesta þi-a dat")
say("o reþetã secretã. Du-te cu ea la Baek-Go pentru a")
say("crea o poþiune specialã.")
end

when __TARGET__.target.click or 20018.chat."Reþeta Secretã." begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Lasã-mã sã arunc o privire..")
say("Aceasta este reþeta pe care Biolgoul þi-a dat-o?")
say("Hmm, creºte viteza de miºcare. Nu e rãu, eh?")
say("Oh! Uite ºi o Cutie de Ebonitã Roºie !!")
say_reward("Viteza de miºcare þi-a fost crescutã cu +10.")
say_reward("Acest efect este permanent.")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) -- 60Years
pc.give_item2(50109)
clear_letter()
set_quest_state("collect_quest_lv40", "run")
set_state(__complete)
end
end
state __complete begin
end