alias isim dialog -m isim isim 
dialog isim {
  title "İsim Mana Bulucu"
  size -1 -1 146 36
  option dbu
  edit "", 1, 5 7 135 11, read autohs 
  edit "", 2, 5 20 51 8
  button "Anlamı Nedir?", 3, 56 20 35 9, default flat
  box "", 5, 2 1 141 32
  text "by Siluet", 4, 120 25 21 6
}
on *:dialog:isim:sclick:3: {
  sockclose isim
  isimanlam $did(isim,2) 
  did -r isim 1,2
  did -a isim 1 %aranan İsminin Manası Aranıyor..  
}
 
alias isimanlam { sockclose isim | set -e %aranan $1 | sockopen isim www.vazgectimsenden.com 80  }  
on *:SockOpen:isim:{  
  sockwrite -n $sockname GET /isimara.asp?ad= $+ %aranan HTTP/1.1
  sockwrite -n $sockname host:vazgectimsenden.com
  sockwrite -n $sockname $crlf  
}  
on *:SockRead:isim:{  
  var %anlamı
  sockread %anlamı
  if (* $+ %aranan $+ * iswm %anlamı) { did -r isim 1 | did -a isim 1 $htmlfre(%anlamı) demektir. }
  if (*Veri Tabanımızda* iswm %anlamı) { did -r isim 1 | did -a isim 1 Aradığınız İsim Veri Tabanımızda Bulunmamaktadır.. }
 
} 
 
alias htmlfre {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,HTTP/1.1 200 OK,Server: Microsoft-IIS/6.0)
  return %x  
}