ALIAS -l PReplace {
  VAR %pr.cnt = 1 | VAR %pr.total = $Lines(Replace.txt) | VAR %pr.text = $1-
  WHILE (%pr.cnt <= %pr.total) {
    VAR %pr.text = $Replace(%pr.text, [ [ $Read(Replace.txt,%pr.cnt) ] ] )
    INC %pr.cnt
  }
  RETURN %pr.text
}
on *:Text:!Items *:#:{
  //notice $nick Items You Will Need For $read(Questitems.txt,w, * $+ $PReplace($2-) $+ *))
}