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 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 == { 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 gelmezse satırlar 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.

EKLENTİ

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir