Whois ßilgileri
 

Mesala ßir Kişi Gelişim Kanalında op ben ona Whois Çekince Gelişim Kanalında oparatör die uyarı verecek. ama op deilse birşey demicek yapaßilir miyiz ßöyle ßirşey? Şimdiden Teşekkür Ediyorum..

raw 319:*:{ if @ !isin $3- { echo -a $2 $3- kanallarinda. | halt } | var %knl = $numtok($3-,32) | if %knl = 1 { echo -a $iif(@ isin %knl,echo -a $2 $3 kanalinda op.,echo -a $2 $3 kanalinda.) | halt } | var %res | while %knl { var %k = $gettok($3-,%knl,32) | if @ isin %k { $iif(%res,%res = $addtok(%res,$remove(%k,@),32),%res = $remove(%k,@)) } | dec %knl } | if $numtok(%res,32) = 1 { echo -a $2 nicki %res kanalinda op. | halt } | if $numtok(%res,32) = 2 { echo -a $2 nicki $replace(%res,$chr(32),$+($chr(32),ve,$chr(32)) kanallarinda op. | halt } | if $numtok(%res,32) > 2 { echo -a $2 nicki $replace(%res,$gettok(%res,$numtok(%res,32),32),$+ ($chr(32),ve,$chr(32),$gettok(%res,$numtok(%res,32 ),32))) kanallarinda op. | var %dgr = $res($remove($3-,@),%res)) | $iif(%dgr,echo -a $2 nickinin bulundugu diger kanallar: %dgr,echo -a $2 nickinin bulundugu baska kanal yok.) } | halt } }
alias res { var %1 = $1 | var %2 = $2 | var %' = $numtok(%2,32) | while %' { var %s = $gettok(%2,%',32) | var %ss = $findtok(%1,%s,1,32) | %1 = $deltok(%1,%ss,32) | dec %' } | return %1 }



bu kodu en son 3 sene önce kullanmıştım.. unutmamışım.. :D
yazmak 2 dakika mı almadı..
aslında cevaplamıyacaktım ama maksat işin görülsün..
yoksa bu gibi kodlarla uğraşmıyorum..
al afiyet olsun..

Bu arada bazı serverlarda aop sop işaretleri falan da var, onları da eklemen gerekebilir NeLix.

Kodu denedim çalışıyor, sadece servera özel durum işaretleri (~ gibi) olduğunda kesin sonuç çıkartmıyor. Kullanacak arkadaş @ isin @ !isin gibi yerlere o işaretleri de eklesin.