| KutsaLgrau | 29 Mayıs 2008 20:00 |
Badnick/tara
selam arkadaslar elimde şöle bir kod var.kod gayet iyi çalışıyor.ama benim istediğim hangi kanalda tarama yapıcaksak o kanalın adını elimizle değilde diyalog üstünde seçmek.Ve badnickleri renkli olarak göstermesini istiyorum.Bunu benim için yapabilirmisiniz.Foruma bakdım ve badnick ile ilgili fasla bishi bulamadım.kod aşağıda Kod:
alias badnicktara { dialog -ma badnicktara badnicktara }
dialog badnicktara {
title "Badnick işlemleri"
size -1 -1 130 118
option dbu
text "Taranacak kanal;", 1, 4 13 46 8
edit "", 2, 4 21 50 10
text "Taranacak nickler;", 3, 4 33 46 8
combo 4, 4 42 50 72, size
button "Tara", 5, 61 15 62 12
button "Tara ve Kanaldan At", 6, 61 30 62 12
button "Tara ve Uyarı Ver", 7, 61 45 62 12
button "Ekle", 8, 61 67 62 12
button "Sil", 9, 61 81 62 12
button "Çık", 10, 61 101 62 12, cancel
}
on *:Dialog:badnicktara:*:*: {
if $devent == sclick {
if $did == 5 {
if $+(*,$chr(44),*) iswm $did(2) {
.return $input(Sadece tek bir kanal seçebilirsiniz ÖRN: #Sohbet,ohud,Hata!)
}
if $did(2) == $null {
.return $input(Lütfen Kanal Belirtin ÖRN: #Sohbet,ohud,Hata!)
}
if $me !ison $did(2) {
.return $input($did(2) Kanalında Mevcut Değilim!,ohud,Hata!)
}
else {
tara $did(2)
.dialog -x badnicktara badnicktara
}
}
if $did == 6 {
if $+(*,$chr(44),*) iswm $did(2) {
.return $input(Sadece tek bir kanal seçebilirsiniz ÖRN: #Sohbet,ohud,Hata!)
}
if $did(2) == $null {
.return $input(Lütfen Kanal Belirtin ÖRN: #Sohbet,ohud,Hata!)
}
if $me !ison $did(2) {
.return $input($did(2) Kanalında Mevcut Değilim!,ohud,Hata!)
}
else {
.set %kanaldanat dogus
tara $did(2)
.dialog -x badnicktara badnicktara
}
}
if $did == 7 {
if $+(*,$chr(44),*) iswm $did(2) {
.return $input(Sadece tek bir kanal seçebilirsiniz ÖRN: #Sohbet,ohud,Hata!)
}
if $did(2) == $null {
.return $input(Lütfen Kanal Belirtin ÖRN: #Sohbet,ohud,Hata!)
}
if $me !ison $did(2) {
.return $input($did(2) Kanalında Mevcut Değilim!,ohud,Hata!)
}
else {
.set %uyar dogus
tara $did(2)
.dialog -x badnicktara badnicktara
}
}
if $did == 8 {
if $did(4) == $null {
.return $input(Lütfen bir nick veya mask belirtin,ohud,Hata!)
}
else {
.auser bdnck $did(4)
.did -r $dname 4
ayarcek $dname
}
}
if $did == 9 {
if $did(4) == $null {
.return $input(Lütfen bir nick veya mask seçin,ohud,Hata!)
}
else {
.ruser bdnck $did(4)
.did -r $dname 4
ayarcek $dname
}
}
}
if $devent == init {
ayarcek
.unset %kanaldanat
.unset %uyar
}
if $devent == close {
.unset %kanaldanat
.unset %uyar
}
}
alias ayarcek {
var %i = 1
while %i <= $ulist(*,bdnck,0) {
.did -a badnicktara 4 $ulist(*,bdnck,%i)
inc %i
}
}
alias bdnck {
var %. = 1
while $ulist(*,bdnck,%.) {
if $v1 iswm $1- {
return $v1
}
inc %.
}
return $false
}
alias tara {
if !$window(@Badnick) { .window @Badnick }
var %i = 1
while %i <= $nick($1,0) {
if $bdnck($nick($1,%i)) {
echo @Badnick 4Badnick! 2>>5 $1 2->7 $nick($1,%i)
.napilcak $1 $nick($1,%i)
}
inc %i
}
}
alias napilcak {
if $me isop $1 {
if %kanaldanat {
.mode $1 +b $2
.kick $1 $2 Badnick
}
if %uyar {
.msg $2 Nickinizi 1 dakika içinde değiştirmezseniz kanaldan uzaklaştırılacaksınız
.timer 1 60 .uzaklastir $1 $2
}
}
}
alias uzaklastir {
if $2 ison $1 {
.mode $1 +b $2
.kick $1 $2 Badnick
}
}
|
