on @shit:join:#:{ ban $chan $nick 2 kick $chan $nick 4Düsman Listemdesin?! echo -a 12*** Düsman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalina Girdi. Ve Atildi. } alias shitlist { /dialog -m shitlist shitlist } dialog shitlist { title ?DeLimIRC - Düsman Listesi? size -1 -1 136 99 option dbu box ?Nick:?, 6, 66 0 68 97 button ?Ekle(+)?, 4, 82 25 39 11 button ?Kaldir(-)?, 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üsman 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 } www.mirc25.net
