Çevrimdışı

sselam arkadaşlar ben mırc açıkken komutla badnick dosyasına nasıl ekleme yaparım

 

Çevrimdışı

biraz arama yapilda coder kardesler gercektende cok guzel is cikarmislar.istediniz turde code bulabilirsiniz.asagida verdigim codeyi remotene ekle.scriptin acikken badnick eklemek istemisiniz./shitsetup yaz karsina bir pencere cikar orada hersey yaziyor.oradan badnickleri ekleyip silebilirsin.ister kick istersen ban olarakay arlayabilirsin.kisacasi codeyi remotene ekle./shitsetup yaz.cikan pencere sizi yonlendirecektir.Hayirli Forumlar
on @666:join:#:{ if ($nick != $me) { kick # $nick 0,1[4-Shitlisted-0] | mode # +b $address($nick,2) } }
alias shitconf if $dialog(Shitlist) == $null dialog -m shitlist shitlist
dialog shitlist {
title "Shitlist by \Chaos"
size -1 -1 200 265
button "&Exit", 1, 110 200 70 20,ok
list 2, 10 20 180 135, sort
box "Shitlist", 3, 5 5 190 145
edit "", 4, 10 165 180 20, autohs
box "Add Here", 5, 5 150 190 45
button "Add", 6, 20 200 70 20
box "Note:", 7, 5 225 190 35
text "Double click list to delete shitlist", 8, 25 240 180 45
}
alias shitsetup if $dialog(shitlist) == $null dialog -m shitlist shitlist
on *:dialog:shitlist:dclick:2:{ .rlevel 666 $did(2).seltext | did -d shitlist 2 $did(2).sel }
on *:dialog:shitlist:sclick:6:{ if ($did(4) != $null) { did -a shitlist 2 $did(4) | .auser 666 $did(4) | did -fr shitlist 4 } }
on *:dialog:shitlist:init:*:{
if ($ulist(*,666,0) != $null) {
set %cnt.shit 0
while (%cnt.shit < $ulist(*,666,0)) {
inc %cnt.shit 1
did -a shitlist 2 $ulist(*,666,%cnt.shit)
}
unset %cnt.shit
}
}
menu channel,menubar,status {
-
Shitlist Dialog Setup:shitsetup
}
menu nicklist {
-
-Shitlist-
.Add:.guser 666 $$1 2
.del:ruser 666 $$1 2
.-
.Kick/Ban:/.guser 666 $$1 2 | kick # $$1 0,1[4-Shitlisted-0] | mode # +b $address($$1,2)
.-
.viewlist:shitsetup
}
menu query {
-
-Shitlist-
.Add:.guser 666 $$1 2
.del:ruser 666 $$1 2
}