alias isim {
  sockclose anlam
  sockopen anlam www.vazgectimsenden.com 80
  echo -a 4Arama yapılıyor bekleyiniz ..
  set %isim $1
}
on *:sockopen:anlam:{
  sockwrite -n $sockname GET /isimara.asp?ad= $+ $replace(%isim,ü,$chr(37) $+ FC,ş,$chr(37) $+ FE,ğ,$chr(37) $+ F0,ç,$chr(37) $+ E7,ı,$chr(37) $+ FD,ö,$chr(37) $+ F6) HTTP/1.1
  sockwrite -n $sockname Host: www.vazgectimsenden.com $+ $crlf $+ $crlf
}
on *:sockread:anlam:{
  var %hppn
  sockread %hppn
  if (*<center>*</font></center>* iswm %hppn) { echo -a $htmlfree(%hppn) | sockclose anlam }
  if (*&nbsp;</td><td width="514" >*</td>* iswm %hppn) { echo -a 12 $remove($htmlfree(%hppn),%isim) | sockclose anlam }
}
alias htmlfree {
  var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias anlam {
  isim $1
}
menu menubar,status,channel,query {
  İsim Anlamı:dialog -m isimsiz isimsiz 
}
dialog isimsiz {
  title "iSim Anlam Arama PaneLi"
  size -1 -1 95 45
  option dbu
  box "iSim Anlam", 1, 3 1 90 42
  button "iSim-Anlam ARA", 2, 22 26 55 12
  edit "", 3, 10 12 76 10
}
on 1:dialog:isimsiz:init:*:{
  did -a $dname 3 Arancak Kelimeyi Yazınız. 
}
on *:dialog:isimsiz:sclick:2:{ 
  isim $did(3).text 
}