mIRC Son dakika haberleri
alias haber {
if !$1 {
if $timer(haber) { echo -a Haber aktarımı zaten aktif. | halt }
set %haberaktarı aktif
barwrite Haber aktarımı başlatıldı.
barwrite Son dakika haber sistemi by Paint
$iif($isfile(haber.txt),.remove haber.txt)
.timerhaber 0 6 .haberci }
elseif $timer(haber) && $1 == kapat { sockclose haber | .timerhaber off | barhide | unset %haberaktarımı }
elseif $1 == mirc { echo -a Artık haber aktarımları sadece mIRC aktif ekran da ise çalışacak. | barautoon }
elseif $1 == all { echo -a Haber aktarımlarını her pencerede görebilirsiniz. | barautooff }
}
alias -l haberci {
sockclose haber
sockopen haber sondakika.haberler.com 80
}
on *:Sockopen:haber:{
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: sondakika.haberler.com
sockwrite -n $sockname $clrf
}
on *:sockread:haber:{
var %haber
sockread %haber
if
isin %haber {
if !$lines(haber.txt) { write haber.txt $htmlfree(%haber) | .set %ne halt | .timeryenisi 1 6 .set %ne barwrite | halt }
if !$read(haber.txt,w,$htmlfree(%haber)) {
if !%ne { set %ne habermsg }
write haber.txt $htmlfree(%haber) | %ne [HABER] $qt($htmlfree(%haber)) }
}
}
alias barautoon set %BARAUTO 1
alias barautooff unset %BARAUTO
alias barhide dll mIRCbar.dll Hide
alias barwrite dll mIRCbar.dll Print $1-
on *:APPACTIVE: { if %haberaktarı { if (%BARAUTO) { if (!$appactive) { barhide | sockclose haber | .timerhaber off } | else barwrite Son dakika haber sistemi aktif. | haber } } }
Komutlar:
/haber :Haber aktarımını başlatır.
/haber kapat :Haber aktarımını kapatır.
/haber mirc :Sadece mIRC aktif ekranda ise aktarım çalışır.
/haber all :Haberler her pencerede görünür.
-Barın üstüne çift tıklarsanız bar kapanır.
-60 saniye içerisinde yeni bilgi gelmezse satırlar otomatik olarak birer birer kapanır.
Kodun çalışması için; eklentideki mIRCBar.zip-in içindeki mIRCBar.dll dosyasını mIRC klasörünüze ($mircdir) atmanız gereklidir.