HTML-Kodu

; =================================================
; BASİT KOMUT SİSTEMİ - ADMIN ONLY
; !karantina on/off, !kilit, !ac vb.
; =================================================

; ---------- AYARLAR ----------
alias kanal_ayarlar {
  set %karantina_kanal #karantina
  set %ana_kanallar #sohbet #radyo #oyun #kelime
  set %shun_sure 8
  set %max_deneme 3
  set %karantina_durum ON   ; ON/OFF
}

; ---------- COOLDOWN AYARLARI ----------
alias cooldown_ayarlar {
  set %cd_karantina 5      ; Karantina on/off cooldown
  set %cd_kilit 5          ; Kilit komut cooldown
  set %cd_ban 15
  set %cd_kick 10
  set %cd_zline 30
  set %cd_ip 10
  set %cd_komut 2
}

; ---------- COOLDOWN KONTROLÜ ----------
alias cooldown_kontrol {
  var %nick = $1
  var %tip = $2
  var %simdi = $ctime
  
  ; Admin ise cooldown yok
  if ($is_admin(%nick)) return 1
  
  var %sure
  if (%tip == karantina) %sure = %cd_karantina
  elseif (%tip == kilit) %sure = %cd_kilit
  elseif (%tip == ban) %sure = %cd_ban
  elseif (%tip == kick) %sure = %cd_kick
  elseif (%tip == zline) %sure = %cd_zline
  elseif (%tip == ip) %sure = %cd_ip
  elseif (%tip == komut) %sure = %cd_komut
  else return 1
  
  var %son = $gettok(%cd_ $+ %tip $+ _ $+ %nick, 1, 44)
  if (%son) {
    var %gecen = $calc(%simdi - %son)
    if (%gecen < %sure) {
      var %bekle = $calc(%sure - %gecen)
      notice %nick ⏳ Lütfen %bekle saniye bekleyin!
      return 0
    }
  }
  
  set %cd_ $+ %tip $+ _ $+ %nick %simdi
  return 1
}

; ---------- ADMIN KONTROL ----------
alias admin_kontrol {
  var %nick = $1
  if (!$is_admin(%nick)) {
    notice %nick ⛔ Bu komutu sadece Admin/Oper kullanabilir!
    return 0
  }
  return 1
}

; =================================================
; KOMUTLAR
; =================================================

; ---------- KARANTİNA ON/OFF ----------
ON *:TEXT:!karantina on:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, karantina)) return
  
  set %karantina_durum ON
  msg #karantina [🔓] KARANTİNA AKTİF!
  msg #karantina [✅] Yeni girenler karantinaya alınacak.
  msg #sohbet [📢] Karantina sistemi AKTİF edildi!
  write karantina_log.txt $timestamp $nick Karantinayı AKTİF etti
}

ON *:TEXT:!karantina off:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, karantina)) return
  
  set %karantina_durum OFF
  msg #karantina [🔒] KARANTİNA PASİF!
  msg #karantina [⚠️] Yeni girenler karantinaya ALINMAYACAK!
  msg #sohbet [📢] Karantina sistemi PASİF edildi!
  write karantina_log.txt $timestamp $nick Karantinayı PASİF etti
}

; ---------- KARANTİNA DURUM ----------
ON *:TEXT:!durum:#: {
  if (!$admin_kontrol($nick)) return
  
  msg $chan ═══════════════════════════════════
  msg $chan 🛡️ GÜVENLİK SİSTEMİ DURUMU:
  msg $chan ═══════════════════════════════════
  msg $chan 🔒 Karantina: $iif(%karantina_durum == ON, ✅ AKTİF, ❌ PASİF)
  msg $chan 👥 Karantina: $nick(#karantina,0) kişi
  msg $chan 👤 Ana kanal: $nick(#sohbet,0) kişi
  msg $chan ⏱️ Shun süresi: %shun_sure saniye
  msg $chan ═══════════════════════════════════
}

; ---------- KİLİT / KİLİT AÇ ----------
ON *:TEXT:!kilit:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, kilit)) return
  
  mode #karantina +i
  mode #karantina +m
  msg #karantina [🔒] KARANTİNA KİLİTLENDİ!
  msg #karantina [🔒] Sadece Oper/Admin konuşabilir.
  msg #sohbet [🔒] Karantina kilitlendi!
  write operlog.txt $timestamp $nick karantinayı kilitledi
}

