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 }