Ç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
}