Shunlist hk. - lookjapan.COM

SampLeSs · 28 Ocak 2019, 19:26

Selamlar herkese, kendimce bir kod yapmaya çalıştım. Kodları birleştirerek yaptığım bu çalışmada kanala giren ____ nickini shunlu liste eklediğim zaman alper____ nicki de shun yiyor. Bu sorunu çözmek istiyorum. Birde shunliste eklediğim insan farklı nickle login olup nickini shunlistteki yaparsa yine shun yesin istiyorum. Yardımlarınız için teşekkürler.

PHP- Kodu:


  
   
on !*:join:#sohbet:{

  var %1 = 1 

  while ($read(dosya.txt,%1)) { 

    if ($v1 isin $nick) { 

      inc %_bnick 

      timerlmr 1 3 /msg #opers .shun $nick Tedbir.

      timerlms 1 4 /msg #xxx 4 $date $time 1tarihinde5 $nick 1giriş yaptı ve shun atıldı. 

      break 

    } 

    inc %1 

  } 

}

on *:input:*: {

  if !$istok(#opers #opersohbet,$chan,32) {

    if $regex($1,/^([.!]shun)/Si) {

      if $2 == $null {

        msg #xxx 4HATA: 2Yetersiz ya da eksik kullanım. Lütfen seçenek belirtin; 4!shun ekle|sil|list

      }

      else {

        if $2 == list {

          if $lines(dosya.txt) == 0 {

            msg #xxx 2Shun listesinde kullanıcı bulunamadı.

          }

          else {

            msg #xxx 4Shun listesi sıralanıyor.

            msg #xxx $str(-,20)

            var %1 1

            while %1 <= $lines(dosya.txt) {

              msg $chan %1 - $read(dosya.txt,%1)

              inc %1

            }

          }

        }

        if $2 == ekle {

          if $3 == $null {

            msg #xxx 2Lütfen bir nick seçiniz 4Kullanımı; !shun ekle nick

            .halt

          }

          if $read(dosya.txt,w,$3) {

            msg #xxx 4 $+ $3 $+ , 2zaten listede ekli.

          }

          else {

            write dosya.txt $3

            msg #xxx 4 $+ $3 $+ , 2ceza listesine eklenmiştir.

          }

        }

        if $2 == sil {

          if $3 == $null {

            msg #xxx 2Lütfen bir nick seçiniz 4Kullanımı; !ceza sil nick

            .halt

          }

          if !$read(dosya.txt,w,$3) {

            msg #xxx 4 $+ $3 $+ , 2listede bulunamadı.

          }

          else {

            write -dw $+ $3 dosya.txt

            msg #xxx 4 $+ $3 $+ , 2Shun listesinden silinmiştir.

          }

        }

      }

    }

  }

}

pCkOpAt · 28 Ocak 2019, 19:30

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sorunun kaynağı if ($v1 isin $nick) { olarak kullanıldığı için _ işaretinin geçtiği her şeyi baz alır bunun yerine iswm kullanarak hem sorunu ortadan kaldırıp hemde joker karakterleri kullanma imkanınız olur. Ek olarak nick değişimlerinde aktif olması için kod ekledim.

Kod:

on !*:join:#sohbet:{
  var %1 = 1 
  while ($read(dosya.txt,%1)) { 
    if ($v1 iswm $nick) { 
      inc %_bnick 
      msg #opers .shun $nick Tedbir.
      msg #xxx 4 $date $time 1tarihinde5 $nick 1giriş yaptı ve shun atıldı. 
      break 
    } 
    inc %1 
  } 
}
on *:NICK: {
  var %1 = 1 
  while ($read(dosya.txt,%1)) { 
    if ($v1 iswm $newnick) { 
      inc %_bnick 
      msg #opers .shun $newnick Tedbir.
      break 
    } 
    inc %1 
  } 
}
on *:input:*: {
  if !$istok(#opers #opersohbet,$chan,32) {
    if $regex($1,/^([.!]shun)/Si) {
      if $2 == $null {
        .timer -h 1 500 msg $chan 4HATA: 2Yetersiz ya da eksik kullanım. Lütfen seçenek belirtin; 4!shun ekle|sil|list
      }
      else {
        if $2 == list {
          if $lines(dosya.txt) == 0 {
            .timer -h 1 500 msg $chan 2Shun listesinde kullanıcı bulunamadı.
          }
          else {
            .timer -h 1 500 msg $chan 4Shun listesi sıralanıyor.
            .timer -h 1 500 msg $chan $str(-,20)
            var %1 1
            while %1 <= $lines(dosya.txt) {
              .timer -h 1 500 msg $chan %1 - $read(dosya.txt,%1)
              inc %1
            }
          }
        }
        if $2 == ekle {
          if $3 == $null {
            .timer -h 1 500 msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !shun ekle nick
            .halt
          }
          if $read(dosya.txt,w,$3) {
            .timer -h 1 500 msg $chan 4 $+ $3 $+ , 2zaten listede ekli.
          }
          else {
            write dosya.txt $3
            .timer -h 1 500 msg $chan 4 $+ $3 $+ , 2ceza listesine eklenmiştir.
          }
        }
        if $2 == sil {
          if $3 == $null {
            .timer -h 1 500 msg $chan 2Lütfen bir nick seçiniz 4Kullanımı; !shun sil nick
            .halt
          }
          if !$read(dosya.txt,w,$3) {
            .timer -h 1 500 msg $chan 4 $+ $3 $+ , 2listede bulunamadı.
          }
          else {
            write -dw $+ $3 dosya.txt
            .timer -h 1 500 msg $chan 4 $+ $3 $+ , 2Shun listesinden silinmiştir.
          }
        }
      }
    }
  }
}

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