ON *:TEXT:!kilitaç:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, kilit)) return
  
  mode #karantina -i
  mode #karantina -m
  msg #karantina [🔓] KARANTİNA KİLİDİ AÇILDI!
  msg #sohbet [🔓] Karantina kilidi açıldı!
  write operlog.txt $timestamp $nick karantina kilidini açtı
}

; ---------- LİSTE ----------
ON *:TEXT:!liste:#: {
  if (!$admin_kontrol($nick)) return
  
  if ($nick(#karantina,0) == 0) {
    msg $chan ✅ Karantina boş!
    return
  }
  
  msg $chan ═══════════════════════════════════
  msg $chan 📋 KARANTİNA LİSTESİ ($nick(#karantina,0) kişi)
  msg $chan ═══════════════════════════════════
  
  var %i = 1
  while (%i <= $nick(#karantina,0)) {
    var %n = $nick(#karantina,%i)
    var %ip = $ip(%n)
    var %sure = $duration($calc($ctime - $nick(#karantina,%i).join))
    
    msg $chan %i . %n
    msg $chan    ├─ IP: %ip
    msg $chan    ├─ Süre: %sure
    msg $chan    └─ Türk ISP: $iif($is_turk_isp(%ip), ✅, ❌)
    inc %i
  }
  msg $chan ═══════════════════════════════════
}

; ---------- İNCELE ----------
ON *:TEXT:!incele *:#: {
  if (!$admin_kontrol($nick)) return
  
  var %target = $2
  var %ip = $ip(%target)
  
  msg $chan 🔍 $target İNCELEMESİ:
  msg $chan ──────────────────────────
  msg $chan 👤 Nick: %target
  msg $chan 📡 IP: %ip
  msg $chan 🌐 Host: $host(%target)
  msg $chan 🏠 Türk ISP: $iif($is_turk_isp(%ip), ✅, ❌)
  msg $chan 📌 Karantina: $iif($nick(#karantina, %target), ✅, ❌)
  msg $chan 📊 DNS: $iif($dns(%ip), ✅ Çözümlendi, ❌ Çözümlenemedi)
  
  ; Clone kontrolü
  var %clone = 0
  var %i = 1
  while (%i <= $nick(#karantina,0)) {
    if ($ip($nick(#karantina,%i)) == %ip) inc %clone
    inc %i
  }
  if (%clone > 1) msg $chan 👥 Clone: %clone bağlantı
  msg $chan ──────────────────────────
}

; ---------- GEÇİR ----------
ON *:TEXT:!gecir *:#: {
  if (!$admin_kontrol($nick)) return
  
  var %target = $2
  var %sebep = $3-
  
  if (!$nick(#karantina, %target)) {
    msg $chan ❌ %target karantinada değil!
    return
  }
  
  msg #karantina [🔑] Admin %nick, %target kullanıcısını geçirdi!
  notice %target ✅ Admin %nick tarafından geçirildiniz!
  
  .timer 1 1 invite %target #sohbet
  .timer 1 2 kick #karantina %target $iif(%sebep, Admin onayı: %sebep, Admin onayı)
  msg #sohbet [📢] %target kanala hoşgeldin!
  
  write operlog.txt $timestamp Admin %nick geçirdi: %target
}

; ---------- BAN ----------
ON *:TEXT:!ban *:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, ban)) return
  
  var %target = $2
  var %sebep = $3-
  if (!%sebep) %sebep = Admin kararı
  
  mode #karantina +b $address(%target,2)
  kick #karantina %target Banlandı: %sebep
  notice %target 🚫 Banlandınız! Sebep: %sebep
  
  write nickbans.txt %target
  write operlog.txt $timestamp $nick banladı: %target (%sebep)
  msg $chan 🚫 %target banlandı! Sebep: %sebep
}

; ---------- BAN KALDIR ----------
ON *:TEXT:!unban *:#: {
  if (!$admin_kontrol($nick)) return
  
  var %target = $2
  mode #karantina -b $address(%target,2)
  
  notice %target ✅ Banınız kaldırıldı!
  msg $chan ✅ %target banı kaldırıldı.
  write operlog.txt $timestamp $nick ban kaldırdı: %target
}

; ---------- KICK ----------
ON *:TEXT:!kick *:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, kick)) return
  
  var %target = $2
  var %sebep = $3-
  if (!%sebep) %sebep = Kick
  
  kick #karantina %target %sebep
  notice %target 🦵 Kicklendiniz! Sebep: %sebep
  write operlog.txt $timestamp $nick kickledi: %target (%sebep)
  msg $chan 🦵 %target kicklendi!
}

; ---------- TEMİZLE ----------
ON *:TEXT:!temizle:#: {
  if (!$admin_kontrol($nick)) return
  
  if ($nick(#karantina,0) == 0) {
    msg $chan ✅ Karantina zaten boş!
    return
  }
  
  var %count = $nick(#karantina,0)
  var %i = 1
  while (%i <= %count) {
    var %n = $nick(#karantina,%i)
    invite %n #sohbet
    notice %n 🧹 Toplu temizlik ile ana kanala alındınız!
    .timer 1 2 kick #karantina %n Toplu temizlik
    inc %i
  }
  
  msg $chan 🧹 %count kişi ana kanala alındı!
  write operlog.txt $timestamp $nick toplu temizlik yaptı (%count kişi)
}

; ---------- Z-LINE ----------
ON *:TEXT:!zline *:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, zline)) return
  
  var %target = $2
  var %sebep = $3-
  if (!%sebep) %sebep = Z-Line
  
  var %ip = $ip(%target)
  var %host = $host(%target)
  
  write zline.txt %ip - %sebep
  write zline.txt %host - %sebep
  write zline.txt %target - %sebep
  
  mode #karantina +b $address(%target,2)
  kick #karantina %target Z-Line: %sebep
  notice %target 🚫 Z-Line eklendiniz! Sebep: %sebep
  
  msg $chan 🚫 %target Z-Line eklendi! Sebep: %sebep
  write zline_log.txt $timestamp $nick Z-Line ekledi: %target (%sebep)
}

; ---------- Z-LINE KALDIR ----------
ON *:TEXT:!unzline *:#: {
  if (!$admin_kontrol($nick)) return
  
  var %target = $2
  var %temp = $read(zline.txt, w, %target)
  if (%temp) {
    write -ds zline.txt %target
    notice %target ✅ Z-Line'dan kaldırıldınız!
    msg $chan ✅ %target Z-Line'dan kaldırıldı!
    write zline_log.txt $timestamp $nick Z-Line kaldırdı: %target
  } else {
    msg $chan ❌ %target Z-Line'da değil!
  }
}

; ---------- Z-LINE LİSTE ----------
ON *:TEXT:!zlinelist:#: {
  if (!$admin_kontrol($nick)) return
  
  msg $chan 📋 Z-LINE LİSTESİ:
  var %i = 1
  while (%i <= $lines(zline.txt)) {
    var %line = $read(zline.txt, n, %i)
    if (%line) msg $chan %i . %line
    inc %i
  }
  if (%i == 1) msg $chan ✅ Z-Line boş!
}

; ---------- GEÇMİŞ ----------
ON *:TEXT:!gecmis *:#: {
  if (!$admin_kontrol($nick)) return
  
  var %target = $2
  var %ip = $ip(%target)
  
  msg $chan 📋 $target GEÇMİŞİ:
  msg $chan ──────────────────────────
  
  var %bulundu = 0
  var %i = 1
  while (%i <= $lines(gecmis.txt)) {
    var %line = $read(gecmis.txt, n, %i)
    if (%target isin %line) || (%ip isin %line) {
      msg $chan %line
      %bulundu = 1
    }
    inc %i
  }
  
  if (!%bulundu) msg $chan ✅ Geçmiş kaydı bulunamadı.
  
  if ($read(zline.txt, w, %target)) {
    msg $chan ⚠️ Z-Line'da: $read(zline.txt, w, %target)
  }
  msg $chan ──────────────────────────
}

; ---------- IP SORGULA ----------
ON *:TEXT:!ip *:#: {
  if (!$admin_kontrol($nick)) return
  if (!$cooldown_kontrol($nick, ip)) return
  
  var %target = $2
  var %ip = $ip(%target)
  
  if (%ip == $null) {
    msg $chan ❌ IP bulunamadı!
    return
  }
  
  msg $chan 📡 $target IP: %ip
  msg $chan 🌐 Host: $host(%target)
  msg $chan 🏠 Türk ISP: $iif($is_turk_isp(%ip), ✅ Evet, ❌ Hayır)
  
  var %rdns = $dns($+(%ip,.,in-addr.arpa),PTR)
  if (%rdns) msg $chan 🔄 Reverse DNS: %rdns
  else msg $chan 🔄 Reverse DNS: Yok
  
  var %whois = $whois(%ip)
  if (%whois) msg $chan 📋 WHOIS: %whois
}

