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!
Zamanında irispanel için kodlamıştım ama şu an bakıyorum hiç hoşuma gitmeyen şekilde yapmışım ve dosyalarda gördüm. Belki birinin işine yarar diye paylaşıyorum.
Çalışma Mantığı
- Başlangıç (login):
- Oyuncu oyuna girince bot_gonder isimli bir sayaç başlatılıyor.
- Bu sayaç belli bir süre sonra bot kontrolünü tetikliyor.
- Yeni state (newstate):
- Oyuncu logout/login yaparsa veya bağlantısı koparsa, guvendeyim kontrolü devreye giriyor.
- Eğer oyuncu belirli bir haritadaysa (örneğin index 256), bot doğrulaması yapılamıyor.
- Normal haritada ise “Bot doğrulanmamış” mesajı çıkıyor ve 10 saniyelik süre başlatılıyor.
- Kill event (npc öldürme):
- Oyuncu bir yaratık öldürdüğünde sistem kontrol ediyor:
- Eğer bot_gonder süresi dolmuşsa, oyuncuya “BOT KONTROL GELDİ” mesajı çıkıyor.
- 60 saniyelik bir süre veriliyor ve oyuncunun yüzük kullanarak doğrulama yapması gerekiyor.
- Oyuncu bir yaratık öldürdüğünde sistem kontrol ediyor:
- Timerlar (beklebot, bekle2):
- Eğer oyuncu doğrulama yapmazsa, sistem beklebot ve bekle2 timerlarını çalıştırıyor.
- Sonuç: “Hapis cezası aldınız” mesajı çıkıyor ve oyuncu cezalandırılıyor.
- Yüzük kullanımı (40003.use):
- Oyuncu doğrulama yüzüğünü kullandığında şifre ekranı açılıyor.
- Sistem rastgele 6 şifre üretiyor (sifre1–sifre6).
- Bunlardan biri doğru şifre, diğerleri sahte.
- Oyuncuya renkli ipuçlarıyla doğru şifreyi seçmesi söyleniyor.
- Eğer doğru şifreyi seçerse → “Doğru şifreyi seçtin!” mesajı çıkıyor ve guvendeyim sıfırlanıyor.
- Yanlış seçerse → “Şifre hatalı, hapis cezası alıyorsunuz” mesajı çıkıyor.
Kod:
state start begin
when login begin
pc.setqf("bot_gonder", get_time() + 60*1*1)-----oyuncu bot şifre gelmesi için gerekli süre
set_state("newstate")
end
end
state newstate begin
when logout or disconnect or login with pc.getqf("guvendeyim") == 1 begin
if pc.get_map_index() == 256 then
syschat("Burada bot doğrulaması yapamazsın.")
else
syschat("Bot Doğrulanmamış")
syschat("Şifre girmek için 10sn. Süren başladı!")
--pc.tagver(359,60)
timer("beklebot",10)
end
end
when kill with not npc.is_pc() begin
local botSorguSure2 = pc.getqf("bot_suregir")
local botSorguSure = pc.getf("grv_panel_04","bot_gonder")
local botDogruladi = pc.getqf("guvendeyim")
--pc.setqf("bot_gonder", get_time() +1)------bot tag sonrasında yüzük şifre için verilen süre
if botSorguSure != 0 and get_time() > botSorguSure then
chat("BOT KONTROL GELDİ. YÜZÜĞÜ KULLAN")
chat("YÜZÜK İÇİN 60SN. SÜRE VAR.")
--pc.tagver(359,60)
pc.setqf("guvendeyim",1)
timer("beklebot",1)
end---botSorguSure
end--when kill
when beklebot.timer with pc.getqf("guvendeyim") == 1 begin
timer("bekle2",10)
end
when bekle2.timer with pc.getqf("guvendeyim") == 1 begin
syschat("Hapis cezası aldınız.")
syschat("Lütfen doğrulamayı yaptıktan sonra oynamaya devam ediniz.")
--pc.hapiset(15)
--pc.tagver(359,0)
end
when 40003.use with pc.getqf("guvendeyim") == 0 begin
syschat("Bot doğrulamasını zaten yaptın. Neyin peşindesin ?")
end
when 40003.use with pc.getqf("guvendeyim") == 1 begin
if pc.get_map_index() == 256 then
syschat("Bu haritada bot doğrulaması yasaklıdır.")
else
local kontrolSure = pc.getqf("bot_control")
pc.setqf("bot_control", get_time()+60) ----- şifre giriş süresi
say_size(300, 350)
say_title("Bot Kontrol:")
local sifre1 = number(1000,99999)
local sifre2 = number(1000,99999)
local sifre3 = number(1000,99999)
local sifre4 = number(1000,99999)
local sifre5 = number(1000,99999)
local sifre6 = number(1000,99999)
local kontrolsifre = number(2,7)
local sifre
if kontrolsifre == 2 then
sifre = sifre1
elseif kontrolsifre == 3 then
sifre = sifre2
elseif kontrolsifre == 4 then
sifre = sifre3
elseif kontrolsifre == 5 then
sifre = sifre4
elseif kontrolsifre == 6 then
sifre = sifre5
elseif kontrolsifre == 7 then
sifre = sifre6
end
local fakesifre1 = number(1000,99999)
local fakesifre2 = number(1000,99999)
local fakesifre3 = number(1000,99999)
local fakesifre4 = number(1000,99999)
local fakesifre5 = number(1000,99999)
local fakesifre6 = number(1000,99999)
local kontrolfakesifre = number(2,7)
local fakesifre
if kontrolfakesifre == 2 then
fakesifre = fakesifre1
elseif kontrolfakesifre == 3 then
fakesifre = fakesifre2
elseif kontrolfakesifre == 4 then
fakesifre = fakesifre3
elseif kontrolfakesifre == 5 then
fakesifre = fakesifre4
elseif kontrolfakesifre == 6 then
fakesifre = fakesifre5
elseif kontrolfakesifre == 7 then
fakesifre = fakesifre6
end
local secim = math.random(1,4) --- random şifre sorgu
if secim == 1 then ----random1
say("|cff91e40f Yeşil |cffffffff renk şifreyi seç!")
say("Doğru olan şifre: |cff7eed1a"..sifre.." ")
say("Doğru olan şifre: |cff1aedd3"..fakesifre.."1 ")
say("Doğru olan şifre: |cff2807fd"..fakesifre.."3 ")
say("|cffffffffŞifre süre:|cffec882760Sn.|cffffffff")
local sifre = select("Vazgeç ",sifre1,sifre2,sifre3,sifre4,sifre5,sifre6)
if get_time() > pc.getqf("bot_control") then
say_title("Bot Kontrol:")
say("Sana doğru şifreyi seçmen için")
say("20 saniye vermiştim!")
pc.setqf("bot_control",get_time()+0)
return
end
if sifre == kontrolsifre then
say_title("Bot Kontrol:")
say("|cff1ec908Doğru şifreyi seçtin!")
pc.setqf("guvendeyim",0)
pc.setqf("bot_gonder",get_time() +60)
--pc.tagver(359,0)
say("")
else
say_title("Bot Kontrol:")
say("|cffff0000Şifre Hatalı. Hapis cezası alıyorsunuz.")
--pc.tagver(359,0)
--pc.hapiset(10)
pc.setqf("guvendeyim",1)
end
elseif secim == 2 then ----random2
say("|cfffd07bd Pembe|cffffffffrenk şifreyi seç!")
say("Doğru olan şifre: |cffffffff"..fakesifre.."3 ")
say("Doğru olan şifre: |cff1aedd3"..fakesifre.."1 ")
say("Doğru olan şifre: |cfffd07bd"..sifre.." ")
say("2.deneme")
say("|cffffffffŞifre süre:|cffec882760Sn.|cffffffff")
local sifre = select("Vazgeç ",sifre1,sifre2,sifre3,sifre4,sifre5,sifre6)
if get_time() > pc.getqf("bot_control") then
say_title("Bot Kontrol:")
say("Sana doğru şifreyi seçmen için")
say("20 saniye vermiştim!")
pc.setqf("bot_control",get_time()+0)
pc.setqf("guvendeyim",1)
--pc.hapiset(30)
--pc.tagver(359,0)
return
end
if sifre == kontrolsifre then
say_title("Bot Kontrol:")
say("|cff1ec908Doğru şifreyi seçtin!")
--pc.tagver(359,0)
pc.setqf("guvendeyim",0)
pc.setqf("bot_gonder",get_time() +60)
say("")
else
say_title("Bot Kontrol:")
say("|cffff0000Şifre Hatalı. Hapis cezası alıyorsunuz.")
pc.setqf("guvendeyim",1)
--pc.tagver(359,0)
--pc.hapiset(10)
end
elseif secim == 3 then ----random3
say("|cfffd07bd Pembe|cffffffffrenk şifreyi seç!")
say("Doğru olan şifre: |cffffffff"..fakesifre.."3 ")
say("Doğru olan şifre: |cff1aedd3"..fakesifre.."1 ")
say("Doğru olan şifre: |cfffd07bd"..sifre.." ")
say("3.deneme")
say("|cffffffffŞifre süre:|cffec882760Sn.|cffffffff")
local sifre = select("Vazgeç ",sifre1,sifre2,sifre3,sifre4,sifre5,sifre6)
if get_time() > pc.getqf("bot_control") then
say_title("Bot Kontrol:")
say("Sana doğru şifreyi seçmen için")
say("20 saniye vermiştim!")
pc.setqf("bot_control",get_time()+0)
pc.setqf("guvendeyim",1)
--pc.hapiset(30)
--pc.tagver(359,0)
return
end
if sifre == kontrolsifre then
say_title("Bot Kontrol:")
say("|cff1ec908Doğru şifreyi seçtin!")
--pc.tagver(359,0)
pc.setqf("guvendeyim",0)
pc.setqf("bot_gonder",get_time() +60)
say("")
else
say_title("Bot Kontrol:")
say("|cffff0000Şifre Hatalı. Hapis cezası alıyorsunuz.")
pc.setqf("guvendeyim",1)
--pc.tagver(359,0)
--pc.hapiset(10)
end
elseif secim == 4 then ----random4
say("|cfffd07bd Pembe|cffffffffrenk şifreyi seç!")
say("Doğru olan şifre: |cffffffff"..fakesifre.."3 ")
say("Doğru olan şifre: |cff1aedd3"..fakesifre.."1 ")
say("Doğru olan şifre: |cfffd07bd"..sifre.." ")
say("234.deneme")
say("|cffffffffŞifre süre:|cffec882760Sn.|cffffffff")
local sifre = select("Vazgeç ",sifre1,sifre2,sifre3,sifre4,sifre5,sifre6)
if get_time() > pc.getqf("bot_control") then
say_title("Bot Kontrol:")
say("Sana doğru şifreyi seçmen için")
say("20 saniye vermiştim!")
pc.setqf("bot_control",get_time()+0)
pc.setqf("guvendeyim",1)
--pc.hapiset(30)
--pc.tagver(359,0)
return
end
if sifre == kontrolsifre then
say_title("Bot Kontrol:")
say("|cff1ec908Doğru şifreyi seçtin!")
--pc.tagver(359,0)
pc.setqf("guvendeyim",0)
pc.setqf("bot_gonder",get_time() +60)
say("")
else
say_title("Bot Kontrol:")
say("|cffff0000Şifre Hatalı. Hapis cezası alıyorsunuz.")
pc.setqf("guvendeyim",1)
--pc.tagver(359,0)
--pc.hapiset(10)
end
end
end
end
end
Bende teşekkür ederimEline sağlık, paylaşım için teşekkürler![]()
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
- Cevaplar
- 0
- Görüntüleme
- 42

