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/)

- - Çözüldü mIRC Clone Uyarıcı Remotesi (https://www.ircforumlari.net/mirc-scripting-sorunlari/997509-mirc-clone-uyarici-remotesi.html)

Giant

24 Aralık 2022 17:04

mIRC Clone Uyarıcı Remotesi

Arkadaşlar merhaba mirc'de clone uyarıcıyı bozdum bana bir clone uyarıcı lazm şu şekil sevdiğim uyarıdır. Kullandığınız remoteyi de paylaşırsanız seviniirm.

[15:40] *** Giriş: Melih06_ (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[15:40] *** Giriş: Pırıltı_ (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[15:40] *** Giriş: Selına (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.5E546133.IP)
[15:40] *** Giriş: MelihXXX (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[15:40](2Clone)Melih06_ & Melih06_
[15:40] *** Giriş: deli_manyak (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[15:40] *** Giriş: Selına (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.5E546133.IP)
[15:40] *** Giriş: Melih111 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[15:40](3Clone)Melih06_ & MelihXXX & Melih111
[15:40] *** Giriş: Mine-- (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[15:40] *** Giriş: deli_manyak (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

Bozkurt-

24 Aralık 2022 18:40

Cevap: mIRC Clone Uyarıcı Remotesi

Alıntı:

Giant Nickli Üyeden Alıntı (Mesaj 1042760290)

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 2*** 0,4 Clone Tespit Edildi:0,3 $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }

  set %change $read -s $+ $address($nick,4) notes.ini

  if (%change == $null) {

    haltdef

    write notes.ini $address($nick,4) $nick

    halt

  }

}

Giant

24 Aralık 2022 19:15

Cevap: mIRC Clone Uyarıcı Remotesi

Alıntı:

MasteR06 Nickli Üyeden Alıntı (Mesaj 1042760313)

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 2*** 0,4 Clone Tespit Edildi:0,3 $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }

  set %change $read -s $+ $address($nick,4) notes.ini

  if (%change == $null) {

    haltdef

    write notes.ini $address($nick,4) $nick

    halt

  }

}

2*** 0,4 Clone Tespit Edildi:0,3 M_engineer M_engineer_ 0,10 2 0,5 Tane 0,7!!

Bu clonelerin yanına bir de ip adresini ekleyebilir misin (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) gibi.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:15 -->-> Daha önceki mesaj 19:10 --

2 adet clone uyarıcı bende buldum
1.si ;

Kod:

on *:join:#: {

if ($regex($wildsite,/(sohbet.net)/i)) { halt }

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

if (%clones > 3) { }

.echo $chan  5Ayni IP adresten giren nickler:  7( $remove(%clone.nicks, 5) 5 )   5 ( %clones   5Kisi ) }

}

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

2. buldum clone remotesi

Kod:



on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }

on *:join:#: { 

  if !$ial { ial on }

  if $nick == $me { return }

  hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)

  hsave eskinicks eskinicks.63

  if $numtok($hget(eskinicks,$wildsite),32) >= 2 {

    echo #  $wildsite  hostundan girmis eski nickler: $hget(eskinicks,$wildsite)

  }

  if $ialchan($wildsite,#,0) >= 2 { 

    var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }

    echo #   $wildsite  bagli kanaldaki cloneler: %nicks

  }

}

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

Birilerine lazım olabilir.

Bozkurt-

24 Aralık 2022 20:38

Cevap: mIRC Clone Uyarıcı Remotesi

Alıntı:

Giant Nickli Üyeden Alıntı (Mesaj 1042760322)

Kod:

on *:join:#: {

if ($regex($wildsite,/(sohbet.net)/i)) { halt }

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

if (%clones > 3) { }

.echo $chan  5Ayni IP adresten giren nickler:  7( $remove(%clone.nicks, 5) 5 )   5 ( %clones   5Kisi ) }

}

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

2. buldum clone remotesi

Kod:



on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }

on *:join:#: { 

  if !$ial { ial on }

  if $nick == $me { return }

  hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)

  hsave eskinicks eskinicks.63

  if $numtok($hget(eskinicks,$wildsite),32) >= 2 {

    echo #  $wildsite  hostundan girmis eski nickler: $hget(eskinicks,$wildsite)

  }

  if $ialchan($wildsite,#,0) >= 2 { 

    var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }

    echo #   $wildsite  bagli kanaldaki cloneler: %nicks

  }

}

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

Birilerine lazım olabilir.

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 2*** 0,4 Clone Tespit Edildi:0,3 $address($nick,2) $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }

  set %change $read -s $+ $address($nick,4) notes.ini

  if (%change == $null) {

    haltdef

    write notes.ini $address($nick,4) $nick

    halt

  }

}

Hostları görürsün

Ya da biraz daha fantazi olsun kodu uzatalım gerek yok ama

Kod:

raw 352:*:{

  set %:ident $3 

  set %:host $4

}

on *:join:*: {

  who +I $nick

  %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 2*** 0,4 Clone Tespit Edildi:0,3 $+(%:ident,@,%:host) $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }

  set %change $read -s $+ $address($nick,4) notes.ini

  if (%change == $null) {

    haltdef

    write notes.ini $address($nick,4) $nick

    halt

  }

}

Giant

