;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,&nbsp;)
  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
}