Its not winning any awards but it will (at a very basic level) store factoids sort of like an infobot, key word in the title being 'simple' ;)

to allow a user to use the del,lock, and unlock commands type /auser -a admin <nick/mask> in the bot's mIRC

Commands:
All users -
<botnick> <name> is <reply>

<botnick> what is <name>?

Admins -
<botname> lock <name>

<botname> unlock <name>

<botname> del <name>


UPDATES

v2.0
Total rewrite from scratch

• Fixed bugs with admin commands not working
  
• Changed commands to regex
  
• Various housekeeping
  v2.0.1
  
• A little housekeeping
  

on *:START:{ hmake infobot 100
if ($isfile(infobot.hsh)) { hload infobot infobot.hsh }
}
on *:EXIT:{ hsave infobot infobot.hsh
}
on *:TEXT:*:#:{ if ($regex($1-,$+(/^,$me,([:,])?) what is (.+)\?$/Si)) { var %info $left($4-,-1)
if ($info(%info).exists) { msg # $iif(%info == $nick,You are,%info is) $info(%info)
}
else { msg # %info doesn't exist!
}
}
elseif ($regex(infoadd,$1-,$+(/^,$me) $+ ([:,])? (.+) is (.+)/Si)) {
if ($info($regml(2)).exists) { msg # $regml(2) already exists! }
else { info add $regml(infoadd,2) $regml(infoadd,3)
msg # Ok, $nick
}
}
elseif ($regex($1-,$+(/^,$me) $+ ([:,])? (del(ete)?|forget|remove)/Si) && $isadmin($nick)) {
if (!$info($3-).exists) { msg # $3- doesn't exist! }
elseif ($info($3-).locked) { msg # $3- is locked! }
else {
info del $3-
msg # $3- was deleted
}
}
elseif ($regex($1-,$+(/^,$me) $+ ([:,])? lock/Si) && $isadmin($nick)) { if (!$info($3-).exists) { msg # $3- doesn't exist! }
elseif ($gettok($info($3-),-1,32) === LOCK) { msg # $3- is already locked! }
else { info lock $3-
msg # $3- has been locked
}
}
elseif ($regex($1-,$+(/^,$me) $+ ([:,])? unlock/Si) && $isadmin($nick)) { if (!$info($3-).exists)) { msg # $3- doesn't exist! }
elseif ($gettok($info($3-),-1,32) !=== LOCK) { msg # $3- isn't locked! }
}
}
alias -l info { if ($isid) { noop $regsub($1,/\s/g,[sp],%arg)
if ($prop == exists) {
return $iif($hget(infobot,%arg) != $null,1,0)
}
elseif ($prop == locked) { return $iif($hget(infobot,$+(%info,.lock)),1,0) }
elseif (!$prop) { return $hget(infobot,%info) }
}
else { if ($infobotdebug) { echo -s string $1 ; $2 ; $3 ; $4- }
noop $regsub($2,/\s/g,[sp],%info)
if ($1 == add) { hadd $iif($infobotdebug,-sm,-m) infobot %info $3- }
elseif ($1 == del) { hdel $iif($infobotdebug,-s) infobot %info }
elseif ($1 == edit) { hadd $iif($infobotdebug,-sm,-m) infobot %info $3- }
elseif ($1 == lock) { hadd $iif($infobotdebug,-sm,-m) infobot $+(%info,.lock) 1 }
elseif ($1 == unlock) { hdel $iif($infobotdebug,-s) infobot $+(%,info,.lock),2) }
}
}
alias -l isadmin { echo -s $level($address($1,5))
return $iif($level($address($1,5)) == admin,1,0)
}
alias -l infobotdebug return 0