mIRC Türkçe Sözlük

on *:text:*:#KANAL: {
if ($1 == !sozluk) {
if (%tarat) { msg # Lutfen 3 saniye bekleyiniz yeni tarama yapmak icin. | halt }
if (!$2) { msg # Sozcuk girmediniz! | halt }
if ($3) { msg # Sadece tek kelime kullanabilirsiniz , Ornek: !sozluk Sinan | halt }
set -u3 %tarat 1
msg #  $+ $2 Kelimesi Taraniyor Lutfen Bekleyiniz..
set %kanal #
tarat $2
}
}
alias tarat { var %63 $rand(0,$str(9,100)) | sockopen $+(sozluk*,%63) turkcebilgi.com 80 | sockmark $+(sozluk*,%63) $1 | set %kelime $1 }
on *:sockopen:sozluk*:{
var %s sockwrite -n $sockname
%s GET / $+ $+ $sock($sockname).mark $+ /sozluk HTTP/1.1
%s Host: turkcebilgi.com
%s $crlf
}
on *:sockread:sozluk*:{
var %sozluk [ $+ [ $sockname ] ]
sockread %sozluk [ $+ [ $sockname ] ]
if (*

* iswm %sozluk [ $+ [ $sockname ] ]) {
set %genisanlam $afree(%sozluk [ $+ [ $sockname ] ])
}
if (*height:60px* iswm %sozluk [ $+ [ $sockname ] ]) {
var %var evet
msg %kanal $+(,$sock($sockname).mark,) Anlami: $afree(%sozluk [ $+ [ $sockname ] ])
if (%genisanlam !== $null) { msg %kanal Ornek Detay Bilgi ~ | msg %kanal %genisanlam | unset %genisanlam }
unset %kanal
sockclose $sockname
halt
}
if (*This object may be found* iswm %sozluk [ $+ [ $sockname ] ]) {
msg %kanal $sock($sockname).mark Hakkinda bilgi bulunmamaktadir.
unset %kanal
unset %genisanlam
sockclose $sockname
}
}
alias afree {
var %x, %i = $regsub($1-,/(^[^< ]*>|< [^>]*>|< [^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}

Kullanimi ; !sozluk Kelime

#KANAL kısmına kullanacağınızkanalı yazabilirsiniz.