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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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  
}

alias isim {
  sockclose anlam
  sockopen anlam 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  msg #anlam Arama 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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:anlam:{
  var %hppn
  sockread %hppn
  if (*<center>*</font></center>* iswm %hppn) { msg #anlam $htmlfree(%hppn) | sockclose anlam }
  if (*&nbsp;</td><td width="514" >*</td>* iswm %hppn) { msg #anlam $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
}
on *:text:!anlam*:#anlam:{ isim $2 }