[immortaL]

RadyoYönetim Yayın Saati Diyalog Menüsü

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

menu channel {
  RadyoYönetim YayınSaati Menüsü:radyoyönetim
}
alias radyoyönetim { if $dialog(radyoyönetim) { !echo -a 2Radyo Yönetim ve Yayın Saati Dialog'u Zaten 4AÇIK! } | else { !dialog -m radyoyönetim radyoyönetim } }
dialog radyoyönetim {
  title "Radyo Dj Yönetim ve Radyo Yayin SaatLeRi PaneLi"
  size -1 -1 225 219
  option dbu notheme
  box "               Radyo Dj Yonetim Listesi", 1, 2 2 112 215
  box "                  Radyo Dj Yayin SaaTLeRi", 2, 116 2 106 134
  text " Radyo Dj FoundeR", 3, 5 11 50 9
  edit %djyön1, 4, 56 10 56 10, autohs autovs
  text " Radyo Dj Yardimcisi", 5, 5 23 52 8
  text " Radyo Dj Yardimcisi", 6, 5 34 53 8
  text " Radyo Dj Yardimcisi", 7, 5 44 52 9
  text "  Radyo Dj Sop", 8, 5 55 50 9
  text "  Radyo Dj Sop", 9, 5 66 50 8
  text "  Radyo Dj Sop", 10, 5 77 50 9
  text "  Radyo Dj Aop", 11, 5 87 50 8
  text "  Radyo Dj Aop", 12, 5 99 50 8
  text "  Radyo Dj Aop", 13, 5 110 50 9
  text "  Radyo Dj Aop", 14, 5 121 50 8
  text "  Radyo Dj Aop", 15, 5 131 50 9
  text "  Radyo Dj Aop", 16, 5 142 50 8
  text "  Radyo Dj Aop", 17, 5 153 50 9
  text "  Radyo Dj Aop", 18, 5 163 50 9
  text "  Radyo Dj Aop", 19, 5 174 50 9
  text "  Radyo Dj Aop", 20, 5 185 50 8
  text "  Radyo Dj Aop", 21, 5 195 50 8
  text "  Radyo Dj Aop", 22, 5 205 50 8
  edit %djyön2, 23, 56 22 56 10, autohs autovs
  edit %djyön3, 24, 56 33 56 10, autohs autovs
  edit %djyön4, 25, 56 43 56 10, autohs autovs
  edit %djyön5, 26, 56 54 56 10, autohs autovs
  edit %djyön6, 27, 56 65 56 10, autohs autovs
  edit %djyön7, 28, 56 76 56 10, autohs autovs
  edit %djyön8, 29, 56 86 56 10, autohs autovs
  edit %djyön9, 30, 56 97 56 10, autohs autovs
  edit %djyön10, 31, 56 108 56 10, autohs autovs
  edit %djyön11, 32, 56 119 56 10, autohs autovs
  edit %djyön12, 33, 56 129 56 10, autohs autovs
  edit %djyön13, 34, 56 140 56 10, autohs autovs
  edit %djyön14, 35, 56 151 56 10, autohs autovs
  edit %djyön15, 36, 56 162 56 10, autohs autovs
  edit %djyön16, 37, 56 173 56 10, autohs autovs
  edit %djyön17, 38, 56 184 56 10, autohs autovs
  edit %djyön18, 39, 56 194 56 10, autohs autovs
  edit %djyön19, 40, 56 204 56 10, autohs autovs
  text "     08:00 / 10:00", 41, 118 10 50 8
  text "     10:00 / 12:00", 42, 118 20 50 8
  text "     12:00 / 14:00", 43, 118 30 50 9
  text "     14:00 / 16:00", 44, 118 40 50 8
  text "     16:00 / 18:00", 45, 118 50 50 9
  text "     18:00 / 20:00", 46, 118 61 50 8
  text "     20:00 / 22:00", 47, 118 71 50 9
  text "     22:00 / 24:00", 48, 118 82 50 8
  text "     24:00 / 02:00", 49, 118 93 50 9
  text "     02:00 / 04:00", 50, 118 104 50 9
  text "     04:00 / 06:00", 51, 118 114 50 9
  text "     06:00 / 08:00", 52, 118 125 50 9
  edit %djsaat1, 53, 170 9 50 10, autohs autovs
  edit %djsaat2, 54, 170 19 50 10, autohs autovs
  edit %djsaat3, 55, 170 29 50 10, autohs autovs
  edit %djsaat4, 56, 170 39 50 10, autohs autovs
  edit %djsaat5, 57, 170 49 50 10, autohs autovs
  edit %djsaat6, 58, 170 60 50 10, autohs autovs
  edit %djsaat7, 59, 170 70 50 10, autohs autovs
  edit %djsaat8, 60, 170 81 50 10, autohs autovs
  edit %djsaat9, 61, 170 91 50 10, autohs autovs
  edit %djsaat10, 62, 170 102 50 10, autohs autovs
  edit %djsaat11, 63, 170 112 50 10, autohs autovs
  edit %djsaat12, 64, 170 124 50 10, autohs autovs
  button "TAMAM", 65, 118 138 32 13, ok
  button "KAYDET", 66, 153 152 33 12, flat
  button "KAPAT", 67, 188 164 32 12, cancel
  text "* mS - CR Codeman Goemon *", 68, 132 183 76 9
  link "www.Goemon.com", 69, 147 200 55 8
}

on *:dialog:radyoyönetim:*:*:{
  if $devent == sclick {
    if $istok(65 66,$did,32) {
      set %djyön1 $did($dname,4)
      set %djyön2 $did($dname,23)
      set %djyön3 $did($dname,24)
      set %djyön4 $did($dname,25)
      set %djyön5 $did($dname,26)
      set %djyön6 $did($dname,27)
      set %djyön7 $did($dname,28)
      set %djyön8 $did($dname,29)
      set %djyön9 $did($dname,30)
      set %djyön10 $did($dname,31)
      set %djyön11 $did($dname,32)
      set %djyön12 $did($dname,33)
      set %djyön13 $did($dname,34)
      set %djyön14 $did($dname,35)
      set %djyön15 $did($dname,36)
      set %djyön16 $did($dname,37)
      set %djyön17 $did($dname,38)
      set %djyön18 $did($dname,39)
      set %djyön19 $did($dname,40)
      set %djsaat1 $did($dname,53)
      set %djsaat2 $did($dname,54) 
      set %djsaat3 $did($dname,55)
      set %djsaat4 $did($dname,56)
      set %djsaat5 $did($dname,57)
      set %djsaat6 $did($dname,58)
      set %djsaat7 $did($dname,59)
      set %djsaat8 $did($dname,60)
      set %djsaat9 $did($dname,61)
      set %djsaat10 $did($dname,62)
      set %djsaat11 $did($dname,63)
      set %djsaat12 $did($dname,64)
    }
  }
}

#Radyo #istek #dj Kanalında AUTO Opa Çıkar

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:join:#radyo,#dj,#istek: { 
  if $nick == $me { samode $chan +o $me | msg #dj 4 $chan 12KanaLında7  $nick 4AUTO OP 12Konumuna Geçtim. }
}

#Radyo Kanalına Girene Özelde Karşılama

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;Radyo Kanalında Girene Özelde Mesaj
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:join:#radyo:{ if ($nick != $me) { /.inc %giris
    msg $nick 4 $token($server,2-,$asc(.)) 2Radyo Yönetim AiLesine 4Hoş Geldiniz."
    msg $nick 2Sunucumuzda 2kurallara lütfen uyunuz."
    msg $nick 2Sunucumuzda 2Radyo kanalımız4 # 2kanalıdır."
    msg $nick 2Sunucumuzda4 # 2Kanalında Suan12 $nick($chan,0) 2Kişi Sohbet Etmektedir..
    msg $nick 2Winaptan bizleri4https:// $+ %ipport3 $+ : $+ %ipport1 $+ /listen.pls 2dinleyebilirsiniz."
    msg $nick 2İsteklerinizi4 # 2kanalindan yapabilirsiniz..."
    msg $nick 1!istek sanatçıadı parçası 2Sizlere Gelsin Gibi..."
    msg $nick 2Diğer bilgilerimiz için4 /motd 2yazabilirsiniz."
  }
}

