Kod

on *:snotice:*: { $iif(*Client connecting* iswm $1-,.timer 1 15 ctcp $9 version) }
on *:ctcpreply:*version*: {
  if $regex($2-,qwebirc v0.93) { 
    var %:uid $token($1-,-1,32)
    if $hget(webban,%:uid) || $hget(mobilban,%:uid) { 
      msg #X 0,4 UYARI 4 : $nick 1Yasaklı giriş yaptığı tespit edildi. - 4Tür: 1Mobil Ban 4Yasak Sıra No:1 %:uid $+ 
      zline $nick 0 0,12 * 1 Girişiniz 12Yöneticiler1 tarafından yasaklanmıştır1. 
      return
    }
    echo -s $15
    if *Windows* iswm $15 { msg #X 1[12Web Giriş1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $18,$21,$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18))) 1İşletim Sistemi:12 Windows $iif(10 isin $remove($token($11,1,46),;),$remove($token($11,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid }
    elseif *Linux* iswm $15 || *iphone* iswm $15 { 
      msg #X 1[10Mobil Giriş1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($17,-1) = X,$18,$iif(*KHTML* iswm $17,$20,$iif(like = $17,Opera/11.748.47,$iif(*Gecko* iswm $17,Mozilla/8.4781.254,$17)))) 1İşletim Sistemi:10 $iif(CPU* iswm $10,İOS $token($13,1,$asc(_)),$10 $left($11,-1)) 1Cihaz:10 $iif(O = $left($12,-1),iPhone,$left($12,-1)) 1UID:10 %:uid 
    } 
    msg #X 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $9,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır.
    .hadd -m banned %:uid $nick
    msg #X 
  }
  if $regex($2-,SekerShell Mobile IRC) { 
    var %:uid $token($1-,-1,32)
    if $hget(webban,%:uid) || $hget(mobilban,%:uid) { 
      msg #X 0,4 Sabıkalı Giriş  1:4 $nick 1yasaklı giriş tespit edildi. (4Yasak Sıra No: %:uid $+ 1)
      zline $nick 0 0,4 *  1Girişiniz 4Yöneticiler1 Tarafından Yasaklanmıştır. 
      return
    }
    if *Windows* iswm $10 { msg #X 1[12Web Girişi1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $19,$22,$iif(like = $19,Opera/11.748.47,$iif(*Gecko* iswm $19,Mozilla/8.4781.254,$19))) 1İşletim Sistemi:12 Windows $iif(*10* iswm $remove($token($12,1,46),;),$remove($token($12,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid }
    elseif *Linux* iswm $10 || *iphone* iswm $10 { 
      msg #X 1[10Mobil Giris1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($18,-1) = X,$19,$iif(*KHTML* iswm $18,$21$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18)))) 1İşletim Sistemi:10 $iif(CPU* iswm $11,İOS $token($14,1,$asc(_)),$11 $left($12,-1)) 1Cihaz:10 $iif(O = $left($13,-1),iPhone,$left($13,-1)) 1UID:10 %:uid 
    } 
    msg #X 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $10,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır.
    .hadd -m banned %:uid $nick
    msg #X   
  }
  haltdef
}
on *:text:*:*: {
  if $regex($1,/^([!.]mob[iİı]lban)/Si) {
    mkdir Hash
    if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #X Hatalı Komut Kullandınız12 ( $1 on|off ) | return }
    if $2 == ekle && $3 {
      if $hget(mobilban,$3) { msg #X $3 Zaten Mobil Ban Konumunda. | return }
      .hadd -m mobilban $3 ok | .hsave mobilban Hash/mobilban.ymc
      msg #X $3 Mobil Ban Lisesine Eklendi.
      zline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafindan Yasaklanmıştır.
    }
    elseif $regex($2,/^(s[iYy]l)/Si) && $3 {
      if !$hget(mobilban,$3) { msg #X $3 Zaten Mobil Ban Konumunda Değil. | return }
      .hdel mobilban $3 | .hsave mobilban Hash/mobilban.ymc
      msg #X $3 Mobil Ban Lisesinden Silindi.
    }
    elseif $regex($2,/^(l[iYy]st)/Si) {
      msg #X 1[12 $_network $_host - Mobil Ban Listesi1 ]
      msg #X 
      var %i = 1 | while %i <= $hget(mobilban,0).item {
        msg #X -12 $hget(mobilban,%i).item 
        inc %i
      }
    }
  }
  if $regex($1,/^([!.]webban)/Si) {
    mkdir Hash
    if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #X Hatalı Komut Kullandınız12 ( $1 on|off ) | return }
    if $2 == ekle && $3 {
      if $hget(webban,$3) { msg #X $3 Zaten Web Ban Konumunda. | return }
      .hadd -m webban $3 ok | .hsave webban Hash/webban.ymc
      msg #X $3 Web Ban Lisesine Eklendi.
      zline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafından Yasaklanmıştır. 
    }
    elseif $regex($2,/^(s[iYy]l)/Si) && $3 {
      if !$hget(webban,$3) { msg #X $3 Zaten Web Ban Konumunda Değil. | return }
      .hdel webban $3 | .hsave webban Hash/webban.ymc
      msg #X $3 Web Ban Lisesinden Silindi.
    }
    elseif $regex($2,/^(l[iYy]st)/Si) {
      msg #X 1[12 $_network $_host - Web Ban Listesi1 ]
      msg #X 
      var %i = 1 | while %i <= $hget(webban,0).item {
        msg #X -12 $hget(webban,%i).item 
        inc %i
      }
    }
  }
}