on *:TEXT:ondw*:?:{
  var %102 = 1
  while (%102 <= $lines(items.txt)) {
    if ($read(items.txt,s,$2, %102)) {
      if (%items. [ $+ [ $2 ] ] == $null) {
        set %items. [ $+ [ $2 ] ] $replace($gettok($read(items.txt, %102),2-,32),$chr(32),_)
        inc %102
      }
      set %items. [ $+ [ $2 ] ] %items. [ $+ [ $2 ] ] $replace($gettok($read(items.txt, %102),2-,32),chr(32),_)
    }
    inc %102
  }
  /msg $nick ondwr %items. [ $+ [ $2 ] ]
  unset %items. [ $+ [ $2 ] ]
  halt
}