on *:text:*:#: {
  if $regex($1,/^[!.]bur[cç]/i) {
    if $regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|a[rs]lan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {
      set %lnk $replace($regml(1),koç,koc,boğa,boga,İkizler,ikizler,başak,basak,oğlak,oglak,balık,balik,yengeç,yengec)
      set %burchn $chan
      set %burcnck $nick
      burc
    }
  }
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias burc { if $sock(burc) { sockclose burc } | sockopen burc 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:sockopen:burc:{
  sockwrite -n $sockname GET /yildizfali/ $+ %lnk $+ .asp HTTP/1.0
  sockwrite -n $sockname User-Agent: Mozilla
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:burc:{
  sockread -f %burc
  if $regex(%burc,/&nbsp;(.+)</td>/i) && $len($regml(1)) > 80 {
    msg %burchn [[ %lnk fali yorumu ]]
    msg %burchn 4<2 %burcnck 4> $gettok($regml(1),1-2,46)
    msg %burchn 4<2 %burcnck 4> $gettok($regml(1),3-5,46)
    msg %burchn 4<2 %burcnck 4> $gettok($regml(1),6-8,46)
  }
}