Çözüldü Dj Saatleri - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ZenqerDenq · 26 Mart 2017, 23:33

Başlıkta belirttiğim gibi dj saatlerini ekleye bileceğim düzenleye bileceğim veya sile bileceğim bir şey arıyorum sadece kendim tarafımdan düzenleye bileceğim lakin #dj kanalındaki yetkililerin !saatler komutu ile dj lere ait yayın programını göre bileceği bir sey arıyorum

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:33 -->-> Daha önceki mesaj 21:55 --

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşım özelden bir kod yollamış lakin bende kendimce bir şeyler hazırlamayı başara bildim lazım olan olursa diyerekde paylaşıyorum

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

On 1:input:#dj:{
  if ($1 == !yaz) {
    if !$2 { msg # Lütfen ekliyeceginiz Nick i  belirtiniz. | return }
    if $read(dj.txt,w,$strip($2-)) { msg # Belirttiginiz Dj Ekli. | return }
    .write dj.txt $strip($2-)
    msg # [ $strip($2-) ] Dj Saati  Eklenmişdir.
  }
  if ($1 == !sil) {
    if !$2 { msg # Lütfen sileceginiz Nick'i belirtiniz. | return }
    if $read(dj.txt,w,$strip($2-)) { .write $+(-dl,$readn) dj.txt | msg # [ $strip($2-) ] Nick listem'den silinmişdir. | return }
    else { msg # Belirttiginiz Nick listem'de bulunmamaktadır. | return }
  }
  if ($1 == !saatler) {
    if $lines(dj.txt) == 0 { msg # Dj listesinde kayıt bulunmamaktadır. | return }
    var %t = 1 | while %t <= $lines(dj.txt) {
      msg # 4 $+(%t,.)  $read(dj.txt,%t)
      inc %t
    }
  }
}
on *:text:*:#dj:{
  if ($1 == !saatler) {
    if $lines(dj.txt) == 0 { msg # Dj listesinde kayıt bulunmamaktadır. | return }
    var %t = 1 | while %t <= $lines(dj.txt) {
      msg # 4 $+(%t,.)  $read(dj.txt,%t)
      inc %t
    }
  }
}

Mecnun · 27 Mart 2017, 00:39

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

on *:input:#dj:{
  var %saatler 08-10 10-12 12-14 14-16 16-18 18-20 20-22 22-00 00-02 02-04 04-06 06-08 Joker, %x 1
  if $regex($strip($1),/^[!.]djekle(.+)$/i) { var %saat $regml(1)
    if (%saat > 13) { msg # Lutfen $v2 ve alti numaralar belirtiniz. | return }
    if !$2 { msg # Lutfen nick belirtiniz Ornek: !djekle1 Aeg | return }
    if $token(%saatler,%saat,32) { 
      if ($v1 == joker) { 
        Msg # -
        msg # 2Joker yayinci eklenmistir, Eklenen nick(ler) ->4 $2-
        Msg # -
        set $+(%,djsaat,%saat) $2-
        return
      }
      Msg # 5 $2- 2Radyo Departmanında Ekibimize
      Msg # 2Dj Olarak Eklenmiş ve 4 $regsubex($v1,/(\w+)/g,\t $+ :00 ) 2Saatleri Arasında Radyomuzda Yayın Yapacaktır.
      Msg # 5 $2 2Radyo Departmanında Yönetimi Olarak İyi Yayınlar ve Başarılar Dileriz.
      set $+(%,djsaat,%saat) $2-
    }
  }
  if ($regex($1,/[!.]yay(ı|i)nl(ı|i)st$/i)) {
    if !$nick(#,$nick,oh) { msg # $nick kanalda yetkili degilsiniz. | return }
    Msg $chan 4,4 0,1 Radyo Yayin Saatleri 4,4 
    while $token(%saatler,%x,32) { var %v1 $v1, %v2 %djsaat [ $+ [ %x ] ], %saat $iif(%v1 == joker,Joker Yayincilar,$regsubex(%v1,/(\w+)/g,\t $+ :00 ))
      Msg $chan 4Saat - 10 %saat 4- 2Dj 4~12 $iif(%v2,$v1,Bulunmuyor)  4~
      inc %x
    }
    msg $chan -
    Msg $chan 1Herkes yayın saatlerine uymaya çalışsın4. 
    Msg $chan 4İsteklere 1önem verelim arkadaşlar4. 1Anlayışınız için şimdiden 4teşekkür ederim1. 
    Msg $chan 7,1BiLGi:
    Msg $chan 4,4 0,1 Radyo $+($network,4-10FM) 4,4 1Yayin Saatinde herkes burda bulunmak zorundadir.Yayin saatine 3 kez gelmeyen DJ nin yayin saati siLinir ve hak talep edemez.
  }
}

buyur kardeşim örnek kullanımı kod içerisinde mevcuttur kod @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] e ait tamamen.

ZenqerDenq · 27 Mart 2017, 13:15

sadece admin ve &Sop lar ekleme silme düzenlemeye yapa bilmesi icin ne yapmalıyız @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mecnun · 27 Mart 2017, 15:36

if !$nick(#,$nick,oh) { msg # $nick kanalda yetkili degilsiniz. | return }

zaten kodda öyle bir şey mevcut, input'u on *:text:*:#kanal:{ olarak değiştirirsen tamamdır o iş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

aquabluee · 28 Ağustos 2019, 15:23

Merhaba Set 'in yapmış olduğu addonu kullanıorum fakat mirci kapatıp acınca eklediğim verilerde siliniyor silinmemesi için ne yapmam gerekiyor.

YouMyCure · 28 Ağustos 2019, 15:39

aquabluee Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhaba Set 'in yapmış olduğu addonu kullanıorum fakat mirci kapatıp acınca eklediğim verilerde siliniyor silinmemesi için ne yapmam gerekiyor.

komple kodu paylaşırmısınız.

aquabluee · 28 Ağustos 2019, 16:40

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

on *:input:#dj:{
  var %saatler 08-10 10-12 12-14 14-16 16-18 18-20 20-22 22-00 00-02 02-04 04-06 06-08 Joker, %x 1
  if $regex($strip($1),/^[!.]djekle(.+)$/i) { var %saat $regml(1)
    if (%saat > 13) { msg # Lutfen $v2 ve alti numaralar belirtiniz. | return }
    if !$2 { msg # Lutfen nick belirtiniz Ornek: !djekle1 Aeg | return }
    if $token(%saatler,%saat,32) { 
      if ($v1 == joker) { 
        Msg # -
        msg # 2Joker yayinci eklenmistir, Eklenen nick(ler) ->4 $2-
        Msg # -
        set $+(%,djsaat,%saat) $2-
        return
      }
      Msg # 5 $2- 2Radyo Departmanında Ekibimize
      Msg # 2Dj Olarak Eklenmiş ve 4 $regsubex($v1,/(\w+)/g,\t $+ :00 ) 2Saatleri Arasında Radyomuzda Yayın Yapacaktır.
      Msg # 5 $2 2Radyo Departmanında Yönetimi Olarak İyi Yayınlar ve Başarılar Dileriz.
      set $+(%,djsaat,%saat) $2-
    }
  }
  if ($regex($1,/[!.]yay(ı|i)nl(ı|i)st$/i)) {
    if !$nick(#,$nick,oh) { msg # $nick kanalda yetkili degilsiniz. | return }
    Msg $chan 4,4 0,1 Radyo Yayin Saatleri 4,4 
    while $token(%saatler,%x,32) { var %v1 $v1, %v2 %djsaat [ $+ [ %x ] ], %saat $iif(%v1 == joker,Joker Yayincilar,$regsubex(%v1,/(\w+)/g,\t $+ :00 ))
      Msg $chan 4Saat - 10 %saat 4- 2Dj 4~12 $iif(%v2,$v1,Bulunmuyor)  4~
      inc %x
    }
    msg $chan -
    Msg $chan 1Herkes yayın saatlerine uymaya çalışsın4. 
    Msg $chan 4İsteklere 1önem verelim arkadaşlar4. 1Anlayışınız için şimdiden 4teşekkür ederim1. 
    Msg $chan 7,1BiLGi:
    Msg $chan 4,4 0,1 Radyo $+($network,4-10FM) 4,4 1Yayin Saatinde herkes burda bulunmak zorundadir.Yayin saatine 3 kez gelmeyen DJ nin yayin saati siLinir ve hak talep edemez.
  }
}

kod bu sekilde

YouMyCure · 28 Ağustos 2019, 16:59

aquabluee Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

on *:input:#dj:{
  var %saatler 08-10 10-12 12-14 14-16 16-18 18-20 20-22 22-00 00-02 02-04 04-06 06-08 Joker, %x 1
  if $regex($strip($1),/^[!.]djekle(.+)$/i) { var %saat $regml(1)
    if (%saat > 13) { msg # Lutfen $v2 ve alti numaralar belirtiniz. | return }
    if !$2 { msg # Lutfen nick belirtiniz Ornek: !djekle1 Aeg | return }
    if $token(%saatler,%saat,32) { 
      if ($v1 == joker) { 
        Msg # -
        msg # 2Joker yayinci eklenmistir, Eklenen nick(ler) ->4 $2-
        Msg # -
        set $+(%,djsaat,%saat) $2-
        return
      }
      Msg # 5 $2- 2Radyo Departmanında Ekibimize
      Msg # 2Dj Olarak Eklenmiş ve 4 $regsubex($v1,/(\w+)/g,\t $+ :00 ) 2Saatleri Arasında Radyomuzda Yayın Yapacaktır.
      Msg # 5 $2 2Radyo Departmanında Yönetimi Olarak İyi Yayınlar ve Başarılar Dileriz.
      set $+(%,djsaat,%saat) $2-
    }
  }
  if ($regex($1,/[!.]yay(ı|i)nl(ı|i)st$/i)) {
    if !$nick(#,$nick,oh) { msg # $nick kanalda yetkili degilsiniz. | return }
    Msg $chan 4,4 0,1 Radyo Yayin Saatleri 4,4 
    while $token(%saatler,%x,32) { var %v1 $v1, %v2 %djsaat [ $+ [ %x ] ], %saat $iif(%v1 == joker,Joker Yayincilar,$regsubex(%v1,/(\w+)/g,\t $+ :00 ))
      Msg $chan 4Saat - 10 %saat 4- 2Dj 4~12 $iif(%v2,$v1,Bulunmuyor)  4~
      inc %x
    }
    msg $chan -
    Msg $chan 1Herkes yayın saatlerine uymaya çalışsın4. 
    Msg $chan 4İsteklere 1önem verelim arkadaşlar4. 1Anlayışınız için şimdiden 4teşekkür ederim1. 
    Msg $chan 7,1BiLGi:
    Msg $chan 4,4 0,1 Radyo $+($network,4-10FM) 4,4 1Yayin Saatinde herkes burda bulunmak zorundadir.Yayin saatine 3 kez gelmeyen DJ nin yayin saati siLinir ve hak talep edemez.
  }
}

kod bu sekilde

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

set $+(%,djsaat,%saat) $2-

variable (değişken) kullanılmış, kapatıp açınca herhangi bir şekilde silinmiyor, kendim şahsende denedim. boş bir mircde deneyiniz çakışma olabilir.

diEfoRyoU · 28 Ağustos 2019, 21:42

muhtemelen mircinde şöyle bir komut mevcut unset %* bu komut bütün değişkenleri siliyor. Cycle bot varsa kullandığın scriptte kodlamaları gözden geçirmelisin.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İlk Kol Saatleri	Afrodit	Merak Ettikleriniz	1	16 Aralık 2012 11:02
Ömrümün mor saatleri.	Melodram	Şiir, Hikaye ve Güzel Sözler	0	09 Haziran 2012 18:02
Yıldız Saatleri	Swat	İslamiyet	0	15 Mart 2012 22:26
Kum saatleri	SiLuet	Zeka Küpü	5	06 Mart 2012 11:50
Led'li Kol Saatleri	pyracantha	Ah Erkekler	0	26 Kasım 2011 18:37

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.