cat original/acrobatics.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > acrobatics.mcmmo
cat original/all.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > all.mcmmo
cat original/archery.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > archery.mcmmo
cat original/axes.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > axes.mcmmo
cat original/excavation.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > excavation.mcmmo
cat original/fishing.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > fishing.mcmmo
cat original/fixem | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > fixem
cat original/herbalism.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > herbalism.mcmmo
cat original/mining.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > mining.mcmmo
cat original/original | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > original
cat original/repair.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > repair.mcmmo
cat original/swords.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > swords.mcmmo
cat original/taming.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > taming.mcmmo
cat original/unarmed.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > unarmed.mcmmo
cat original/woodcutting.mcmmo | perl -n -e '($user, $stat) = split(/:/); $newstat = int((($stat/1000) * 99)); if ($newstat < 1) { $newstat=1; } print $user . ":" . $newstat. "\n";' > woodcutting.mcmmo