Code:

proc NintendoXG:code {nick uhost hand chan arg} {global nxgif {[channel get $chan nofriendcode]} {putserv "NOTICE $nick :\002\037Error: This command is disabled for $chan\002\037"return}   ## change this a bit...make sure we have 2 elements   if {[llength [split $arg]] != 2} {       putserv "NOTICE $nick :\002SYNTAX:\002 [string trim $nxg(char)]Help Code"; return   }   foreach {name game} [split $arg] {break}   set list [split [read [set fd [open $::nxg(gamefile) r]]] \n]; close $fd  if {![llength [set matches [lsearch -all -inline -glob $list [md5 [string tolower $name]]*]]]} {      putserv "NOTICE $nick :The user: $name couldn't be found in the NintendoXG Database."; return   }  foreach match $matches {     foreach {x gm code} $match {         if {[string equal -nocase $gm $game]} {             putserv "NOTICE $nick :--- $name's Friendcode ---"             putserv "NOTICE $nick :Game: $gm -- Code: $code"         }     }  }  }