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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - cLone tespit addonu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/311206-clone-tespit-addonu.html)

LanetLy

14 Ocak 2010 22:21

cLone tespit addonu

Kod:

on *:join:*: {

  %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  }

  /echo $chan 0,7 0,14 0,4 • cLone • 0,14 0,7  4: $remove(%clone.nicks,-->) 2 %clones Tane }

  if (%change == $null) {

    haltdef

    halt  

  }

}

Veya Bu kodLa özeLinize geLenLeri tespit edebiLirSiniz

Kod:

on 1:open:?: {

  if $address($nick,2) != $null qc $nick

  .whois $nick

  else {

    set %ial query

  }

}

alias qc {

  if ($1 == $null) { goto sons }

  unset %qc*

  if $ial( $address($1,2) , 0 ) < 2 halt

  :başla

  inc %qc

  if $ial( $address($1,2) , %qc ).nick == $1 goto başla

  if $ial( $address($1,2) , %qc ).nick == $null goto son

  set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick

  goto başla

  :son

  if %qc [ $+ [ $1 ] ] == $null halt

  echo $1 %sa  2Özelinizdeki 4 $1  %qc [ $+ [ $1 ] ] 2aynı cafe'den yada aynı kişiler. 4( $+ $address($1,2) $+ )

  echo $1 

  unset %qc*

  :sons

}

Slipknot

19 Ocak 2010 13:16

Cevap: cLone tespit addonu

Forumda olmayan add-on'ları paylaşırsanız hem değişiklik hem de FORUM'a ayrı bir güzellik katmış olursunuz.Diğer konularınızda da aynı şekilde.Gereksiz KOD paylaşımına bence gerek yok.

Iyi Forumlar.

ATLAS

19 Ocak 2010 13:20

Cevap: cLone tespit addonu

Alıntı:

LanetLy Nickli Üyeden Alıntı (Mesaj 1040295942)

Kod:

on *:join:*: {

  %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  }

  /echo $chan 0,7 0,14 0,4 • cLone • 0,14 0,7  4: $remove(%clone.nicks,-->) 2 %clones Tane }

  if (%change == $null) {

    haltdef

    halt  

  }

}

Veya Bu kodLa özeLinize geLenLeri tespit edebiLirSiniz

Kod:

on 1:open:?: {

  if $address($nick,2) != $null qc $nick

  .whois $nick

  else {

    set %ial query

  }

}

alias qc {

  if ($1 == $null) { goto sons }

  unset %qc*

  if $ial( $address($1,2) , 0 ) < 2 halt

  :başla

  inc %qc

  if $ial( $address($1,2) , %qc ).nick == $1 goto başla

  if $ial( $address($1,2) , %qc ).nick == $null goto son

  set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick

  goto başla

  :son

  if %qc [ $+ [ $1 ] ] == $null halt

  echo $1 %sa  2Özelinizdeki 4 $1  %qc [ $+ [ $1 ] ] 2aynı cafe'den yada aynı kişiler. 4( $+ $address($1,2) $+ )

  echo $1 

  unset %qc*

  :sons

}

üstteki sanki L4 e ait bir kod gibime geldi ; ) yanılıyormuyum ?

LanetLy

21 Ocak 2010 02:59

Cevap: cLone tespit addonu

Ben kendi mircimde kuLLandığım kod bunLar ordan aLıpta koydum yarar oLur diye yoksa baska niyetım yok emeĞe saygıSızLık varsa affoLa

arananadam1

12 Mart 2012 00:56

Cevap: cLone tespit addonu

ya arkadaslar benim mirc boyle bir hata veriyor
--- WHILE Tanımsız Komut !
sadece clonelardan birisini gosteriyor

WaLek

12 Mart 2012 11:05

Cevap: cLone tespit addonu

SeLam sunu denermisin ..

on *:join:*: {
%clones = $ialchan($wildsite[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]#[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks –>
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]%count).nick
inc %count }
/echo $chan 0[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]60Clone :0[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]02 – $remove(%clone.nicks[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]–>) – 0[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]6 01 ( %clones ) }
set %change $read -s $+ $address($nick[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]4) notes.ini
if (%change == $null) {
haltdef
write sistemnotes.ini $address($nick[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]4) $nick
halt
}
}

ALİNTİDİR KOD ..

arananadam1

12 Mart 2012 14:27

Cevap: cLone tespit addonu

selam sagol kardesim ilgilendigin icin ama kod * Too few parameters: $ialchan (line 194, klvyglbl.ini) diye bir hata verdi sorunu bulamadim:(

arananadam1

13 Mart 2012 23:35

Cevap: cLone tespit addonu

* Too few parameters: $ialchan (line 194, klvyglbl.ini) diye bir hata verdi sorunu bulamadim:(

Narsinha

13 Mart 2012 23:54

Cevap: cLone tespit addonu

Kod:

on *:join:*: {

%clones = $ialchan($wildsite[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]#[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]0)

if ( %clones > 1 ) {

var %count = 1

set %clone.nicks –>

while (%count <= %clones) {

%clone.nicks = %clone.nicks $ial($wildsite[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]%count).nick

inc %count }

/echo $chan 0[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]60Clone :0[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]02 – $remove(%clone.nicks[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]–>) – 0[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]6 01 ( %clones ) }

set %change $read -s $+ $address($nick[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]4) notes.ini

if (%change == $null) {

haltdef

write sistemnotes.ini $address($nick[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]4) $nick

halt

}

}

Walek'in verdiği kodda virgül karekteri gif resim bu yuzden alıp mirce pasteleyince çıkmıyor o kısımlar hata veriyor.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

linkine bak birde

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