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

Bunu rawla yapabilirsin aşşadağıdaki kod tam istediğin gibi kisiye whois cektiğinde kanaldaki clonlarını, ayrıca önceki nickini gösterir
Kod:
#whois on

raw 311:*: {

  echo -a %whoischange 4************************* |12  Whois Bilgileri  4| ************************* 

  echo -a %whoischange 14©| 2Saat/Tarih :  $time $date 

  echo -a %whoischange 14©| 2Rumuz : 5 $2 

  echo -a %whoischange 14©| 2İsim : 5 $6-

  echo -a %whoischange 14©| 2İp Adresi : 5 $3 $+ 12@  $+ $4 

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

  var %clone = $kanalclone($2)

  if (%clone == $null) echo -a 4»2 Kanaldaki Klonları: (14 Clone yok! 4)

  else echo -a 4» Klonları: 4(14 $+ $numtok(%clone,44) $+ 14) 1kişi:12 %clone

  var %NickPrecedent = $iif($NicksTrouve($2,$4), %logo  14»14»1» Önceki Nicki :4 $ifmatch ) 

  if ( %NickPrecedent ) { echo -a $ifmatch }

  halt

}

alias kanalclone {

  if ($ial($address($1,2),0) == 1) return

  var %nickler = 0 | var %clone = $1

  while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }

  return %clone

}

raw 307:*: {

  echo -a %whoischange 14©| 2Nick Bilgisi :4  $2 5 Kayıtlı ve Identify Edilmiş. 

  halt 

}

raw 378:* {

  echo -a %whoischange 14©| 2Gercek İp : 5 $6

  halt

}

raw 319:*: {

  echo -a %whoischange 14©| 2Girdiği Kanallar : 5 $3- 

  halt

}

raw 325:* {

  echo -a %whoischange 14©| 2Özellikleri :12  $2 6 Hassas Kulaklara Sahip.

  halt

}

raw 309:* {

  echo -a %whoischange 14©| 2Tercih Ettiği Dil :12  $7- 6 Olarak Belirlenmiş.

  halt

}

raw 493:* {

  echo -a %whoischange 14©| 2Ekstra Bilgi :12  $2 6 Nickinin Özeli Kapalı! 2(4umode +m2)

  halt

}

raw 310:* {

  echo -a %whoischange 14©| 2Özellikleri :5  Helper.

  halt

}

raw 301:* {

  echo -a %whoischange 14©| 2Meşgul Mesajı :5 $3-

  halt

}

raw 317:* {

  echo  -a %whoischange 14©| 2Süre Bilgi :5 $duration($3-) saniyedir konuşmuyor

  echo  -a %whoischange 14©| 2Bağlandığı Zaman :5 $asctime($4)

  halt

}

raw 313:*:{

  if (network isin $1-) && (admin isin $1-) { echo -a 14©| 4Görevi :  12Network Administrator ! | halt }

  if (server isin $1-) && (admin isin $1-) { echo -a 14©| 2Görevi :  12Server Administrator ! | halt }

  if (services isin $1-) && (admin isin $1-) { echo -a 14©| 2Görevi :  12Services Administrator ! | halt }

  if (co isin $1-) && (admin isin $1-) { echo -a 14©| 4Görevi :  12Co Administrator ! | halt }

  echo -a %whoischange 14©| 2Görevi :12 IRCop !

  halt

}

raw 313:*Server*Admin* {

  echo -a %whoischange 14©| 2Oper Bilgi: 12Görevi :  Server Root Administrator! 

  halt

}

raw 324:*: {

  echo $2 %sa 4Kanal Modları:2 $3

  halt

}

raw 318:*: { 

  echo -a %whoischange 4************************** |12  Whois Sonu  4| **************************

  .disable #NewWhois

  halt 

}

#whois End

;whowas

#whowas on

raw 314:* {

  echo -a 0

  echo -a 4***************** 2Whowas Bilgileri 4*********************

  echo -a 4©| 2Nick: 2 $2

  echo -a 4©| 2Isim: 2 $6-

  echo -a 4©| 2Adress: 2 $3 $+ @ $+ $4

  var %NickPrecedent = $iif($NicksTrouve($2,$4), %logo  15»14»1» Önceki Nicki :4 $ifmatch ) 

  if ( %NickPrecedent ) { echo -a $ifmatch }

  halt

}