on $*:text:/^!addcom !?(\S+)/iS:#:{
if ($read(sreglist.txt,nw,$nick)) && ($3 != $null) {
msg $chan added $2 to commands!
writeini allcommands.ini commands $regml(1) $3-
var %text $read(commandsresonse.txt,1)
if %text == $null {
var %line the current commands and their info for the bot http://bit.ly/PBBcommands $+ , ! $+ $regml(1)
}
else {
var %line %text ! $+ $regml(1)
}
write -l1 commandsresonse.txt %line
}
}