gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-12 15:50:20 -08:00
Code Issues Packages Projects Releases Wiki Activity

added 28-combat for perl

Browse Source
This commit is contained in:
kbrannen
2023-05-20 00:16:22 -05:00
parent 89a01d35ba
commit 728e6ebaf8
1 changed files with 202 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

202
28_Combat/perl/combat.pl Executable file
View File

@@ -0,0 +1,202 @@
#!/usr/bin/perl
# Combat program in Perl
# Translated by Kevin Brannen (kbrannen)
use strict;
use warnings;
# globals
my $User_army;
my $User_navy;
my $User_AF;
my $Comp_army = 30000;
my $Comp_navy = 20000;
my $Comp_AF = 22000;
my $Attack_type;
my $Attack_num;
print "\n";
print " " x 33, "COMBAT\n";
print " " x 15, "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n\n\n";
print "I AM AT WAR WITH YOU.\nWE HAVE 72000 SOLDIERS APIECE.\n\n";
do {
print "DISTRIBUTE YOUR FORCES.\n";
print "\tME\t YOU\n";
print "ARMY\t$Comp_army\t";
chomp($User_army = <>);
print "NAVY\t$Comp_navy\t";
chomp($User_navy = <>);
print "A. F.\t$Comp_AF\t";
chomp($User_AF = <>);
} while ($User_army + $User_navy + $User_AF > 72000);
do {
print "YOU ATTACK FIRST. TYPE (1) FOR ARMY; (2) FOR NAVY;\n";
print "AND (3) FOR AIR FORCE.\n";
chomp($Attack_num = <>);
} while ($Attack_type < 1 && $Attack_type > 3);
do {
print "HOW MANY MEN\n";
chomp($Attack_type = <>);
} while ($Attack_type < 0
|| ($Attack_num == 1 && $Attack_type > $User_army)
|| ($Attack_num == 2 && $Attack_type > $User_navy)
|| ($Attack_num == 3 && $Attack_type > $User_AF));
if ($Attack_num == 1)
{
if ($Attack_type<$User_army/3)
{
print "YOU LOST $Attack_type MEN FROM YOUR ARMY.\n";
$User_army = int($User_army-$Attack_type);
}
if ($Attack_type<2*$User_army/3)
{
print "YOU LOST ", int($Attack_type/3), " MEN, BUT I LOST ", int(2*$Comp_army/3), "\n";
$User_army = int($User_army-$Attack_type/3);
$Comp_army = int(2*$Comp_army/3);
}
else
{
s270();
}
}
elsif ($Attack_num == 2)
{
if ($Attack_type < $Comp_navy/3)
{
print "YOUR ATTACK WAS STOPPED!\n";
$User_navy = int($User_navy-$Attack_type);
}
if ($Attack_type < 2*$Comp_navy/3)
{
print "YOU DESTROYED ", int(2*$Comp_navy/3), " OF MY ARMY.\n";
$Comp_navy = int(2*$Comp_navy/3);
}
else
{
s270();
}
}
else # $Attack_num == 3
{
if ($Attack_type < $User_AF/3)
{
print "YOUR ATTACK WAS WIPED OUT.\n";
$User_AF = int($User_AF-$Attack_type);
}
if ($Attack_type < 2*$User_AF/3)
{
print "WE HAD A DOGFIGHT. YOU WON - AND FINISHED YOUR MISSION.\n";
$Comp_army = int(2*$Comp_army/3);
$Comp_navy = int($Comp_navy/3);
$Comp_AF = int($Comp_AF/3);
}
else
{
print "YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I DESTROYED\n";
print "TWO NAVY BASES AND BOMBED THREE ARMY BASES.\n";
$User_army = int($User_army/4);
$User_navy = int($User_navy/3);
$User_AF = int(2*$User_AF/3);
}
}
print "\n\tYOU\tME\n";
print "ARMY\t$User_army\t$Comp_army\n";
print "NAVY\t$User_navy\t$Comp_navy\n";
print "A. F.\t$User_AF\t$Comp_AF\n";
do {
print "WHAT IS YOUR NEXT MOVE?\n";
print "ARMY=1 NAVY=2 AIR FORCE=3\n";
chomp($Attack_type = <>);
} while ($Attack_type < 1 && $Attack_type > 3);
do {
print "HOW MANY MEN\n";
chomp($Attack_num = <>);
} while ($Attack_num < 0
|| ($Attack_type == 1 && $Attack_num > $User_army)
|| ($Attack_type == 2 && $Attack_num > $User_navy)
|| ($Attack_type == 3 && $Attack_num > $User_AF));
if ($Attack_num == 1)
{
if ($Attack_num < $Comp_army/2)
{
print "I WIPED OUT YOUR ATTACK!\n";
$User_army -= $Attack_num;
}
else
{
print "YOU DESTROYED MY ARMY!\n";
$Comp_army = 0;
}
}
elsif ($Attack_num == 2)
{
if ($Attack_num < $Comp_navy/2)
{
print "I SUNK TWO OF YOUR BATTLESHIPS, AND MY AIR FORCE\n";
print "WIPED OUT YOUR UNGAURDED CAPITOL.\n";
$User_army /= 4;
$User_navy /= 2;
}
else
{
print "YOUR NAVY SHOT DOWN THREE OF MY XIII PLANES,\n";
print "AND SUNK THREE BATTLESHIPS.\n";
$Comp_AF = 2*$Comp_AF/3;
$Comp_navy /= 2;
}
}
else # $Attack_num == 3
{
if ($Attack_num > $Comp_AF/2)
{
print "MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT\n";
print "YOUR COUNTRY IN SHAMBLES.\n";
$User_army /= 3;
$User_navy /= 3;
$User_AF /= 3;
}
else
{
print "ONE OF YOUR PLANES CRASHED INTO MY HOUSE. I AM DEAD.\n";
print "MY COUNTRY FELL APART.\n";
$Comp_army = $Comp_navy = $Comp_AF = 0;
}
}
print "\nFROM THE RESULTS OF BOTH OF YOUR ATTACKS,\n";
my $total_user = $User_army+$User_navy+$User_AF;
my $total_comp = $Comp_army+$Comp_navy+$Comp_AF;
if ($total_user > 3/2*($total_comp))
{
print "YOU WON, OH! SHUCKS!!!!\n";
}
elsif ($total_user < 2/3*($total_comp))
{
print "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU\n";
print "RIGHT FOR PLAYING THIS STUPID GAME!!!\n";
}
else
{
print "THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR\n";
print "RESPECTIVE COUNTRIES AND LIVE IN PEACE.\n";
}
print "\n";
exit(0);
#######################################################
sub s270
{
print "YOU SUNK ONE OF MY PATROL BOATS, BUT I WIPED OUT TWO\n";
print "OF YOUR AIR FORCE BASES AND 3 ARMY BASES.\n";
$User_army = int($User_army/3);
$User_AF = int($User_AF/3);
$Comp_navy = int(2*$Comp_navy/3);
}