immortaL | 20 Ağustos 2016 21:26 | MF Acilan Konu Bilgilendirme Kod:
on *:sockopen:mfbot*:{
if ($sockerr) { return }
else {
var %ifbot = sockwrite -nt $sockname
%ifbot GET /external.php?type=rss $+ / HTTP/1.1
%ifbot HOST: www.ircforumu.net
%ifbot $crlf
}
}
on *:sockread:mfbot*:{
var %ifread
sockread %mfread
if (** iswm %ifread) {
set %mfbaslik $remove(%mfread,,,,$chr(9)))
}
if (** iswm %mfread) {
set %mfaciklama $remove(%mfread,,,$chr(9),)
}
if (** iswm %ifread) {
set %mflink $remove(%mfread,,,$chr(9),)
set %mfbolum $remove($replace($gettok(%mflink,3,47),$chr(45),$chr(32)),$chr(9),)
}
if (** iswm %mfread) {
set %mfzaman $remove(%mfread,,,GMT,$chr(9)))
}
if (** iswm %ifread) {
set %mfkullanici $remove(%ifread,,,$chr(9),)
if (%mfbolum == $null) { halt }
if (!$regex(%mflink,html$)) { halt }
if (!$hfind(mircforum,%mflink,1,W).data) {
$iif(!$window(@mircforum),window -e @mircforum)
echo @ircforumu.net 2[MF Forum] 2Bolum: %mfbolum 2Başlık: %mfbaslik 2Yazan: %mfkullanici * $+(,[,,$degistir(%mfzaman),,],) * 2 %mfaciklama * - %mflink
var %n = $left($calc($ctime * $rand(1000,9999)),7)
if ($hfind(mircforum,%mflink,0,W).data) { halt }
hadd -m mircforum %n %mflink
hsave -o mircforum ircforumu.net
}
}
}
alias degistir {
return $replace($1,Mon,Pazartesi,Tue,Salı,Wed,Çarşamba,Thu,Perşembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,:,-,Jun,Ocak,Jan,Şubat,Mar,Mart,Apr,Nisan,May,Mayıs,Jul,Haziran,Aug,Ağustos,Sep,Temmuz,Oct,Ekim,Nov,Kasım,Dec,Aralık)
}
alias mircforum {
var %socketismi $+(mfbot,$rand(1,99999))
sockclose %socketismi
sockopen %socketismi www.ircforumu.net 80
}
alias baslasin {
.timermircforum 0 5 /mircforum
}
on *:start:hmake mircforum | hmake rss | hload rss rss.06 | hload mircforum
ircforumu.net | baslasin |