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 <p> 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 } } }