!radyopass Kodunu Paylaştım Ama Bana Sadece Bu Code Lazım Olur Derseniz Size Kullanabilceğiniz Şekilde Kısa Bir Code Yine Vermek İstedim

Buyrun.

#Dj Kanalında Radyo Yayınının Şifresini Portunu Örenmek İçin #Dj Kanalında Op Ekli Olmanız Şart ve #Dj Kanalında Radyo ip Port

Şifresini !radyopass Yazarak Öğrene Bilirsiniz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on @*:text:*:#dj:{
  if $strip($1) == !radyopass { 
    if $nick isop #dj  {
      notice $nick 4,4 0,1 Radyo Bilgileri 4,4 
      notice $nick 4Şifre 1BiLgileri ÖzeLinize 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 Gizlidir, Paylaşı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 ve #istek Kanalına Giren Kişilere Radyo Yönetimi Ve Yayın Saatleri Hakkında Bilgi Verir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:join:#: { 
  if ($chan == #radyo) {
    if $nick == $me { halt }
    notice $nick 7• 2~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    notice $nick 7• 12IRC10 $+ $token($server,2-,$asc(.)) 12Radyo Yönetim AiLeSi -
    notice $nick 7• 2~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    notice $nick 7• 
    notice $nick 7• 4Radyo Sorumlusu:
    notice $nick 7• 12 %djyön1 
    notice $nick 7• 
    notice $nick 7• 4Yardımcı Radyo Sorumlusu: 
    notice $nick 7• 10 %djyön2 9- 2 %djyön3 9-  2 %djyön4
    notice $nick 7• 
    notice $nick 7• 4Radyo Dj 1LeR:
    notice $nick 7• 6 %djyön5 9- 6 %djyön6 9-  6 %djyön7 9-  6 %djyön8 9-  6 %djyön9
    notice $nick 7• 
    notice $nick 7• 6 %djyön10 9-  2 %djyön11 9- 2 %djyön12  9-  2 %djyön13 9- 2 %djyön14
    notice $nick 7• 
    notice $nick 7• 2 %djyön15  9- 2 %djyön16 9- 2 %djyön17 9-  2 %djyön18  9-  2 %djyön19
    notice $nick 7• 
    notice $nick 7• 2~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    notice $nick 7• 4Istek öneri ve şikayetleriniz için Msn Adresimiz: 2ircadmin@ $+ $token($server,2-,$asc(.)) 
    notice $nick 7• 2~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    notice $nick 7• 4CR 10C1o12d1eman 10Goemon
    notice $nick 7• 14=~~=~~=~~=~~=~~=~~=~~=~~=~~=~~=~
    notice $nick 7• 
    notice $nick 7•  4«10®adyoMøtd4»
    notice $nick 7• 
    notice $nick 7• 14=~~=~~=~~=~~=~~=~~=~~=~~=~~=~~=~
  }
  if ($chan == #istek) { 
    if $nick == $me { halt }
    notice $nick 12 $token($server,2-,$asc(.)) 5IRC Ağı Radyo Departmanında Görev ALmakta OLan 
    notice $nick             4Dj Yayın Saatleri;
    notice $nick 7==========================================
    notice $nick 4Saat - 5 08:00 4- 5 10:00 4- 2Dj 4~12 %djsaat1 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 10:00 4- 5 12:00 4- 2Dj 4~12 %djsaat2 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 12:00 4- 5 14:00 4- 2Dj 4~12 %djsaat3 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 14:00 4- 5 16:00 4- 2Dj 4~12 %djsaat4 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 16:00 4- 5 18:00 4- 2Dj 4~12 %djsaat5 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 18:00 4- 5 20:00 4- 2Dj 4~12 %djsaat6 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 20:00 4- 5 22:00 4- 2Dj 4~12 %djsaat7 4~ 
    notice $nick 7==========================================
    notice $nick 4Saat - 5 22:00 4- 5 24:00 4- 2Dj 4~12 %djsaat8 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 24:00 4- 5 02:00 4- 2Dj 4~12 %djsaat9 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 02:00 4- 5 04:00 4- 2Dj 4~12 %djsaat10 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 04:00 4- 5 06:00 4- 2Dj 4~12 %djsaat11 4~
    notice $nick 7==========================================
    notice $nick 4Saat - 5 06:00 4- 5 08:00 4- 2Dj 4~12 %djsaat12 4~
    notice $nick 7==========================================
    notice $nick 12***
  }
}