IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Merhabalar aşağıda üç adet kısa kodum var baya bi denedim fakat pek başarılı olamadım, bir bakma şansınız varsa sevinirim, teşekkürler.

Kod:

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

Kod:

########################## 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

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:38 -->-> Daha önceki mesaj 23:08 --

Çok teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Problemi çözdü -))