noisiv 1
noisiv
Manwe Work 1
Manwe Work
Agora Metin2 1
Agora Metin2
Bvural41 1
Bvural41
Mt2Hizmet 1
Mt2Hizmet
SLyFeLLowTR 1
SLyFeLLowTR
Hikaye Ekle

Questleri Paylaşıyorum [Güncel Konu]

  • Konuyu başlatan Konuyu başlatan okan071905
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 314
  • Görüntüleme Görüntüleme 71K
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bütün Konuya Sığdıramadığım için mesaj mesaj parçaladım Arkadaşlar Size Linkleri ve ne questleri olduklarini bildiridm
[Vipyüzük]---[TicaretDuyuru]---[İtemsil]---[HesabiDondur]---[ZırhTakas Questleri]
[Günlük Hediye Sistemi]---[DönüşümKüresi]---[SikayetEt]---[Ramazan EventiBütün]---[Gm Statü Yüzüğü]
[Sebnem Bug Engel]---[Mistik Sandıklar ve Anahtarlari]---[Sıralama]---[Otomatik Sebnem]---[Otomatik lag sil]
[Otomatik Küfür Ban]---[Oto Drop]---[Oto Ch]---[Level Atlayınca Genel Duyuru]---[Karakterini Değiştir]
[İtem Basılır Yapma]---[Gm Questleri]---[Exp Veren Yüzük]---[İsim Degiştirme]---[Level Veren Quest]---[Gm Duyuru]
[Max(EXP....)]---[GPS Bulma]---[Bara Tıklayınca Para]---[Antiexp]---[Atı Parayla Verme]---[Oto Yedek]---[Süreyle İtemveyaPara]
---[Biyolog Görevleri Tekde Geçme Questi]---
---[İtem Düşürme Drobu]------YENİ---
---[Oyun içi Ep Kupon ]------YENİ---
---[P NPC ]------YENİ---
---[Oyuncular Arası Büyü Yapma(ByCypruS) ]------YENİ---
---[Açık Arttırma Sistemi]------YENİ---
---[Balık Verip İtem Alma Ve Balık Yarışması]------YENİ---

Questi Filezillaya Ekleme
Verdigim Php Kodunu Masaüstüne bi txt yapiştiriyorsunuz onun ismini istediginizisim.quest olarak değistiriyorsunuz
Filezilla swnize baglaniyorsunuz
/usr/game/share/locale/turkey/quest gibi questlerin yanına atiyoruz
sonra puttye baglaniyoruz
cd /usr/game/share/locale/turkey/quest yazip enter
ee hongkong_list yazip enter
En alta yön tuslariyla iniyoruz en altta
drop.quest esc tusuna basiyorsunuz 2 kere enter
sonra ./qc drop.quest yaziyorsunuz questi yüklüyor
sonra oyuna dönüyor /reload q yapiyorsunuz questiniz aktif
 
Moderatör tarafında düzenlendi:

En Çok Reaksiyon Alan Mesajlar

