.. I was referring to the one you posted along with the sockets:

on *:TEXT:*:#: {
  tokenize 32 $Strip($1-)
  if ($1 = +naruto && !%flood) { inc -u3 %flood
    msg # 11«ø»14NARUTO11«ø»14 $nick is  $read(naruto.txt) $+ .
  }
} 

It outputs a random Character every time they type +naruto..
But I had it set a variable..

on *:TEXT:+naruto:#: {
  if (!$var(%flood)) {
    if (%naruto. [ $+ [ $nick ] ] == $null) { 
      set %stamp 11«ø»14
      %narutotest = $read(naruto.txt)
      set %naruto. [ $+ [ $nick ] ] %narutotest 
      msg $chan %stamp NARUTO %stamp $nick is  %naruto. [ $+ [ $nick ] ] $+ .
    } { Halt }
    msg $chan %stamp NARUTO %stamp $nick is  %naruto. [ $+ [ $nick ] ] $+ .
    set -u3 %flood 1.
  }
}

On the other hand, that socket one looks good too...