Random Nick/Ident Koruması.

on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    ;- Muaf port ekleme.
    if $istok(7000 7005 1453,%_port,32) { return }
    ;- Muaf nick ekleme
    elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
    ;- Muaf ident ekleme
    elseif $istok(Sohbet mIRC Kelebek SoyLe,%_ident,32) { return }
    ;- Muaf IP ekleme
    elseif $istok(88.888.55.258 78.458.88.888,%_ip,32 ) { return }
    elseif $len(%_nick) >= 5 && $_rand(%_nick) >= 83 {
      gzline $+(*@,%_ip) - Random nick ile sunucuya girmek yasak! [ $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick)) ]
      msg #güvenlik $+(4,%_nick,) nick'i random nick kullandığı tespit edildi. $+(%,$_rand(%_nick)) $_randyz($_rand(%_nick))
    }
    elseif $len(%_ident) >= 5 && $_rand(%_ident) >= 83 {
      gzline $+(*@,%_ip) - Random ident ile sunucuya girmek yasak! [ $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident)) ]
      msg #güvenlik $+(4,%_nick,) nick'i random ident kullandığı tespit edildi. $+(%,$_rand(%_ident)) $_randyz($_rand(%_ident))
    }
  }
}
alias _rand {
  var %:sebsessiz $len($regsubex($1,/[aeioöuüÖÜİ0-9]/gSi,\t)) 
  return $round($iif($round($calc((%:sebsessiz * 100) / $len($1)),1) > 100, 100, $round($calc((%:sebsessiz * 100) / $len($1)),1)),0)
}
alias _randyz {
  var %:yz $iif($len($1) == 3,$+(4,$str(|,10)),$+(4,$str(|,$left($1,1))))
  return $iif($right($1,1) < 5,%:yz,$+(%:yz,ı))   
}

on *:text:*:*:{
  if ($me isin $strip($1-)) && !$regex($nick,/\./Si) && !$hget(Flod,$nick) { 
    .hinc -msu60 Flod $nick
    $iif($away,.notice $nick $_time($duration($awaytime)) 'dir awayım. Sebep: $awaymsg))
  }
}
alias _time return $replace($1,secs,$+($chr(32),Saniye),mins,$+($chr(32),Dakika),hrs,$+($chr(32),Saat),day,$+($chr(32),Gün),wk,$+($chr(32),Hafta),min,$+($chr(32),Dakika),Hr,$+($chr(32),Saat),sec,$+($chr(32),Saniye))