Çevrimdışı

alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist }
dialog Shitlist {
size -1 -1 295 346
title "Shitlist & Auto kick"
Combo 1, 1 1 240 330
button "&Ekle", 2, 244 2 50 22
button "&Çıkar", 3, 244 24 50 22
button "Tamam", 4, 244 324 50 22,ok
Check "Shitlist ON" , 5 , 1 327 241 20
}
on *:dialog:Shitlist:*:*: {
if ($devent == init) { Shitlist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 666 $did(1) | Shitlist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } }
if ($did == 5) {
writeini $+(",$mircini,") Shitlist Shitlist $iif($did(5).state == 1,on,off)
}
}
}
alias Shitlist.init {
did -r Shitlist 1
if ($readini $+(",$mircini,") Shitlist Shitlist == on) { did -c Shitlist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 666) { did -a Shitlist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
on 666:join:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
cs akick $chan add $+($nick,!*@*) 5God is h4pp3n ! | kick $chan $nick 5Shitlisted
}
}
}
on 666:part:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode $chan +b $address($nick,2)
}
}
}
on *:nick: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if ($nick == $me) { halt }
var %ul = 1
while ($ulist(*,666,%ul)) {
if (($remove($ulist(*,666,%ul),*,@,!) isin $nick) || ($remove($ulist(*,666,%ul),*,@,!) isin $newnick)) {
var %i = 1
while ($comchan($newnick,%i)) {
if (($me isop $comchan($newnick,%i)) || ($me ishop $comchan($newnick,%i))) {
ban $comchan($newnick,%i) $newnick | kick $comchan($newnick,%i) $newnick 5Shitlisted
}
inc %i 1
}
}
inc %ul 1
}
}
}
on 666:text:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:notice:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:action:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:op:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $opnick 2 | kick $chan $opnick 5Shitlisted
}
}
}
on 666:deop:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $opnick 2 | kick $chan $opnick 5Shitlisted
}
}
}
on 666:voice:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $vnick 2 | kick $chan $vnick 5Shitlisted
}
}
}
on 666:devoice:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $vnick 2 | kick $chan $vnick 5Shitlisted
}
}
}
on 666:help:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $hnick 2 | kick $chan $hnick 5Shitlisted
}
}
}
on 666:dehelp:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $hnick 2 | kick $chan $hnick 5Shitlisted
}
}
}

Alience'nin vermis oldugu kodu bu sekilde degisirsen Shitlist'e aldıgını nick kanala girdiginde direk Akick alıncaktır.

__________________
if (%insansayisi <= %hayvansayisi) { inc %hayvansayisi } else { echo -a "Hayvan sayısı fazla, insan arama." }