#!/usr/bin/perl -w
#Get list of warriors

print "Converting warriors in $ARGV[0]\n";
open(DATA,"ls $ARGV[0]|");
while (<DATA>) {
  chomp;
  open(MEH,"./pmars -r 0 -s 80 -p 80 -c 800 -l 5 tmp/$_ |");
  $_ =~ s/.red//g;
  open(MO,"> tmp/$_.rc");
  while(<MEH>){
    if($_ =~ /Pro/){
      next;
    }
    print MO $_;
  }
  close(MO);
}
close(DATA);