mircte sevmediklerinizi yasak listenize ekleme kodu
kod:
on @shit:join:#:{
ban $chan $nick 2
kick $chan $nick 4Düşman Listemdesin !
echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı.
}
alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title DeLimIRC - Düşman Listesi
size -1 -1 136 99
option dbu
box Nick:, 6, 66 0 68 97
button Ekle(+), 4, 82 25 39 11
button Kaldır(-), 10, 82 41 39 11
edit , 1, 70 8 61 10, autohs
button &Tamam, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check Düşman Listesi Aktif, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit $did(1)
did -a shitlist 2 $did(1)
; shitkontrol
}
on 1:dialog:shitlist:sclick:10: {
.ruser shit $did(2,$did(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
did -a shitlist 2 $ulist(*,shit,%vo1)
goto shitlist
}
kod:
on @shit:join:#:{
ban $chan $nick 2
kick $chan $nick 4Düşman Listemdesin !
echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı.
}
alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title DeLimIRC - Düşman Listesi
size -1 -1 136 99
option dbu
box Nick:, 6, 66 0 68 97
button Ekle(+), 4, 82 25 39 11
button Kaldır(-), 10, 82 41 39 11
edit , 1, 70 8 61 10, autohs
button &Tamam, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check Düşman Listesi Aktif, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit $did(1)
did -a shitlist 2 $did(1)
; shitkontrol
}
on 1:dialog:shitlist:sclick:10: {
.ruser shit $did(2,$did(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
did -a shitlist 2 $ulist(*,shit,%vo1)
goto shitlist
}