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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
on *:start:{
hmake users 1000
if ($isfile(user.hsh)) hload users user.hsh
hmake logged 1000
}
on *:load:{
hmake users 1000
if ($isfile(user.hsh)) hload users user.hsh
hmake logged 1000
}
on *:join:#chan:{
if ($regex($address($nick,2),/^\*!\*@([^\.]+)\.users\.quakenet\.org$/) == 0) { hadd -u5 logged $nick $+ .Qcheck $chan | .who $nick n%na | return }
if ($user_locked(q,$regml(1))) { notice $nick Oops seems your user account has been locked for more infomation type ?? locked | return }
if ($scanqauth($regml(1))) {
notice $nick You are now logged in as $v1 $+ , User level: $hget(users,$+($v1,.level)) $+ .
hadd logged $nick $v1
if ($hget(users,$+($v1,.level)) >= 2) { mode $chan +v $nick }
return
}
hadd -u5 logged $nick $+ .Qcheck $chan | .who $nick n%na
}
on *:part:#chan:{
if ($hget(logged,$nick)) {
hdel logged $nick
.notice $nick Auto-deauthentication after parting.
}
hdel logged $nick $+ .Qauth
}
on *:kick:#chan:{
if ($hget(logged,$knick)) {
hdel logged $knick
.notice $knick Auto-deauthentication after parting.
}
hdel logged $nick $+ .Qauth
}
on *:quit:{
if ($hget(logged,$nick)) { hdel logged $nick }
hdel logged $nick $+ .Qauth
}
on *:nick:{
if ($hget(logged,$nick)) { hadd logged $newnick $v1 | hdel logged $nick }
if ($hget(logged,$+($nick,.Qauth))) { hadd logged $newnick $+ .Qauth $v1 | hdel logged $nick $+ .Qauth }
}
; $1 = $me $2 = $nick $3 = Qauth/0
raw 354:*:{
if ($hget(logged,$+($2,.update))) {
if ($3 == 0) { msg $2 It appears you're not Qauthed, for more infomation type ?? Qauth | return }
hadd users $hget(logged,$+($2,.update)) $+ .qauth $3 | hdel logged $2 $+ .update
msg $2 I've now updated your account's Qauth details to: $3 $+ .
return
}
if ($hget(logged,$+($2,.register))) {
var %un = $gettok($v1,1,32), %pw = $gettok($v1,2,32)
hadd users %un $md5(%pw) | hadd users %un $+ .level 1 | hdel logged $2 $+ .register
msg $2 You're now registered as %un $+ , User level: $hget(users,$+(%un,.level)) $+ .
msg $2 Your password is: %pw please remember this as it wont be able to be retrieved.
msg $2 To login please type /msg $me login username password
goto skip
}
if ($3 == 0) { return }
if ($user_locked(q,$3)) { .notice $nick Oops seems your user account has been locked for more infomation type ?? locked | goto skip }
if ($scanqauth($3)) {
notice $2 You are now logged in as $v1 $+ , User level: $hget(users,$+($v1,.level)) $+ , Qauth: $3 $+ .
if ($hget(users,$+($v1,.level)) >= 2) { mode $hget(logged,$+($2,.Qcheck) +v $nick }
return
}
:skip
hadd logged $2 $+ .Qauth $3
}
; note must not contain regex.
alias scanqauth {
var %x = 1
while ($hfind(users,*.qauth,%x,w)) {
if ($hget(users,$v1) == $1) { return $gettok($hfind(users,*.qauth,%x,w),1,46) }
inc %x
}
return
}
alias -l user_locked {
if ($1 == q && $hget(users,$+($scanqauth($2),.locked))) { return $true }
if ($1 == u && $hget(users,$+($2,.locked))) { return $true }
}
on *:text:register & & &:?:{
if ($hget(logged,$nick)) { msg $nick You're already logged in as $v1 | return }
if ($hget(users,$2)) { msg $nick A user already exists with username $2 $+ . | return }
if ($2 == $3) { msg $nick You can't have your password the same as your username $+ . | return }
if ($regex($3-4,/(\S+)\s\1$/) == 0) { msg $nick Your passwords do not match, case sensitive | return }
if (!$hget(logged,$+($nick,.Qauth))) { hadd logged $nick $+ .register $2-3 | .who $nick n%na | return }
hadd users $2 $md5($3)
hadd users $2 $+ .qauth $iif($hget(logged,$+($nick,.,Qauth)),$v1,0)
hadd users $2 $+ .level 1
hadd logged $nick $2
msg $nick You're now registered as $2 $+ , Qauth: $hget(logged,$+($nick,.,Qauth)) $+ , User level: $hget(users,$+($2,.level)) $+ .
msg $nick Your password is: $3 please remember this as it wont be able to be retrieved.
hdel logged $nick $+ .Qauth
}
on *:text:login & &:?:{
if ($hget(logged,$nick)) { msg $nick You're already logged in as $v1 | return }
if ($2 == $3) { msg $nick You can't have your password the same as your username $+ . | return }
if (!$hget(users,$2)) { msg $nick No such user profile added to database. | return }
if ($hget(users,$2) !== $md5($3)) {
if ($hget(logged,$+($nick,.loginv.,$2)) == 3) {
msg $nick 3/3 Login attempts failed for account $2 $+ . ignoring you for 45 minutes, for help please ask a manager.
ignore -pu2700 $nick 2 Quakenet
close -m $nick
hdel logged $+($nick,.loginv.,$2)
return
}
hinc -u2700 logged $+($nick,.loginv.,$2)
msg $nick Invalid account details attempt ( $+ $hget(logged,$+($nick,.loginv.,$2)) $+ /3)
}
if ($user_locked(u,$2)) { msg $nick Oops seems your user account has been locked for more infomation type ?? locked | return }
hadd logged $nick $2
if ($hget(logged,$+($nick,.Qauth))) { hadd users $2 $+ .Qauth $hget(logged,$+($nick,.Qauth)) | hdel logged $nick $+ .Qauth }
msg $nick You're now logged in as $2 $+ , User level: $hget(users,$+($2,.level)) $+ , Qauth: $iif($hget(users,$2 $+ .Qauth),$v1 $+ .,Not found.)
else { hadd logged $nick $+ .update $2 | .who $nick n%na }
}
|