;Günlük Fal addonı, kodlayan: 'el33t'
;Günlük falınıza bakmak için "/günlükfal" yazınız, ya da popupslardaki Günlük Fal'a tıklayınız.
on *:LOAD:echo 12 -st  >  Günlük Fal addonını yüklediniz. " /günlükfal " yazarak yada popupslardaki Günlük Fal'a tıklayarak falınıza bakabilirsiniz.
menu status,menubar,channel {
-
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 (*
</span></strong><strong><span style="color: #ff0000;">* iswm %temptext) &amp;&amp; $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 (*</span></strong>

<big><big><strong><span style="color: #ff0000;">*</span></strong></big></big>

<strong><span style="color: #ff0000;">* iswm %temptext) { falgoster $+( 14,$htmlfree(%temptext)) }
if ( </span></strong>

<span style="color: #ff0000;"><big><strong>* iswm %temptext) { falgoster $+( 10,$htmlfree(%temptext)) | falgoster   | if $sock(muneccim) { sockclose muneccim } }
}
unset %burç
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x), %x = $remove(%x, )
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  &gt;  Hata: Başka bir fala bakılıyor. } }
}
}