| immortaL | 20 Ocak 2018 13:00 |
@who @spam penceresi.
Kod:
alias who { if $window(@Who) { clear @Who | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname } if $1 == ident { set -u10 %ids $2 | who * | halt }
if $1 == full { set -u10 %fls $2 | who * | halt }
who $1-
}
alias hAte.. { if $1 !isincs $2 { return $3 } | else { return $4 } }
raw *:*:{
if $numeric == 352 {
if %ids {
if !$window(@Who) { window -glzk0 @Who -1 -1 800 600 Tahoma 11 | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname | Aline @Who (Bilgi) Sunucu üzerinde identler taranıyor.. }
if $3 == %ids { aline @Who $6 $chr(9) $3 $chr(9) $hAte..(G,$7,6Away değil,3Away) $chr(9) $hAte..(*,$7,6User,3Admin) $chr(9) $hAte..(r,$7,6Kayıtsız,3Kayıtlı) $chr(9) $4 $chr(9) $9- }
halt
}
if %fls {
if !$window(@Who) { window -glzk0 @Who -1 -1 800 600 Tahoma 11 | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname | Aline @Who (Bilgi) Sunucu üzerinde identler taranıyor.. }
if $+(*,%fls,*) iswm $9- { aline @Who $6 $chr(9) $3 $chr(9) $hAte..(G,$7,6Away değil,3Away) $chr(9) $hAte..(*,$7,6User,3Admin) $chr(9) $hAte..(r,$7,6Kayıtsız,3Kayıtlı) $chr(9) $4 $chr(9) $9- }
halt
}
if !$window(@Who) { window -glzk0 @Who -1 -1 800 600 Tahoma 11 | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname | Aline @Who (Bilgi) $2 who.. }
aline @Who $6 $chr(9) $3 $chr(9) $hAte..(G,$7,6Away değil,3Away) $chr(9) $hAte..(*,$7,6User,3Admin) $chr(9) $hAte..(r,$7,6Kayıtsız,3Kayıtlı) $chr(9) $4 $chr(9) $9-
haltdef
}
if $numeric == 315 { haltdef }
if $numeric == 229 {
if %cns == Evet && $me isin $2- {
if !$window(@Spam) { window -glzk0 @Spam -1 -1 800 600 Tahoma 11 | aline @Spam Nick $chr(9) Zaman $chr(9) Ceza $chr(9) Mask $chr(9) Sebeb $chr(9) Kelime | Aline @Spam (Bilgi) Bu pencerede kendi aldıgınız spamlar gösterilicek, şuandaki nickinize göre tarama yapılmakdadır.. }
aline @Spam $gettok($9,1,$asc(!)) $chr(9) $7 $chr(9) $4 $chr(9) $3 $chr(9) $8 $chr(9) $10-
halt
}
if !%cns {
if !$window(@Spam) { window -glk0 @Spam -1 -1 800 600 Tahoma 11 | aline @Spam Nick $chr(9) Zaman $chr(9) Ceza $chr(9) Mask $chr(9) Sebeb $chr(9) Kelime | Aline @Spam (Bilgi) $server spamfilter listesi! }
aline @Spam $gettok($9,1,$asc(!)) $chr(9) $7 $chr(9) $4 $chr(9) $3 $chr(9) $8 $chr(9) $10-
}
}
}
alias stats {
if $1 == f { if $2 == ! { set -u3 %cns evet | stats f | return } | stats f } | else { stats $1- }
}
menu @Who {
.Who:who $$?"Kanal veya Nick yazınız.."
.Ekranı temizle:clear $active
.İşlemler
..Gzline:echo -a gzline $1 +1d Sunucudan uzaklaştırıldınız.
..Gline:echo -a gline $1 +1d Sunucudan uzaklaştırıldınız.
.-
..Fullname Spam:echo -s spamfilter + u gzline - Sunucudan_Uzaklaştırıldınız. (.+!.+@.+: $+ $replace($14-,*,.,$chr(124),.,$chr(35),.,[,.,],.,$chr(32),.,^,.,%,.) $+ )$
..İdent Spam:echo -s spamfilter + u gzline - Sunucudan_Uzaklaştırıldınız. ^(.+! $+ $3 $+ @.+:.+)$
..Nick Spam (Manuel):echo -s spamfilter + u gzline - Sunucudan_Uzaklaştırıldınız. ^( $+ $$?"Lütfen Nick yazınız $crlf Ali123 ali321 aliBL aliXA gibi nickler için $crlf Ali+ gibi ekleyin" $+ !.+@.+:.+)$ ?
-
.Kapat:window -c $active
}
menu @Spam {
.Sil :{ .spamfilter del $gettok($remove($1-,$chr(9)),4,32) $gettok($remove($1-,$chr(9)),3,32) $gettok($remove($1-,$chr(9)),2,32) $gettok($remove($1-,$chr(9)),5,32) $gettok($remove($1-,$chr(9)),6-,32) }
.Yenile: { .clear $active | stats f }
.-
.Kapat: { window -c $active }
}
Who ident ident -> Sunucu üzerinde ident taraması
who full fullname -> Sunucu üzerinde fullname taraması
stats f ! -> Kendi aldıgın spamlar
stats f -> Alınan tüm spamlar
Not: Alıntıdır
Code: IrCbaStarD |
