alias swearnick { return Küfür Yasaktır.. }
alias swearmsg { return Küfür Yasaktır.. }
alias swearnotice { return Küfür Yasaktır.. }
alias smbantime { return 5 }
on *:TEXT:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1-
on *:ACTION:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1-
on *:NOTICE:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1-
off *:JOIN:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $nick $nick
alias swearx { dialog -m swearx swearx | swearlist }
dialog swearx {
title "Swear Kick TEXT,ACTION,NOTICE,JOIN"
size -1 -1 413 220
option pixels
list 1, 0 20 362 200, size
edit "", 2, 0 0 362 20
button "Add", 3, 363 0 50 20, default
button "Close", 4, 363 199 50 20, ok
button "Delete", 5, 363 72 50 20
button "Clear", 6, 363 118 50 20
button "Edit", 7, 363 95 50 20
}
on *:DIALOG:swearx:sclick:*:{
if ($did = 1) {
did -e swearx 5
did -e swearx 7
}
if ($did = 3) {
write swearkick.txt $did(2).text
did -a swearx 1 $did(2).text
did -r swearx 2
did -b swearx 5
did -b swearx 7
}
if ($did = 5) {
if ($did(1).sel != 0) {
set %temp $read(swearkick.txt, s, $did(1).seltext)
write -dl $+ $readn swearkick.txt
did -d swearx 1 $did(1).sel
did -b swearx 5
did -b swearx 7
}
else { did -b swearx 5 }
}
if ($did = 6) {
if ($?!="Are you sure?" = $true) {
did -r swearx 1
write -c swearkick.txt
did -b swearx 5
did -b swearx 7
}
}
if ($did = 7) {
set %temp $$?="Change $did(1).seltext into:"
did -a swearx 1 %temp
set %temp2 $read(swearkick.txt, s, $did(1).seltext)
write -dl $+ $readn swearkick.txt
did -d swearx 1 $did(1).sel
write swearkick.txt %temp
did -b swearx 5
did -b swearx 7
}
}
on *:DIALOG:swearx:init:*:{
did -b swearx 5
did -f swearx 2
}
on *:DIALOG:swearx:edit*:{
if ($did = 2) { did -b swearx 5 }
}
alias -l swearlist {
.set %pnline $lines(swearkick.txt)
.set %pcline 1
:next
if (%pcline < %pnline) { .did -a swearx 1 $read(swearkick.txt, %pcline) | inc %pcline | goto next }
if (%pnline = %pcline) { .did -a swearx 1 $read(swearkick.txt, %pcline) | goto done }
:done
return
}
; SwearCheck <nick> <chan> <message>
alias swearcheck {
.set %pnline $lines(swearkick.txt)
.set %pcline 1
:next
if (%pcline < %pnline) {
if ($read(swearkick.txt, %pcline) !isin $3-) {
inc %pcline
goto next
}
else {
goto kb
}
}
if (%pcline = %pnline) {
if ($read(swearkick.txt, %pcline) !isin $3-) {
goto done
}
else {
goto kb
}
}
:done
return
:kb
if ($me isop $2) {
if ($event = text) { kick $2 $1 $swearmsg | ban -u3600 $2 $1 2 }
if ($event = action) { kick $2 $1 $swearmsg | ban -u3600 $2 $1 2 }
if ($event = join) { kick $2 $1 $swearnick | ban -u3600 $2 $1 2 }
if ($event = notice) { kick $2 $1 $swearnotice | ban -u3600 $2 $1 2 }
}
goto done
}
alias -l nscheck {
set %i $comchan($1,0)
set %c 1
while (%c <= %i) {
if ($me isop $comchan($1,%c)) {
kick $comchan($1,%c) $1 $swearnick
ban -u3600 $comchan($1,%c) $1 $swearnick
}
inc %c
}
}
}
Selam.. Sizden Ricam, Kanalda Birisi Küfür Ettiği Zaman Kanaldan Atıldıgında Ban Mesajının Sonunda Küfür Listesinde Ekli olan ettiği Küfür Yazsın..Örneğin; ' Küfür Yasaktır. Algılanan Küfür 4,4 Küfürrrrrrr ' şeklinde.
17 Aralık 2011, 05:48
Benzer Konular 
Normal
