on *:sockopen:trsorgula: {
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host: www.birsozluk.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÖZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<))
  }
}
on *:input:*: {
  if $regex($1,/^([.!]s[oÖö]zl[üÜu]k)/Si) {
    if !$2 { msg $active Hatalı Kullanım Sözcük Belirtmediniz. | return }
    if $3- { msg $active Hatalı Kullanım Tek Kelimeden Oluşan Sözcükler Belirtin. | return }
    set %ymc_k $2
    sockclose trsorgula
    sockopen trsorgula www.birsozluk.com 80
  }
}

on *:sockopen:trsorgula: {
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host: www.birsozluk.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÖZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<))
  }
}
on *:input:*: {
  if $regex($1,/^([.!]s[oÖö]zl[üÜu]k)/Si) {
    if !$2 { msg $active Hatalı Kullanım Sözcük Belirtmediniz. | return }
    if $3- { msg $active Hatalı Kullanım Tek Kelimeden Oluşan Sözcükler Belirtin. | return }
    set %ymc_k $2
    sockclose trsorgula
    sockopen trsorgula www.birsozluk.com 80
  }
}