On *:text:!burç*:#:{ 
  if $sock(burç) { msg $chan Şu anda başka bir burçun yorumu alınıyor lütfen daha sonra tekrar deneyin. | halt }
  if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık
  if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }
  if !$istok(%burçlar,$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }
  msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ . | set %burçnick $nick
  set %burçid $findtok(%burçlar,$2,124)
  msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,%burçid,124)) | msg $nick -
  sockclose burç | sockopen burç fal.turk.net 80 
}
on *:sockopen:burç: {
  var %k sockwrite -n $sockname
  %k GET /gunluk_fal.asp?f= $+ %burçid HTTP/1.1
  %k Host: fal.turk.net
  %k $crlf
}
on *:sockread:burç: {
  var %data
  sockread %data
  if <div class="font12_g"> isin %data {
    sockread %data
    echo -a %data
    msg %burçnick %data | sockclose burç
  }
}