i have another method but I am based on XML he has presented

Code:
on *:text:*:#:{
  if ($strip($1) == !item) && ($2) {
    var %i 1
    while $read(fichier.txt,%i) {
      if $regsubex($v1,.+>(.+)<.+,\1) == $2- {
        wr $readn # $v1
        halt
      }
      inc %i
    }
  }
}
alias -l wr {
  var %x $1,%chan $2,%c $3-
  while $read(fichier.txt,%x) {
    var %ex $v1
    if !$regex(%ex,</item>) {
      noop $regex(%ex,<(.+)>(.+)<)
      if ($gettok($regml(1),2,34)) var % $+ $v1 $regml(2)
      elseif ($regml(1)) var % $+ $v1 $regml(2)
    }
    else goto r
    inc %x
  }
  :r
  noop $regex($read(fichier.txt,$(},$(},$1))),\s(.+)<.+>)
  tokenize 124 $replace($gettok($regml(1),2-,32),=",|,">,|,",|,$chr(44),.)
  var %w0 $iif($1 == af,AF: $2,DPS: $2 $+ $chr(44) Spd: $4)
  var %w1 %w0 - $iif(%SLASH,Slash: $v1 $+ $chr(44)) $iif(%STRENGTH,Strength: $v1 $+ $chr(44)) Quickness: %QUICKNESS $+ , $iif(%RES_CRUSH,Crush Resist: $v1 $+ $chr(44)) $iif(%HITPOINTS,Hits: $v1,Matter Resist: + $+ %RES_MATTER)
  msg %chan %c ( $+ $gettok($1-,-1,32) $+ ) - Lvl: %level $+ , Qual: %quality $+ , %w1 - %origin
}

WorldDMT