; ---------- OPERLER ----------
ON *:TEXT:!operler:#: {
  if (!$admin_kontrol($nick)) return
  
  msg $chan 🔑 AKTİF ADMIN/OPERLER:
  var %i = 1
  var %count = 0
  while (%i <= $nick(#,0)) {
    var %n = $nick(#,%i)
    if ($is_admin(%n)) {
      msg $chan ✅ %n
      inc %count
    }
    inc %i
  }
  if (%count == 0) msg $chan ❌ Aktif admin/oper yok.
}

; ---------- UYAR ----------
ON *:TEXT:!uyar *:#: {
  if (!$admin_kontrol($nick)) return
  
  var %target = $2
  var %sebep = $3-
  if (!%sebep) %sebep = Uyarı!
  
  notice %target ⚠️ Admin Uyarısı: %sebep
  msg #karantina [⚠️] Admin %nick, %target uyardı: %sebep
  write operlog.txt $timestamp $nick uyardı: %target (%sebep)
}

; ---------- ACİL ----------
ON *:TEXT:!acil:#: {
  if (!$admin_kontrol($nick)) return
  
  msg # ACİL DURUM! Tüm kullanıcılar karantinaya alınıyor...
  
  var %i = 1
  while (%i <= $nick(#sohbet,0)) {
    var %n = $nick(#sohbet,%i)
    if ($is_admin(%n)) {
      inc %i
      continue
    }
    mode #karantina +b $address(%n,2)
    kick #sohbet %n Acil karantina
    notice %n 🔒 Acil durum - Karantinaya alındınız!
    .timer 1 2 invite %n #karantina
    inc %i
  }
  write operlog.txt $timestamp ACİL DURUM! $nick tüm kullanıcıları karantinaya aldı
}

; ---------- YARDIM ----------
ON *:TEXT:!yardim:#: {
  if (!$admin_kontrol($nick)) return
  
  msg $chan ═══════════════════════════════════
  msg $chan 🛡️ ADMIN KOMUTLARI:
  msg $chan ═══════════════════════════════════
  msg $chan ├─ !karantina on/off - Karantina aç/kapat
  msg $chan ├─ !durum - Sistem durumu
  msg $chan ├─ !kilit / !kilitaç - Karantina kilidi
  msg $chan ├─ !liste - Karantina listesi
  msg $chan ├─ !incele <nick> - Kullanıcı incele
  msg $chan ├─ !gecir <nick> - Kullanıcıyı geçir
  msg $chan ├─ !ban <nick> <sebep> - Banla
  msg $chan ├─ !unban <nick> - Ban kaldır
  msg $chan ├─ !kick <nick> <sebep> - Kickle
  msg $chan ├─ !temizle - Karantinayı temizle
  msg $chan ├─ !zline <nick> <sebep> - Z-Line ekle
  msg $chan ├─ !unzline <nick> - Z-Line kaldır
  msg $chan ├─ !zlinelist - Z-Line listesi
  msg $chan ├─ !gecmis <nick> - Kullanıcı geçmişi
  msg $chan ├─ !ip <nick> - IP sorgula
  msg $chan ├─ !operler - Oper listesi
  msg $chan ├─ !uyar <nick> <sebep> - Uyar
  msg $chan └─ !acil - Tümünü karantinaya al
  msg $chan ═══════════════════════════════════
}

