if ($regex($address($nick,2),/(%destekuyariverme)/i)) { return }

kısmı çalışmıyor

değişkende olanlar aşağıda

%destekuyariverme admin|oper|ircoperator|helper|Staff|DJ

########################## NİCK DEĞİŞİM TAKİP ########################################

;Sadece %globalkanal değişkenindeki kanalda yapar.

#nickTakip on

on !*:join:%globalkanal:{
  if ($regex($address($nick,2),/(%destekuyariverme)/i)) { return }
  set %nick $nick
  set %mask $address($nick,2)
  set %nick2 $readini profil.ini %mask nick
  set %mask2 $readini profil.ini %mask mask
  if %mask == %mask2 && %nick != %nick2 {
    set %quand $readini profil.ini %mask quand | beep
    $iif(!$window(@Takip),window -z @Takip)
    echo 14 -tem @Takip Nick Takibi: $+($chr(40),#,$chr(41)) 4 $nick 14 nickinin,bundan önce aynı IP'den giriş yaptığı nickler: 4 %nick2 - 14Host: 4 $address($nick,2))
  }
  if !$ini(profil.ini,mask) { hashtable }
}
alias hashtable { 
  if !$hget(profil) { .hmake profil 5 } 
  else { .hadd profil nick %nick | .hadd profil mask %mask | .hadd profil quand $+($time,-,$date) | .hsave -sai profil profil.ini $hget(profil,mask) | .hfree -s profil }
}

#nickTakip end

######################################## CLONE UYARI ##########################################

#cloneuyar on

on *:join:*: {
  if ($regex($address($nick,2),/(%destekuyariverme)/i)) { return }
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 1 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones)  {
      %clone.nicks = %clone.nicks  $ial($wildsite,%count).nick
    inc %count  }
  $iif(!$window(@Takip),window -en @Takip)
  echo 14 -tem @Takip Clone Tespit Edildi! 4 $chan 14: $remove(%clone.nicks,-->) 4 %clones 14Tane! }
  set %change $read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt  
  }
}

#cloneuyar end


############################### AYNI CAFEDEN UYARI ######################################

#cuyar on
on 1:open:?: {
  if ($regex($address($nick,2),/(%destekuyariverme)/i)) { return }
  if $address($nick,2) != $null qc $nick
  else {
    set %ial query
    .who $nick
  }
}
alias qc {
  unset %qc*
  if $ial( $address($1,2) , 0 ) < 2 halt
  :basla
  inc %qc
  if $ial( $address($1,2) , %qc ).nick == $1 goto basla
  if $ial( $address($1,2) , %qc ).nick == $null goto son
  set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
  goto basla
  :son
  if %qc [ $+ [ $1 ] ] == $null halt
  echo $1 15,1 UYARI! 14,1Özelinizdeki 4[15,1  $1  %qc [ $+ [ $1 ] ]   4] 14 kişiler aynı 4[15,1  ( $+ $address($1,2) $+ )   4] 14 adres satırına sahipler. 
  unset %qc*
}

#cuyar end