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!
PHP:
quest gmnpc begin
state start begin
when 20065.click with pc . is_gm ( ) begin
say ("[WINDOW_SIZE width;260|height;400]Bugun Ne Yapmak istersin")
local w = select ("Event Secenekleri","Drop Ac/Kapat","Hava Ayari","Kirmizi Bayrak Event Temizle","Sari Bayrak Event Temizle","Mavi Bayrak Event Temizle","Tüm Bayrak Temizle","Event Maplari Kuralsiz Ac","OTOMATIK GECE/GUNDUZ","### Exra Drop ###","Kapat")
if w == 1 then
say_title("[WINDOW_SIZE width;260|height;400]Event Icin Mutlaka Event Yapacagin Bayrakta Ol..!")
local s = select ("Kırmızı Bayrak", "Sari Bayrak", "Mavi Bayrak","Tüm Bayrak icin","# 90 Lw Event Map Gönder #","# 120 Lw Event Mapa Gönder #","# 250 Lw Event Mapa Gönder #","# Mavi Ölüm Haritasina Gönder #","Savun Yok Et","Kapat")
if s == 1 then
say_title (" Kırmızı Bayrak icin Event Sec")
local s1 = select ("Metin Event", "Ork Reisi", "Alev Kral", "Azrail","Tanaka","Dokuz Kuyruk","Lastik","Kapat")
if s1 == 1 then
notice_all ("Kırmızı Bayrak 1. Köy 25 Tane 90 Level Metin Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_90_metin.txt")
elseif s1 == 2 then
notice_all ("Kırmızı Bayrak 1. Köy 50 Tane Ork Reisi Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_ork_reis.txt")
elseif s1 == 3 then
notice_all ("Kırmızı Bayrak 1. Köy 50 Tane Alev Kral Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_alev_kral.txt")
elseif s1 == 4 then
notice_all ("Kırmızı Bayrak 1. Köy 25 Tane Azrail Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_azrail.txt")
elseif s1 == 5 then
notice_all ("Kırmızı Bayrak 1. Köy 125 Tane Tanaka Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_tanaka.txt")
elseif s1 == 6 then
notice_all ("Kırmızı Bayrak 1. Köy 25 Tane Dokuz Kuyruk Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_9_kuyruk.txt")
elseif s1 == 7 then
notice_all ("Kırmızı Bayrak 1. Köy 25 Tane Lastik Metin Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_lastik.txt")
end
elseif s == 2 then
say_title (" Sarı Bayrak icin Event Sec")
local s2 = select ("Metin Event", "Ork Reisi", "Alev Kral", "Azrail","Tanaka","Dokuz Kuyruk","Lastik","Kapat")
if s2 == 1 then
notice_all ("Sari Bayrak 1. Köy 25 Tane 90 Level Metin Atildi...!")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_90_metin.txt")
elseif s2 == 2 then
notice_all ("Sari Bayrak 1. Köy 50 Tane Ork Reisi Atildi...!")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_ork_reis.txt")
elseif s2 == 3 then
notice_all ("Sari Bayrak 1. Köy 50 Tane Alev Kral Atildi...!")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_alev_kral.txt")
elseif s2 == 4 then
notice_all ("Sari Bayrak 1. Köy 25 Tane Azrail Atildi...!")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_azrail.txt")
elseif s2 == 5 then
notice_all ("Sari Bayrak 1. Köy 125 Tane Tanaka Atildi...!")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_tanaka.txt")
elseif s2 == 6 then
notice_all ("Sari Bayrak 1. Köy 25 Tane Dokuz Kuyruk Atildi...!")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_9_kuyruk.txt")
elseif s2 == 7 then
notice_all ("Sari Bayrak 1. Köy 25 Tane Lastik Metin Atildi...!")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_lastik.txt")
end
elseif s == 3 then
say_title (" Mavi Bayrak icin Event Sec")
local s3 = select ("Metin Event", "Ork Reisi", "Alev Kral", "Azrail","Tanaka","Dokuz Kuyruk","Lastik","Kapat")
if s3 == 1 then
notice_all ("Mavi Bayrak 1. Köy 25 Tane 90 Level Metin Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_90_metin.txt")
elseif s3 == 2 then
notice_all ("Mavi Bayrak 1. Köy 50 Tane Ork Reisi Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_ork_reis.txt")
elseif s3 == 3 then
notice_all ("Mavi Bayrak 1. Köy 50 Tane Alev Kral Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_alev_kral.txt")
elseif s3 == 4 then
notice_all ("Mavi Bayrak 1. Köy 25 Tane Azrail Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_azrail.txt")
elseif s3 == 5 then
notice_all ("Mavi Bayrak 1. Köy 125 Tane Tanaka Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_tanaka.txt")
elseif s3 == 6 then
notice_all ("Mavi Bayrak 1. Köy 25 Tane Dokuz Kuyruk Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_9_kuyruk.txt")
elseif s3 == 7 then
notice_all ("Mavi Bayrak 1. Köy 25 Tane Lastik Metin Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_lastik.txt")
end
elseif s == 4 then
say_title("Tüm Bayraklar icin Event Secenegi")
local s9 = select ("Metin Event", "Ork Reisi", "Alev Kral", "Azrail","Tanaka","Dokuz Kuyruk","Lastik","Kapat")
if s9 == 1 then
notice_all ("Tüm 1. Köylere 25 Tane 90 Level Metin Atildi...!")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_90_metin.txt")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_90_metin.txt")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_90_metin.txt")
elseif s9 == 2 then
notice_all ("Tüm 1. Köylere 50 Tane Ork Reisi Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_ork_reis.txt")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_ork_reis.txt")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_ork_reis.txt")
elseif s9 == 3 then
notice_all ("Tüm 1. Köylere 50 Tane Alev Kral Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_alev_kral.txt")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_alev_kral.txt")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_alev_kral.txt")
elseif s9 == 4 then
notice_all ("Tüm 1. Köylere 25 Tane Azrail Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_azrail.txt")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_azrail.txt")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_azrail.txt")
elseif s9 == 5 then
notice_all ("Tüm 1. Köylere 125 Tane Tanaka Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_tanaka.txt")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_tanaka.txt")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_tanaka.txt")
elseif s9 == 6 then
notice_all ("Tüm 1. Köylere 25 Tane Dokuz Kuyruk Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_9_kuyruk.txt")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_9_kuyruk.txt")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_9_kuyruk.txt")
elseif s9 == 7 then
notice_all ("Tüm 1. Köylere 25 Tane Lastik Metin Atildi...!")
regen_in_map(1, "data/dungeon/koyler/kirmizi_1_koy_lastik.txt")
regen_in_map(21, "data/dungeon/koyler/sari_1_koy_lastik.txt")
regen_in_map(41, "data/dungeon/koyler/mavi_1_koy_lastik.txt")
end
elseif s == 5 then
pc . warp ( 998481 , 109821 )
elseif s == 6 then
pc . warp ( 947181 , 161363 )
elseif s == 7 then
pc . warp ( 998415, 161072 )
elseif s == 8 then
pc . warp ( 14512 , 15351 )
elseif s == 9 then
say_title("Savun Ve Yoket:")
say("")
say("Savun Ve Yoket Eventini Baslatmak Istiyormusun?")
local o1 = select("Baslat","Vazgec")
if o1 == 1 then
if game.get_event_flag("defend_and_destroy") == 0 then
game.set_event_flag("defend_and_destroy_red", 5 )
game.set_event_flag("defend_and_destroy_yellow", 5 )
game.set_event_flag("defend_and_destroy_blue", 5 )
game.set_event_flag("defend_and_destroy", 1 )
regen_in_map(63, "data/dungeon/defend_and_destroy_wueste.txt")
notice_all("Savun Ve Yoket Etkinligi Baslamistir!")
notice_all("Etkinlik Haritasi: Yongbi Cölü.")
notice_all("Etkinlik Hakkinda Bilgi Almak Icin Savas Sorumlusuna Gidin.")
else
say_title("Uzgunum , Etkinlik Daha Onceden Baslatilmis")
say("")
say("Etkinligi Bitirmek Istermisin")
local z = select("Evet", "Hayir")
if z == 1 then
game.set_event_flag("defend_and_destroy", 0 )
notice_all("Savun Yoket Etkinligi Kapatildi")
kill_all_in_map(63)
end
end
end
end
elseif w == 2 then
say_title (" Hmm. Yüzde Kac Drop Aciyorsun")
say (" Unutma Droplar 24 Saatlik Acilir")
local drop = select ("Yüzde 500","Yüzde 800","Yüzde 1000","Drop Kapat","Kapat")
if drop == 1 then
command("priv_empire 0 1 500 48") command("priv_empire 0 2 500 48")
command("priv_empire 0 3 500 48") command("priv_empire 0 4 500 48")
notice_all ("Tüm Droplar Yüzde 500 Açıldı iyi Oyunlar...")
elseif drop == 2 then
command("priv_empire 0 1 800 48") command("priv_empire 0 2 800 48")
command("priv_empire 0 3 800 48") command("priv_empire 0 4 800 48")
notice_all ("Tüm Droplar Yüzde 800 Açıldı iyi Oyunlar...")
elseif drop == 3 then
command("priv_empire 0 1 1000 48") command("priv_empire 0 2 1000 48")
command("priv_empire 0 3 1000 48") command("priv_empire 0 4 1000 48")
notice_all ("Tüm Droplar Yüzde 1000 Açıldı iyi Oyunlar...")
elseif drop == 4 then
command("priv_empire 0 1 0 0") command("priv_empire 0 2 0 0")
command("priv_empire 0 3 0 0") command("priv_empire 0 4 0 0")
end
elseif w == 3 then
say_title(" Ne Yapmak istersin")
local xmas = select ("Havayi Gece Yap","Havayi Gündüz Yap","Kar Yagdir","Kar Yagmasini Kapat","Cikis")
if xmas == 1 then
command("x 1")
elseif xmas == 2 then
command("x 0")
elseif xmas == 3 then
command("xmas_snow 1")
elseif xmas == 4 then
command("xmas_snow 0")
end
elseif w == 4 then
notice_all ("Kırmızı bayrak Tüm Köy Temizlendi")
kill_all_in_map(1)
return
elseif w == 5 then
notice_all ("Sarı bayrak Tüm Köy Temizlendi")
kill_all_in_map(21)
return
elseif w == 6 then
notice_all ("Mavi bayrak Tüm Köy Temizlendi")
kill_all_in_map(41)
return
elseif w == 7 then
notice_all ("Tüm bayrak Temizlendi")
kill_all_in_map(1)
kill_all_in_map(21)
kill_all_in_map(41)
return
elseif w == 8 then
say_title("Tüm Event Maplari Acma Talebi")
say("")
local s = select("Haritalari Ac","Haritaları Kapat","Cikis")
if s == 1 then
notice_all("Dikkat...! Event Map Etkinliği , Tüm Event Haritalarına Gidiş Süresi Kaldırıldı...!")
notice_all("Event Map Işınlayıcısından Gidebilirsiniz..!")
game.set_event_flag("mematieventsistem",1)
elseif s == 2 then
notice_all("Dikkat...! Event Map Etkinliği , Eski Düzenine Ayarlandı....! ")
notice_all("Yine Her 12 saatde Bir Giriş Düzeni Aktif...!")
game.set_event_flag("mematieventsistem",0)
end
elseif w == 9 then
local xmas = select ("Etkinlestir","Iptal Et","Cikis" )
if xmas == 1 then
if game . get_event_flag ( "otogece" ) >= 1 then
say ( "Zaten etkin" )
else
say_title("Otomatik GECE/GUNDUZ Acildi..!")
notice_all("Autoxmas: Otomatik Gece + Kar Yağma Modu... iyi Geceler Dileriz...")
game.set_event_flag("xmas_boom",1)
game.set_event_flag("xmas_snow",1)
game . set_event_flag ( "otogece" , 1 )
server_timer ( "mematix" , 5*60*60 )
end
elseif xmas == 2 then
say_title("Otomatik GECE/GUNDUZ kapatildi." )
game . set_event_flag ( "otogece" , 0 )
game.set_event_flag("xmas_boom",0)
game.set_event_flag("xmas_snow",0)
clear_server_timer ( "mematix" )
clear_server_timer ( "mematix1" )
end
elseif w == 10 then
say_title("Extra Drop Seceneklerin")
say("")
local drob1 = select ("Ay isiyi","Exra Para 100K","Exra Exp 30000","Kapat")
if drob1 == 1 then
say_title("Ay Isiyi Drobu Secenegi")
say("")
say("")
local ayisik = select ("Etkinlestir","Iptal Et","Cikis" )
if ayisik == 1 then
if game . get_event_flag ( "ayisigi_drop" ) >= 1 then
say ( "Zaten etkin" )
else
game.set_event_flag("ayisigi_drop",1)
notice_all("Ayisigi Define Sandik Drobu Basladi")
end
elseif ayisik == 2 then
game.set_event_flag("ayisigi_drop",0)
notice_all("Ayisigı Define Sandik Drobu Sona Erdi")
end
elseif drob1 == 2 then
say_title("Extra Slot Kesimi Yüzde Yüz 100k Verme")
say("")
local para1 = select ("Etkinlestir","Iptal Et","Cikis" )
if para1 == 1 then
if game . get_event_flag ( "extra_para_ver" ) >= 1 then
say ( "Zaten etkin" )
else
game.set_event_flag("extra_para_ver",1)
notice_all("Extra 100k Para Drob Basladi")
end
elseif para1 == 2 then
game.set_event_flag("extra_para_ver",0)
notice_all("Extra 100k Para Drob Sona Erdi")
end
elseif drob1 == 3 then
say_title("Extra Slot Kesimi Exp 30 000 Verme")
say("")
local exp1 = select ("Etkinlestir","Iptal Et","Cikis" )
if exp1 == 1 then
if game . get_event_flag ( "extra_exp_ver" ) >= 1 then
say ( "Zaten etkin" )
else
game.set_event_flag("extra_exp_ver",1)
notice_all("Extra 30000 Exp Drob Basladi")
end
elseif exp1 == 2 then
game.set_event_flag("extra_exp_ver",0)
notice_all("Extra 30000 Exp Drob Sona Erdi")
end
end
end
end
when mematix.server_timer begin
if game.get_event_flag ( "otogece" ) == 1 then
notice_all("Autoxmas: Otomatik Sabah Modu... Herkeze Hayırlı Sabahlar ve iyi Günler Dileriz...")
game.set_event_flag("xmas_boom",0)
game.set_event_flag("xmas_snow",0)
server_timer ( "mematix1" , 19*60*60 )
else
end
end
when mematix1.server_timer begin
if game.get_event_flag ( "otogece" ) == 1 then
notice_all("Autoxmas: Otomatik Gece + Kar Yağma Modu... iyi Geceler Dileriz...")
game.set_event_flag("xmas_boom",1)
game.set_event_flag("xmas_snow",1)
server_timer ( "mematix" , 5*60*60 )
else
end
end
when 20065.click begin
say_reward ("Tüm NPC ler TL HaNiFi Tarafindan Düzenlenmektedir.!")
say_title("Şşşş - " .. pc.get_name() .. " Bu Npc GM ler Kullanabilir. :) ")
say_title(" ***")
say_title(" ***")
say_title(" ***")
say_title(" **** ***")
say_title(" ****** ***")
say_title(" **** ***")
say_title(" ***")
say_title(" **** ***")
say_title(" ****** ***")
say_title(" **** ***")
say_title(" ***")
say_title(" ***")
say_title(" ***")
say("")
end
end
end
