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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Clone tespit. (https://www.ircforumlari.net/mirc-scripting-sorunlari/343851-clone-tespit.html)

Skys 11 Temmuz 2010 15:45

Clone tespit.
 
PHP- Kodu:

on *:join:#: {
  
%clones $ialchan($wildsite,#,0)
  
if ( %clones ) {
    var %
count 1
    set 
%clone.nicks -->
    while (%
count <= %clones) {
      %clone.
nicks = %clone.nicks $ial($wildsite,%count).nick
    inc 
%count }
  .
msg %operkanali Clone Tespit Edildi: %clones Tane $remove(%clone.nicks,-->) ) ( $address($nick,211) }
  
set %change read -$+ $address($nick,4notes.ini
  
if (%change == $null) {
    
haltdef
    write notes
.ini $address($nick,4$nick
    halt 
  
}


Güzel Isleyen bir Cod Halt

Admin/Oper muaf tutabilirmiyiz.

Entrance 11 Temmuz 2010 16:05

Cevap: Clone tespit.
 
Alıntı:

Skys Nickli Üyeden Alıntı (Mesaj 1040460233)
PHP- Kodu:

on *:join:#: {
  
%clones $ialchan($wildsite,#,0)
  
if ( %clones ) {
    var %
count 1
    set 
%clone.nicks -->
    while (%
count <= %clones) {
      %clone.
nicks = %clone.nicks $ial($wildsite,%count).nick
    inc 
%count }
  .
msg %operkanali Clone Tespit Edildi: %clones Tane $remove(%clone.nicks,-->) ) ( $address($nick,211) }
  
set %change read -$+ $address($nick,4notes.ini
  
if (%change == $null) {
    
haltdef
    write notes
.ini $address($nick,4$nick
    halt 
  
}


Güzel Isleyen bir Cod Halt

Admin/Oper muaf tutabilirmiyiz.

Kod:

on *:join:#: {
  if ($regex($address($nick,2),/(Admin|Oper|Ircop)/i)) { halt }
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 2 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones) {
      %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
    inc %count }
  .msg %operkanali Clone Tespit Edildi: %clones Tane ( $remove(%clone.nicks,-->) ) ( $address($nick,2) 11) }
  set %change $ read -s $+ $address($nick,4) notes.ini
  if (%change == $null) {
    haltdef
    write notes.ini $address($nick,4) $nick
    halt
  }
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:53.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk