mirctr.org |

menu * {
  Günlük Fal:günlükfal
}
alias günlükfal { if !$sock(muneccim) { if $dialog(sa_gunlukfal) { dialog -x sa_gunlukfal } | dialog -ma sa_gunlukfal sa_gunlukfal } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
alias -l falgoster { if !$window(GünlükFal) { window -k0 @GünlükFal } | aline -p @GünlükFal $1- }
on *:sockopen:muneccim:{
  if %burç {
    sockwrite -n $sockname GET $+(/gunluk_fal/bugun.asp?burc=,%burç) HTTP/1.1
    sockwrite -n $sockname Host: muneccim.com $+ $crlf $+ $crlf
  }
  else { echo 12 -st > Hata: Burç seçmelisiniz.. }
}
on *:sockread:muneccim:{
  if ($sockerr) {
    echo 12 -st > Hata: Bağlantı hatası, lütfen tekrar deneyiniz.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    if (*<td><p align=”center”><img src=”../images/*”></td>* iswm %temptext) && $istok(koc.boga.ikizler.yengec.aslan.basak.terazi.akrep.yay.oglak.kova.balik,$gettok($gettok($gettok(%temptext,3,47),1,34),1,46),46) { falgoster $+(04,$upper($gettok($gettok($gettok(%temptext,3,47),1,34),1,46))) }
    if (*<p align=”center”><big><big><font face=”Arial Black”>*</font></big></big></p>* iswm %temptext) { falgoster $+(14,$htmlfree(%temptext)) }
    if (<p><font color=”#000000″ face=”Arial Narrow”><strong><big>* iswm %temptext) { falgoster $+(10,$htmlfree(%temptext)) | falgoster  | if $sock(muneccim) { sockclose muneccim } }
  }
  unset %burç
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
dialog sa_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:sa_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 { if !$sock(muneccim) { set %burç $did($dname,1).sel | sockopen muneccim muneccim.com 80 } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
  }
}

Ekleyen:Teufel