Mods fixed for Dominions v3.27

[llamabeast]

This is the perl script I used to fix the mods:


#!/usr/bin/perl

use strict;

my $inMonster;
my $alreadySeenWeapon;
my $alreadySeenArmor;
while (<>) {
if (/#selectmonster/) {
$inMonster = 1;
}
if (/#end/) {
$inMonster = 0;
$alreadySeenWeapon = 0;
$alreadySeenArmor = 0;
}
if (/#weapon/) {
if (($inMonster) and not ($alreadySeenWeapon)) {
$alreadySeenWeapon = 1;
print "#clearweapons\n";
}
}
if (/#armor/) {
if (($inMonster) and not ($alreadySeenArmor)) {
$alreadySeenArmor = 1;
print "#cleararmor\n";
}
}
print;
}