I tried adding

on $*:text:/^@xbox\s(.+)/iS:# {
  if (!%f.xbox) {
    if (!$2) { inc -u3 %f.xbox
      if ($sock(xbox)) sockclose xbox
      sockopen xbox live.xbox.com 80
      sockmark xbox $+(/en-US/Profile?gamertag=,$replace($read(xboxtag.txt,ns,$nick),$chr(32),$+($chr(37),20))) $&
        msg # $+ ($read(xboxtag.txt,ns,$nick))
    }
    if ($2 == @erase) { write $+(-dl,$readn) xboxtag.txt
      msg # $nick $+ , your gamer tag has been reset.  Please re-add your Gamertag if you wish with !xbox register [xboxtag]
    }
    if ($2 == register) {
      if (!$3) { msg # please put in your xbox username, if you change it. Please remember to reset it.
      }
      else {
        write xboxtag.txt $nick $$3- | msg # $nick $+ , Your gamer tag of $$3- has been memorized.
      }
    }
    else { inc -u3 %f.xbox
      if ($sock(xbox)) sockclose xbox
      sockopen xbox live.xbox.com 80
      sockmark xbox $+(/en-US/Profile?gamertag=,$replace($regml(1),$chr(32),$+($chr(37),20))) $&
        msg # $+($regml(1))
    }
  }
}

but when I try doing the @xbox @erase It erases the name, but it still comes up with the name not found. Also when I just try the @xbox it doesn't work at all.

I even tried seeing if the problem was with the $regml(1) and replacing that with the $read(xboxtag.txt,ns,$nick) and it still failed

Any help would be nice.