;Radyo admin paneli sifresi
alias radyopass return radyoadmin

;Radyo yayin adresi
alias radyoip return 178.33.34.48

;Radyo yayin portu
alias radyoport return 9306

;Radyo kanali
alias radyo.chan return #Radyo

;Radyo dinleyenlere voice verilsimmii 1 evet 0 hayir
alias radyo.voice return 0

;Radyo aciyip kapatanlari bir kanalda belirtmek istermisiniz ?
;1 evet 0 hayir
alias dinleyen.chan return #KANAL

;Radyo dinleyenlere mesaj atabilmek icin 1 evet 0 hayir
alias dinleyen.durum return 0

;Radyo admin paneli sifresi
alias radyopass return radyoadmin

;Radyo yayin adresi
alias radyoip return 178.33.34.48

;Radyo yayin portu
alias radyoport return 9306

;Radyo kanali
alias radyo.chan return #Radyo

;Radyo dinleyenlere voice verilsimmii 1 evet 0 hayir
alias radyo.voice return 0

;Radyo aciyip kapatanlari bir kanalda belirtmek istermisiniz ?
;1 evet 0 hayir
alias dinleyen.chan return #KANAL

;Radyo dinleyenlere mesaj atabilmek icin 1 evet 0 hayir
alias dinleyen.durum return 0

on *:start: {
  hashopen
  .timervoice 0 15 /radyovoice
}

