Code:
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
  }
}