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)
}