on *:text:*:$($radyo.chan): {
  if $regex($1-,/[!.]sure/i) {
    if !$2 { msg # 4*\5 $qt($nick) 2Rumuzu radyo dinleme sureniz5 $iif($readini(radyodinle.ini,Sure,$nick),$tamsure($v1),Bulunmuyor.)  | return }
    if $2 { msg # 4*\5 $qt($2) 2Rumuzu radyo dinleme suresi5 $iif($readini(radyodinle.ini,Sure,$2),$tamsure($v1),Bulunmuyor.)  | return }
  }
}

raw 352:*: {
  if ($numeric == 352) {
    if $hget(dinleyen,$4) {
      if (r isin $7) {
        hadd -mu5 radyoonline $4 $6
        writeini radyodinle.ini Dinleyen $6 $4
        if !$hget(radyodinleme,$6) { hadd -mu20 radyodinleme $6 $ctime }
        if $hget(radyodinleme,$6) {
          writeini radyodinle.ini Sure $6 $calc($iif($readini(radyodinle.ini,Sure,$6),$v1,0) + $calc($ctime - $hget(radyodinleme,$6)))
          hadd -mu20 radyodinleme $6 $ctime
        }
      }
    }
    if $hget(dinleyen,$4) && !$hget(dinleyennick,$6) {
      hadd -m dinleyenip $4 $6
      hadd -m dinleyennick $6 $4
      if ($dinleyen.durum !== 0) { notice $6 4 $6 1yayini dinlediginiz icin tesekkurler, radyonuz suan acik durumdadir }
      if ($radyo.voice !== 0) { .mode $radyo.chan +v $6 }
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [3ACAN]2 $6 3 radyoyu acti. }
      if (r isin $9) {
        if ($dinleyen.durum !== 0) { notice $6 5*\ 1Yayın dinleme sureniz toplam5 $sure($6) 1dinlemektesiniz. }
      }
      if (r !isin $7) && ($dinleyen.durum !== 0) {
        notice $6 5*\ 1Nickiniz suan kayitsiz kayitli bir nicke erisim sagladiginizda 5top101 listesine sizde bulunabilirsiniz.
        notice $6 5*\ 1Nick kayit icin 4 $helpchan 1kanalina basvurabilirsiniz.
      }
    }
    if $hget(kapatan,$4) {
      hdel -m kapatan $4
      hdel -m dinleyennick $6
      hdel -m radyodinleme $6
      if ($dinleyen.durum !== 0) { notice $6 4 $6 1Radyo yayini dinlediginiz icin tesekkurler, radyonuz suan kapali duruma gecmistir. }
      if ($radyo.voice !== 0) { .mode $radyo.chan -v $6 }
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [4KAPATAN]2 $6 4 radyoyu acti. }
      if (r isin $9) && ($dinleyen.durum !== 0) { notice $6 5*\1 5*\ 1Yayın dinleme sureniz toplam5 $sure($6) 1dinlemissiniz. }
      if (r !isin $9) && ($dinleyen.durum !== 0) {
        notice $6 5*\ 1Nickiniz suan kayitsiz kayitli bir nicke erisim sagladiginizda 5top101 listesine sizde bulunabilirsiniz.
        notice $6 5*\ 1Nick kayit icin 4 $helpchan 1kanalina basvurabilirsiniz.
      }
    }
    haltdef
  }
  if ($numeric == 315) {
    var %ip $right($left($4,-1),-1)
    if $hget(dinleyen,%ip) && !$hget(radyoonline,%ip) {
      if $read(radyodinle.ini,w,$+(*=,%ip)) {
        hadd -mu5 simdilik evet $token($v1,1,61)
        if !$hget(radyodinleme,$hget(simdilik,evet)) { hadd -mu20 radyodinleme $hget(simdilik,evet) $ctime }
        writeini radyodinle.ini Sure $hget(simdilik,evet) $calc($iif($readini(radyodinle.ini,sure,$hget(simdilik,evet)),$v1,0) + $calc($ctime - $hget(radyodinleme,$hget(simdilik,evet))))
        hadd -mu20 radyodinleme $hget(simdilik,evet) $ctime
      }
    }
    if $hget(kapatan,%ip) {
      hdel -m kapatan %ip
      hdel -m radyodinleme %ip
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [4Kapatan] 2 $hfind(dinleyennick,%ip,1,W).data 5  yayini kapatti }
      haltdef
    }
  }
}
on 1:SOCKOPEN:radyovoice: {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyopass HTTP/1.1)
  sockwrite -n $sockname Host: $+($radyoip, :, $radyoport)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:radyovoice: {
  var %data
  sockread -f %data
  tokenize 32 %data
  var %x 1
  if $regex($1-,/class=st>([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/gi) {
    var %x 1
    while $regml(%x) {
      hadd -m dinleyen $v1 evet
      inc %x
    }
  }
}

on *:sockclose:radyovoice: {
  var %x 1 |while $hget(dinleyen,%x).item {
    who +I $+(*,$v1,*) | inc %x
  }
  var %e 1 | while $hget(dinleyenip,%e).item {
    var %v1 $v1 | if !$hget(dinleyen,$v1) {
      hdel -m dinleyenip %v1 | hadd -m kapatan %v1 evet | who +I $+(*,%v1,*)
    }
    inc %e
  }
}

alias radyovoice {
  if $hget(dinleyen) { .hfree -sw dinleyen }
  if !$sock(radyovoice) {
    sockopen radyovoice $radyoip $radyoport
  }
}
alias tamsure {
  var %islem $replace($duration($1),hr,hrs,min,mins,sec,secs,day,days,wk,wks), %hafta $iif(wks isin %islem,$token(%islem,1,$asc(wks))), %gun $iif(days isin %islem,$token($token(%islem,1,$asc(days)),-1,32))
  var %saat $iif(hrs isin %islem,$token($token(%islem,1,$asc(hrs)),-1,32)), %dakika $iif(mins isin %islem,$token($token(%islem,1,$asc(mins)),-1,32))
  var %saniye $iif(secs isin %islem,$token(%islem,-2,$asc(secs)))
  if %hafta { var %hafta $calc(%hafta * 168) }
  if %gun { var %gun $calc(%gun * 24) }
  return $calc(%saat + %hafta + %gun) $+ saat $calc(0 + %dakika) $+ dakika $calc(0 + %saniye) $+ saniye
}
alias sure {
  if $readini(radyodinle.ini,Sure,$1) { return $tamsure($v1) }
  else { return 0saat 0dakika 0saniye }
}