Difuzyon | 16 Ağustos 2010 21:14 | Cevap: İsim Anlam(lar)ı Kod:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;; İsim Anlamı ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; Kodu mirc botunuzu ekledikten sonra ;;;;;;;;;;;;;;;;
;;;;;;;;Kod içerisindeki #isim kanalını editleyebilirsiniz;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Product by Dify;;;;;
on $*:text:/^[!\.]anlam\s([a-zA-ZşŞıöÖçÇğĞüÜ]+)/S:#isim:if $sock(isim,1).status == active { msg $chan İstek bekleyen bağlantının sonlanmasını bekleyiniz | halt } | else { anlam $replace($regml(1),ş,s,Ş,s,ı,i,ö,o,Ö,o,ç,c,Ç,c,ğ,g,Ğ,g,ü,u,Ü,u)) }
alias anlam {
sockclose isim
sockopen isim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
set -e %isim $1
}
on *:sockopen:isim:{
sockwrite -n $sockname GET / $+ %isim $+ / HTTP/1.1
sockwrite -n $sockname Host: $+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]))
sockwrite -n $sockname
}
on *:sockread:isim:{
var %temp
sockread %temp
if (*Hata*404*Sayfa*Bulunamad* iswm %temp) { msg #isim Kayıt bulunamadı. | sockclose isim }
if (*<p>*</p>* iswm %temp) && !$regex(%temp,/(isimbul\.net|Yoruma kapal)/) { msg #isim $regsubex($htmlfre(%temp),/(\&.+\d\x3B)/,$null) | sockclose isim }
}
alias htmlfre {
var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
} Hoşca paylaşımlar.. |