Kod:
alias karaliste { if ($dialog(karaliste)) { dialog -c karaliste } | dialog -ma karaliste karaliste }
dialog karaliste {
title "Kötü Nick Listesi"
size -1 -1 266 310
option pixels
icon icon\olumsuz.ico, 0
combo 1, 16 21 181 250, vsbar
button "&Ekle", 2, 199 20 50 22, flat
button "&Sil", 3, 199 49 50 22, flat
button "&Tamam", 4, 200 234 49 31, ok flat
check "Korumayı Aktif Et", 5, 16 272 182 20, flat
box "Kötü Nick Ekleme", 6, 7 2 251 296
}
on *:dialog:karaliste:*:*: {
if ($devent == init) { karaliste.txt }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | karaliste.txt } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | karaliste.txt } }
if ($did == 5) {
if ($did(5).state == 1) { writeini " $+ $mircini $+ " karaliste karaliste on }
if ($did(5).state == 0) { writeini " $+ $mircini $+ " karaliste karaliste off }
}
}
}
alias karaliste.txt {
did -r karaliste 1
if ($readini " $+ $mircini $+ " karaliste karaliste == on) { did -c karaliste 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 10) { did -a karaliste 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
#karaliste on
on 10:join:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
{ Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
}
}
on 10:part:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
{ Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
}
}
on 10:nick: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
{ Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
}
}
on 10:text:*:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
{ Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
}
}
on 10:notice:*:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
}
}
}
on 10:action:*:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
{ Window -e @Rapor | titlebar @Rapor Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @Rapor »2 4Suç : 2Kötü Nick 4Nick : 2 $nick 4Kanal : 2 # }
}
}
}
on 10:op:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
}
}
}
on 10:deop:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
}
}
}
on 10:voice:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
}
}
}
on 10:devoice:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
}
}
}
on 10:help:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
}
}
}
on 10:dehelp:#: {
if ($readini " $+ $mircini $+ " karaliste karaliste == on) {
/qline $nick 4 $+ $chan 12Kanalında (4 Bad2/4Kötü Nick12 ) Kullandığınızdan Dolayı Uzaklaştırıldınız. %logo
}
}
}
#karaliste end