; ---------- KANAL OLUŞTURMA ----------
ON *:START: {
  kanal_ayarlar
  cooldown_ayarlar
  .timer 1 5 kanallari_olustur
}

alias kanallari_olustur {
  join #sohbet
  join #radyo
  join #oyun
  join #kelime
  join #karantina
  
  mode #sohbet +nt
  mode #radyo +nt
  mode #oyun +nt
  mode #kelime +nt
  mode #karantina +imnt
  mode #karantina +m
  
  msg #karantina ═══════════════════════════════════
  msg #karantina 🛡️ GÜVENLİK SİSTEMİ AKTİF
  msg #karantina ═══════════════════════════════════
  msg #karantina 📌 Durum: $iif(%karantina_durum == ON, ✅ AKTİF, ❌ PASİF)
  msg #karantina 📌 KANALLAR: #sohbet #radyo #oyun #kelime
  msg #karantina ═══════════════════════════════════
}

; ---------- +m KORUMASI ----------
ON *:MODE:#karantina:-m: {
  if ($nick != $me) {
    mode #karantina +m
    msg #karantina [🔒] +m modu tekrar aktifleştirildi!
    msg #karantina [⚠️] $nick +m modunu kaldırmaya çalıştı!
    write mod_log.txt $timestamp $nick +m modunu kaldırmaya çalıştı
  }
}

