Requiem | 08 Mayıs 2005 13:26 | Kara-Liste Yardım Lütfen.. Kod:
alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist }
dialog Shitlist {
size -1 -1 295 346, flat
title "Karaliste Badnick Addon"
Combo 1, 1 1 240 330
button "&Ekle", 2, 244 2 50 150 ,flat
button "&Cikar", 3, 244 155 50 150 ,flat
button "&Tamam", 4, 244 308 50 38, flat ok
Check "Shitlist Ac" , 5 , 1 327 241 20, flat
}
on *:dialog:Shitlist:*:*: {
if ($devent == init) { Shitlist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | Shitlist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } }
if ($did == 5) {
if ($did(5).state == 1) { writeini " $+ $mircini $+ " Shitlist Shitlist on }
if ($did(5).state == 0) { writeini " $+ $mircini $+ " Shitlist Shitlist off }
}
}
}
alias Shitlist.init {
did -r Shitlist 1
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { did -c Shitlist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 10) { did -a Shitlist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
#karaliste on
on 10:join:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick $chan $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
}
}
}
#karaliste end
#karaliste on
on 10:part:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick # $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
}
}
}
#karaliste end
#karaliste on
on 10:nick: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick $chan $newnick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
}
}
}
#karaliste on
on 10:text:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick $chan $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
}
}
}
#karaliste end
#karaliste on
on 10:notice:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode # +b $nick | kick $chan $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
}
}
}
#karaliste end
menu nicklist {
.-
Karalist-Badnick
.-
.Ekle:/.auser 10 $$1 | /echo -a 10 $+ $$1 4Karalisteye Alındı... | /mode # +b $nick | /kick # $nick 10 $+ # Kanalına Girişin 12Karaliste4/12Badnick4/12Inviter10 Sebebinden Dolayı Yasaklanmıştır...
.Çıkar:/.ruser $$1 | /echo -a 10 $+ $$1 4Karalisteden Çıkarıldı...
.At:/mode # +b $$1 | /kick # $$1 10 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
}
menu channel,menubar {
.-
Karalist-Badnick
.-
.Ekle:/.auser 10 $$?="Nick Giriniz" | /echo -a 10Karalisteye Alındı...
.Çıkar:/.ruser $$?="Nick Giriniz" | /echo -a 10Karalisteden Çıkarıldı...
.Düzenle:/shitlist | /echo -a 10 $+ $me 4Karaliste Açıldı
} Kara-Liste'ye bir nick ekledigimde #KARALISTE unknown command hatası veriyor.Sizce neden olabilir ?
Ya da elinizde Nick'e ban atan Kara-Liste Addon'u war mı ? |