Düşman listesi
 

S.a Sevgili abilerim, elimde şöyle bir kod var. bu kod oper olduğum halde çalışmıyor, sorunu bulamadım. Yardımcı olursanız çok tesekkür ederim.Saygılar..

on *:dialog:dusmanlist:init:*: {
_blist
}
on *:dialog:dusmanlist:sclick:*: {
if ($did == 20) {
if ($did(11).text != $null && $level($did(11).text) != blacklist) {
var %_badd = $did(11).text
.auser blacklist %_badd
_blist
did -o $dname 12 1 %_badd Kara Listeye Alındı...
}
}
if ($did == 30) {
if ($did(11).text != $null && $level($did(11).text) == blacklist) {
var %_brem = $did(11).text
.ruser blacklist %_brem
_blist
did -o $dname 12 1 %_brem Kara Listeden Silindi...
}
}
}
on @blacklist:join:#: {
.zline $nick 90m Uzaklastırıldınız | .echo $nick Kötü Nick Listesinden dolayı Serverden Atıldı.
}

Cevap: Düşman listesi
 

kodun eksik tamamını yollarsan daha iyi olur


on @blacklist:join:#: { buraya göre elindeki kod @ opsam eğer userlistte blacklist:nick var ise nick herhangi bir kanala girerse 90m süreliğine zline at diyor

burkısım calışıyor gibi görünüyor join kısmı yani

alttaki kodu mircinde remote bölümüne ekleyip dene diyalogun eksik durumda tamamını yollarsan hatavarmı bakarız
menu * {
düşman liste
.ekle:auser blacklist $$?="eklenecek nick:"
.sil:ruser $$?="Silinecek nick:"
}

Cevap: Düşman listesi
 

kardeş kodun tamamı budur ;

alias -l _buser { .guser blacklist $1 3 }
alias -l _rbuser { .ruser blacklist $1 3 }
alias -l _luser { dialog -m dusmanlist dusmanlist }
alias -l _blist {
did -r dusmanlist 11
var %_btotal = $ulist(*,blacklist,0) , %_b = 0
while (%_b < %_btotal) {
inc %_b
did -a dusmanlist 11 $ulist(*,blacklist,%_b)
}
}
alias dusman { /dialog -m dusmanlist dusmanlist }
dialog dusmanlist {
title "NuRSohbet Script - Düşman Listesi"
size -1 -1 106 117
option dbu
combo 11, 6 19 94 50, extsel sort autohs autovs
text " Eklediğiniz nickler zline yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15
box "", 3, 3 0 101 96
edit "", 12, 6 69 94 10 , read autohs
button "Ekle", 20, 7 81 40 12 , default
button "Sil", 30, 58 81 40 12 , default
box "", 7, 3 94 101 21
button "Pencereyi Kapat", 8, 17 100 73 12, ok
}
on *:dialog:dusmanlist:init:*: {
_blist
}
on *:dialog:dusmanlist:sclick:*: {
if ($did == 20) {
if ($did(11).text != $null && $level($did(11).text) != blacklist) {
var %_badd = $did(11).text
.auser blacklist %_badd
_blist
did -o $dname 12 1 %_badd Kara Listeye Alındı...
}
}
if ($did == 30) {
if ($did(11).text != $null && $level($did(11).text) == blacklist) {
var %_brem = $did(11).text
.ruser blacklist %_brem
_blist
did -o $dname 12 1 %_brem Kara Listeden Silindi...
}
}
}
on @blacklist:join:#: {
.zline $nick 90m Uzaklastırıldınız | .echo $nick 0,1 Kötü Nick Listesinden Dolayı Serverden Atıldı.
}

Cevap: Düşman listesi
 

Dialog kısmında işlenen veriler Users (Kullanıcı) kısmında işlem görüyor,yani dialog kısmında bir hata yok.
Geriye "join" eventını denetlemek kalıyor:

Bu olayda blacklist'e kayıtlı bir nickin giriş yapması halinde "zline" satırına geçmeden önce senin IRCop olup olmadığına değil kanalda (#) op (@) olup olmadığına bakar.Şayet op (@) isen "zline" işlemine geçer.

@ işaretini silmen halinde kanalda op (@) olmasan dahi "zline" uygulayacaktır.

Bunun dışında çalışmıyor olmasının nedenleri;remote kapalıdır,bir başka join eventı ile çakışıyordur vb. durumlar.