26. Quest
Quest İsmi:Max Hp Savunma Exp hiz Güc Questleri
Quest Video:Öğeyi görmek için üye olmalısınız.
Quest Php Kodu:
Max Hp Questi
PHP:
quest kot begin
	state start begin
	when 20067.chat."Maximum Hp" begin
	if get_time()<=pc.getqf("zaman") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet ot getir.")
	say("Elinde benim için otun varsa rastgele bir hp[ENTER]alacaksin.")
	local al = select ("Almak istiyorum.", "İstemiyorum.")
	if al == 1  then
	if pc.countitem(70251) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Kırmızı Ot Olmalı.")
	else
	say_reward("Sana Rastgele Hp Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman", get_time()+168*60)
	pc.removeitem(70251, 5)
	local s = math.random(1,5)
	if s == 1 then
	affect.add_collect(apply.MAX_HP,500,10080)
	elseif s == 2 then
	affect.add_collect(apply.MAX_HP,1000,10080)
	elseif s == 3 then
	affect.add_collect(apply.MAX_HP,1500,10080)
	elseif s == 4 then
	affect.add_collect(apply.MAX_HP,2000,10080)
	elseif s == 5 then
	affect.add_collect(apply.MAX_HP,2500,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Savunma Questi
PHP:
quest mort begin
	state start begin
	when 20067.chat."Maximum Savunma" begin
	if get_time()<=pc.getqf("zaman4") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet Mor ot getir.")
	say("Elinde benim icin otun varsa rastgele bir[ENTER]defans alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(70254) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Mor Ot Olmalı.")
	else
	say_reward("Sana Rastgele Defans Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman4", get_time()+168*60)
	pc.removeitem(70254, 5)
	local s3 = math.random(1,5)
	if s3 == 1 then
	affect.add_collect(apply.DEF_GRADE_BONUS,50,10080)
	elseif s3 == 2 then
	affect.add_collect(apply.DEF_GRADE_BONUS,80,10080)
	elseif s3 == 3 then
	affect.add_collect(apply.DEF_GRADE_BONUS,110,10080)
	elseif s3 == 4 then
	affect.add_collect(apply.DEF_GRADE_BONUS,150,10080)
	elseif s3 == 5 then
	affect.add_collect(apply.DEF_GRADE_BONUS,200,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Hiz Questi
PHP:
quest mot begin
	state start begin
	when 20067.chat."Maximum Hiz" begin
	if get_time()<=pc.getqf("zaman1") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet Mavi ot getir.")
	say("Elinde benim için otun varsa rastgele bir[ENTER]büyü hizi alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(70252) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Mavi Ot Olmalı.")
	else
	say_reward("Sana Rastgele Büyü Hızı Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman1", get_time()+168*60)
	pc.removeitem(70252, 5)
	local s2 = math.random(1,5)
	if s2 == 1 then
	affect.add_collect(apply.CAST_SPEED,10,10080)
	elseif s2 == 2 then
	affect.add_collect(apply.CAST_SPEED,20,10080)
	elseif s2 == 3 then
	affect.add_collect(apply.CAST_SPEED,30,10080)
	elseif s2 == 4 then
	affect.add_collect(apply.CAST_SPEED,40,10080)
	elseif s2 == 5 then
	affect.add_collect(apply.CAST_SPEED,50,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Güc Questi
PHP:
quest yot begin
	state start begin
	when 20067.chat."Maximum Guc" begin
	if get_time()<=pc.getqf("zaman3") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet ot getir.")
	say("Elinde benim için otun varsa rastgele bir[ENTER]saldiri hizi alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(70253) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Yeşil Ot Olmalı.")
	else
	say_reward("Sana Rastgele Saldırı Hızı Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman3", get_time()+168*60)
	pc.removeitem(70253, 5)
	local s4 = math.random(1,5)
	if s4 == 1 then
	affect.add_collect(apply.ATT_SPEED,20,10080)
	elseif s4 == 2 then
	affect.add_collect(apply.ATT_SPEED,40,10080)
	elseif s4 == 3 then
	affect.add_collect(apply.ATT_SPEED,60,10080)
	elseif s4 == 4 then
	affect.add_collect(apply.ATT_SPEED,80,10080)
	elseif s4 == 5 then
	affect.add_collect(apply.ATT_SPEED,100,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Exp Questi
PHP:
quest hot begin
	state start begin
	when 20067.chat."Maximum Exp" begin
	if get_time()<=pc.getqf("zaman1") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet Arpa getir.")
	say("Elinde benim için Arpa varsa rastgele bir[ENTER]Exp Kazanma Sansi alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(30000) <= 4 then
	say_reward("Elinde yeterli Arpa bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Arpa Olmalı.")
	else
	say_reward("Sana Rastgele Exp Kazanma Sansi Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman1", get_time()+168*60)
	pc.removeitem(30000, 5)
	local s2 = math.random(1,5)
	if s2 == 1 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,50,10080)
	elseif s2 == 2 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,100,10080)
	elseif s2 == 3 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,150,10080)
	elseif s2 == 4 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,200,10080)
	elseif s2 == 5 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,250,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
27. Quest
Quest İsmi:GPS Bulma Sistemi [SALİH7]
Quest Video:Denemedim
Quest Php Kodu:
PHP:
quest gps begin
	state start begin
	when letter with pc.is_gm() begin
		send_letter("Yer Belirleme -GPS- ")
	end
	when button or info begin
	say_title("GPS Sistemi")
	say("")
	say("Merhaba Takim Lideri ")
	say("GPS V3 Hosgeldin.")
	say("Bulmak istedigin adamin ismini yaz !")
	local name = input()
	local find = find_pc_by_name(name)
	while name == nill do
	say("öyle birisi yok tekrar ismi girin.")
	local name = input()
	end
	target.pc("__TARGET__",name,find)
	end
	when __TARGET__.target.click begin
	say_title(" GPS V3 "..pc.get_name().." ")
	say("")
	say("Merhaba GPS V2 Paneline Hosgeldiniz.")
	say("Tikladiginiz kisinin ismini yazin.")
	local names = input()
	if names == "" then
	say("bos birakamazsin.")
else
	say("Hmm..")
	say("Peki..")
	wait()
	say("")
	say("Ne yapmak istiyorsun ?")
	local s = select("Ban At" , "Chat Ban At" , "Dc At" , "Kapat")
	if 4 == s then
	target.delete("__TARGET__")
	end
	if 1 == s then
	command("ban "..names.." ")
	end
	if 2 == s then
	say("Kac Saat Ban Aticaksiniz ( DK , Saat )")
	local times = input()
	command("chatban "..names.." "..times.."  ")
	end
	if 3 == s then
	command("dc "..names.." ")
	end
	end
		end
	end
end
28. Quest
Quest İsmi:Bara Tıklayinca Para
Quest Video:Video Çekilmedi
Quest Php Kodu:
PHP:
quest bar50_yang begin
    state start begin
        when 7220.use begin
            say_title("Kasa(200 Milyon Yang) ")
            say ( "Envanterinde 2 milyardan fazla yang " )
			say ( "bulunduramayacağını unutma. Eğer yang miktarı " )
			say ( "2 milyarı aşıyorsa, bütün yangların silinir. " )
			say_reward ( "200 milyon yangı envanterine çıkarmak istiyor musun? ")
            local s = select ( "Evet" , "Hayır" ) 
        if s == 1 then
            say_reward ( "200 milyon yang çıkarıldı." ) 
            pc.change_money( 200000000 )
            pc.removeitem("7220", 1) 
            end
        end
    end
end
29. Quest
Quest İsmi:Anti Exp Yüzüğü Questi
Quest Video:Öğeyi görmek için üye olmalısınız.
Quest Php Kodu:
PHP:
quest anti begin
    state start begin
        when 40003.use begin
        if pc.getqf("antiexp") == 0 then
            pc.setqf("antiexp", 1)
            chat(" Anti Exp Yüzüğü Aktif. Exp alımı engellendi.")


            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung", 2)
        elseif pc.getqf("antiexp") == 1 then
            pc.setqf("antiexp", 0)
            chat(" Anti EXP Yüzüğü Devre Dışı. Exp kazanıyorsunuz.")
            end
        end    
                    
        when erfahrung.timer with pc.getqf("antiexp") == 1 begin
            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung1", 3)
            pc.setqf("antiexp", 1)
        end    
            
        when erfahrung1.timer with pc.getqf("antiexp") == 1 begin
            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung", 3)
            pc.setqf("antiexp", 1)            
        end
    end
end
30. Quest
Quest İsmi:Atı Parayla Verme Questi
Quest Video:Öğeyi görmek için üye olmalısınız.
Quest Php Kodu:
PHP:
    quest cal begin
        state start begin
            when 20068.chat."At Almak İstiyormusun?" with horse.get_level()==0 begin
                say_title("Seyis At Servisi")
                say("At almak İstiyormusun?")
                say("Sana 11 Seviye at Veririm ama ")			
                say_reward("1.000.000 Yang Alırım")
                say("")
                say("Kabul Ediyormusun")
                local s = select("Evet", "Hayır")
                    if s == 2 then
                        return
                    end
                    if s == 1 then
                        if pc.gold >= 1000000 then
                            say_title("11 Lvl At Verme")
                            say("Sana 11 Lvl Zırhı at Verdim")
                            say("Sana bi Kiyak daha yaptım ")
                            say("At Kitabinida Verdim")		
							say("Hayırlı Olsun..")			
                            horse.set_level(11)
                            pc.change_gold(-1000000)
                            pc.give_item2(50052)
                        else
                            say_title("Atını Veremedim")
                            say("Üzgünüm...")
                            say("Yeterli Yanga Sahip degilsin.")
                            say("")
                            say("")
                        end
                    end
            end
            when 20068.chat."Asker At Alma Vakti" with horse.get_level()==11 begin
                say_title("Seyis At Servisi")
                say("At almak İstiyormusun?")
                say("Sana 21 Seviye at Veririm ama ")			
                say_reward("10.000.000 Yang Alırım")
                say("")
                say("Kabul Ediyormusun")
                local s = select("Evet", "Hayır")
                    if s == 2 then
                        return
                    end
                    if s == 1 then
                        if pc.gold >= 10000000 then
                            say_title("21 Lvl At Verme")
                            say("Sana 21 Lvl Asker at Verdim")
                            say("Sana bi Kiyak daha yaptım ")
                            say("At Kitabinida Verdim")		
							say("Hayırlı Olsun..")
                            horse.set_level(21)
                            pc.change_gold(-10000000)
                            pc.give_item2(50053)
                        else
                            say_title("Atını Veremedim")
                            say("Üzgünüm...")
                            say("Yeterli Yanga Sahip degilsin.")
                            say("")
                            say("")
                        end
                    end
            end
            when 20068.chat."Uzman AskerAt istiyormusun" with horse.get_level()==21 begin
                say_title("Seyis At Servisi")
                say("At almak İstiyormusun?")
                say("Sana 30 Seviye at Veririm ama ")			
                say_reward("15.000.000 Yang Alırım")
                say("")
                say("Kabul Ediyormusun")
                local s = select("Evet", "Hayır")
                    if s == 2 then
                        return
                    end
                    if s == 1 then
                        if pc.gold >= 15000000 then
                            say_title("30 Lvl At Verme")
                            say("Sana 30 Lvl Asker at Verdim")
                            say("Sana bi Kiyak daha yaptım ")
                            say("At Kitabinida Verdim")		
							say("Hayırlı Olsun..")
                            horse.set_level(30)
                            pc.change_gold(-15000000)
                        else
                            say_title("Atını Veremedim")
                            say("Üzgünüm...")
                            say("Yeterli Yanga Sahip degilsin.")
                            say("")
                            say("")
                        end
                    end
            end
        end
    end
31. Quest
Quest İsmi:Otomatik Yedek Alma Questi
Quest Video:Parayla Satıyorlarmış Bedava olsun dedik [qarezz01] Kardeşimin
Quest Php Kodu:
Verdigim kodu yedekle.sh yapip cd/usrgame içine atiyoruz
PHP:
echo -e "\033[31mİşleminiz Başlatılıyor.\n
Lütfen Bekleyiniz.\033[0m"
cd /usr/game
sh sil.sh
cd /usr
rm -rf Files1.tar.gz
tar cvzf Files1.tar.gz game
cd /var/db
rm rf Mysql1.tar.gz
tar cvzf Mysql1.tar.gz mysql
echo -e "\033[31m
isleminiz Gerceklestirildi\n
Loglar Temizlendi - Serverin Komple Yedegi Alındı\n
Yedekler\n
/usr\n
/var/db\n
İçine tar.gz Olarak Kaydedilmiştir\n
Iyi Oyunlar...\033[0m"
sil.sh yazip ayni yere atiyoruz
PHP:
#!/bin/shrm -rf /usr/game/channel1/stdout
rm -rf /usr/game/channel1/packet_info.txt
rm -rf /usr/game/channel1/p2p_packet_info.txt
rm -rf /usr/game/channel1/syslog
rm -rf /usr/game/channel1/syserr
rm -rf /usr/game/channel1/game.core
rm -rf /usr/game/channel2/stdout
rm -rf /usr/game/channel2/packet_info.txt
rm -rf /usr/game/channel2/p2p_packet_info.txt
rm -rf /usr/game/channel2/syslog
rm -rf /usr/game/channel2/syserr
rm -rf /usr/game/channel2/game.core
rm -rf /usr/game/channel3/stdout
rm -rf /usr/game/channel3/packet_info.txt
rm -rf /usr/game/channel3/p2p_packet_info.txt
rm -rf /usr/game/channel3/syslog
rm -rf /usr/game/channel3/syserr
rm -rf /usr/game/channel3/game.core
rm -rf /usr/game/channel4/stdout
rm -rf /usr/game/channel4/packet_info.txt
rm -rf /usr/game/channel4/p2p_packet_info.txt
rm -rf /usr/game/channel4/syslog
rm -rf /usr/game/channel4/syserr
rm -rf /usr/game/channel4/game.core
rm -rf /usr/game/game99/stdout
rm -rf /usr/game/game99/packet_info.txt
rm -rf /usr/game/game99/p2p_packet_info.txt
rm -rf /usr/game/game99/syslog
rm -rf /usr/game/game99/syserr
rm -rf /usr/game/game99/game.core
rm -rf /usr/game/g1/db/stdout
rm -rf /usr/game/g1/db/packet_info.txt
rm -rf /usr/game/g1/db/p2p_packet_info.txt
rm -rf /usr/game/g1/db/syslog
rm -rf /usr/game/g1/db/syserr
rm -rf /usr/game/g1/db/db.core
rm -rf /usr/game/g1/auth/stdout
rm -rf /usr/game/g1/auth/packet_info.txt
rm -rf /usr/game/g1/auth/p2p_packet_info.txt
rm -rf /usr/game/g1/auth/syslog
rm -rf /usr/game/g1/auth/syserr
rm -rf /usr/game/g1/auth/auth.core
rm -rf /usr/game/g1/auth/log/*
rm -rf /usr/game/channel1/log/*
rm -rf /usr/game/channel2/log/*
rm -rf /usr/game/chanenl3/log/*
rm -rf /usr/game/channel4/log/*
rm -rf /usr/game/game99/log/*
rm -rf /usr/game/db/log/*
rm -rf /usr/game/logs/auth/*
rm -rf /usr/game/logs/channel1/*
rm -rf /usr/game/logs/channel2/*
rm -rf /usr/game/logs/channel3/*
rm -rf /usr/game/logs/channel4/*
rm -rf /usr/game/logs/game99/*
rm -rf /usr/game/logs/db/*
rm -rf /var/db/mysql/*.err
cd /..
Buda questidir otoyedek.lua olarak kaydedin
PHP:
quest otoyedek begin    state start begin
        when login with pc.is_gm() begin
        send_letter("Oto Yedek Alma")
        end
        
        when button or info begin
        os.execute("cd /usr/game && sh sil.sh &")
        os.execute("cd /usr/game && sh yedekle.sh &")
        chat("1 saat arayla chler otomatik acilacak.")
        server_loop_timer("otoyedek",60*60)
        end
        
        when oto_ch.server_timer begin
        os.execute("cd /usr/game && sh sil.sh &")
        os.execute("cd /usr/game && sh yedekle.sh &")
        end
    end
end
32. Quest
Quest İsmi:Süreyle Para ve İtem Verme Questi
Quest Video:Video Eklenmedi
Quest Php Kodu:
PHP:
quest yang begin
    state start begin
        when login begin
            if get_time() > pc.getqf("yang") then
            chat("Genclikmt2 Sana Para Vericek")
            chat("5 Saatde Bir Sana 100m Vericem")
            chat("Oyundaki 5 Saatde bir para vericem")
            pc.setqf("yang", get_time()+ 18000)
            pc . give_item2 (11972)
            pc.change_money(100000000)
            else
            chat("Sadece 5 saatde Bir kez verebilirim.")
            end
            
        end
    end
end
Hepsini Devam Edemediğim için böyle bi seçenek düşündüm eklediklerimi Tek tek Yazıcağım oraya

Yani Böyle

33.Quest
Quest İsmi:Biyolog Görevleri Tekde Geçirme
Quest Anlatım:Quest ismi gibi basit Biyolog görevlerini hemen kabul eden quest
Quest Php Kodu:
PHP:
quest biyologgorevlerisafa begin
    state start begin 
        when login or levelup with pc.level>29 begin 
            set_state(talk_to_disciple_lv30) 
        end     
    end 
    state talk_to_disciple_lv30 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var. ") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat." Ork Dişi " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say("") 
            say(" Merhaba , Ben Uriel'in Öğrencisi Biyolog Chaegirab") 
            say(" Dünyanın 4 Bir Yanında Bitkilerle İlgili ") 
            say(" Çalışmalar Yapıyorum. ") 
            say("") 
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Ve Bu Aralar Çok Meşgulum ,") 
            say(" Benim İçin Efsanevi Ork Dişlerini Ararmısın? ") 
            say("") 
            wait() 
            say(" Biyolog Chaegirab: ") 
            say(" Ork Dişlerini Seungryong Vadisinden, ") 
            say(" Bulabilirsin.Dikkatli Ol! ") 
            say("") 
            set_state(collect_orcteeth) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_orcteeth begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Ork Dişi ") 
            say("") 
            say(" 10 Tane  Ork Dişi  Topla. ") 
            say(" Her Yeni Bir Diş Bulduğunda Biyologun Yanına Git. ") 
            say("") 
            say_item_vnum(30006)  
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Diş Topladın! ") 
            say("") 
        end 
        when 20084.chat." Ork Dişi " with pc.count_item(30006)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Tebrikler, ") 
                say(" Yeni Bir Diş Bulmuşsun. ") 
                say(" Onu İncelemem Gerekiyor... ") 
                say("") 
                pc.remove_item("30006", 1) 
                pc.setqf("duration",get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say(" Biyolog Chaegirab: ") 
                        say(" Mükemmel. ") 
                        say(" Bana Daha Fazla Diş Gerekiyor, ") 
                        say(" Lütfen Onları Bul. ") 
                        say("") 
						say_reward("Şu Ana Kadar "..pc.getqf("collect_count").." Diş Topladın!") 
                        say("") 
                    else  
                        say(" Biyolog Chaegirab: ") 
                        say(" Tebrikler. ") 
                        say(" 10 Tane Ork Dişi Topladın. ")
						say(" Araştırmamı Sonuna Geldim. ")			
                        say(" Jinunggy'nin Ruh Taşına İhtiyacım Var, ") 
                        say(" Onu Orklardan Bulabilirsin ... ")     
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_jinunggyis) 
                    end 
                else                                 
                    say(" Biyolog Chaegirab: ") 
                    say(" Üzgünüm ") 
                    say(" Bu Diş Çatlamış. ") 
                    say(" Yeni Bir Dişe İhtiyacım Var! ") 
                    say("") 
                end 
            else 
                say(" Biyolog Chaegirab: ") 
                say(" Biraz Daha Bekledikten Sonra Yeni Diş Getirebilirsin.") 
                say("") 
            end 
        end 
    end 
    state collect_jinunggyis begin 
        when letter begin 
            send_letter(" Jinunggy'nin Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Jinunggy'nin Ruh Taşı ") 
            say("") 
            say(" Dişleri Topladın Sırada. ") 
            say(" Jinunggy'nin Ruh Taşı Var Onu ") 
            say(" ".. mob_name(635) .." , ".. mob_name(636) .." , ".. mob_name(637) .." ") 
			say(" Adlı Orklardan Bulabilirsin. ")
            say_item_vnum(30220) 
            say("") 
        end 
        when 635.kill or 636.kill or 637.kill begin 
            if pc.count_item(30220)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30220, 1) 
                end 
            end     
        end 
        when 20084.chat." Jinunggy'nin Ruh Taşı " begin 
            if pc.count_item(30220)>0 then 
                say(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Efsanevi Jinunggy'nin Ruh Taşı'nı Buldun. ") 
                say(" Gizemi Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var. ") 
                say("") 
                pc.remove_item(30220,1) 
                set_state(jinunggyis_reward) 
            else 
				say_title(" Jinunggy'nin Ruh Taşı ") 
				say("") 
				say(" Dişleri Topladın Sırada. ") 
				say(" Jinunggy'nin Ruh Taşı Var Onu ") 
				say(" ".. mob_name(635) .." , ".. mob_name(636) .." , ".. mob_name(637) .." ") 
				say(" Adlı Orklardan Bulabilirsin. ")
				say_item_vnum(30220) 
				say("") 
            end 
        end 
    end     
    state jinunggyis_reward begin 
        when letter begin 
            send_letter(" Baek-Go İle Konuş  ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say(" Biyologun İsteği Üzerine ") 
            say(" Baek-Go İle Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
            say_title(" Baek-Go: ") 
            say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" Hareket Hızı +10% (Kalıcı) ve 20 Milyon Yang ve ") 
			say_reward(" Kırmızı Abanoz Sandık ")
            say("") 
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) 
            pc.change_money(20000000)
			pc.give_item2("50109",1)
            set_state(collect_quest_lv40) 
        end 
    end 
	
    ---------------------------------- 
    -- LvL 40 / Lanet Kitabı  / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv40 begin 
        when login or levelup with pc.level>39 begin 
            set_state(talk_to_disciple_lv40) 
        end     
    end 
    state talk_to_disciple_lv40 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat." Lanet Kitabı " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say(" ... ") 
            say(" Ork Dişi'nden Sonra Yeni Bir Araştırma Yapıyorum. ") 
            say(" Lanetli Kitapları İnceliyorum. ") 
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Bu Kitapları Toplamam Çok Uzun Zamanımı Alıcak ") 
            say(" Bunu Benim İçin Yaparsan, ") 
            say(" Senin İçin Bir Süprizim Olabilir. ") 
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Benim İçin 15 Tane Lanet Kitabı Bul. ") 
            say(" Dikkat Et Onlar Çok Hassastır, ") 
            say("")                                                                                                                                                           
            set_state(collect_cursebook) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_cursebook begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Lanet Kitabı ") 
            say("") 
            say(" Biyologun İsteği Üzerine , ") 
            say(" 15 Lanet Kitabı Bul. ") 
            say(" Onları Vadinin İçindeki Tapınağın Etrafında Bulabilirsin. ") 
            say(" Dikkatli Ol. ") 
            say("") 
            say_item_vnum(30047)  
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Kitap Topladın! ") 
            say("") 
        end 
        when 20084.chat." Lanet Kitabı " with pc.count_item(30047)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Kitap Getirmişsin ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30047", 1) 
                pc.setqf("duration",get_time()+0) 
                wait() 

                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Oh Harika. ") 
                        say(" Bir Kitap Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Kitap Topladın! ") 
                        say("") 
                    else  
                        say_title(" Biyolog Chaegirab: ") 
                        say(" 15 Tane Lanetli Kitap Buldun. ") 
                        say(" Ve En Zor Kısmını Atlattın. ") 
                        say(" İncelememi Bitirmem İçin Tapınağın Ruh Taşı'na, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0) 
                        set_state(collect_templekey) 
                    end 
                else                                 
                    say_title(" Biyolog Chaegirab: ") 
                    say(" Oh Nalet Olsun! ") 
                    say(" Bu Kitap Yıpranmış. ") 
                    say(" Hiç Bir Şey Anlaşılmıyor. ") 
                end 
            else 
                say_title(" Biyolog Chaegirab: ") 
                say(" Biraz Daha Bekledikten Sonra Yeni Kitap Getirebilirsin. ")  
            end 
        end 
    end 
    state collect_templekey begin 
        when letter begin 
            send_letter(" Tapınağın Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Tapınağın Ruh Taşı ") 
            say("") 
            say(" 15 Tane Lanet Kitabı Topladın. ") 
			say(" Şimdi Tapınağın Ruh Taşı'nı Bulmalısın, ")
			say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
            say(" ".. mob_name(635) .." , ".. mob_name(636) .." , ".. mob_name(637) .." ") 
            say("") 
            say_item_vnum(30221) 
            say(" Dikkatli Ol. ") 
            say("") 
        end 
        when 635.kill or 636.kill or 637.kill begin 
            if pc.count_item(30221)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30221, 1) 
                end 
            end     
        end 
        when 20084.chat." Tapınağın Ruh Taşı " begin 
            if pc.count_item(30221)>0 then 
                say_title(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Efsanevi Tapınağın Ruh Taşı'nu Buldun. ") 
                say(" Sayende Laneti Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var. ") 
                say("") 
                pc.remove_item(30221,1) 
                set_state(templekey_reward) 
            else 
				say("") 
				say(" 15 Tane Lanet Kitabı Topladın. ") 
				say(" Şimdi Tapınağın Ruh Taşı'nı Bulmalısın, ")
				say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
				say(" ".. mob_name(635) .." , ".. mob_name(636) .." , ".. mob_name(637) .." ") 
				say("") 
				say_item_vnum(30221) 
				say(" Dikkatli Ol. ") 
            end 
        end 
    end 
    state templekey_reward begin 
        when letter begin 
            send_letter(" Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title(" Baek-Go İle Konuş ") 
            say(" Biyoloğun İsteği Üzerine ") 
            say(" Baek-Go İle Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
            say_title(" Baek-Go: ") 
			say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" Saldırı Hızı +5%(Kalıcı) ve 20 Milyon Yang ve ") 
			say_reward(" İhtişamlı Abanoz Sandık ")
            say("") 
            affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
			pc.give_item2("50110",1)
            pc.change_money(20000000)
            set_state(collect_quest_lv50) 
        end 
    end 

    ---------------------------------- 
    -- LvL 50 /  Şeytan Hatırası  / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv50 begin 
        when login or levelup with pc.level>49 begin 
            set_state(talk_to_disciple_lv50) 
        end     
    end 
    state talk_to_disciple_lv50 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş. ") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat." Şeytan Hatırası " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say(" ... ") 
            say(" Lanet Kitaplarından Sonra Yeni Bir Araştırmaya Başladım. ") 
            say(" Şeytan Hatıralarını İnceliyorum. ") 
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Benim İçin Şeytan Hatıralari Toplarmısın? ") 
            say("") 
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Benim İçin 15 Tane  Şeytan Hatırası Bul. ") 
            say(" Şeytanlar Çok Tehlikelidir Dikkat Et! ") 
            say("")                                                                                                                                                           
            set_state(collect_deamonitem) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_deamonitem begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Şeytan Hatırası ") 
            say("") 
            say(" Biyologun İsteği Üzerine , ") 
            say(" 15 Tane  Şeytan Hatırası  Bul. ") 
            say(" Onları Şeytan Kulesinde Bulabilirsin. ") 
            say(" Şeytanlar Çok Tehlikelidir Dikkat Et! ") 
            say("") 
            say_item_vnum(30015) 
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Hatıra Topladın! ") 
            say("") 
        end 
        when 20084.chat." Şeytan Hatırası " with pc.count_item(30015)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Hatıra Getirmişsin. ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30015", 1) 
                pc.setqf("duration", get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Oh Harika. ") 
                        say(" Bir Hatıra Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward("Şu Ana Kadar "..pc.getqf("collect_count").." Hatıra Topladın!") 
                    else  
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Biyolog Chaegirab'ın İhtiyacı Olan 15 Tane ") 
                        say(" Şeytan Hatırasını Topladın. ") 
                        say(" Onları Yorumlaması İçin, ") 
                        say(" Sagyinin Ruh Taşı'na İhtiyacı Var. ") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_sagyis) 
                    end 
                else                                 
                    say_title(" Biyolog Chaegirab: ") 
					say(" Oh Nalet Olsun ! ")
                    say(" Bu Hatıra Eskimiş, ") 
                    say(" Hiç Birşey Anlaşılmıyor. ") 
                end 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say(" Biraz Daha Bekledikten Sonra Yeni Hatıra Getirebilirsin. ")  
            end 
        end 
    end 
    state collect_sagyis begin 
        when letter begin 
            send_letter(" Sagyinin Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Sagyinin Ruh Taşı ") 
            say("") 
            say(" Şeytan Hatıralarını  Topladın. ") 
            say(" Biyologun Onları Yorumlayabilmesi İçin, ") 
            say(" Sagyinin Ruh Taşı'na İhtiyacı Var. ") 
 			say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
            say(" ".. mob_name(1031) .." , ".. mob_name(1032) .." , ".. mob_name(1033) .." ,".. mob_name(1034) .." ") 
            say_item_vnum(30222) 
            say("") 
        end 
        when 1031.kill or 1032.kill or 1033.kill or 1034.kill  begin 
            if pc.count_item(30222)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30222, 1) 
                end 
            end     
        end 
        when 20084.chat." Sagyinin Ruh Taşı " begin 
            target.delete("__TARGET__") 
            if pc.count_item(30222)>0 then 
                say_title(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Sayende İncelememi Tamamladım. ") 
                say(" Ve Şeytanların Sırrını Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var. ") 
                say("") 
                pc.remove_item(30222,1) 
                set_state(sagyis_reward) 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say("15 Tane  Şeytan Hatırası  Topladın.") 
				say("Biyologun Onları Yorumlayabilmesi İçin,") 
				say("Sagyinin Ruh Taşı na İhtiyacı Var") 
				say("O Taşı Şu Yaratıklardan Bulabilirsin")
				say("".. mob_name(1031) .." , ".. mob_name(1032) .." , ".. mob_name(1033) .." ,".. mob_name(1034) .."") 
				say_item_vnum(30222) 
            end 
        end 
    end 
    state sagyis_reward begin 
        when letter begin 
            send_letter(" Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title(" Baek-Go İle Konuş ") 
            say(" Biyologun İsteği Üzerine ") 
            say(" Baek-Go İle Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
            say_title(" Baek-Go:") 
			say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" Savunma +60 (Kalıcı) ve 20 Milyon Yang ve") 
			say_reward(" Sarı Abanoz Sandık ")
            say("") 
            affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) 
			pc.give_item2("50111",1)	
            pc.change_money(20000000)
            set_state(collect_quest_lv60) 
        end 
    end 

    ---------------------------------- 
    -- LvL 60 / Buz Topu / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv60 begin 
        when login or levelup with pc.level>59 begin 
            set_state(talk_to_disciple_lv60) 
        end     
    end 
    state talk_to_disciple_lv60 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş. ") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat." Buz Topu " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say(" ... ") 
            say(" Şeytan Hatırasından Sonra Yeni Bir Araştırmaya Başladım ") 
            say(" Buz Toplarını İnceliyorum. ") 
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Benim İçin 15 Tane Buz Topu Toplarmısın? ") 
            say("") 
            set_state(collect_scoops) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_scoops begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Buz Topu ") 
            say("") 
            say(" Biyologun İsteği Üzerine 15 Tane Buz Topu Bul. ") 
            say(" Onları Dağdan Bulabilirsin Dikkatli Ol. ") 
            say("") 
            say_item_vnum(30050) 
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Buz Topu Topladın! ") 
            say("") 
        end 
        when 20084.chat." Buz Topu " with pc.count_item(30050)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Buz Topu Getirmişsin ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30050", 1) 
                pc.setqf("duration", get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Oh Harika. ") 
                        say(" Bir Buz Topu Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Buz Topu Topladın! ") 
                        say("") 
                    else  
                        say_title(" Biyolog Chaegirab: ") 
						say("15 Tane Buz Topu Topladın.") 
						say("Biyologun Onları Yorumlayabilmesi İçin,") 
						say("Aurtumryunun Ruh Taşı'na İhtiyacı Var")
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_aurtumryus) 
                    end 
                else                                 
                    say_title(" Biyolog Chaegirab: ") 
					say(" Oh Nalet Olsun ! ")
                    say(" Bu Buz Topu Erimis ") 
                end 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say(" Biraz Daha Bekledikten Sonra Yeni Top Getirebilirsin. ")  
            end 
        end 
    end 
    state collect_aurtumryus begin 
        when letter begin 
            send_letter(" Aurtumryunun Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Aurtumryunun Ruh Taşı ") 
            say("") 
            say(" 15 Tane Buz Topu Topladın. ") 
            say(" Biyologun Onları Yorumlayabilmesi İçin, ") 
			say(" Aurtumryunun Ruh Taşı'na İhtiyacı Var. ")
            say("") 
 			say(" O Taşı Şu Yaratıklardan Bulabilirsin ")
            say("".. mob_name(1101) .." , ".. mob_name(1102) .." , ".. mob_name(1103) .." ,".. mob_name(1104) .."") 
			say("".. mob_name(1105) .." , ".. mob_name(106) .." , ".. mob_name(1107) .."") 
            say_item_vnum(30223) 
			say("") 
        end 
        when 1101.kill or 1102.kill or 1103.kill or 1104.kill or 1105.kill or 1106.kill or 1107.kill begin 
            if pc.count_item(30223)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30223, 1) 
                end 
            end     
        end 
        when 20084.chat." Aurtumryunun Ruh Taşı " begin 
            if pc.count_item(30223)>0 then 
                say_title(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Sayende İncelememi Tamamladım. ") 
                say(" Buz Toplarındaki Gizli Bilgiyi Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var. ") 
                say("") 
                pc.remove_item(30223,1) 
                set_state(aurtumryus_reward) 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say("")
				say(" 15 Buz Topu Topladın.") 
				say(" Biyologun Onları Yorumlayabilmesi İçin, ") 
				say(" Aurtumryunun Ruh Taşı na İhtiyacı Var ")
				say("") 
				say(" O Taşı  Şu Yaratıklardan Bulabilirsin ")
				say("".. mob_name(1101) .." , ".. mob_name(1102) .." , ".. mob_name(1103) .." ,".. mob_name(1104) .."") 
				say("".. mob_name(1105) .." , ".. mob_name(106) .." , ".. mob_name(1107) .."") 
				say_item_vnum(30223) 
				say("") 
                say("")             
            end 
        end 
    end 
    state aurtumryus_reward begin 
        when letter begin 
            send_letter("  Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title(" Baek-Go İle Konuş ") 
            say(" Biyologun İsteği Üzerine ") 
            say(" Baek-Go İle Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
            say_title(" Baek-Go: ") 
			say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" Saldırı Değeri +50 ve 20 Milyon Yang ve ") 
			say_reward(" Açık Yeşil Abanoz Sandık ")
            say("") 
            affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60) 
            pc.change_money(20000000)
			pc.give_item2("50112",1)
            set_state(collect_quest_lv70) 
        end 
    end 

    ---------------------------------- 
    -- LvL 70 / Zelkova Dali / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv70 begin 
        when login or levelup with pc.level>69 begin 
            set_state(talk_to_disciple_lv70) 
        end     
    end 
    state talk_to_disciple_lv70 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş. ") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat." Zelkova Dalı " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say(" ... ") 
            say(" Buz Topundan Sonra Yeni Bir Araştırmaya Başladım, ") 
            say(" Zelkova Dallarını İnceliyorum. ") 
            say(" Benim İçin 25 Tane Zelkova Dalı Bul. ") 
            say(" Dikkat Et Onlar Çok Kırılgandır, ") 
            say("")                                                                                                                                                           
            set_state(collect_branches) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_branches begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Zelkova Dalı ") 
            say("") 
            say(" Biyologun İsteği Üzerine 15 Tane Zelkova Dalı Bul. ") 
            say(" Onları Ormanda Bulabilirsin Dikkatli Ol. ") 
			say("")
            say_item_vnum(30165) 
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Dal Topladın! ") 
            say("") 
        end 
        when 20084.chat."Zelkova Dali" with pc.count_item(30165)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Dal Getirmişsin ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30165", 1) 
                pc.setqf("duration", get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Oh Harika. ") 
                        say(" Bir Dal Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Dal Topladın! ") 
                        say("") 
                    else  
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Biyolog Chaegirab'in İhtiyacı Olan 25 Tane ") 
                        say(" Zelkova Dalını Topladın. ") 
                        say(" Onları Yorumlaması İçin, ") 
                        say(" Gyimokun Ruh Taşı'na İhtiyacı Var. ") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_gyimoks) 
                    end 
                else                                 
                    say_title(" Biyolog Chaegirab: ") 
					say(" Oh Nalet Olsun! ")
                    say(" Bu Dal Kırılmış. ") 
                end 
            else 
                say_title(" Biyolog Chaegirab: ") 
                say(" Biraz Daha Bekledikten Sonra Yeni Dal Getirebilirsin.")  
            end 
        end 
    end 
    state collect_gyimoks begin 
        when letter begin 
            send_letter(" Gyimokun Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Gyimokun Ruh Taşı ") 
            say(" 25 Tane Zelkova Dalı Topladın. ") 
            say(" Biyologun Onları Yorumlayabilmesi İçin, ") 
            say(" Gyimokun Ruh Taşı na İhtiyacı Var. ") 
 			say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
			say("".. mob_name(2301) .." , ".. mob_name(2302) .." , ".. mob_name(2303) .." ,".. mob_name(2304) .."") 
            say("".. mob_name(2305) .." , ".. mob_name(2311) .." , ".. mob_name(2312) .." ,".. mob_name(2313) .."") 
            say("".. mob_name(2314) .." , ".. mob_name(2315) .." , ".. mob_name(2306) .." ,".. mob_name(2307) .."") 
			say_item_vnum(30224) 
			say("") 
        end 
        when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or  
             2312.kill or 2313.kill or 2314.kill or 2315.kill or 2306.kill or 2307.kill begin 
            if pc.count_item(30224)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30224, 1) 
                end 
            end     
        end 
        when 20084.chat." Gyimokun Ruh Taşı " begin 
            target.delete("__TARGET__") 
            if pc.count_item(30224)>0 then 
                say_title(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Sayende İncelememi Tamamladım. ") 
                say(" Ve Karanlık Ormanın Sırrını Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var. ") 
                say("") 
                pc.remove_item(30224,1) 
                set_state(gyimoks_reward) 
            else 
            say(" 25 Tane Zelkova Dalı Topladın. ") 
            say(" Biyologun Onları Yorumlayabilmesi İçin, ") 
            say(" Gyimokun Ruh Taşı na İhtiyacı Var. ") 
 			say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
			say("".. mob_name(2301) .." , ".. mob_name(2302) .." , ".. mob_name(2303) .." ,".. mob_name(2304) .."") 
            say("".. mob_name(2305) .." , ".. mob_name(2311) .." , ".. mob_name(2312) .." ,".. mob_name(2313) .."") 
            say("".. mob_name(2314) .." , ".. mob_name(2315) .." , ".. mob_name(2306) .." ,".. mob_name(2307) .."") 
			say_item_vnum(30224) 
			say("") 
            end 
        end 
    end 
    state gyimoks_reward begin 
        when letter begin 
            send_letter("  Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title(" Baek-Go İle Konuş ") 
            say(" Biyologun İsteği Üzerine ") 
            say(" Baek-Go İle Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
			say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" Hareket Hızı +10% , +500 HP , 20 M Yang ve ") 
            say_reward(" Yeşil Abanoz Sandık ") 
            say("") 
            affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60) 
            affect.add_collect(apply.MAX_HP,500,60*60*24*365*60) 
            pc.change_money(20000000)
			pc.give_item2("50112",1)
            set_state(collect_quest_lv80) 
        end 
    end 

    ---------------------------------- 
    -- LvL 80 / Tugyis Tabelasi / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv80 begin 
        when login or levelup with pc.level>79 begin 
            set_state(talk_to_disciple_lv80) 
        end     
    end 
    state talk_to_disciple_lv80 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat." Tugyis Tabelası " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say(" ... ") 
            say(" Zelkova Dalindan Sonra Yeni Bir Araştırmaya Başladım ") 
            say(" Tugyis Tabelalarını İnceliyorum. ") 
            say(" Benim İçin 30 Tane Tugyis Tabelasi Bul, ") 
            say(" Dikkat Et Onlar Çok Hassastır. ") 
            say("")                                                                                                                                                           
            set_state(collect_plates) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_plates begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Tugyis Tabelası ") 
            say("") 
            say(" Biyologun İsteği Üzerine , ") 
            say(" 30 Tane Tugyis Tabelası Bul. ") 
            say(" Onları Yılan Vadisinden Bulabilirsin Dikkatli Ol. ") 
            say("") 
            say_item_vnum(30166) 
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Tabela Topladın! ") 
            say("") 
        end 
        when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
            local rand = number(0,99) 
            if rand<5 then pc.give_item2(30166, 1) 
            end 
        end 
        when 20084.chat." Tugyis Tabelası " with pc.count_item(30166)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Tabela Getirmişsin ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30166", 1) 
                pc.setqf("duration", get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Oh Harika.") 
                        say(" Bir Tabela Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Tabela Topladın! ") 
                        say("") 
                    else  
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Biyolog Chaegirab'in İhtiyacı Olan 30 Tane ") 
                        say(" Tugyis Tabelasını Topladın. ") 
                        say(" Onları Yorumlaması İçin, ") 
                        say(" Tugyinin Ruh Taşı'na İhtiyacı Var. ") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_tugyis) 
                    end 
                else                                 
                    say_title(" Biyolog Chaegirab: ") 
					say(" Oh Nalet Olsun ! ")
                    say(" Bu Tabela Tozlanmış, ") 
                    say(" Hiç Birşey Anlaşılmıyor. ") 
                end 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say(" Biraz Daha Bekledikten Sonra Yeni Tabela Getirebilirsin. ")  
            end 
        end 
    end 
    state collect_tugyis begin 
        when letter begin 
            send_letter(" Tugyinin Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Tugyinin Ruh Taşı ") 
            say(" 30 Tane Tugyis Tabelası Topladın. ") 
            say(" Biyologun Onları Yorumlayabilmesi İçin, ") 
            say(" Tugyinin Ruh Taşı'na İhtiyacı Var ") 
 			say(" O Taşı Şu Yaratıklardan Bulabilirsin ")
            say("".. mob_name(1401) .." , ".. mob_name(1402) .." , ".. mob_name(1403) .." ,".. mob_name(1601) .."")
            say("".. mob_name(1602) .." , ".. mob_name(1603) .."") 
            say_item_vnum(30225) 
            say("") 
        end 
        when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin 
            if pc.count_item(30224)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30225, 1) 
                end 
            end     
        end 
        when 20084.chat." Tugyinin Ruh Taşı " begin 
            if pc.count_item(30225)>0 then 
                say_title(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Sayende İncelememi Tamamladım. ") 
                say(" Ve Tabelaların Sırrını Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var. ") 
                say("") 
                pc.remove_item(30225,1) 
                set_state(tugyis_reward) 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say(" 30 Tane Tugyis Tabelası Topladın. ") 
				say(" Biyologun Onları Yorumlayabilmesi İçin, ") 
				say(" Tugyinin Ruh Taşı'na İhtiyacı Var, ") 
				say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
				say("".. mob_name(1401) .." , ".. mob_name(1402) .." , ".. mob_name(1403) .." ,".. mob_name(1601) .."")
				say("".. mob_name(1602) .." , ".. mob_name(1603) .."") 
				say_item_vnum(30225) 
				say("") 
            end 
        end 
    end 
    state tugyis_reward begin 
        when letter begin 
            send_letter(" Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title(" Baek-Go İle Konuş ") 
            say(" Biyologun İsteği Üzerine, ") 
            say(" Baek-Go İle Konuş. ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
			say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" Saldırı Hızı +15% Kalıcı , 20 Milyon Yang ve ") 
            say_reward(" Mavi Abanoz Sandık") 
            say("") 
			pc.give_item2("50114",1)
            pc.change_money(2000000)
            affect.add_collect(apply.ATT_SPEED,15,60*60*24*365*60) 
            set_state(collect_quest_lv85) 
        end 
    end 
	
	    ---------------------------------- 
    -- LvL 85 / Kırmızı Hayalet Ağacı Dalı / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv85 begin 
        when login or levelup with pc.level>84 begin 
            set_state(talk_to_disciple_lv85) 
        end     
    end 
    state talk_to_disciple_lv85 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var, ") 
            say(" Onu Bul ve Onla Konuş. ") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat." Kırmızı Hayalet Ağacı Dalı " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say(" Uriel'in Öğrencisi Biyolog Chaegirab ,Kırmızı Orman ") 
            say(" Hakkında Araştırma Yapıyor.40 Tane, ") 
            say(" Kırmızı Hayalet Ağacı Dalına İhtiyacı Var. ") 
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Kırmızı Ormana Git Ve Dalları Topla, ") 
            say(" 40 Tane Dalı Tek Tek Götür. ") 
            set_state(collect_safa) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_safa begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Kırmızı Hayalet Ağacı Dalı ") 
            say("") 
            say(" Biyologun İsteği Üzerine ,") 
            say(" 40 Tane Kırmızı Hayalet Ağacı Dalı Bul, ") 
            say(" Onları Kızıl Ormandan Bulabilirsin Dikkatli Ol. ") 
            say("") 
            say_item_vnum(30167) 
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Dal Topladın! ") 
            say("") 
        end 
        when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin 
            local rand = number(0,99) 
            if rand<5 then pc.give_item2(30167, 1) 
            end 
        end 
        when 20084.chat." Kırmızı Hayalet Ağacı Dalı " with pc.count_item(30167)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Dal Getirmişsin, ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30167", 1) 
                pc.setqf("duration", get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Oh Harika. ") 
                        say(" Bir Dal Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward("Şu Ana Kadar "..pc.getqf("collect_count").." Dal Topladın!") 
                        say("") 
                    else  
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Biyolog Chaegirab'in İhtiyacı Olan 40 Tane ") 
                        say(" Kırmızı Hayalet Ağacı Dalı Topladın. ") 
                        say(" Son Olarak Orman Ruhu Taşı'nı Bulmalısın. ") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
						set_state(collect_safa2) 
                    end 
                else                                 
                    say_title(" Biyolog Chaegirab: ") 
					say(" Oh Lanet Olsun ! ")
                    say(" Bu Dal Kırılmış, ") 
                    say(" Hiç Birşey Anlaşılmıyor. ") 
                end 
            else 
                say_title(" Biyolog Chaegirab: ") 
                say(" Biraz Daha Bekledikten Sonra Yeni Dal Getirebilirsin. ")  
            end 
        end 
    end 
	    state collect_safa2 begin 
        when letter begin 
            send_letter(" Orman Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Orman Ruh Taşı ") 
            say(" Biyolog Chaegirab'in İhtiyacı Olan 40 Tane ") 
            say(" Dalı Topladın. ") 
            say(" Onları Yorumlaması İçin, ") 
            say(" Orman Ruh Taşı'na İhtiyacı Var. ")
			say(" Onu ".. mob_name(2307) .." Bulabilirsin. ")
            say_item_vnum(30226) 
            say("") 
        end 
        when 2307.kill begin 
            if pc.count_item(30226)<1 then 
                local rand = number(0,99) 
                if rand<15 then pc.give_item2(30226, 1) 
                end 
            end     
        end 
        when 20084.chat." Orman Ruh Taşı " begin 
            if pc.count_item(30226)>0 then 
                say_title(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Sayende İncelememi Tamamladım. ") 
                say(" Ve Ormanın Büyüsünü Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var. ") 
                say("") 
                pc.remove_item(30226,1) 
				pc.setqf("collect_count",0) 
                pc.setqf("duration",0)  
                set_state(safa1_reward) 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say(" Biyolog Chaegirab'in İhtiyacı Olan 40 Tane ") 
				say(" Dalı Topladın. ") 
				say(" Onları Yorumlaması İçin, ") 
				say(" Orman Ruh Taşı'na İhtiyacı Var. ")
				say(" Onu ".. mob_name(2307) .."'den Bulabilirsin. ")
				say_item_vnum(30226) 
            end 
        end 
    end 
    state safa1_reward begin 
        when letter begin 
            send_letter(" Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title(" Baek-Go İle Konuş ") 
            say(" Biyologun İsteği Üzerine ") 
            say(" Baek-Go İle Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
			say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" +10% Diğer Oyunculara Karşı Savunma (Kalıcı) ve ") 
            say_reward(" Koyu Kırmızı Abanoz Sandık Ve 20 M Yang") 
            say("") 
			pc.give_item2("50115",1)
			pc.change_money(20000000)
            affect.add_collect(apply.RESIST_WARRIOR,10,60*60*24*365*60) 
            affect.add_collect(apply.RESIST_ASSASSIN,10,60*60*24*365*60) 
            affect.add_collect(apply.RESIST_SURA,10,60*60*24*365*60) 
            affect.add_collect(apply.RESIST_SHAMAN,10,60*60*24*365*60) 
            set_state(collect_quest_lv90) 
        end 
    end 

    ---------------------------------- 
    -- LvL 90 / Liderin Notu / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv90 begin 
        when login or levelup with pc.level>89 begin 
            set_state(talk_to_disciple_lv90) 
        end     
    end 
    state talk_to_disciple_lv90 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biyolog Chaegirab") 
            end 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Biyologun Araştırması ") 
            say("") 
            say(" Biyologun Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş ") 
        end 
        when __TARGET__.target.click or 20084.chat." Liderin Notu " begin 
            target.delete("__TARGET__") 
            say_title(" Biyolog Chaegirab: ") 
            say(" Uriel'in Öğrencisi Biyolog Chaegirab,") 
            say(" Liderin Notu  Hakkında Araştırma Yapıyor, ") 
			say(" 50 Tane Liderin Notu Topla. ")
            wait() 
            say_title(" Biyolog Chaegirab: ") 
            say(" Bossları Öldür ve Notlarını Topla. ") 
            say(" 50 Tane Liderin Notunu Tek Tek Götür. ") 
            set_state(collect_notices) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_notices begin 
        when letter begin 
            send_letter(" Biyologun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Liderin Notu ") 
            say("") 
            say(" Biyologun İsteği Üzerine, ") 
            say(" 50 Tane Liderin Notu Bul. ") 
            say(" Onları Oyundaki Bosslardan Bulabilirsin, ") 
            say(" Her Türlü Bossdan Çıkabilir. ") 
            say("") 
            say_item_vnum(30168) 
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Liderin Notu Topladın! ") 
            say("") 
        end 
        when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or 
             1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or 
             5161.kill or 5162.kill or 5163.kill begin 
            local rand = number(0,99) 
            if rand<5 then pc.give_item2(30168, 1) 
            end 
        end 
        when 20084.chat." Liderin Notu " with pc.count_item(30168)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Not Getirmişsin ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30168", 1) 
                pc.setqf("duration", get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Oh Harika.") 
                        say(" Bir Not Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Liderin Notu Topladın! ") 
                        say("") 
                    else  
                        say_title(" Biyolog Chaegirab: ") 
                        say(" Biyolog Chaegirab'in İhtiyacı Olan 50 Tane ") 
                        say(" Liderin Notunu Topladın. ") 
                        say(" Onları Yorumlaması İçin, ") 
                        say(" Liderlerin Ruh Taşına İhtiyacı Var. ") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(collect_bossKey) 
                    end 
                else                                 
                    say_title(" Biyolog Chaegirab: ") 
					say(" Oh Nalet Olsun! ")
                    say(" Bu Not Yırtılmış, ") 
                    say(" Hiç Birşey Anlaşılmıyor. ") 
                end 
            else 
                say_title(" Biyolog Chaegirab: ") 
                say(" Biraz Daha Bekledikten Sonra Yeni Not Getirebilirsin. ")  
            end 
        end 
    end 
    state collect_bossKey begin 
        when letter begin 
            send_letter(" Liderlerin Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Liderlerin Ruh Taşı ") 
            say(" Biyolog Chaegirab'in İhtiyacı Olan 50 Tane ") 
            say(" Liderin Notunu Topladın. ") 
            say(" Onları Yorumlaması İçin, ") 
            say(" Liderlerin Ruh Taşına İhtiyacı Var. ")
			say(" Onu Herhangi Bir Bossdan Bulabilirsin. ")
            say_item_vnum(30227) 
            say("") 
        end 
        when 591.kill or 691.kill or 791.kill or 793.kill or 991.kill or 992.kill or 993.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or 
             1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2306.kill or 2493.kill or 2494.kill or 5001.kill or 5004.kill or 
             5161.kill or 5162.kill or 5163.kill begin 
            if pc.count_item(30227)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30227, 1) 
                end 
            end     
        end 
        when 20084.chat." Liderlerin Ruh Taşı " begin 
            if pc.count_item(30227)>0 then 
                say_title(" Biyolog Chaegirab: ") 
                say(" Yardımların İçin Minnettarım. ") 
                say(" Sayende İncelememi Tamamladım. ") 
                say(" Ve Patronların Sırrını Çözdüm. ") 
                say(" Baek-Go'ya Git Ve Onunla Konuş, ") 
                say(" Sana Bir Süprizi Var.") 
                say("") 
                pc.remove_item(30227,1) 
                set_state(bossKey_reward) 
            else 
                say_title(" Biyolog Chaegirab: ") 
				say(" Biyolog Chaegirab'in İhtiyacı Olan 50 Tane ") 
				say(" Liderin Notunu Topladın. ") 
				say(" Onları Yorumlaması İçin, ") 
				say(" Liderlerin Ruh Taşına İhtiyacı Var. ")
				say(" Onu Herhangi Bir Bossdan Bulabilirsin. ")
				say_item_vnum(30227) 
            end 
        end 
    end 
    state bossKey_reward begin 
        when letter begin 
            send_letter(" Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title(" Baek-Go İle Konuş ") 
            say(" Biyologun İsteği Üzerine ") 
            say(" Baek-Go İle Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Biyolog Chaegirab ve Ödül " begin 
            target.delete("__TARGET__") 
            say_title(" Baek-Go: ") 
			say(" ... ") 
            say(" Biyolog Chaegirab'ın Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülün: ") 
            say_reward(" +10% Diğer Oyunculara Karşı Güç ve") 
            say_reward(" Mavi Abanoz Sandık") 
            say("") 
			pc.give_item2("50114",1)
            affect.add_collect(apply.ATT_BONUS_TO_WARRIOR,10,60*60*24*365*60) 
            affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN,10,60*60*24*365*60) 
            affect.add_collect(apply.ATT_BONUS_TO_SURA,10,60*60*24*365*60) 
            affect.add_collect(apply.ATT_BONUS_TO_SHAMAN,10,60*60*24*365*60) 
			set_state(collect_quest_lv92) 
		end 
    end 
	---------------------------------- 
    -- LvL 92 / Seon-Pyeongun Araştırması / Royal War / Safa Demirel / 13.05.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv92 begin 
        when login or levelup with pc.level>91 begin 
            set_state(talk_to_disciple_lv92) 
        end     
	end
    state talk_to_disciple_lv92 begin 
        when letter begin 
            local v = find_npc_by_vnum(20091) 
            if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong") 
            end 
            send_letter(" Seon-Pyeongun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Seon-Pyeongun Araştırması ") 
            say("") 
            say(" Seon-Pyeongun Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş. ") 
            say("") 
        end 
        when __TARGET__.target.click or 20091.chat." Kem Göz Mücevheri " begin 
            target.delete("__TARGET__") 
            say_title(" Seon-Pyeong: ") 
            say(" Seon-Pyeong , Kem Göz Mücevheri ") 
            say(" Hakkında Araştırma Yapıyor.10 Tane Kem Göz Mücevheri Topla. ") 
            wait() 
            say(" Seon-Pyeong: ")
			say(" Kem Göz Mücevherini Aşağıdaki Canavarlardan Bulabilirsin ")
            say(" ".. mob_name(1137) .." , ".. mob_name(1135) ..". ") 
            say(" 10 Tane Kem Göz Mücevherini Tek Tek Götür ") 
            set_state(collect_kemgoz) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_kemgoz begin 
        when letter begin 
            send_letter(" Seon-Pyeongun Araştırması ") 
        end 
        when button or info begin 
            say_title(" Kem Göz Mücevheri ") 
            say("") 
            say(" Seon-Pyeongun İstegi Üzerine, ") 
            say(" 10 Tane Kem Göz Mücevheri Bul. ") 
			say(" Kem Göz Mücevherini Asagidaki Canavarlardan Bulabilirsin, ")
            say(" ".. mob_name(2401) .." , ".. mob_name(2402) ..", ".. mob_name(2403) ..", ") 
            say(" ".. mob_name(2404) .." , ".. mob_name(2411) ..", ".. mob_name(2412) ..", ") 
            say(" ".. mob_name(2413) .." , ".. mob_name(2414) ..". ") 
            say("") 
            say_item_vnum(30251) 
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Kem Göz Mücevheri Topladın! ") 
            say("") 
        end 
        when 20091.chat." Kem Göz Mücevheri " with pc.count_item(30251)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Mücevher Getirmişsin ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30251", 1) 
                pc.setqf("duration", get_time()+0) 
                wait() 
                local rand = number(0,99) 
                if rand<49 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say(" Seon-Pyeong: ") 
                        say(" Oh Harika. ") 
                        say(" Bir Mücevher Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Kem Göz Mücevheri Topladın! ") 
                        say("") 
                    else  
                        say_title(" Seon-Pyeong: ") 
                        say(" Seon-Pyeong'in İhtiyacı Olan 10 Tane ") 
                        say(" Kem Göz Mücevherini Topladın. ") 
                        say(" Son Olarak, ") 
                        say(" Baek-Gonun Yanına Git. ") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0)  
                        set_state(kemgozodul) 
                    end 
                else                                 
                    say_title(" Seon-Pyeong: ") 
					say(" Oh Lanet Olsun ! ")
                    say(" Bu Mücevher Kararmış. ") 
                    say(" Hiç Birşey Anlaşılmıyor. ") 
                end 
            else 
                say(" Seon-Pyeong: ") 
                say(" Biraz Daha Bekledikten Sonra Yeni Mücevher Getirebilirsin. ")  
            end 
        end 
    end 
    state kemgozodul begin 
        when letter begin 
            send_letter("  Baek-Go İle Konuş ") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("  Baek-Go İle Konuş ") 
            say(" Seon-Pyeongun İstegi Üzerine, ") 
            say(" Baek-Go İle Konuş. ") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat." Baek-Go Ödül " begin 
            target.delete("__TARGET__") 
            say_title(" Baek-Go:") 
			say(" ... ") 
            say(" Seon-Pyeong'un Verdiği Görevi Yaptığın İçin. ") 
            say(" Bu Ödülleri Sana Veriyorum: ") 
            say("") 
            say_reward(" Ödülünü Sen Seçeceksin: ") 
            local s = select (" +1000 HP ", " Savunma Değeri +100 ", " Saldırı Değeri +50 ")
            if s == 1 then
			affect.add_collect(apply.MAX_HP,1000,60*60*24*365*60) 
			set_state(collect_quest_lv94)
			elseif s == 2 then
			affect.add_collect(apply.DEF_GRADE_BONUS,150,60*60*24*365*60) 
			set_state(collect_quest_lv94)
			elseif s == 3 then
			affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60) 
			set_state(collect_quest_lv94)
		end
	end
end	
    ---------------------------------- 
    -- LvL 94 /  Bilgelik Mücevheri  / Metin2Development / SafaDemirel / Rewrited 17.08.2012
	-- Düzenleyen Apo444
    ---------------------------------- 
    state collect_quest_lv94 begin 
        when login or levelup with pc.level>93 begin 
            set_state(talk_to_disciple_lv94) 
        end     
    end 
    state talk_to_disciple_lv94 begin 
        when letter begin 
            local v = find_npc_by_vnum(20091) 
            if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong") 
            end 
            send_letter(" Seon-Pyeong'un Araştırması ") 
        end 
        when button or info begin 
            say_title(" Seon-Pyeong'un Araştırması ") 
            say("") 
            say(" Seon-Pyeong'un Sana İhtiyacı Var. ") 
            say(" Onu Bul ve Onla Konuş ") 
            say("") 
        end 
        when __TARGET__.target.click or 20091.chat." Bilgelik Mücevheri " begin 
            target.delete("__TARGET__") 
            say_title(" Seon-Pyeong : ") 
            say(" ... ") 
            say(" Kem Göz Mücevherinden Sonra ") 
            say(" Bilgelik Mücevherlerini İnceliyorum. ") 
            wait() 
            say_title(" Seon-Pyeong : ") 
            say(" Bu Mücevherleri Toplamam Çok Uzun Zamanımı Alıcak ") 
            say(" Bunu Benim İçin Yaparsan, ") 
            say(" Senin İçin Bir Süprizim Olacak. ") 
            wait() 
            say_title(" Seon-Pyeong : ") 
            say(" Benim İçin 20 Tane Bilgelik Mücevheri Bul. ") 
            say(" Dikkat Et Onlar Çok Hassastır, ") 
            say("")                                                                                                                                                           
            set_state(collect_bilgelik) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_bilgelik begin 
        when letter begin 
            send_letter(" Seon-Pyeong'un Araştırması ") 
        end 
        when button or info begin 
            say_title(" Bilgelik Mücevheri ") 
            say("") 
            say(" Seon-Pyeong'un İsteği Üzerine , ") 
            say(" 20 Tane Bilgelik Mücevheri Bul. ") 
            say(" Onları Sürgün Mağarasından Bulabilirsin. ") 
            say(" Dikkatli Ol. ") 
            say("") 
            say_item_vnum(30252)  
            say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Mücevher Topladın! ") 
            say("") 
        end 
        when 20091.chat." Bilgelik Mücevheri " with pc.count_item(30252)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say(" Bir Saniye ... ") 
                say(" Yeni Bir Mücevher Getirmişsin ") 
                say(" Bunu İncelemem Gerekiyor ... ") 
                say("") 
                pc.remove_item("30252", 1) 
                pc.setqf("duration",get_time()+0) 
                wait() 

                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<1 then 
                        pc.setqf("collect_count", count) 
                        say_title(" Seon-Pyeong : ") 
                        say(" Oh Harika. ") 
                        say(" Bir Mücevher Daha Buldum Ama Daha Fazlasına, ") 
                        say(" İhtiyacım Var. ") 
                        say("") 
						say_reward(" Şu Ana Kadar "..pc.getqf("collect_count").." Mücevher Topladın! ") 
                        say("") 
                    else  
					
                        say_title(" Seon-Pyeong : ") 
						say(" 20 Tane Bilgelik Mücevherini Topladın. ") 
						say(" Şimdi Beran-Setaou Ruh Taş'nı Bulmalısın, ")
						say(" "..mob_name(2493)..". ") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0) 
                        set_state(safademirelberan)
					end
                else           	
                    say_title(" Seon-Pyeong : ") 
                    say(" Oh Nalet Olsun! ") 
                    say(" Bu Mücevher Parçalanmış. ") 
                    say(" Hiç Bir Şey Anlaşılmıyor. ") 
                end 
            else 
                say_title(" Seon-Pyeong : ") 
                say(" Biraz Daha Bekledikten Sonra Yeni Mücevher Getirebilirsin. ")  
            end 
        end 
	end	
    state safademirelberan begin 
        when letter begin 
            send_letter(" Beran-Setaou Ruh Taşı ") 
        end 
        when button or info begin 
            say_title(" Beran-Setaou Ruh Taşı ") 
            say("") 
            say(" 20 Tane Bilgelik Mücevherini Topladın. ") 
			say(" Şimdi Beran-Setaou Ruh Taş'nı Bulmalısın, ")
			say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
            say(" "..mob_name(2493)..". ") 
            say("") 
            say_item_vnum(30228) 
            say(" Dikkatli Ol. ") 
            say("") 
        end 
        when 20091.chat." Beran-Setaou Ruh Taşı " begin 
            if pc.count_item(30228)>0 then 
            say(" Bu inanılmaz birşey! Ejderha'nın Ruh Taşı!") 
            say(" Senin bu yeteneğine son derece saygı duyuyorum.") 
            say(" Araştırmalarımı yapmak için hiçbir engel yok") 
            say(" artık.Sana da hakkettiğin ödülü vereceğim.İşte") 
			say(" seç ")
            local s = select (" +1100 HP ", " Savunma Değeri +120 ", " Saldırı Değeri +60 ")
            if s == 1 then
			affect.add_collect(apply.MAX_HP,1100,60*60*24*365*60) 
			set_state(bittisafademirel)
			elseif s == 2 then
			affect.add_collect(apply.DEF_GRADE_BONUS,200,60*60*24*365*60) 
			set_state(bittisafademirel)
			elseif s == 3 then
			affect.add_collect(apply.ATT_GRADE_BONUS,60,60*60*24*365*60) 
			set_state(bittisafademirel)
			end 
            pc.remove_item(30228,1) 
            else 
			say("") 
			say(" 15 Tane Lanet Kitabı Topladın. ") 
			say(" Şimdi Tapınağın Ruh Taşı'nı Bulmalısın, ")
			say(" O Taşı Şu Yaratıklardan Bulabilirsin. ")
			say(" ".. mob_name(2493) ..". ") 
			say("") 
			say_item_vnum(30228) 
			say(" Dikkatli Ol. ") 
            end 
end 
end
    state bittisafademirel begin 
end end
26. Quest
Quest İsmi:Max Hp Savunma Exp hiz Güc Questleri
Quest Video:
Quest Php Kodu:
Max Hp Questi
PHP:
quest kot begin
	state start begin
	when 20067.chat."Maximum Hp" begin
	if get_time()<=pc.getqf("zaman") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet ot getir.")
	say("Elinde benim için otun varsa rastgele bir hp[ENTER]alacaksin.")
	local al = select ("Almak istiyorum.", "İstemiyorum.")
	if al == 1  then
	if pc.countitem(70251) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Kırmızı Ot Olmalı.")
	else
	say_reward("Sana Rastgele Hp Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman", get_time()+168*60)
	pc.removeitem(70251, 5)
	local s = math.random(1,5)
	if s == 1 then
	affect.add_collect(apply.MAX_HP,500,10080)
	elseif s == 2 then
	affect.add_collect(apply.MAX_HP,1000,10080)
	elseif s == 3 then
	affect.add_collect(apply.MAX_HP,1500,10080)
	elseif s == 4 then
	affect.add_collect(apply.MAX_HP,2000,10080)
	elseif s == 5 then
	affect.add_collect(apply.MAX_HP,2500,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Savunma Questi
PHP:
quest mort begin
	state start begin
	when 20067.chat."Maximum Savunma" begin
	if get_time()<=pc.getqf("zaman4") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet Mor ot getir.")
	say("Elinde benim icin otun varsa rastgele bir[ENTER]defans alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(70254) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Mor Ot Olmalı.")
	else
	say_reward("Sana Rastgele Defans Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman4", get_time()+168*60)
	pc.removeitem(70254, 5)
	local s3 = math.random(1,5)
	if s3 == 1 then
	affect.add_collect(apply.DEF_GRADE_BONUS,50,10080)
	elseif s3 == 2 then
	affect.add_collect(apply.DEF_GRADE_BONUS,80,10080)
	elseif s3 == 3 then
	affect.add_collect(apply.DEF_GRADE_BONUS,110,10080)
	elseif s3 == 4 then
	affect.add_collect(apply.DEF_GRADE_BONUS,150,10080)
	elseif s3 == 5 then
	affect.add_collect(apply.DEF_GRADE_BONUS,200,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Hiz Questi
PHP:
quest mot begin
	state start begin
	when 20067.chat."Maximum Hiz" begin
	if get_time()<=pc.getqf("zaman1") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet Mavi ot getir.")
	say("Elinde benim için otun varsa rastgele bir[ENTER]büyü hizi alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(70252) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Mavi Ot Olmalı.")
	else
	say_reward("Sana Rastgele Büyü Hızı Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman1", get_time()+168*60)
	pc.removeitem(70252, 5)
	local s2 = math.random(1,5)
	if s2 == 1 then
	affect.add_collect(apply.CAST_SPEED,10,10080)
	elseif s2 == 2 then
	affect.add_collect(apply.CAST_SPEED,20,10080)
	elseif s2 == 3 then
	affect.add_collect(apply.CAST_SPEED,30,10080)
	elseif s2 == 4 then
	affect.add_collect(apply.CAST_SPEED,40,10080)
	elseif s2 == 5 then
	affect.add_collect(apply.CAST_SPEED,50,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Güc Questi
PHP:
quest yot begin
	state start begin
	when 20067.chat."Maximum Guc" begin
	if get_time()<=pc.getqf("zaman3") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet ot getir.")
	say("Elinde benim için otun varsa rastgele bir[ENTER]saldiri hizi alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(70253) <= 4 then
	say_reward("Elinde yeterli ot bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Yeşil Ot Olmalı.")
	else
	say_reward("Sana Rastgele Saldırı Hızı Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman3", get_time()+168*60)
	pc.removeitem(70253, 5)
	local s4 = math.random(1,5)
	if s4 == 1 then
	affect.add_collect(apply.ATT_SPEED,20,10080)
	elseif s4 == 2 then
	affect.add_collect(apply.ATT_SPEED,40,10080)
	elseif s4 == 3 then
	affect.add_collect(apply.ATT_SPEED,60,10080)
	elseif s4 == 4 then
	affect.add_collect(apply.ATT_SPEED,80,10080)
	elseif s4 == 5 then
	affect.add_collect(apply.ATT_SPEED,100,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
Max Exp Questi
PHP:
quest hot begin
	state start begin
	when 20067.chat."Maximum Exp" begin
	if get_time()<=pc.getqf("zaman1") then
	say_reward("Etkisi Hala Devam Ediyor.")
	say_reward("1 Hafta henuz dolmamis.")
	else
	say_title("Bitki Uzmani")
	say("Merhaba "..pc.getname().."")
	say("Bana 5 adet Arpa getir.")
	say("Elinde benim için Arpa varsa rastgele bir[ENTER]Exp Kazanma Sansi alacaksin.")
	local al = select ("Almak istiyorum.", "Istemiyorum.")
	if al == 1  then
	if pc.count_item(30000) <= 4 then
	say_reward("Elinde yeterli Arpa bulunmuyor.")
	say_reward("Bu Güçe Kavuşman için.")
	say_reward("Elinde 5 Adet Arpa Olmalı.")
	else
	say_reward("Sana Rastgele Exp Kazanma Sansi Veriyorum..")
	say_reward("Bunun Etkisi 1 Hafta Sürecek.")
	say_reward("Etki Bittigi Zaman Yine Gel.")
	pc.setqf("zaman1", get_time()+168*60)
	pc.removeitem(30000, 5)
	local s2 = math.random(1,5)
	if s2 == 1 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,50,10080)
	elseif s2 == 2 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,100,10080)
	elseif s2 == 3 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,150,10080)
	elseif s2 == 4 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,200,10080)
	elseif s2 == 5 then
	affect.add_collect(apply.EXP_DOUBLE_BONUS,250,10080)
	end
	end
	elseif al == 2 then
	return
end
end
end
end
end
27. Quest
Quest İsmi:GPS Bulma Sistemi [SALİH7]
Quest Video:Denemedim
Quest Php Kodu:
PHP:
quest gps begin
	state start begin
	when letter with pc.is_gm() begin
		send_letter("Yer Belirleme -GPS- ")
	end
	when button or info begin
	say_title("GPS Sistemi")
	say("")
	say("Merhaba Takim Lideri ")
	say("GPS V3 Hosgeldin.")
	say("Bulmak istedigin adamin ismini yaz !")
	local name = input()
	local find = find_pc_by_name(name)
	while name == nill do
	say("öyle birisi yok tekrar ismi girin.")
	local name = input()
	end
	target.pc("__TARGET__",name,find)
	end
	when __TARGET__.target.click begin
	say_title(" GPS V3 "..pc.get_name().." ")
	say("")
	say("Merhaba GPS V2 Paneline Hosgeldiniz.")
	say("Tikladiginiz kisinin ismini yazin.")
	local names = input()
	if names == "" then
	say("bos birakamazsin.")
else
	say("Hmm..")
	say("Peki..")
	wait()
	say("")
	say("Ne yapmak istiyorsun ?")
	local s = select("Ban At" , "Chat Ban At" , "Dc At" , "Kapat")
	if 4 == s then
	target.delete("__TARGET__")
	end
	if 1 == s then
	command("ban "..names.." ")
	end
	if 2 == s then
	say("Kac Saat Ban Aticaksiniz ( DK , Saat )")
	local times = input()
	command("chatban "..names.." "..times.."  ")
	end
	if 3 == s then
	command("dc "..names.." ")
	end
	end
		end
	end
end
28. Quest
Quest İsmi:Bara Tıklayinca Para
Quest Video:Video Çekilmedi
Quest Php Kodu:
PHP:
quest bar50_yang begin
    state start begin
        when 7220.use begin
            say_title("Kasa(200 Milyon Yang) ")
            say ( "Envanterinde 2 milyardan fazla yang " )
			say ( "bulunduramayacağını unutma. Eğer yang miktarı " )
			say ( "2 milyarı aşıyorsa, bütün yangların silinir. " )
			say_reward ( "200 milyon yangı envanterine çıkarmak istiyor musun? ")
            local s = select ( "Evet" , "Hayır" ) 
        if s == 1 then
            say_reward ( "200 milyon yang çıkarıldı." ) 
            pc.change_money( 200000000 )
            pc.removeitem("7220", 1) 
            end
        end
    end
end
29. Quest
Quest İsmi:Anti Exp Yüzüğü Questi
Quest Video:
Quest Php Kodu:
PHP:
quest anti begin
    state start begin
        when 40003.use begin
        if pc.getqf("antiexp") == 0 then
            pc.setqf("antiexp", 1)
            chat(" Anti Exp Yüzüğü Aktif. Exp alımı engellendi.")


            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung", 2)
        elseif pc.getqf("antiexp") == 1 then
            pc.setqf("antiexp", 0)
            chat(" Anti EXP Yüzüğü Devre Dışı. Exp kazanıyorsunuz.")
            end
        end    
                    
        when erfahrung.timer with pc.getqf("antiexp") == 1 begin
            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung1", 3)
            pc.setqf("antiexp", 1)
        end    
            
        when erfahrung1.timer with pc.getqf("antiexp") == 1 begin
            local ep = pc.get_exp()
            pc.give_exp2(-ep)
            timer("erfahrung", 3)
            pc.setqf("antiexp", 1)            
        end
    end
end
30. Quest
Quest İsmi:Atı Parayla Verme Questi
Quest Video:
Quest Php Kodu:
PHP:
    quest cal begin
        state start begin
            when 20068.chat."At Almak İstiyormusun?" with horse.get_level()==0 begin
                say_title("Seyis At Servisi")
                say("At almak İstiyormusun?")
                say("Sana 11 Seviye at Veririm ama ")			
                say_reward("1.000.000 Yang Alırım")
                say("")
                say("Kabul Ediyormusun")
                local s = select("Evet", "Hayır")
                    if s == 2 then
                        return
                    end
                    if s == 1 then
                        if pc.gold >= 1000000 then
                            say_title("11 Lvl At Verme")
                            say("Sana 11 Lvl Zırhı at Verdim")
                            say("Sana bi Kiyak daha yaptım ")
                            say("At Kitabinida Verdim")		
							say("Hayırlı Olsun..")			
                            horse.set_level(11)
                            pc.change_gold(-1000000)
                            pc.give_item2(50052)
                        else
                            say_title("Atını Veremedim")
                            say("Üzgünüm...")
                            say("Yeterli Yanga Sahip degilsin.")
                            say("")
                            say("")
                        end
                    end
            end
            when 20068.chat."Asker At Alma Vakti" with horse.get_level()==11 begin
                say_title("Seyis At Servisi")
                say("At almak İstiyormusun?")
                say("Sana 21 Seviye at Veririm ama ")			
                say_reward("10.000.000 Yang Alırım")
                say("")
                say("Kabul Ediyormusun")
                local s = select("Evet", "Hayır")
                    if s == 2 then
                        return
                    end
                    if s == 1 then
                        if pc.gold >= 10000000 then
                            say_title("21 Lvl At Verme")
                            say("Sana 21 Lvl Asker at Verdim")
                            say("Sana bi Kiyak daha yaptım ")
                            say("At Kitabinida Verdim")		
							say("Hayırlı Olsun..")
                            horse.set_level(21)
                            pc.change_gold(-10000000)
                            pc.give_item2(50053)
                        else
                            say_title("Atını Veremedim")
                            say("Üzgünüm...")
                            say("Yeterli Yanga Sahip degilsin.")
                            say("")
                            say("")
                        end
                    end
            end
            when 20068.chat."Uzman AskerAt istiyormusun" with horse.get_level()==21 begin
                say_title("Seyis At Servisi")
                say("At almak İstiyormusun?")
                say("Sana 30 Seviye at Veririm ama ")			
                say_reward("15.000.000 Yang Alırım")
                say("")
                say("Kabul Ediyormusun")
                local s = select("Evet", "Hayır")
                    if s == 2 then
                        return
                    end
                    if s == 1 then
                        if pc.gold >= 15000000 then
                            say_title("30 Lvl At Verme")
                            say("Sana 30 Lvl Asker at Verdim")
                            say("Sana bi Kiyak daha yaptım ")
                            say("At Kitabinida Verdim")		
							say("Hayırlı Olsun..")
                            horse.set_level(30)
                            pc.change_gold(-15000000)
                        else
                            say_title("Atını Veremedim")
                            say("Üzgünüm...")
                            say("Yeterli Yanga Sahip degilsin.")
                            say("")
                            say("")
                        end
                    end
            end
        end
    end
31. Quest
Quest İsmi:Otomatik Yedek Alma Questi
Quest Video:Parayla Satıyorlarmış Bedava olsun dedik [qarezz01] Kardeşimin
Quest Php Kodu:
Verdigim kodu yedekle.sh yapip cd/usrgame içine atiyoruz
PHP:
echo -e "\033[31mİşleminiz Başlatılıyor.\n
Lütfen Bekleyiniz.\033[0m"
cd /usr/game
sh sil.sh
cd /usr
rm -rf Files1.tar.gz
tar cvzf Files1.tar.gz game
cd /var/db
rm rf Mysql1.tar.gz
tar cvzf Mysql1.tar.gz mysql
echo -e "\033[31m
isleminiz Gerceklestirildi\n
Loglar Temizlendi - Serverin Komple Yedegi Alındı\n
Yedekler\n
/usr\n
/var/db\n
İçine tar.gz Olarak Kaydedilmiştir\n
Iyi Oyunlar...\033[0m"
sil.sh yazip ayni yere atiyoruz
PHP:
#!/bin/shrm -rf /usr/game/channel1/stdout
rm -rf /usr/game/channel1/packet_info.txt
rm -rf /usr/game/channel1/p2p_packet_info.txt
rm -rf /usr/game/channel1/syslog
rm -rf /usr/game/channel1/syserr
rm -rf /usr/game/channel1/game.core
rm -rf /usr/game/channel2/stdout
rm -rf /usr/game/channel2/packet_info.txt
rm -rf /usr/game/channel2/p2p_packet_info.txt
rm -rf /usr/game/channel2/syslog
rm -rf /usr/game/channel2/syserr
rm -rf /usr/game/channel2/game.core
rm -rf /usr/game/channel3/stdout
rm -rf /usr/game/channel3/packet_info.txt
rm -rf /usr/game/channel3/p2p_packet_info.txt
rm -rf /usr/game/channel3/syslog
rm -rf /usr/game/channel3/syserr
rm -rf /usr/game/channel3/game.core
rm -rf /usr/game/channel4/stdout
rm -rf /usr/game/channel4/packet_info.txt
rm -rf /usr/game/channel4/p2p_packet_info.txt
rm -rf /usr/game/channel4/syslog
rm -rf /usr/game/channel4/syserr
rm -rf /usr/game/channel4/game.core
rm -rf /usr/game/game99/stdout
rm -rf /usr/game/game99/packet_info.txt
rm -rf /usr/game/game99/p2p_packet_info.txt
rm -rf /usr/game/game99/syslog
rm -rf /usr/game/game99/syserr
rm -rf /usr/game/game99/game.core
rm -rf /usr/game/g1/db/stdout
rm -rf /usr/game/g1/db/packet_info.txt
rm -rf /usr/game/g1/db/p2p_packet_info.txt
rm -rf /usr/game/g1/db/syslog
rm -rf /usr/game/g1/db/syserr
rm -rf /usr/game/g1/db/db.core
rm -rf /usr/game/g1/auth/stdout
rm -rf /usr/game/g1/auth/packet_info.txt
rm -rf /usr/game/g1/auth/p2p_packet_info.txt
rm -rf /usr/game/g1/auth/syslog
rm -rf /usr/game/g1/auth/syserr
rm -rf /usr/game/g1/auth/auth.core
rm -rf /usr/game/g1/auth/log/*
rm -rf /usr/game/channel1/log/*
rm -rf /usr/game/channel2/log/*
rm -rf /usr/game/chanenl3/log/*
rm -rf /usr/game/channel4/log/*
rm -rf /usr/game/game99/log/*
rm -rf /usr/game/db/log/*
rm -rf /usr/game/logs/auth/*
rm -rf /usr/game/logs/channel1/*
rm -rf /usr/game/logs/channel2/*
rm -rf /usr/game/logs/channel3/*
rm -rf /usr/game/logs/channel4/*
rm -rf /usr/game/logs/game99/*
rm -rf /usr/game/logs/db/*
rm -rf /var/db/mysql/*.err
cd /..
Buda questidir otoyedek.lua olarak kaydedin
PHP:
quest otoyedek begin    state start begin
        when login with pc.is_gm() begin
        send_letter("Oto Yedek Alma")
        end
        
        when button or info begin
        os.execute("cd /usr/game && sh sil.sh &")
        os.execute("cd /usr/game && sh yedekle.sh &")
        chat("1 saat arayla chler otomatik acilacak.")
        server_loop_timer("otoyedek",60*60)
        end
        
        when oto_ch.server_timer begin
        os.execute("cd /usr/game && sh sil.sh &")
        os.execute("cd /usr/game && sh yedekle.sh &")
        end
    end
end
32. Quest
Quest İsmi:Süreyle Para ve İtem Verme Questi
Quest Video:Video Eklenmedi
Quest Php Kodu:
PHP:
quest yang begin
    state start begin
        when login begin
            if get_time() > pc.getqf("yang") then
            chat("Genclikmt2 Sana Para Vericek")
            chat("5 Saatde Bir Sana 100m Vericem")
            chat("Oyundaki 5 Saatde bir para vericem")
            pc.setqf("yang", get_time()+ 18000)
            pc . give_item2 (11972)
            pc.change_money(100000000)
            else
            chat("Sadece 5 saatde Bir kez verebilirim.")
            end
            
        end
    end
end
 
Son düzenleme:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst