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

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

- - Yetkili ekleme.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/310203-yetkili-ekleme.html)

Yetkili ekleme..

Bir code'yi kullanabilecek yetkilileri bir dosya icerisine yazdirip silmek ve listelemek icin asagidaki gibi bir yol izledim ama olmadi..

on *:start:{
if (!$hget(Kyetki) { Hmake Kyetki 10 | Hload Kyetki Kyetki.hsh }
}

code burada..

on *:text:*:?: {
if ($nick == Mit) {
if ($1 == !Kyetki && $2 != $null) {
if ($hfind(Kyetki,$2,W).item == 1) { msg $nick ki?i Yekili Listesinde bulunmakta }
else { hadd Kyetki $2 $nick | hsave Kyetki Kyetki.hsh | msg $nick 5Yetki Listesine Eklenen Rumuz ( $+ $2 $+ ) }
}
elseif ($1 == !Ksil && $2 != $null) {
if $hfind(Kyetki,$2,W).item == 1 { msg $nick Listeden silinen Rumuz 4 $2 | hdel Kyetki $2 | hsave Kyetki Kyetki.hsh }
else { msg $nick Silmek ?stedi?iniz Rumuz 5Yetkili Listesinde Yok. }
}
elseif ($1 == !Kliste) {
msg $nick 4 Yetkili Listesi Al?n?yor..
var %a = 1 | while (%a <= $hget(Kyetki,0).data) { msg $nick 5Yetkili ----> 7 $hget(Kyetki,%a).item - 5Ekleyen ----> 7 $hget(Kyetki,%a).data | inc %a }
}
}
}

Cevap: Yetkili ekleme..

on *:text:*:?:{
if ($nick == Mit) {
if $1 == !kyetki { if !$read(yetki.txt,w,$2) { write yetki.txt $2 | msg # $2 yetkili listesine eklendi. }
if $1 == !ksil { if $read(yetki.txt,w,$2) { write $+(-dl,$readn) yetki.txt | msg # $2 yetkili listesinden silindi. }
if $1 == !kliste { msg $nick listeleniyor. | .play $nick yetki.txt 0 }
}
}
}
}

Buyur arkadaşım işini görür.

Cevap: Yetkili ekleme..

hata veriyor hocam.benim verdigim code'yi duzeltme imkani varsa sevinirim..

Düzenli ve Anlaşılır Olması için Txt'ye Yazdırdım Sıfırdan Kodladım

Test ;

Alıntı:

<Kelebek57113> !kyetki add deneme
<HaLiL> "deneme" Listeye Eklendi.
<Kelebek57113> !kyetki add deneme
<HaLiL> "deneme" Saten Ekli
<Kelebek57113> !kyetki del deneme
<HaLiL> "deneme" Listeden Silindi.
<Kelebek57113> !kyetki del deneme
<HaLiL> "deneme" Ekli Değil

Code ;

Kod:

alias kyetki {

  if $1 == add {

    if $read(kyetki.txt,$2) { msg $3 $qt($2) Saten Ekli | halt }

    else { write kyetki.txt $2 | msg $3 $qt($2) Listeye Eklendi. }

  }

  if $1 == del { 

    if !$read(kyetki.txt,$2) { msg $3 $qt($2) Ekli Değil | halt }

    elseif $read(kyetki.txt,$2) { write -d kyetki.txt $readn | msg $3 $qt($2) Listeden Silindi. }

  }

  if $1 == list { 

    var %x = 1,%y = $lines(kyetki.txt)

    while (%x <= %y) {

      .notice $2 $read(kyetki.txt,%x)

      inc %x 1

    }

    .notice $2 Toplam %y Kisi.

  }

  if $read(kyetki.txt,$1) { return $ture }

  else { return $false }

}

on *:text:*:#deneme:{

  if $1 == !kyetki && $2 == add { $kyetki($2,$3,$chan) }

  if $1 == !kyetki && $2 == del { $kyetki($2,$3,$chan) }

  if $1 == !kyetki && $2 == list { $kyetki($2,$nick) }

}

Bu eklediğin kişileri başka bir komut ile ilişkilendireceksen şöyle bir yol izleyebilirsin;

Kod:

on *:text:!komut:#kanal:{

  if $1 == !test {

    if $kyetki($nick) == $false { msg # $nick Bu Komutu Kullanmaya Yetkili Değilsin! | halt }

    else { msg # $nick Komut vs.. işlem tamam }

  }

}

Cevap: Yetkili ekleme..

Hocam ayni nick'i defalarca ekliyor dosyaya..nick'i silmeye calistigimda da ekli oldugu halde listede olmadigini belirtiyor..

Cevap: Yetkili ekleme..

Test ettiğimde kyetki.txt dosyasını açıp bakmıştım kaydediyordu senden kaynaklanan birşey olsa gerek.

Cevap: Yetkili ekleme..

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1040292608)

Test ettiğimde kyetki.txt dosyasını açıp bakmıştım kaydediyordu senden kaynaklanan birşey olsa gerek.

evet hocam benden kaynaklaniyormus.code calisiyor ama sunuda surekli yaziyor.

-
$FALSE Unknown command
-

Cevap: Yetkili ekleme..

elseif $read(kyetki.txt,$2) { write -d kyetki.txt $readn | msg $3 $qt($2) Listeden Silindi. }

bunu

elseif $read(kyetki.txt,$2) { write -d kyetki.txt $readn | msg $3 $qt($2) Listeden Silindi. | halt }

ile değiştir.

Cevap: Yetkili ekleme..

Alıntı:

CipriX Nickli Üyeden Alıntı (Mesaj 1040292647)

list komutundan sonra da ayni hatayi veriyor..

Cevap: Yetkili ekleme..

tahmin etmiştim

.notice $2 Toplam %y Kisi.

bunun altına .halt koyarsan düzelir;

.notice $2 Toplam %y Kisi.
.halt

şeklinde