[yokay]

Merhabalar, mIRC'ıma veya bota cezalı nick ekleyeceğim, ceza listesinde olan user voice aldığı zaman, ceza listesindesiniz, voice alamazsınız yazmalı böyle bir kod mümkün müdür?

[Mecnun]

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

on *:voice:#:{ if $nick !isop # { if $read(ceza.txt,w,$2) { mode # -v $2 | msg # $2 ceza listesinde oldugunuz için (+) prefixsini alamazsınız. } } }
on *:text:*:#: {
  if $regex($1,/^([.!]ceza)/Si) {
    if $2 == $null {
      msg $chan 4HATA: 2Yetersiz ya da eksik kullanım. Lütfen seçenek belirtin; 4!ceza ekle|sil|list
    }
    else {
      if $2 == list {
        if $lines(ceza.txt) == 0 {
          msg $chan 2Ceza listesinde kullanıcı bulunamadı.
        }
        else {
          msg $chan 4Ceza listesi sıralanıyor.
          msg $chan $str(-,20)
          var %i 1
          while %i <= $lines(ceza.txt) {
            msg $chan %i - $read(ceza.txt,%i)
            inc %i
          }
        }
      }
      if $2 == ekle {
        if $3 == $null {
          msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !ceza ekle nick
          .halt
        }
        if $read(ceza.txt,w,$3) {
          msg $chan 4 $+ $3 $+ , 2zaten listede ekli.
        }
        else {
          write ceza.txt $3
          msg $chan 4 $+ $3 $+ , 2ceza listesine eklenmiştir.
        }
      }
      if $2 == sil {
        if $3 == $null {
          msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !ceza sil nick
          .halt
        }
        if !$read(ceza.txt,w,$3) {
          msg $chan 4 $+ $3 $+ , 2listede bulunamadı.
        }
        else {
          write -dw $+ $3 ceza.txt
          msg $chan 4 $+ $3 $+ , 2ceza listesinden silinmiştir.
        }

[Tinba]

* /if: Kapalı ayraç bulunamadı (Satır 3, Voice yasak.txt)
-
* /if: Kapalı ayraç bulunamadı (Satır 3, Voice yasak.txt)

Hatası veriyor

[yokay]

on *:voice:#:{ if ($nick !isop #) || ($me isop #) || ($nick !isop #){ if $read(cezavoice.txt,w,$2) { mode # -v $2 | msg #fantazi@ 7««««1 $2 6 AngeLus 7Tarafından 13cezalı olduğu için (-)devoice 7YapıLdı. } } }
on ^*:VOICE:#:{
if ($vnick != $me) {
if !$istok(#staff #fantazi@ kanal3,$chan,32) && ($vnick != $me) {
msg #fantazi@ 7««««1 $2 6 $nick 7Tarafından 13(+)Voice 7YapıLdı, 4!ceza oku 7yaparak ceza listesinden konrol ediniz...
haltdef
halt
}
}
bu işinizi görür, biraz uğraştan sonra sorunsuz gbi

[Mecnun]

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

* /if: Kapalı ayraç bulunamadı (Satır 3, Voice yasak.txt) - * /if: Kapalı ayraç bulunamadı (Satır 3, Voice yasak.txt) Hatası veriyor

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

on *:voice:#:{ if $read(ceza.txt,w,$2) { mode # -v $2 | msg # $2 ceza listesinde oldugunuz için (+) prefixsini alamazsınız. } } }
on *:text:*:#kanal: {
  if $regex($1,/^([.!]ceza)/Si) {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. } 
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !ceza ekle|liste|sil | return }
  }
  if $2 == liste {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if $lines(ceza.txt) = 0 { msg # 2Ceza kayiti bulunamadi. | halt }
    msg # 2Ceza listesi siralaniyor.
    var %massacre 1
    while (%massacre <= $lines(ceza.txt)) {
      msg # %massacre $read(ceza.txt,%massacre)
      inc %massacre
    }
  }
  if $2 == ekle {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if !$3 { msg # 2Lütfen nick belirtiniz.4 !ceza ekle nick | return }
    if $read(ceza.txt,w,$nick) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. }
    write ceza.txt $3
    msg $chan 4 $+ $3 $+ , 2ceza listesine eklenmiştir.
  }
  if $2 == sil {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if !$3 { msg # 2Lütfen nick belirtiniz.4 !ceza sil numara | return }
    if !$read(ceza.txt,w,$3) { msg $chan 4 $+ $3 $+ , 2listede bulunamadı. }
    write -dw $+ $3 ceza.txt
    msg $chan 4 $+ $3 $+ , 2ceza listesinden silinmiştir.
  }
}

[diE]

Mode Komutunda tepki göstermiyor sadece Operserv tarafından Komut yazılırsa tepki veriyor

<diE> !v ||
* Bot mod değiştirdi:+v ||
<Bot> || kanalda voice (+v) konumuna geçtiniz.

* diE mod değiştirdi:+v ||
<Bot> || kanalda voice (+v) konumuna geçtiniz.

* OperServ mod değiştirdi:+v ||
<Bot> || Ceza listesinde oldugunuz için (+) prefixsini alamazsınız.
* Bot mod değiştirdi:-v ||

[Mecnun]

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

Mode Komutunda tepki göstermiyor sadece Operserv tarafından Komut yazılırsa tepki veriyor <diE> !v || * Bot mod değiştirdi:+v || <Bot> || kanalda voice (+v) konumuna geçtiniz. * diE mod değiştirdi:+v || <Bot> || kanalda voice (+v) konumuna geçtiniz. * OperServ mod değiştirdi:+v || <Bot> || Ceza listesinde oldugunuz için (+) prefixsini alamazsınız. * Bot mod değiştirdi:-v ||

yukarıdaki kodu düzelttim tekrar deneyin

[mys_35]

!ceza ekle nick yaptım o nicke voice verilmiyor sebebini !ceza ekle nick sebeb olsa bunuda !ceza oku gib, yapıp nick neden voice yasagı almış bilsek daha iyi olur

[Alper]

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

!ceza ekle nick yaptım o nicke voice verilmiyor sebebini !ceza ekle nick sebeb olsa bunuda !ceza oku gib, yapıp nick neden voice yasagı almış bilsek daha iyi olur

Zaten liste komutu olduğu için ekle bir komut eklemedim var olan listede gözükmesini sağladım. Sebep kısmı boş bırakılırsa eklenirken Belirsiz olarak gözükür.

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

on *:voice:#:{ if $read(ceza.txt,w,$+($2,¿,*)) { mode # -v $2 | msg # $2 2Ceza listesinde oldugunuz için 4(+) 2prefixsini alamazsınız. } }
on *:text:*:#: {
  if $regex($1,/^([.!]ceza)/Si) {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. | return } 
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !ceza ekle|liste|sil | return }
  }
  if $2 == liste {
    if $lines(ceza.txt) = 0 { msg # 2Ceza kayiti bulunamadi. | halt }
    msg # 2Ceza listesi siralaniyor.
    var %massacre 1
    while (%massacre <= $lines(ceza.txt)) {
      msg # $+(%massacre,-,$chr(41),) 4Nick:2 $token($read(ceza.txt,%massacre),1,191) 4Sebep:2 $token($read(ceza.txt,%massacre),2,191)
      inc %massacre
    }
  }
  if $2 == ekle {
    if !$3 { msg # 2Lütfen nick belirtiniz.4 !ceza ekle nick | return }
    if $read(ceza.txt,w,$+($3,¿,*)) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. | return }
    write ceza.txt $+($3,¿,$iif($4 == $null,Belirsiz,$4-))
    msg $chan 4 $+ $3 $+ , 2ceza listesine eklenmiştir. 4Sebep:2 $iif($4 == $null,Belirsiz,$4-)
  }
  if $2 == sil {
    if !$3 { msg # 2Lütfen nick belirtiniz.4 !ceza sil numara | return }
    if !$read(ceza.txt,w,$+($3,¿,*)) { msg $chan 4 $+ $3 $+ , 2listede bulunamadı. | return }
    write -dw $+ $+($3,¿,*) ceza.txt
    msg $chan 4 $+ $3 $+ , 2ceza listesinden silinmiştir.
  }
}

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.