From 1d3819afd799d42e96d6fa687e4c1973a477c020 Mon Sep 17 00:00:00 2001
From: Nezumi Ronin <nezumironin@gmail.com>
Date: Thu, 1 Apr 2021 16:52:25 -0600
Subject: [PATCH] Create number.pl

Made with Perl!
---
 66 Number/perl/number.pl | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 66 Number/perl/number.pl

diff --git a/66 Number/perl/number.pl b/66 Number/perl/number.pl
new file mode 100644
index 00000000..b76dc6e5
--- /dev/null
+++ b/66 Number/perl/number.pl	
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+use strict;
+
+print ' 'x 33 . "NUMBER\n";
+print ' 'x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
+print "\n\n\n";
+print "YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM 1 TO 5, YOU\n";
+print "CAN GAIN OR LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET TO\n";
+print "A RANDOM NUMBER SELECTED BY THE COMPUTER.\n"; print "\n";
+print "YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLE(!)\n";
+print "YOUR POINT COUNT. YOU WIN WHEN YOU GET 500 POINTS.\n";
+print "\n"; my $P=100;
+
+Line12:
+while ($P<500) {
+	print "GUESS A NUMBER FROM 1 TO 5? "; chomp(my $G = <STDIN>);
+	my $R= &FNR(1);
+	my $S= &FNR(1);
+	my $T= &FNR(1);
+	my $U= &FNR(1);
+	my $V= &FNR(1);
+	if ($G eq $R) { $P=$P-5; }
+	if ($G eq $S) { $P=$P+5; }
+	if ($G eq $T) { $P=$P+$P; print "YOU HIT THE JACKPOT!!!\n"; }
+	if ($G eq $U) { $P=$P+1; }
+	if ($G eq $V) { $P=$P-($P*.5); }
+	if ($G<1 || $G>5) { redo; }
+	print "YOU HAVE $P POINTS.\n"; print "\n";
+	}
+print "!!!!YOU WIN!!!! WITH $P POINTS.\n";
+exit;
+
+
+sub FNR {
+	my ($X)= @_; #Useless...
+	return int(5*rand(1)+1);
+	}
+
+