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

Mitolojik · 11 Ocak 2010, 11:25

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 }
}
}
}

Sessiz · 11 Ocak 2010, 12:08

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.

Mitolojik · 11 Ocak 2010, 12:28

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

XcLusive · 11 Ocak 2010, 12:30

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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 }
  }
}

Mitolojik · 11 Ocak 2010, 12:54

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

XcLusive · 11 Ocak 2010, 13:09

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

Mitolojik · 11 Ocak 2010, 13:29

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

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
-

CipriX · 11 Ocak 2010, 14:28

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.

Mitolojik · 11 Ocak 2010, 14:50

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

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.

list komutundan sonra da ayni hatayi veriyor..

CipriX · 11 Ocak 2010, 14:57

tahmin etmiştim

.notice $2 Toplam %y Kisi.

bunun altına .halt koyarsan düzelir;

.notice $2 Toplam %y Kisi.
.halt

şeklinde

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Acc ekleme	Bilecikli	mIRC Scripting Sorunları	24	04 Ağustos 2013 17:39
!RC ekleme ..	Skys	mIRC Scripting Sorunları	2	11 Eylül 2012 16:57
kod ekleme	BuqRa12345	mIRC Scripting Sorunları	5	17 Eylül 2010 11:01
!dur ekleme	QkLa	mIRC Scripting Sorunları	7	16 Kasım 2009 00:03
/yetkili [<kanal>]\|$yetkili([<kanal>]) - Çevrimiçi Yetkili Gösterici	Regex	mIRC Scripting Hazır Kodlar	1	10 Şubat 2009 21:08

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.