isim anLam(lari) mIRC Kodu

Bu kod ile isimlerin anLamlarini ögrenmeniz saGLanicaktir.

alias anlam {
  sockclose isim
  sockopen isim www.isimbul.net 80
  set -e %isim $1
}
on *:sockopen:isim:{
  sockwrite -n $sockname GET / $+ %isim $+ / HTTP/1.1
  sockwrite -n $sockname Host: $+(www.isimbul.net,$str($crlf,2))
  sockwrite -n $sockname
}
on *:sockread:isim:{
  var %temp
  sockread %temp
  if (*Hata*404*Sayfa*Bulunamad* iswm %temp) { echo 4 -a Kayıt bulunamadı. | sockclose isim }
  if (*** iswm %temp) && !$regex(%temp,/(isimbul\.net|Yoruma kapal)/) { echo 3 -a $htmlfree(%temp) | sockclose isim }
}
alias htmlfree {
  var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}

Coderi : Difuzyon

/anlam isim
(Örnek: /anlam Naim)
komutunu uygulamanız yeterlidir.Türkçe karakterleri(ı,ö,ü,ç,ş,ğ,İ,Ş,Ç,Ğ,Ü,Ö) kullanmayınız,isim(mevcutsa) otomatik olarak sayfaya yönlendirilecektir.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir