From 8bedf02e211ec124f99de6b8b01e60b6d8cfa9d3 Mon Sep 17 00:00:00 2001
From: JoeStrout <joe@strout.net>
Date: Tue, 31 Jan 2023 21:11:07 -0700
Subject: [PATCH] Added MiniScript port of 41_Guess.

---
 .../41_Guess/MiniScript/README.md             |  3 +
 .../41_Guess/MiniScript/guess.ms              | 59 +++++++++++++++++++
 2 files changed, 62 insertions(+)
 create mode 100644 00_Alternate_Languages/41_Guess/MiniScript/README.md
 create mode 100644 00_Alternate_Languages/41_Guess/MiniScript/guess.ms

diff --git a/00_Alternate_Languages/41_Guess/MiniScript/README.md b/00_Alternate_Languages/41_Guess/MiniScript/README.md
new file mode 100644
index 00000000..f52e8746
--- /dev/null
+++ b/00_Alternate_Languages/41_Guess/MiniScript/README.md
@@ -0,0 +1,3 @@
+Original source downloaded from [Vintage Basic](http://www.vintage-basic.net/games.html).
+
+Conversion to [MiniScript](https://miniscript.org).
diff --git a/00_Alternate_Languages/41_Guess/MiniScript/guess.ms b/00_Alternate_Languages/41_Guess/MiniScript/guess.ms
new file mode 100644
index 00000000..496426ce
--- /dev/null
+++ b/00_Alternate_Languages/41_Guess/MiniScript/guess.ms
@@ -0,0 +1,59 @@
+setup = function
+	print " "*33 + "GUESS"
+	print " "*15 + "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+	print; print; print
+	print "This is a number guessing game. I'll think"
+	print "of a number between 1 and any limit you want."
+	print "Then you have to guess what it is."
+	print
+	while true
+		globals.limit = input("What limit do you want? ").val
+		if limit > 1 then break
+		print "Please enter a number greater than 1."
+	end while
+	globals.par = floor(log(limit, 2)) + 1
+end function
+
+printGap = function
+	for i in range(1, 5)
+		print
+	end for
+end function
+
+doOneGame = function
+	rightAnswer = ceil(rnd * limit)
+	print "I'm thinking of a number between 1 and " + limit
+	print "Now you try to guess what it is."
+	guess = 0
+	while true
+		guess = guess + 1
+		num = input("Your guess: ").val
+		if num <= 0 then
+			printGap
+			setup
+			return
+		end if
+		if num == rightAnswer then
+			print "That's it! You got it in " + guess + " tries."
+			if guess < par then
+				print "Very good."
+			else if guess == par then
+				print "Good."
+			else
+				print "You should have been able to get it in only " + par + "."
+			end if
+			printGap
+			return
+		end if
+		if num > rightAnswer then
+			print "Too high. Try a smaller answer."
+		else
+			print "Too low. Try a bigger answer."
+		end if
+	end while
+end function
+
+setup
+while true
+	doOneGame
+end while
\ No newline at end of file