25 Aralık 2022 07:18

Cevap: mIRC Clone Uyarıcı Remotesi

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğin için çok teşekkür ederim.

Şu remote benim denemelerle yapmış olduğum kod;

Kod:

on *:join:#: {

  if ($regex($wildsite,/(Sunucu.com)/i)) { halt }

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

    if (%clones > 3) { }

    .echo  $chan 0,13 $time ( %clones Clone )  $remove(%clone.nicks,) $wildsite 

  }

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

1.Resimde pembe olan clone takip önceki eklediğim kod.

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

2. Resim de ise senin vermiş olduğun kod.

Emeğine sağlık.

Giant

25 Aralık 2022 10:28

Cevap: mIRC Clone Uyarıcı Remotesi

Özelinde bulunduğum nickê whois çekinde sunucuda bulunan diğer clone nicklerini nasıl görebilirim?

Kod:



raw 311:*: {

  echo -a  3 ***** Whois Bilgisi *****

  echo -a  

  echo -a     ¤   Nick :   $2

  echo -a     ¤   Adres :  $3 $+ @ $+ $4 

  echo -a     ¤  Full Name :   $6-

  if ( %mynick == $2 ) { set %myaddress *!*@ $+ $4 | halt }

  halt

}

raw 319:*: {

  echo -a 6 ¤   4Kanallar : 2 $3- 

  halt

}

raw 312:*: {

  echo -a 6 ¤  4Server :  2  $3 7-> $4 $5-  

  halt

}

raw 318:*: {

  echo -a 

  echo -a 3 ***** Whois Bilgisi Sonu *****

  halt

}

raw 317:*: {

  set -a %onlineT $calc($ctime - $4) 

  echo -a 6 ¤  4Konuşmadığı Süre  : 2 $replace($duration($3),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta,min,Dakika,Hr,Saat,sec,Saniye)

  echo -a 6 ¤  4Tarih : 2 $date %gun

  echo -a 6 ¤4 Saat       : 2 $time

  halt

}

raw 301:*:{

  echo -a 6 ¤  4Away Mesajı : 2 $3- 

  halt

}

raw 308:* {

  echo -a 6 ¤  4Bilgi : 2 $2 Server Botudur

  halt

}

raw 313:*Services* {

  echo -a 6 ¤  4Admin : 6 IRC Operator - Services Administrator

  halt

}

raw 313:*Server* {

  echo -a 6 ¤  4Admin : 6 IRC Operator - Server Administrator

  halt

}

raw 313:*Help* {

  echo -a 6 ¤  4Helper : 6 IRC Help Operator

  halt

}

raw 313:*Network* {

  echo -a 6 ¤  4Admin : 6 Network Administrator

  halt

}

raw 313:*CoAdmin* {

  echo -a 6 ¤  4Admin : 6Co Administrator

  halt

}

raw 313:*Oper.* {

  echo -a 6 ¤  4IRCop : 6 IRC Operator

  halt

}

raw 313:*irc*op* {

  echo -a 6 ¤  4IRCop : 6 IRC Operator

  halt

}

raw 310:*: {

  echo -a 6 ¤  4Özellikler : 2 YardımSever Biri

  halt

}
 

raw 325:* {

  echo -a 6 ¤  4Özellikler : 2 Hassas Kulaklara Sahip

  halt

}

Giant

25 Aralık 2022 13:06

Cevap: mIRC Clone Uyarıcı Remotesi

* Aradaki mesajı moderatörler silebilir!
Özelinde bulunduğum nickê whois çekinde sunucuda bulunan diğer clone nicklerini nasıl görebilirim?
özelde clone uyarısı | Cafe and Ortak KanaL Uyarı

Özelinde bulunduğum nickê whois çekinde sunucuda bulunan diğer clone nicklerini nasıl görebilirim?

1. bulduğum remote;

Kod:

#cafeuyar on 

open:?: { 

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 

: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 11,1 - 15,1 Özelinizdeki  11- 0 - $$1 - %qc [ $+ [ $1 ] ] 11,1 -  11,1 - 15,1 aynı cafe’den  yada aynı kişiler 11- 0( $+ $address($1,2) $+ )11,1 -  

echo $1  

unset %qc* 

} 

#cafeuyar end

2. bulduğum remote;

Kod:

menu status,menubar, {

 .-

 .• © Cafe and Ortak KanaL Uyarı !

 ..• Açık !:.enable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı Açıldı.. %logo 

 ..• Kapalı !:.disable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı KapatıLdı.. %logo 

 .-

 }

 #cafeuyar on

 on 1:open:?: { 

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

 else {

 set %ial query

 .who $nick 

 }

 .echo  $query($nick) 12***4 $nick ile Ortak Kanallar :12 $comchan($nick,1)  $comchan($nick,2) $comchan($nick,3) $comchan($nick,4) $comchan($nick,5)  $comchan($nick,6) $comchan($nick,7) $comchan($nick,8) $comchan($nick,9)  $comchan($nick,10)

 }

 alias qc {

 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 12*** 4Özelinizdeki 12 $1 %qc [ $+ [ $1 ] ] 4aynı cafe’den yada aynı kişiler. 2( $+ $address($1,2) $+ ) 

 unset %qc*

 }

 #cafeuyar end

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