1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
on 9:text:.authban:#:{
.notice $nick Usage: $1 version/help/add/list/del/status/on/off
}
on 9:text:.authban *:#:{
if ($2 == help) { .notice $nick Usage: $1 version/help/add/list/del/status/on/off | halt }
if ($2 == status) { .notice $nick AuthBan status: $+ $iif($readini(authban.ini,SETUP_ $+ $chan,status),$readini(authban.ini,SETUP_ $+ $chan,status),OFF) $+ | halt }
if ($2 == add) {
if (!$4) { .notice $nick Usage: $1-2 <auth> <reason> | halt }
writeini authban.ini $chan $3 $4-
.notice $nick Done. Added auth $+(',$3,') to AuthBan list with reason $+(',$4-,')
halt
}
if ($2 == del) {
if (!$3) { .notice $nick Usage: $1-2 <auth> | halt }
remini authban.ini $chan $3
.notice $nick Done. Removed auth $+(',$3,') from AuthBan list.
halt
}
if ($2 == on) {
writeini authban.ini SETUP_ $+ $chan status ON
.notice $nick Done. Changed status to ON.
halt
}
if ($2 == list) {
.notice $nick AuthBan list:
var %i = 1
while (%i <= $ini(authban.ini,$chan,0)) {
var %auth = $ini(authban.ini,$chan,%i)
var %reason = $readini(authban.ini,$chan,$ini(authban.ini,$chan,%i))
.notice $nick Auth: %auth - Reason: %reason
inc %i
}
.notice $nick End of list
halt
}
if ($2 == off) {
writeini authban.ini SETUP_ $+ $chan status OFF
.notice $nick Done. Changed status to OFF.
halt
}
if ($2 == version) { .notice $nick AuthBan.msl v0.35 by teppuli & AndRew | halt }
notice $nick Usage: $1 version/help/add/list/del
}
raw 354:& 465 & *: {
echo -ag $1-
var %auth = $4
if (!%authban_ [ $+ [ $3 ] ]) { halt }
var %chan = %authban_ [ $+ [ $3 ] ]
var %i = 1
while (%i <= $ini(authban.ini,%chan,0)) {
if ($ini(authban.ini,%chan,%i) == %auth) {
var %host = $address($3,2)
.kick %chan $3 0,1 12,1›15›15‹12‹ Your authname ( $+ %auth $+ ) is banned from this channel with reason: $readini(authban.ini,%chan,$ini(authban.ini,%chan,%i)) 12,1›15›15‹12‹
.mode %chan +b %host
timer 1 600 mode %chan -b %host
unset %authban_ [ $+ [ $3 ] ]
halt
}
inc %i
}
}
on *:join:#:{
if ($readini(authban.ini,SETUP_ $+ $chan,status) != ON) { halt }
set -u10 %authban_ [ $+ [ $nick ] ] $chan
who $nick n%nat,465
} |