menu * {
  MobilBAN System
  .Aç:/.enable #Version | echo -a 4MobilBAN2 System aktif edildi.
  .Kapat:/.disable #Version | echo -a 7MobilBAN2 System deaktif edildi.
}
#Version off
on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    if $hget(MuafNick,%_nick) || $hget(MuafIP,%_ip) || $hget(Muafident,%_ident) { return }
    ctcp %_nick version
  }
}
on *:ctcpreply:*version*: {
  var %:uid $token($1-,-1,32)
  if $hget(banlist,%:uid) {
    msg #Xline 11-> 0[5YASAKLI GiRiŞ0]2 Giriş yapmaya çalışan kullanıcı4 $nick 2Uygulanan işlem:4 G:LiNED
    echo #Güvenlik $timestamp 11-> 5[VERSION]0 $nick 2yasak id numarasi 0 ( %:uid ) 2ile giriş yapmaya çalıştı.
    Gline $nick 0 2Sunucu kurallarına uymadığınız için girişiniz,4 Yasaklanmıştır.
  }
  else {
    .hadd -m mban $nick %:uid
  }
}
on *:input:#:{
  if $regex($1,/^[.!]mban/Si) {
    if $2 = ekle {
      .hadd -m banlist $hget(mban,$3) $3
      hsave banlist banlist.bf
      msg #Güvenlik 11-> 5[VERSION]0 $hget(mban,$3) 2Yasaklanan Versiona ait Nick0 $3 2Version bilgileri listeye eklendi.
      Gline $3 0 2Sunucu kurallarına uymadığınız için girişiniz,4 Yasaklanmıştır.
    }
    if $2 = list {
      var %w = 1 | while %w <= $hget(banlist,0).item {
        msg # 11-> 5[VERSION]4 ID:0 $hget(banlist,%w).item 4Nick:0 $hget(banlist,%w).data
        inc %w
      }
    }
    if $2 = sil {
      msg # 5[VERSION]0 $3 2id numaralı4 MobilBAN2 listesinden silindi 4Nick:0 $hget(banlist,$3) 
      .hdel banlist $3
      hsave banlist banlist.bf
    }
  }
}
#Version end
Kullanımı : 
!mban ekle nick 
!mban sil nick
!mban list

on *:start: {
  hmake banlist
  $iif($isfile(banlist.bf),hload banlist banlist.bf)
}

