on *:text:!h *:#egitim: {
if ( $istok(Dashi Demi Binjaket Gaforrja Luani Virgjeresha Peshorja Akrepi Shigjetari Bricjapi Ujori Peshqit,$2,32) ) {
set %shenja1 $2
unset %terminal
unset %mesazhihoroskopit*
set %periudha.horoskopi Lindur me:
set %kanalihoroskopit $chan
set %fillohoroskopin <p>
sockclose horoskopi
sockopen -e horoskopi www.horoskopishqip.com 443
}
}
on *:sockopen:horoskopi: {
sockwrite -n horoskopi GET /shenja/ $+ %shenja1 $+ / HTTP/1.0
sockwrite -n horoskopi Host: $sock($sockname).addr
sockwrite -n horoskopi Connection: close
sockwrite -n horoskopi $crlf
}
on *:sockread:horoskopi: {
sockread %horoskopi.temp
if (%periudha.horoskopi isin %horoskopi.temp) { set %periudha $remove($gettok(%horoskopi.temp,3,62),</span) }
if ((%fillohoroskopin isin %horoskopi.temp) && (!%terminal)) {
set %horoskopi.frase %horoskopi.temp
set %terminal !
/set %mesazhihoroskopit $remove(%horoskopi.temp,</p>,<p>)
if ( $len(%mesazhihoroskopit) > 0 ) {
set %mesazhihoroskopit2 $+ $right(%mesazhihoroskopit,$calc($len(%mesazhihoroskopit) - 1800))
set %mesazhihoroskopit $remove(%mesazhihoroskopit,$right(%mesazhihoroskopit,$calc($len(%mesazhihoroskopit) - 1800)))
set %mesazhihoroskopit %mesazhihoroskopit $+
}
/msg #egitim 10 %mesazhihoroskopit
if ( %mesazhihoroskopit2 != $null ) { /msg #egitim 10 %mesazhihoroskopit2 }
}
}
on *:TEXT:!h:#egitim: {
/msg #egitim 10 Perdorimi i Horoskopit: !h <shenja juaj>
/msg #egitim 10 Opsionet: Dashi Demi Binjaket Gaforrja Luani Virgjeresha Peshorja Akrepi Shigjetari Bricjapi Ujori Peshqit $halt - }
on *:ACTION:!h:#egitim: {
/msg #egitim 10 Perdorimi i Horoskopit: !h <shenja juaj>
/msg #egitim 10 Opsionet: Dashi Demi Binjaket Gaforrja Luani Virgjeresha Peshorja Akrepi Shigjetari Bricjapi Ujori Peshqit $halt - }