on $*:text:/^!addcom !?(\S+)/iS:#: {
  if ($read(modlist.txt,nw,$nick)) {
    writeini nonmodscommands.ini # $regml(1) $3-
    var %text $read(nonmodscommands.txt,1)
    if %text == $null {
      var %line Commands List: ! $+ $regml(1) $+ ,
    }
    else {
      var %line %text ! $+ $regml(1)
    }

    write -l1 nonmodsresponse.txt %line
    msg # $nick - The command $$2 has been added.
  }
}
on $*:text:/^!delcom !?(\S+)/iS:#:{
  if ($read(modlist.txt,nw,$nick)) {
    remini nonmodscommands.ini # $regml(1)
    var %text $read(nonmodscommands.txt,1)
    if %text != $null {
      var %line $remove(%text,! $+ $regml(1))
    }
    write -l1 nonmodsresponse.txt %line
    msg # $nick - The command $$2 has been removed.
  }
}

on $*:text:/^!editcom !?(\S+)/iS:#:{
  if ($read(modlist.txt,nw,$nick)) {
    writeini nonmodscommands.ini # $regml(1) $$3-
    msg $chan $nick - The command $2 has been updated.
  }
  Else msg # Sorry $nick - That command does not exist.
}

on $*:text:/^!(\S+)/:#:{
  if ($read(modlist.txt,nw,$nick)) { return }
  if ((%floodnonmods) || ($($+(%,floodnonmods.,$2),2))) { return }
  set -u5 %floodnonmods On
  set -u5 %floodnonmods. $+ $nick On
  if ($readini(nonmodscommands.ini,n,#,$regml(1))) msg # $v1
}