alias burc { 
  if ($1) {
    if $regex($1,/(akrep|aslan|koc|boga|basak|oglak|ikizler|yay|kova|balik|yengec|terazi)/i) {
      sockclose burc
      clear @gunlukfal
      sockopen burc muneccim.gen.tr 80
      sockmark burc $1
    }
  }
}
on *:sockopen:burc:{
  var %s sockwrite -n $sockname
  %s GET / $+ $sock($sockname).mark $+ -burcu-yorumu.html HTTP/1.1
  %s Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
  %s $crlf
}
on *:sockread:burc:{
  if ($sockerr) {
    echo -a 4 Hata: Bağlantı hatası, lütfen tekrar deneyiniz.
    halt
  }
  else {
    var %s 
    sockread %s 
    if (*Sevgili* iswm %s) {
      $iif((!$window(@gunlukfal)),window @gunlukfal,window -a @gunlukfal) | aline -p @gunlukfal $htmlfree(%s)
    }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias kdeg return $replace($1,koç,koc,boğa,boga,yengeç,yengec,başak,basak,oğlak,oglak,balık,balik)
dialog gunlukfal {
  title "Günlük Fal"
  size -1 -1 59 35
  option dbu
  combo 1, 3 8 53 55, size drop
  box "Burç:", 2, 1 0 57 21
  button "Oku", 3, 3 22 25 10
  box "", 4, 1 17 29 17
  button "Kapat", 5, 31 22 25 10, ok
  box "", 6, 29 17 29 17
}
on *:dialog:gunlukfal:*:*:{
  if $devent = init {
    didtok $dname 1 44 koç,boğa,ikizler,yengeç,aslan,başak,terazi,akrep,yay,oğlak,kova,balık
    did -c $dname 1 1
  }
  if $devent = sclick {
    if $did = 3 { burc $kdeg($did($dname,1)) } 
  }
}
menu * { 
  -
  Gunluk Fal:.dialog -m gunlukfal gunlukfal 
}