mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-22 23:26:40 -08:00
Merge branch 'main' of https://github.com/coding-horror/basic-computer-games
This commit is contained in:
rbamforth
266
70 Poetry/java/Poetry.java
Normal file
266
70 Poetry/java/Poetry.java
Normal file
@@ -0,0 +1,266 @@
|
||||
/**
|
||||
* Game of Poetry
|
||||
* <p>
|
||||
* Based on the BASIC game of Poetry here
|
||||
* https://github.com/coding-horror/basic-computer-games/blob/main/70%20Poetry/poetry.bas
|
||||
* <p>
|
||||
* Note: The idea was to create a version of the 1970's BASIC game in Java, without introducing
|
||||
* new features - no additional text, error checking, etc has been added.
|
||||
*
|
||||
* Converted from BASIC to Java by Darren Cardenas.
|
||||
*/
|
||||
|
||||
public class Poetry {
|
||||
|
||||
private final static double COMMA_RATE = 0.19;
|
||||
private final static double SPACE_RATE = 0.65;
|
||||
private final static int PARAGRAPH_RATE = 20;
|
||||
|
||||
private enum Step {
|
||||
WORD_GROUP1, WORD_GROUP2, WORD_GROUP3, WORD_GROUP4, RANDOMIZE_COMMA,
|
||||
RANDOMIZE_WHITESPACE, RANDOMIZE_COUNTERS
|
||||
}
|
||||
|
||||
public void play() {
|
||||
|
||||
showIntro();
|
||||
startGame();
|
||||
|
||||
} // End of method play
|
||||
|
||||
private void showIntro() {
|
||||
|
||||
System.out.println(" ".repeat(29) + "POETRY");
|
||||
System.out.println(" ".repeat(14) + "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY");
|
||||
System.out.println("\n\n");
|
||||
|
||||
} // End of method showIntro
|
||||
|
||||
private void startGame() {
|
||||
|
||||
int groupIndex = 0;
|
||||
int paragraphIndex = 0;
|
||||
int punctuationIndex = 0;
|
||||
int wordIndex = 1;
|
||||
|
||||
Step nextStep = Step.WORD_GROUP1;
|
||||
|
||||
// Begin outer while loop
|
||||
while (true) {
|
||||
|
||||
switch (nextStep) {
|
||||
|
||||
case WORD_GROUP1:
|
||||
|
||||
if (wordIndex == 1) {
|
||||
|
||||
System.out.print("MIDNIGHT DREARY");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 2) {
|
||||
|
||||
System.out.print("FIERY EYES");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 3) {
|
||||
|
||||
System.out.print("BIRD OR FIEND");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 4) {
|
||||
|
||||
System.out.print("THING OF EVIL");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 5) {
|
||||
|
||||
System.out.print("PROPHET");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
}
|
||||
break;
|
||||
|
||||
case WORD_GROUP2:
|
||||
|
||||
if (wordIndex == 1) {
|
||||
|
||||
System.out.print("BEGUILING ME");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 2) {
|
||||
|
||||
System.out.print("THRILLED ME");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 3) {
|
||||
|
||||
System.out.print("STILL SITTING....");
|
||||
nextStep = Step.RANDOMIZE_WHITESPACE;
|
||||
|
||||
} else if (wordIndex == 4) {
|
||||
|
||||
System.out.print("NEVER FLITTING");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 5) {
|
||||
|
||||
System.out.print("BURNED");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
}
|
||||
break;
|
||||
|
||||
case WORD_GROUP3:
|
||||
|
||||
if (wordIndex == 1) {
|
||||
|
||||
System.out.print("AND MY SOUL");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 2) {
|
||||
|
||||
System.out.print("DARKNESS THERE");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 3) {
|
||||
|
||||
System.out.print("SHALL BE LIFTED");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 4) {
|
||||
|
||||
System.out.print("QUOTH THE RAVEN");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 5) {
|
||||
|
||||
if (punctuationIndex != 0) {
|
||||
|
||||
System.out.print("SIGN OF PARTING");
|
||||
}
|
||||
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
}
|
||||
break;
|
||||
|
||||
case WORD_GROUP4:
|
||||
|
||||
if (wordIndex == 1) {
|
||||
|
||||
System.out.print("NOTHING MORE");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 2) {
|
||||
|
||||
System.out.print("YET AGAIN");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 3) {
|
||||
|
||||
System.out.print("SLOWLY CREEPING");
|
||||
nextStep = Step.RANDOMIZE_WHITESPACE;
|
||||
|
||||
} else if (wordIndex == 4) {
|
||||
|
||||
System.out.print("...EVERMORE");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
|
||||
} else if (wordIndex == 5) {
|
||||
|
||||
System.out.print("NEVERMORE");
|
||||
nextStep = Step.RANDOMIZE_COMMA;
|
||||
}
|
||||
break;
|
||||
|
||||
case RANDOMIZE_COMMA:
|
||||
|
||||
// Insert commas
|
||||
if ((punctuationIndex != 0) && (Math.random() <= COMMA_RATE)) {
|
||||
|
||||
System.out.print(",");
|
||||
punctuationIndex = 2;
|
||||
}
|
||||
nextStep = Step.RANDOMIZE_WHITESPACE;
|
||||
break;
|
||||
|
||||
|
||||
case RANDOMIZE_WHITESPACE:
|
||||
|
||||
// Insert spaces
|
||||
if (Math.random() <= SPACE_RATE) {
|
||||
|
||||
System.out.print(" ");
|
||||
punctuationIndex++;
|
||||
|
||||
}
|
||||
// Insert newlines
|
||||
else {
|
||||
|
||||
System.out.println("");
|
||||
punctuationIndex = 0;
|
||||
}
|
||||
nextStep = Step.RANDOMIZE_COUNTERS;
|
||||
break;
|
||||
|
||||
case RANDOMIZE_COUNTERS:
|
||||
|
||||
wordIndex = (int)((int)(10 * Math.random()) / 2) + 1;
|
||||
|
||||
groupIndex++;
|
||||
paragraphIndex++;
|
||||
|
||||
if ((punctuationIndex == 0) && (groupIndex % 2 == 0)) {
|
||||
|
||||
System.out.print(" ");
|
||||
}
|
||||
|
||||
if (groupIndex == 1) {
|
||||
|
||||
nextStep = Step.WORD_GROUP1;
|
||||
|
||||
} else if (groupIndex == 2) {
|
||||
|
||||
nextStep = Step.WORD_GROUP2;
|
||||
|
||||
} else if (groupIndex == 3) {
|
||||
|
||||
nextStep = Step.WORD_GROUP3;
|
||||
|
||||
} else if (groupIndex == 4) {
|
||||
|
||||
nextStep = Step.WORD_GROUP4;
|
||||
|
||||
} else if (groupIndex == 5) {
|
||||
|
||||
groupIndex = 0;
|
||||
System.out.println("");
|
||||
|
||||
if (paragraphIndex > PARAGRAPH_RATE) {
|
||||
|
||||
System.out.println("");
|
||||
punctuationIndex = 0;
|
||||
paragraphIndex = 0;
|
||||
nextStep = Step.WORD_GROUP2;
|
||||
|
||||
} else {
|
||||
|
||||
nextStep = Step.RANDOMIZE_COUNTERS;
|
||||
}
|
||||
}
|
||||
break;
|
||||
|
||||
default:
|
||||
System.out.println("INVALID STEP");
|
||||
break;
|
||||
}
|
||||
|
||||
} // End outer while loop
|
||||
|
||||
} // End of method startGame
|
||||
|
||||
public static void main(String[] args) {
|
||||
|
||||
Poetry poetry = new Poetry();
|
||||
poetry.play();
|
||||
|
||||
} // End of method main
|
||||
|
||||
} // End of class Poetry
|
||||
81
70 Poetry/perl/poetry.pl
Normal file
81
70 Poetry/perl/poetry.pl
Normal file
@@ -0,0 +1,81 @@
|
||||
#!/usr/bin/perl
|
||||
#use strict;
|
||||
# Automatic converted by bas2perl.pl
|
||||
# Too much spaguetti code to be properly converted.
|
||||
|
||||
|
||||
print ' 'x 30 . "POETRY\n";
|
||||
print ' 'x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
|
||||
print "\n"; print "\n"; print "\n";
|
||||
Line90:
|
||||
if ($I==1) { goto Line100; } elsif ($I==2) { goto Line101; } elsif ($I==3) { goto Line102; } elsif ($I==4) { goto Line103; } elsif ($I==5) { goto Line104; } ;
|
||||
Line100:
|
||||
print "MIDNIGHT DREARY"; goto Line210;
|
||||
Line101:
|
||||
print "FIERY EYES"; goto Line210;
|
||||
Line102:
|
||||
print "BIRD OR FIEND"; goto Line210;
|
||||
Line103:
|
||||
print "THING OF EVIL"; goto Line210;
|
||||
Line104:
|
||||
print "PROPHET"; goto Line210;
|
||||
Line110:
|
||||
if ($I==1) { goto Line111; } elsif ($I==2) { goto Line112; } elsif ($I==3) { goto Line113; } elsif ($I==4) { goto Line114; } elsif ($I==5) { goto Line115; } ;
|
||||
Line111:
|
||||
print "BEGUILING ME"; $U=2; goto Line210;
|
||||
Line112:
|
||||
print "THRILLED ME"; goto Line210;
|
||||
Line113:
|
||||
print "STILL SITTING...."; goto Line212;
|
||||
Line114:
|
||||
print "NEVER FLITTING"; $U=2; goto Line210;
|
||||
Line115:
|
||||
print "BURNED"; goto Line210;
|
||||
Line120:
|
||||
if ($I==1) { goto Line121; } elsif ($I==2) { goto Line122; } elsif ($I==3) { goto Line123; } elsif ($I==4) { goto Line124; } elsif ($I==5) { goto Line125; } ;
|
||||
Line121:
|
||||
print "AND MY SOUL"; goto Line210;
|
||||
Line122:
|
||||
print "DARKNESS THERE"; goto Line210;
|
||||
Line123:
|
||||
print "SHALL BE LIFTED"; goto Line210;
|
||||
Line124:
|
||||
print "QUOTH THE RAVEN"; goto Line210;
|
||||
Line125:
|
||||
if ($U==0) { goto Line210; }
|
||||
print "SIGN OF PARTING"; goto Line210;
|
||||
Line130:
|
||||
if ($I==1) { goto Line131; } elsif ($I==2) { goto Line132; } elsif ($I==3) { goto Line133; } elsif ($I==4) { goto Line134; } elsif ($I==5) { goto Line135; } ;
|
||||
Line131:
|
||||
print "NOTHING MORE"; goto Line210;
|
||||
Line132:
|
||||
print "YET AGAIN"; goto Line210;
|
||||
Line133:
|
||||
print "SLOWLY CREEPING"; goto Line210;
|
||||
Line134:
|
||||
print "...EVERMORE"; goto Line210;
|
||||
Line135:
|
||||
print "NEVERMORE";
|
||||
Line210:
|
||||
if ($U==0 || rand(1)>.19) { goto Line212; }
|
||||
print ","; $U=2;
|
||||
Line212:
|
||||
if (rand(1)>.65) { goto Line214; }
|
||||
print " "; $U=$U+1; goto Line215;
|
||||
Line214:
|
||||
print "\n"; $U=0;
|
||||
Line215:
|
||||
$I=int(int(10*rand(1))/2)+1;
|
||||
$J=$J+1; $K=$K+1;
|
||||
if ($U>0 || int($J/2)!=$J/2) { goto Line240; }
|
||||
print " ";
|
||||
Line240:
|
||||
if ($J==1) { goto Line90; } elsif ($J==2) { goto Line110; } elsif ($J==3) { goto Line120; } elsif ($J==4) { goto Line130; } elsif ($J==5) { goto Line250; } ;
|
||||
Line250:
|
||||
$J=0; print "\n"; if ($K>20) { goto Line270; }
|
||||
goto Line215;
|
||||
Line270:
|
||||
print "\n"; $U=0; $K=0; goto Line110;
|
||||
exit;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user