I think more or less where it is broken in in my writeini sections. I don't think I have it quite right the way I want with making them to lower case characters, and making it to one word. Any advice would be helpful.

On *:TEXT:*:#:{
  if ($1 == !add) {
    if ($2 == FC) {
      if ($3 == help) {
        msg # Syntax: !add fc [Friend-Code-Numbers] [Game]  - Note: Don't worry about dashes.
      }
      else {
        if ($3 !isnum) { 
          msg # Syntax:  !add fc [Friend-Code-Numbers] [Game] - Note: No DASHES in the Friend Code.
        }
      }
      else {
        if (!$readini(freindcodes.ini,$nick,$lower($remove($4-,$chr(32))) {
          writeini friendcodes.ini $nick $lower($remove($4-,$chr(32))) $3
        }
      }
      else { 
        msg # You already have a Friend Code registered for that game. If it has changed due to restarting a game and you wish to change it type !change in the next 10 seconds
        set % [ $+ [$nick] ] $+ .friendcode $3
        set % [ $+ [$nick] ] $+ .game $lower($remove($4-,$chr(32)))
        write friendcodechange.txt -c $nick
        .timer.changefc 1 10
        write friendcodechange.txt -c $null
        unset % [ $+ [$nick] ] $+ .friendcode $3
        unset % [ $+ [$nick] ] $+ .game $lower($remove($4-,$chr(32)))
      }
    }
  }

  if ($2 == find) {
    if ($3 == help) {
      msg # Syntax: !find [Chat Nick] [Game Name]
    }
    else {
      if (!$readini(friendcodes.ini,$2,$lower($remove($3-,$chr(32))) {
        msg # either you misspelled the Chatters Nick, or they don't have a friend code for that game.
      }
      else {
        msg # $2 $+ 's Friend code for $3- is $readini(friendcodes.ini,$2,$lower($remove($3-,$chr(32)))
      }
    }
  }
}

on *:TEXT:!change:#:{
  if ($nick == $read(friendcodechange.txt,1) {
    writeini friendcodes.ini % [ $+ [$nick] ] $+ .game $lower($remove($4-,$chr(32))) % [ $+ [$nick] ] $+ .friendcode $3
  }
}