| Doktrin | 10 Nisan 2010 19:14 |
mIRC Sözlük Addon
Bir arkadaşımın isteği üzerine yazmışım olduğum sözlük addonı.Basitçe kodlanmıştır.İngilizce ve Almanca çeviri seçenekleri mevcuttur.İşine yarayan arkadaşlar kullanabilirler. /sozluk komutu ile diyalogu açabilirsiniz.
Addon Resmi: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
İşte kodlar: Kod:
;mIRC Sözlük Addon
;sozluk.web.tr sitesine teşekkürler.
alias -l ara {
if $sock(sozluk) {
sockclose sozluk
sockopen sozluk sozluk.web.tr 80
}
else {
sockopen sozluk sozluk.web.tr 80
}
}
on *:sockopen:sozluk:{
sockwrite -n $sockname GET $+(/index.php?locale=tr_TR&dictionary=,%lang,&word=,%search) HTTP/1.1
sockwrite -n $sockname Host: sozluk.web.tr $+ $crlf $+ $crlf
}
on *:sockread:sozluk:{
if ($sockerr) {
echo $colour(info) $timestamp *** Bağlantı hatası! Lütfen tekrar deneyiniz. | halt
}
else {
var %temp
sockread %temp
if *<dt>* iswm %temp { did -a sozluk 10 Kelime: $htmlfree(%temp) $crlf }
if *<dd><p>* iswm %temp { did -a sozluk 10 Anlamı: $htmlfree(%temp) $crlf }
if *<h2>Aradığınız* iswm %temp { did -a sozluk 10 Aradığınız kelime bulunamadı. }
if *bulunamadı.</h2>* iswm %temp { did -a sozluk 10 Aradığınız kelime bulunamadı. }
}
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
alias sozluk { if !$dialog(sozluk) { dialog -m sozluk sozluk } }
dialog sozluk {
title "mIRC Sözlük - /sozluk"
size -1 -1 106 46
option dbu
radio "İngilizce-Türkçe", 1, 2 6 50 10
radio "Türkçe-İngilizce", 2, 55 6 48 10
radio "Almanca-Türkçe", 3, 2 14 50 10
radio "Türkçe-Almanca", 4, 55 14 49 10
box "Dil Seçimi", 5, 0 -1 106 28
box "Aranılacak Kelime", 6, 0 27 106 19
edit "", 7, 2 34 51 10, multi
button "Ara!", 8, 55 34 23 10
button "Kapat!", 11, 79 34 24 10
box "Sonuçlar", 9, 0 46 106 83
edit "", 10, 2 53 101 74, read multi vsbar
}
on *:dialog:sozluk:*:*:{
if ($devent == SCLICK) {
if ($did == 1) { set %lang entr }
if ($did == 2) { set %lang tren }
if ($did == 3) { set %lang detr }
if ($did == 4) { set %lang trde }
if ($did == 11) { dialog -c sozluk }
if ($did == 8) {
set %search $did(7)
if !%lang { return $input(Dil şeçimi yapılmadı.,ohud,Hata) }
if !%search { return $input(Aranılacak kelime girilmedi.,ohud,Hata) }
dialog -s $dname -1 -1 212 258
did -r $dname 10
ara
}
}
if ($devent == CLOSE) { unset %lang | unset %search }
}
menu status,channel,menubar {
mIRC Sözlük!:sozluk
}
|
