| DelikaN |
16.Haziran.2022 14:40 |
Akill Liste Remotesi Mirc
Mircinizde Sunucu akill listesini döküp düzenleyebileceğiniz güzel bir addon
Kod:
on ^1:NOTICE:*:*:{
if (*@* iswm $1) && (%akilnotice == on) {
write akill.txt $gettok($1,2,64)
did -a aklist 1 $regsubex(akill,$gettok($1,2,64),/(\*)$/S,)
}
}
dialog aklist {
title "Akill Listesi - Liste Otomatik Akill Yer"
size -1 -1 123 169
option dbu
list 1, 2 16 119 104, size
edit "", 2, 46 124 57 10, multi autohs
text " IP Girin :", 3, 3 125 43 8
button "Ekle", 7, 105 123 16 26
button "KAPAT", 6, 1 152 120 14, ok
text "Örnek: 78.161.*", 4, 3 139 98 9
box "", 8, 2 135 101 14
box "", 9, 2 121 42 13
box "", 10, 2 0 119 13
text " Silmek icin ipin uzerine Cift tiklayin", 11, 3 4 111 8
}
on *:dialog:aklist:*:*:{
if $devent == init {
;mdx MarkDialog $dname
//set %akilnotice on | .os akill list
.timer 1 1 //set %akilnotice off
; mdx MarkDialog $dname
; mdx SetDialog $dname bgcolor $rgb(237,241,219)
; mdx SetFont $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 +b Turkish 13 950 Verdana
; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 textbg $rgb(237,241,219)
; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 background $rgb(237,241,219)
; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 text $rgb(0,0,0)
; mdx SetColor $dname 11,13,10,12 background $rgb(237,241,219)
; mdx SetColor $dname 11,13,12,10 textbg $rgb(237,241,219)
; mdx SetFont $dname 2,7,6,11,13,12,10,14,15,16 13 950 Tahoma
; mdx SetColor $dname 11,4l text $rgb(199,92,2)
}
if $devent == dclick {
if $did == 1 {
.os akill del $+(*@, $did(1).seltext,*)
did -d $dname 1 $did(1).sel
}
}
if $devent == sclick && $did == 7 { haltdef
.os akill add +0 *@ $+ $did(2) $+ * Sunucu Kurallarini İhlal Ettiniz.. | did -a aklist 1 $did(2)
}
if $devent == sclick && $did == 4 { dialog -m xbilgi xbilgi }
if $devent == close {
write -c akill.txt
set %akilnotice off
}
}
alias xakil { dialog -m aklist aklist }
|
