;Radyonun IP Adresi
alias radyoip return 51.178.240.130

;Radyonun PORT Adresi
alias radyoport return 8036

;Radyonun Admin PASS Sifresi
alias adminpass return deneme1

;Radyo Kanali ISMI
alias radyochan return #Radyo

;Muaf nickler
alias nickler return Radyo


on *:sockopen:radyo*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/admin.cgi?pass=,$adminpass,&mode=viewxml) HTTP/1.1
  %komut Host: $+($radyoip,:,$radyoport) 
  %komut User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut Accept-Language: tr,tr;q=0.5
  %komut Accept-Encoding: gzip,deflate
  %komut Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  %komut Connection: Keep-Alive: 300
  %komut $crlf
}
on *:sockread:radyo*:var %radyo | sockread %radyo | $iif($pos(%radyo,<HOSTNAME>,0) !== 0,belirt $pos(%radyo,<HOSTNAME>,0) %radyo)
alias belirt { var %s 1 | while (%s <= $1) { var %ips $gettok($gettok($mid($2-,$pos($2-,<HOSTNAME>,%s),32),2,62),1,60)) | set -e %voice [ $+ [ %ips ] ] ok | who +I $+(*,%ips,*) | inc %s } }
alias bilgi var %radn $rand(0,9999) |  unset %voice* | sockopen $+(radyo,%radn) $radyoip $radyoport
alias voicebelirt { var %/ 1 | while (%/ <= $nick($radyochan,0,v)) { who +I $nick($radyochan,$v1,v) | inc %/  } }
raw 352:*: {
  if ($istok($nickler,$6,32)) { halt }
  if ($6 isvoice $radyochan) && (%voice [ $+ [ $4 ] ] !== ok) { mode $radyochan -v $6 | .notice $6 Radyo yayinimizi dinlediginiz icin tesekkurler , Keyifli Sohbetler. }
  if ($6 !isvoice $radyochan) { mode $radyochan +v $6 |  .notice $6 Radyomuzu dinlediginiz icin tesekkur ederiz. Keyifli Dinlemeler.. }
}
alias baslat .timerbilgi 0 10 bilgi $(|) .timer 1 5 voicebelirt 
alias durdur .timerbilgi off

NOT: Sadece op olanlar icin gecerlidir mIRC Version: 6.35'de ayarlanmistir.