Code:
on $*:text:/^!delcom !?(\S+)/iS:#:{
  if ($read(sreglist.txt,nw,$nick)) && ($2 != $null) {
    msg $chan removed $2 from commands!
    remini allcommands.ini commands $regml(1)

    var %text $read(commandsresonse.txt,1)
    if %text != $null {
      var %line $remove(%text,! $+ $regml(1))
    }

    write -l1 commandsresonse.txt %line 
  }
}