IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü Dj Saatleri (https://www.ircforumlari.net/mirc-scripting-sorunlari/770684-dj-saatleri.html)

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:

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

    }

  }

}

Cevap: Dj Saatleri

Kod:

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.

Cevap: Dj Saatleri

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...]

Cevap: Dj Saatleri

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ş =)

Cevap: Dj Saatleri

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.

Cevap: Dj Saatleri

Alıntı:

aquabluee Nickli Üyeden Alıntı (Mesaj 1042143487)

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.

Cevap: Dj Saatleri

Kod:

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

Cevap: Dj Saatleri

Alıntı:

aquabluee Nickli Üyeden Alıntı (Mesaj 1042143540)

Kod:

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:

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.

Cevap: Dj Saatleri

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.