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

Adjust spacing to match original

Browse Source 
Various minor tweaks
This commit is contained in:
Pat Ludwig
2022-01-02 18:31:50 -06:00
parent 1399eee7ee
commit 436f904abf
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
61_Math_Dice/perl/mathdice.pl
View File

@@ -25,24 +25,25 @@ sub game_play {
$sum = $sum + $roll; # keeping track of the summary $sum = $sum + $roll; # keeping track of the summary
#print "Sum: $sum Roll: $roll\n"; #print "Sum: $sum Roll: $roll\n";
if ($num == 1) { if ($num == 1) {
print " +\n"; # if its the first roll then print an addition sign print "\n +\n\n"; # if its the first roll then print an addition sign
} }
if ($num == 2) { if ($num == 2) {
print " =\n"; # if its the second roll print the equals sign and wait for an answer print " =? "; # if its the second roll print the equals sign and wait for an answer
my $answer = <STDIN>; my $answer = <STDIN>;
chomp($answer); chomp($answer);
if ($answer == 0) { if ($answer == 0) {
die "You input '0', Thanks for playing!\n"; die "You input '0', Thanks for playing!\n";
} }
elsif ($answer == $sum) { elsif ($answer == $sum) {
print "RIGHT!\nTHE DICE ROLL AGAIN\n"; print "RIGHT!\n\nTHE DICE ROLL AGAIN\n\n";
} }
else { # code execution if they don't get the right answer else { # code execution if they don't get the right answer
print "NO,COUNT THE SPOTS AND GIVE ANOTHER ANSWER\n"; print "NO,COUNT THE SPOTS AND GIVE ANOTHER ANSWER\n";
print " =? ";
$answer = <STDIN>; $answer = <STDIN>;
chomp($answer); chomp($answer);
if ($answer == $sum){ if ($answer == $sum){
print "RIGHT!\nTHE DICE ROLL AGAIN\n"; print "RIGHT!\n\nTHE DICE ROLL AGAIN\n\n";
} }
else { else {
print "N0, THE ANSWER IS $sum\n"; print "N0, THE ANSWER IS $sum\n";