on *:input:#:{
  if $regex($1,/^[.!]muafnick/Si) {
    if !$regex($2,/^(ekle|s[ıiİ]l|list)$/Si) { msg # 11[!.&]7muafnick4 <ekle|sil|list>7 olarak belirtiniz. | return }
    elseif $regex($2,/^ekle$/Si) {
      if !$regex($3,/./i) { msg # 4Lütfen Nick belirtiniz.7 ÖRNEK;0[!.]4muafnick0 <ekle> <Nick> | return }
      elseif $hget(MuafNick,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7Nickli kullanıcı Muaf listesinde ekli. | return }
      var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
      .hadd -m MuafNick $strip($3) %n
      .hsave -o MuafNick MuafNick.high
      msg # 11->0 $+(,$strip($3),) 4Nickli kullanıcı muaf listesine eklendi.      
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$regex($3,/./i) { msg # 4Lütfen Nick belirtiniz.7 ÖRNEK;4 [!.]muafnick0 <sil> <Nick> | return }
      elseif !$hget(MuafNick,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7Nickli kulllanıcı muaf listesinde ekli değil. | return }
      .hdel -m MuafNick $strip($3)     
      .hsave -o MuafNick MuafNick.high
      msg # 11->0 $+(,$strip($3),) 7Nickli kullanıcı muaf listesinden silindi.
    }   
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(MuafNick,0).data == 0) { msg # 7Muaf Nick listesinde kayıt bulunmamaktadır. | return }
      msg # 11Muaf Nick Listesi
      msg # 
      var %i = 1 | while (%i <= $hget(MuafNick,0).data) {
        msg # 11->0 $+(%i,-4,$chr(41), ) $hget(MuafNick,%i).item
        inc %i
      }
      msg # 
      msg # 11Muaf Nick listesi sonu
    }
  }
}
on *:start: {
  hmake muafnick
  $iif($isfile(MuafNick.high),hload muafnick MuafNick.high)
}

on *:input:#:{
  if $regex($1,/^[.!]muafident/Si) {
    if !$regex($2,/^(ekle|s[ıiİ]l|list)$/Si) { msg # 7[!.&]muafident4 <ekle|sil|list>7 olarak belirtiniz. | return }
    elseif $regex($2,/^ekle$/Si) {
      if !$regex($3,/./i) { msg # 4Lütfen ident belirtiniz.7 ÖRNEK;4[!.]muafident0 <ekle> <ident> | return }
      elseif $hget(Muafident,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7identi muaf listesinde ekli. | return }
      var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
      .hadd -m Muafident $strip($3) %n
      .hsave -o Muafident Muafident.high
      msg # 11->0 $+(,$strip($3),) 4identi muaf listesine eklendi.      
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$regex($3,/./i) { msg # 4Lütfen ident belirtiniz.7 ÖRNEK;4[!.]muafident0 <sil> <ident> | return }
      elseif !$hget(Muafident,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7identi muaf listesinde ekli değil. | return }
      .hdel -m Muafident $strip($3)     
      .hsave -o Muafident Muafident.high
      msg # 11->0 $+(,$strip($3),) 7identi muaf listesinden silindi.
    }   
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(Muafident,0).data == 0) { msg # 7Muaf ident listesinde kayıt bulunmamaktadır. | return }
      msg # 11Muaf ident Listesi
      msg # 
      var %i = 1 | while (%i <= $hget(Muafident,0).data) {
        msg # 11->0 $+(%i,-4,$chr(41),) $hget(Muafident,%i).item
        inc %i
      }
      msg # 
      msg # 11Muaf Ident listesinin sonu
    }
  }
}
on *:start: {
  hmake muafident
  $iif($isfile(Muafident.high),hload muafident Muafident.high)
}

on *:input:#:{
  if $regex($1,/^[.!]muafip/Si) {
    if !$regex($2,/^(ekle|s[ıiİ]l|list)$/Si) { msg # 11[!.&]7muafip4 <ekle|sil|list>7 olarak belirtiniz. | return }
    elseif $regex($2,/^ekle$/Si) {
      if !$regex($3,/\d+\.\d+\.\d+\.\d+/i) { msg # 4Lütfen IP belirtiniz.7 ÖRNEK;0[!.]4muafip0 <ekle> <IP> | return }
      elseif $hget(MuafIP,$strip($3)) { msg # 11->0 $+(,$strip($3),) 4IP adresi7 muaf4 IP7 listesinde ekli. | return }
      var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
      .hadd -m MuafIP $strip($3) %n
      .hsave -o MuafIP MuafIP.high
      msg # 11->0 $+( ,$strip($3),) 4Muaf ip listesine eklendi.      
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$regex($3,/\d+\.\d+\.\d+\.\d+/i) { msg # 4Lütfen IP belirtiniz.7 ÖRNEK;4[!.]muafip0 <sil> <IP> | return }
      elseif !$hget(MuafIP,$strip($3)) { msg # 11->0 $+(,$strip($3),) 4IP adresi 7muaf IP4 listesinde ekli değil. | return }
      .hdel -m MuafIP $strip($3)     
      .hsave -o MuafIP MuafIP.high
      msg # 11->0 $+(,$strip($3),) 4IP adresi 7muaf IP4 listesinden silindi.
    }   
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(MuafIP,0).data == 0) { msg # 7Muaf IP listesinde4 kayıt bulunmamaktadır. | return }
      msg # 11Muaf IP Listesi
      msg # 
      var %i = 1 | while (%i <= $hget(MuafIP,0).data) {
        msg # 11->0 $+(%i,-4,$chr(41),) $hget(MuafIP,%i).item
        inc %i
      }
      msg # 
      msg # 11Muaf IP listesi sonu
    }
  }
}
-
on *:start: {
  hmake muafip
  $iif($isfile(MuafIP.high),hload muafip MuafIP.high)
}