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
|
if ($1 == !adduser) {
if ($2) && ($3) {
var %host = $address($2,2),$chan
if (*!*@* iswm $2) && ($left($2,4) == *!*@) { var %host = $2 }
if ($wi($auth($2))) { [ [ %type ] ] %chanlevskin Authname: ( $+ $auth($2) $+ ) is already added %chanlevskin | halt }
if (%host != $null) {
if ($3 == ADMIN) { wi $auth($2) ADMIN | [ [ %type ] ] %chanlevskin Added new user: $2 ( $+ $auth($2) $+ ) - to the userlist with level: $+ $3 $+ %chanlevskin | .notice $2 %chanlevskin You have been added as $3 to my database with nick: ( $+ $2 $+ ) and auth: ( $+ $auth($2) $+ ). %chanlevskin }
if ($3 == OWNER) { wi $auth($2) OWNER | [ [ %type ] ] %chanlevskin Added new user: $2 ( $+ $auth($2) $+ ) - to the userlist with level: $+ $3 $+ %chanlevskin | .notice $2 %chanlevskin You have been added as $3 to my database with nick: ( $+ $2 $+ ) and auth: ( $+ $auth($2) $+ ). %chanlevskin }
if ($3 == MASTER) { wi $auth($2) MASTER | [ [ %type ] ] %chanlevskin Added new user: $2 ( $+ $auth($2) $+ ) - to the userlist with level: $+ $3 $+ %chanlevskin | .notice $2 %chanlevskin You have been added as $3 to my database with nick: ( $+ $2 $+ ) and auth: ( $+ $auth($2) $+ ). %chanlevskin }
if ($3 == BAN) { wi $auth($2) BAN | [ [ %type ] ] %chanlevskin Added new user: $2 ( $+ $auth($2) $+ ) - to the userlist with level: $+ $3 $+ %chanlevskin }
}
}
else { [ [ %type ] ] %chanlevskin Syntax: !adduser <nick> <level> %chanlevskin }
}
if ($1 == !levels) {
[ [ %type ] ] %chanlevskin Levels on adding users: owner / ban %chanlevskin
}
if ($1 == !deluser) {
if (!$2) { [ [ %type ] ] %chanlevskin Syntax: !deluser <nickname> %chanlevskin | halt }
var %host = $address($2,2),$chan
if (*!*@* iswm $2) && ($left($2,4) == *!*@) { var %host = $2 }
if (!$wi($auth($2))) { [ [ %type ] ] %chanlevskin Authname: ( $+ $auth($2) $+ ) is not added, cannot remove! %chanlevskin | halt }
remini userl.ini Global $auth($2)
[ [ %type ] ] %chanlevskin Done %chanlevskin Successfuly removed nick: $2 ( $+ $auth($2) $+ ) from my database! %chanlevskin
halt
}
if ($1 == !userlist) {
[ [ %type ] ] %chanlevskin Userlist - Entries: $ini(userl.ini,global,0) %chanlevskin
var %i = 1
while (%i <= $ini(userl.ini,global,0)) {
var %x = $ini(userl.ini,global,%i)
var %lvl = $wi($ini(userl.ini,global,%i))
var %list = $addtok(%x ( %lvl ) $+ $chr(44),%list,32)
inc %i
}
[ [ %type ] ] %chanlevskin Auths: $iif(%list,%list,No Hosts!) %chanlevskin
}
if ($wi($auth($nick)) == owner) || ($wi($auth($nick)) == admin) {
if ($1 == !whois) {
var %host = $address($2,2)
if (*!*@* iswm $2) /var %host = $2
if (%host != $null) {
[ [ %type ] ] %chanlevskin Nickname: ( $+ $2 $+ ), Authname: ( $+ $auth($2) $+ ), is known as: $+ $iif($wi($mask($auth($2),2)),$v1,Unknown) $+ %chanlevskin
}
}
if ($1 == !whoami) {
[ [ %type ] ] %chanlevskin You are known as: $nick ( $+ $auth($nick) $+ ), and your level is: $wi($auth($nick)) $+ %chanlevskin
}
}
} |