Çevrimdışı

mrblar
scrıptimın users bolmunde ekli olan badnicklere
8:*paraylakizararim*!*@*
8:*_avea*!*@*
nickinizi deiştirin die ban atıcama nicklerini /os raw svsnick paraylakizararim Seviyeli1 :0
/os raw svsnick avea seviyeli2 :0
komutu ile nicklerini deiştirmem mumkünmü
yani kanala users bolmunde bulunan bad nicklerden girerse otomatik bu komutu kullanıp nicklerini deişebilirmiyim ban yerine nick deiştir codesi

 

Çevrimdışı

 

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

 

Çevrimdışı

----

1. ve ikinci koddan herhangi bir tanesini silebilirsin ikiside ayni islevi görmekte.istege göre kirmiziyla gösterdigim gibi svsnick komutunu ekleyebilirsin

 

Çevrimdışı

son bişey daha bikac tane daha sunucu ismi ekleyebilirmiyiz

on @8:join:#: {
if *sunucu.adi* iswm $server { mode # +b $ulist($address($nick,5),$ulevel,1) | kick # $nick %kart }
}

 

Onu da ben yapıvereyim bari.-)



Önemli not: Sunucun.Net gibi eklemeleri Sunucun\.Net şeklinde eklemelisin. Çünkü Reg(ular)Ex(pression)'te nokta (.) bir operatördür ve sen onu karakter olarak kullandığını "\" kullanarak belirtmelisin.