on *:JOIN:#Şeyda:{
  if *Client*connecting*on* iswm $1- {
    var %:ip $remove($gettok($10,2,64),$chr(41)) 
    if ($regex($9,/(asd|Nick2)/i)) { halt }
    if ($regex(%:ip,/(Ip1|Ip2)/i)) { halt }
    set -u15 %xxx. [ $+ [ %:ip ] ]
    inc %xxx. [ $+ [ %:ip ] ]
    if %xxx. [ $+ [ %:ip ] ] >= 4 {
      .sapart $+(*@,%:ip) 30d :..Bu Kanal'a Giriş Yasaktr
      unset %xxx. [ $+ [ %:ip ] ]
    }
  }
}

on *:Join:#Şeyda: { userip $nick }
raw 340:*: { 
  var %xnick $remove($gettok($2,1,61),*)
  var %xip $gettok($2,2,64)
  if !$istok(Nick1 Nick2,%xnick,32) {
    if !$istok(ip1 ip2,%xip,32) {
      sapart %xnick #Şeyda
    }
  }
}