Ported 66_Number to MiniScript

00_Alternate_Languages/66_Number/MiniScript/number.ms

@@ -0,0 +1,44 @@
+// Number Game
+// originally by Tom Adametx
+// Ported from BASIC to MiniScript by Joe Strout, 2023
+
+print " "*33 + "NUMBER"
+print " "*15 + "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+print; print; print
+
+print "You have 100 points.  By guessing numbers from 1 to 5, you"
+print "can gain or lose points depending on how close you get to"
+print "a random number selected by the computer."; print
+print "You occasionally will get a jackpot which will double(!)"
+print "your point count.  You win when you get to 500 points."
+print
+
+P = 100
+fnr = function; return ceil(5*rnd); end function
+while true
+	guess = input("Guess a number from 1 to 5: ").val
+	R = fnr
+	S = fnr
+	T = fnr
+	U = fnr
+	V = fnr
+	if guess == R then
+		P = P - 5
+	else if guess == S then
+		P = P + 5
+	else if guess == T then
+		P = P+P
+		print "You hit the jackpot!!!"
+	else if guess == U then
+		P = P + 1
+	else if guess == V then
+		P = P - floor(P*0.5)
+	else if guess > 5 then
+		continue
+	end if
+	if P > 500 then
+		print "!!!!You win!!!! with " + P + " points."
+		exit
+	end if
+	print "You have " + P + " points."; print
+end while