mIRCte Gunun Sozu

Turkirc Türkçe Mircinizde günün sözü addonu.

 

dialog söz {
title \\”Günün Sözü \\”
size -1 -1 312 24
option dbu
edit \\”\\”, 1, 11 6 291 10
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}
alias gününsözü { sockopen söz www.gununsozu.com 80 | dialog -m söz söz }
on *:sockopen:söz:{
sockwrite -n $sockname GET / HTTP/1.0
sockwrite -n $sockname Host: gununsozu.com $+ $crlf $+ $crlf
}
on *:sockread:söz:{
if ($sockerr) {
echo 4 -a hata var!
}
else {
var %gününsözü
sockread %gününsözü
if <p id=\\”text<font color=\\” align=center\\”> isin %gününsözü {
set %sözler \\” $deltok($htmlfree(%gününsözü),,9) $+ \\” )
}
}
}
on *:Dialog:söz:init:0:{
did -a söz 1 %sözler
}