This is pretty cool, but it doesn't seem to be very fair. Most of the times I tried running it, only one class of warrior (usually whichever on is listed last on the commandline) is ever getting to take turns -- even though the launcher says they're all loaded).

At one point, the launcher decided the game was over before any warrior had taken a turn.

A couple of random suggestions:

• You might consider "seeding" the playing feild, creating N of each warrior before sending them all a "go" command.
• the syntax for warriors is a little awkward (especially all the warnings about "No section for line __") what about just letting each file contain whatever "global" declarations people want, plus a "sub warrior_loop" that will get called over and over
• a FindBrotherWarriors would be helpfull.

Anyway, here's my first attempt at a warrior...

;predecl
# hoss1
# if the ratio of enemies warriors to the total num
# of warriors is greater
# then N, then attack.  Otherwise, Spawn.
my $ratio = 2 / 3;
;main
# Check other warriors
my $enemies = JProcRoutines::FindEnemyWarriors;
my $all = JProcRoutines::FindWarriors;
my $magic_num = (keys %$enemies) / (keys %$all);
print "$me : ratio is $magic_num\n";
if ($magic_num > $ratio) {
    # Pick a random enemy to hit
    my $rand_enemy = (keys %$enemies)[rand(keys %$enemies)];
    # Hit them.
    &JProcRoutines::Hit($rand_enemy);
} else {
    # Replicate, and if we get an undef back, set up a wait
    &JProcRoutines::Replicate;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.