;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;istek isteme, istekyok, istekvar uyarı
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:text:*:#:{
  if $chan == #radyo {
    if !istek* iswm $1- {
      if $read(istekler.txt,w,$nick $+ *) {
        msg $chan 4Zaten bekleyen bir isteğiniz var
      }
      else {
        if $2 == $null {
          msg $chan 12Lütfen Bir İstek Parça Belirtin 13 $nick
        }
        else {
          inc %isayi
          msg #radyo 7,71R *1,7 isteginiz DJ'lerimize iletilmistir 
          msg #radyo 7,71a *7,1 İstenilen istek sayısı:7 %isayi 
          msg #radyo 7,71d *7,1 İstek Yapan Nick: 0 $nick  
          msg #radyo 7,71y *7,1 Yapılan İstek : 0 ( $2- ) -
          msg #radyo 7,71o *7,1 Radyomuzu WEB'den dinlemek icin 13,1|0 8 $server
          msg #radyo 7,71B 1,7 Radyomuzu Winampdan Dinlemek İçin Tıklayın :  8,1https:// $+ %ipport3 $+ : $+ %ipport1 $+ /listen.pls 
          msg #radyo 7,71o *7,1 Isteklerinizi Radyo kanalinda göndermek istiyorsaniz; 
          msg #radyo 7,71T *7,1 !istek <sanatçi> <mesajiniz> seklinde istekte bulunabilirsiniz. 

          msg #dj 4,4 0,1Radyo İstek 
          msg #dj 4,4 0,1
          msg #dj 4,4 2 $server 12Radyo Yönetim AiLeSi
          msg #dj 4,4 0,1
          msg #dj 4,4 0,1  $nick 6(7 $+ $2- $+ 6)
          msg #dj 4,4 0,1
          msg #dj 4,4 0,1 İsteniLen İstek Sayısı:11 %isayi
          .write istekler.txt $+($nick,$chr(11),$2-)
        }
      }
    }
  }
  if $chan == #dj  {
    if !istekvar* iswm $1- {
      if $2 == $null {
        msg $chan 2Lütfen Bir Nick Belirtin.. 4ÖRN: 1!istekvar Araf
      }
      else {
        if $read(istekler.txt,w,$2 $+ *) {
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4 $+ $remove($server,irc.) 2Radyo Yönetim AiLeSi
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5Nickiniz4;10 $nick 
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5iSTeK Yaptığınız Parça4:7 $gettok($read(istekler.txt,w,$2 $+ *),2,11)    
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 6Web Adresimiz:2 $server 6Radyo Yayın Linkimiz: 7 $+ https:// $+ %ipport3 $+ : 

$+ %ipport1 $+ /listen.pls
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 12R4adyo 12kanalında yapmış olduğunuz 7istek 12sıraya alınmıştır.2En kısa sürede yayınlanacaktır.4[ 12Sizin 

Sesiniz 7Radyo10 $remove($server,irc.) 7'dasınız. 4] 4İyi dinletiler..
          write $+(-,dl,$readn) istekler.txt
          .halt
        }
        if !$read(istekler.txt,w,$2 $+ *) {
          msg $chan 10 $2 2Nicki Listede Gözükmüyor
        }
      }
    }
    if !istekyok* iswm $1- {
      if $2 == $null {
        msg $chan 2Lütfen Bir Nick Belirtin.. 4ÖRN: 1!istekyok Araf
      }
      else {
        if $read(istekler.txt,w,$2 $+ *) {
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4 $+ $remove($server,irc.) 2Radyo Yönetim AiLeSi
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5Nickiniz4;10 $nick 
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5iSTeK Yaptığınız Parça4:7 $gettok($read(istekler.txt,w,$2 $+ *),2,11)    
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 6Web Adresimiz:2 $server 6Radyo Yayın Linkimiz: 7 $+ https:// $+ %ipport3 $+ : 

$+ %ipport1 $+ /listen.pls
          msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4,4*9,1Radyo kanalında yapmış olduğunuz istek Dj'imizin Arşivinde olmadığından,Sıradaki çalışma Dj tarafından 

size Armağan edilecektir.Yada yeni bir istekte bulunabilirsiniz.4[ 12Sizin Sesiniz 7Radyo10 $remove($server,irc.) 7'dasınız. 4] 4İyi dinletiler ..
          write $+(-,dl,$readn) istekler.txt
          .halt
        }
        if !$read(istekler.txt,w,$2 $+ *) {
          msg $chan 10 $2 2Nicki Listede Gözükmüyor
        }
      }
    }
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Sıradaki Parça Hakkında Bilgi
;;;-
;;;İstekvar Nick, İstekyok Nick 
;;;-
;;;İstenilen İstek Parçaları sıfırla
;;;-
;;;İstenilen İstek Parçaları Listele
;;;-
;;;Şifre,Şifreler,Pass,Radyopass 
;;;-
;;;Radyo Hakkında Bilgi Almalar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on @*:text:*:#dj: {
  if $regex($1,/^(!|.)sıradaki/i) {
    if $lines(istekler.txt) == 0 { msg #dj 0,7 ** 14,1 Sırada Bekleyen İstek Bulunmuyor. | return }
    var %sıradaki = $read(istekler.txt)
    msg #dj 4,4 0,1Radyo Sıradaki Parça 
    msg #dj 4,4 0,1
    msg #dj 4,4 2 $server 12Radyo Yönetim AiLeSi
    msg #dj 4,4 0,1 
    msg #dj 4,4 0,1 7İstek Yapan : 5 $gettok($read(istekler.txt,w,$2 $+ *),1,11)
    msg #dj 4,4 0,1
    msg #dj 4,4 0,1 7Yapılan İstek :6 $gettok($read(istekler.txt,w,$2 $+ *),2,11)
    msg #dj 4,4 0,1
    msg #dj 4,4 0,1 0Bekleyen isTek Sayısı :12 $lines(istekler.txt)
    echo -a 2Sıradaki iSTeK Parça Başarıyla Kanala Verilmiştir.
    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 4 $+ $remove($server,irc.) 2Radyo Yönetim AiLeSi
    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5Nickiniz4;10 $nick 
    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5iSTeK Yaptığınız Parça4:7 $gettok($read(istekler.txt,w,$2 $+ *),2,11)    
    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 6Web Adresimiz:2 $server 6Radyo Yayın Linkimiz: 7 $+ https:// $+ %ipport3 $+ : $+ 

%ipport1 $+ /listen.pls
    msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 12R4adyo 12kanalında yapmış olduğunuz 7istek 12sıraya alınmıştır.2En kısa sürede yayınlanacaktır.4[ 12Sizin 

Sesiniz 7Radyo10 $remove($server,irc.) 7'dasınız. 4] 4İyi dinletiler..
    write $+(-dl,$readn) istekler.txt
  }
  if $regex($1,/^(!|.)sıfırla/i) {
    msg #dj 4,4 0,1 Silinen İstek Sayısı: $lines(istekler.txt)
    msg #dj 4,4 0,1 
    msg #dj 4,4 0,1
    msg #dj 4,4 0,1 İstekler Sıfırlanmıştır.
    remove istekler.txt 
    write istekler.txt
  }
  if $regex($1,/^(!|.)isteklist/i) {
    if $lines(istekler.txt) == 0 { msg #dj 1iStek Listesi Boş. | return } 
    msg #dj 5 $nick 4iSteK Listesi SıraLanıyoR.
    var %- 1 | while %- <= $lines(istekler.txt) { msg #dj  $+(%-,-) $read(istekler.txt,%-) | inc %- }
    msg #dj 4iStek LisTeSi TamamLandı.
  }
  if $regex($1,/^[.!](şifre|şifreler|sifreler|pass|radyopass)/i) {
    if $nick isop #dj  {
      notice $nick 4,4 0,1 Radyo Bilgileri 4,4 
      notice $nick 4Şifre 1BiLgileri Tarafınıza GönderiLiyor4.1 Lütfen Bekleyin4.
      notice $nick 4Bu Bilgileri Lütfen Ki mseyle Paylaşmayın.        
      notice $nick 14 $str($chr(45),45)         
      notice $nick 5 Port 1: 4 %ipport1 
      notice $nick 5 Şifre 1: 4 $regsubex(%ipport2,/./ig,$chr(42)) 
      notice $nick 5 İp 1: 4 %ipport3
      notice $nick 14 $str($chr(45),45)
      notice $nick 1Şifre 7:1 Radyo 4 SorumLusundan1 ALıcakSınız4.
      notice $nick 14 $str($chr(45),45)
      notice $nick 5 Radyo Bilgilerinin Sonu.
      notice $nick 14 $str($chr(45),45)
      notice $nick 4 Radyo Bilgilerini Alan Nick 1( 5 $nick 1)
      notice $nick 14 $str($chr(45),45)
      notice $nick 5 Hoş Sohbetler 1,5 İyi Yayınlar 7 $nick
      notice $nick 14 $str($chr(45),45)
      notice $nick 2BU bilgiler 4Gizlidir, 2Paylaşılması halinda kişi hakkında tespit  ve işlem başlatılır..
      notice $nick 14 $str($chr(45),45)
      notice $nick 4 Yapımcı : 1*** 4CR 10C1o12d1eman 10Goemon 1***
      notice $nick 14 $str($chr(45),45)
      notice $nick 4,4 0,1 Radyo Bilgileri 4,4  
    }
    else {
      msg $chan 10 $nick 5Kanal 4operatörü 5değilsiniz. 
    }
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Radyo Link Alma
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:text:*:#radyo:{
  if !link* iswm $1 {
    msg $chan 8,1Radyomuzu 11Winamp7'tan 8,1Dinlemek İçin Tıklayın 13»0,1 https:// $+ %ipport3 $+ : $+ %ipport1 $+ /listen.pls
    msg $chan 
    msg $chan 8,1Radyomuzu 11Winamp7'tan 8,1Dinlemek İçin Tıklayın 13»0,1 https:// $+ %ipport3 $+ : $+ %ipport1 $+ /listen.pls
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Dj Karşılama Mesajı
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:join:#radyo: { 
  if (*!Dj@* iswm $fulladdress) { 
    if $istok( $+ $me Nick1,$nick,32) { return }
    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..
  } 
  if (*!DjSop@* iswm $fulladdress) { 
    if $istok( $+ $me Nick1,$nick,32) { return }
    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..
  } 
  if (*!DjMisafiR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick1,$nick,32) { return }
    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..
  } 
  if (*!DjFoundeR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick1,$nick,32) { return }
    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..
  }
  if (*!RadyoFoundeR@* iswm $fulladdress) { 
    if $istok( $+ $me Nick1,$nick,32) { return }
    describe # 2Radyo 12 $+ $remove($server,irc.) $+ -FM 7Dj4'2i10 $nick 2Şuanda4 # 2Kanalına Giriş Yaptı..
  }
}

menu channel {
  Radyop İp Port Menü:port-panel
}
alias port-panel { if $dialog(port-panel) { !echo -a 2Radyo İp Port Şifre Dialog'u Zaten 4AÇIK! } | else { !dialog -m port-panel port-panel } }
dialog port-panel {
  title "Radyo iP Port Şifre PaneLi"
  size -1 -1 120 81
  option dbu notheme
  box "    iP Port Sifre BilgiLendirmesi", 1, 2 1 115 48
  text "  Radyo PORTU", 2, 5 12 50 8
  text "  Radyo SiFRESi", 3, 5 24 50 9
  text "  Radyo iP Adresi", 4, 5 37 50 9
  edit %ipport1, 5, 60 11 53 10, autohs autovs
  edit %ipport2, 6, 60 23 53 10, autohs autovs
  edit %ipport3, 7, 60 36 53 10, autohs autovs
  button "TAMAM", 8, 3 53 33 12, ok
  button "KAYDET", 9, 43 53 33 12, flat
  button "KAPAT", 10, 83 53 33 12, cancel
  text " * mS - CR Codeman Goemon *", 11, 25 69 76 9
}

on *:dialog:port-panel:*:*:{
  if $devent == sclick {
    if $istok(8 9,$did,32) {
      set %ipport1 $did($dname,5)
      set %ipport2 $did($dname,6)
      set %ipport3 $did($dname,7)
    }
  }
}