Çevrimdışı

detay elimde boyle bi code var bu code sadece belirledim sunucuda calışır bi şekilde ayarlayabilirmiyiz

on @8:join:#:mode # +b $ulist($address($nick,5),$ulevel,1) | kick # $nick %kart } }
alias shitconf if $dialog(Shitlist) == $null dialog -m shitlist shitlist
dialog shitlist {
title "Kotu Nick Koruma"
size -1 -1 200 265
button "Tamam", 1, 110 200 70 20,ok
list 2, 10 20 180 135, sort
box "Kotu Nickler", 3, 5 5 190 145
edit "*", 4, 10 165 180 20, autohs
box "Eklenecek Nick'i Girin", 5, 5 150 190 45
button "Ekle", 6, 20 200 70 20
box "Not:", 7, 5 225 190 35
text "Nick Silmek İcin Nick'e Cift Tiklayin", 8, 25 240 180 45
}
alias shitsetup if $dialog(shitlist) == $null dialog -m shitlist shitlist
on *:dialog:shitlist:dclick:2:{ .ruser 8 $did(2).seltext | did -d shitlist 2 $did(2).sel }
on *:dialog:shitlist:sclick:6:{ if ($did(4) != $null) { did -a shitlist 2 $did(4) | .auser 8 $did(4) | did -fr shitlist 4 } }
on *:dialog:shitlist:init:*:{
if ($ulist(*,8,0) != $null) {
set %cnt.shit 0
while (%cnt.shit < $ulist(*,8,0)) {
inc %cnt.shit 1
did -a shitlist 2 $ulist(*,8,%cnt.shit)
}
unset %cnt.shit
}
}
alias badnicktara {
if $me isop $1 {
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 8 {
inc %:bulunan 1
mode # +b $address($1,2)(%:gnick,666,1)
kick $1 %:gnick %kart
}
inc %s
}
echo -a 7Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}
raw 8:*: {
badnicktara $1
}
on *:join:#: {
if $level($nick $+ !*@*) == 8 {
mode # +b $address($1,2)($nick,666,1)
kick # $nick %kart
}
}
on *:nick: {
if $level($newnick $+ !*@*) == 8 {
mode # +b $address($1,2)($newnick,666,1)
kickall $nick %kart
}
}
alias banall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
inc %i
}
}
alias kickall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
inc %i
}
}
on *:op:#: {
if $opnick == $me {
badnicktara #
}
}