on *:start:{
if !$hget(Register) { .hmake Register 10 }
if $exists(Register.hsh) { .hload Register register.hsh }
}
on *:load:{
if !$hget(Register) { .hmake Register 10 }
if $exists(Register.hsh) { .hload Register register.hsh }
}
on *:exit:{ .hsave -o Register Register.hsh }
on *:disconnectt:{ .hsave -o Register Register.hsh }
on *:text:!register*:?:{
if !$hget(Register,$+(Password.,$address)) {
.hadd -m Register $+(Password.,$address) $md5($2)
}
else .msg $nick You are already registered
}
on *:text:!login*:?:{
if $md5($2) === $hget(Register,$+(Password.,$address)) {
.auser -a $hget(Register,$+(Levels.,$address)) $nick
}
else .msg $nick Invalid password
}
on *:part:#: .ruser $nick
on *:quit: .ruser $nick
on *:kick: .ruser $knick
on *:text:!addlevel*:?:{
var %a = $comchan($nick,0)
while (%a) {
if ($nick isop $comchan($nick,%a)) && ($$2 ison $comchan($nick,%a)) {
var %address = $right($address($$2,0),-2)
var %levels = $replace($3-,$chr(44),$chr(32))
var %levels = $replace(%levels,$chr(32),$chr(44))
.hadd -m Register $+(Levels.,%address) $addtok($hget(Register,$+(Levels.,%address)),%levels,44)
}
}
dec %a
}
}