; ---------- KARANTİNA +m KONTROL ----------
alias karantina_mod_kontrol {
  if (!$mode(#karantina, m)) {
    mode #karantina +m
  }
}

; ---------- TÜRK ISP ----------
alias is_turk_isp {
  var %ip = $1
  var %whois = $whois(%ip)
  
  var %isp_listesi = Turk Telekom Turkcell Vodafone Superonline Netspeed Dgn Teknoloji Millenicom Turknet
  tokenize 32 %isp_listesi
  while ($0) {
    if ($1 isin %whois) return 1
    dec 0
  }
  
  var %tr_blocks = 78.160.0.0/11 81.212.0.0/14 85.96.0.0/12 88.224.0.0/11 95.0.0.0/11 176.32.0.0/12
  tokenize 32 %tr_blocks
  while ($0) {
    if ($ipmask(%ip, $1)) return 1
    dec 0
  }
  return 0
}

; ---------- ADMIN TESPİTİ ----------
alias is_admin {
  var %nick = $1
  
  var %whois = $whois(%nick)
  if (admin isin %whois) || (Admin isin %whois) || (ADMIN isin %whois) return 1
  if (oper isin %whois) || (Oper isin %whois) || (OPER isin %whois) return 1
  if (ircop isin %whois) || (IRCOp isin %whois) || (IRCOP isin %whois) return 1
  
  if ($read(adminlist.txt, w, %nick)) return 1
  if ($read(operlist.txt, w, %nick)) return 1
  
  if ($nick isop #) return 1
  if ($nick isowner #) return 1
  if ($nick isadmin #) return 1
  
  return 0
}