on *:TEXT:*:?:{
if ($1 == @login) {
if ($readini(users.ini,users,$2)) && ($3 == $gettok($readini(users.ini,users,$2),1,32)) {
if ($gettok($readini(users.ini,users,$2),2,32) == 1) {
msg $nick Welcome $2 Your commands are %ownercommands
}
if ($gettok($readini(users.ini,users,$2),2,32) == 2) {
msg $nick Welcome $2 Your commands are %admincommands
}
if ($gettok($readini(users.ini,users,$2),2,32) == 3) {
msg $nick Welcome $2 Your commands are %nobodycommands
}
}
}
elseif ($1 == @register) && ($3) && (!$readini(users.ini,users,$2)) {
writeini users.ini users $2 $3 3
msg $nick You are now registered with username $2 password $3 and you are a nobody
}
elseif (!$3) {
msg $nick The correct syntax is @register username password
}
elseif ($readini(users.ini,users,$2)) {
msg $nick You are already registered
}
}
elseif ($1 == @addcmd) && ($gettok($readini(users.ini,users,$nick),2,32) == 1) && ($4) {
if ($2 == 1) {
set %ownercommands $iif(%ownercommands,$v1 $3,$3)
}
if ($2 == 2) {
set %admincommands $iif(%admincommands,$v1 $3,$3)
}
if ($2 == 3) {
set %nobodycommands $iif(%nobodycommands,$v1 $3, $3)
}
set % $+ $2 $+ . $+ $3 $4-
msg $nick I have set $3 to $4- for $2
}
elseif ($gettok($readini(users.ini,users,$nick),2,32) != 1) {
msg $nick You do not have enough access Your access is $iif($gettok($readini(users.ini,users,$2),2,32),$v1,0)
}
elseif (!$4) {
msg $nick The correct syntax is @addcmd (1,2,3) command text
}
var %tmp1 1
while (%tmp1 <= $var(%1.*,0)) {
if ($1 == $right($var(%1.*,%tmp1),-3)) {
msg $nick $var($eval($eval(%1.,0) $+ $1,1),1).value
}
inc %tmp1
}
var %tmp2 1
while (%tmp1 <= $var(%2.*,0)) {
if ($1 == $right($var(%2.*,%tmp1),-3)) {
msg $nick $var($eval($eval(%2.,0) $+ $1,1),1).value
}
inc %tmp2
}