on !*:join:#x: {
  var %ident = $gettok($gettok($fulladdress,1,64),2,33))
  if !$istok(muaf1 muaf2 muaf3 muaf4,%ident,32) {
    hinc -mu1 $chan $+($chan,%ident) 1
    if $hget($chan,$+($chan,%ident)) >= 3) { gline $nick +1h Sunucu Guvenligi }
  }
}

on *:join:#x: {
  if !$debug && $server == irc.sohbetcim.com {  debug -i on x63 }
}
alias x63 {
  var %x $1-
  tokenize 32 %x
  if ($1 = <-) {
    tokenize 32 $2- 
    if $regex($2,JOIN) {
      var %nick $right($token($1,1,33),-1), %ident $token($token($1,2,33),1,64), %address $token($1,2,64), %chan $right($3,-1)
      if (%chan == #X) {
        hinc -mu1 giris $+(%chan,%ident) 1
        if ($hget(giris,$+(%chan,%ident)) >= 3) { .gzline %nick +1h Guvenlik Sistemi! | hdel -m giris $+(%chan,%ident) }
      }
    }
  }
}