IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

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

Kod:

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:

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:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;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:

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:

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***

  }

}