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
[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
Max Savunma QuestiPHP: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 Hiz QuestiPHP: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 Güc QuestiPHP: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 Exp QuestiPHP: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
27. QuestPHP: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
Quest İsmi:GPS Bulma Sistemi [SALİH7]
Quest Video:Denemedim
Quest Php Kodu:
28. QuestPHP: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
Quest İsmi:Bara Tıklayinca Para
Quest Video:Video Çekilmedi
Quest Php Kodu:
29. QuestPHP: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
Quest İsmi:Anti Exp Yüzüğü Questi
Quest Video:Öğeyi görmek için üye olmalısınız.
Quest Php Kodu:
30. QuestPHP: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
Quest İsmi:Atı Parayla Verme Questi
Quest Video:Öğeyi görmek için üye olmalısınız.
Quest Php Kodu:
31. QuestPHP: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
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
sil.sh yazip ayni yere atiyoruzPHP: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"
Buda questidir otoyedek.lua olarak kaydedinPHP:#!/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 /..
32. QuestPHP: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
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
Max Savunma Questi
Max Hiz Questi
Max Güc Questi
Max Exp Questi
27. Quest
Quest İsmi:GPS Bulma Sistemi [SALİH7]
Quest Video:Denemedim
Quest Php Kodu:
28. Quest
Quest İsmi:Bara Tıklayinca Para
Quest Video:Video Çekilmedi
Quest Php Kodu:
29. Quest
Quest İsmi:Anti Exp Yüzüğü Questi
Quest Video:
Quest Php Kodu:
30. Quest
Quest İsmi:Atı Parayla Verme Questi
Quest Video:
Quest Php Kodu:
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
sil.sh yazip ayni yere atiyoruz
Buda questidir otoyedek.lua olarak kaydedin
32. Quest
Quest İsmi:Süreyle Para ve İtem Verme Questi
Quest Video:Video Eklenmedi
Quest Php Kodu:
Quest İsmi:Max Hp Savunma Exp hiz Güc Questleri
Quest Video:
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
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
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
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
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
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
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
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
Quest İsmi:Anti Exp Yüzüğü Questi
Quest Video:
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
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
Quest İsmi:Atı Parayla Verme Questi
Quest Video:
Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.
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
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"
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 /..
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
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:
Teşekkür Ederim İşinize Yarıyorsa Ne mutlu banaTeşekkürler yararlı konu
Devam Devam...![]()
Teşekkür Ederim Yorum İçin
- 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)
Benzer konular
- Cevaplar
- 10
- Görüntüleme
- 2K
- Cevaplar
- 29
- Görüntüleme
- 3K
- Cevaplar
- 1
- Görüntüleme
- 713
- Cevaplar
- 28
- Görüntüleme
- 3K

