Updated README files; added MiniScript implementation of 94_War.

This commit is contained in:
JoeStrout
2023-07-06 15:48:16 -07:00
parent a3d0326662
commit 06d0588929
16 changed files with 272 additions and 1 deletions
@@ -0,0 +1,16 @@
Original source downloaded from [Vintage Basic](http://www.vintage-basic.net/games.html).
Conversion to [MiniScript](https://miniscript.org).
Ways to play:
1. Command-Line MiniScript:
Download for your system from https://miniscript.org/cmdline/, install, and then run the program with a command such as:
miniscript war.ms
2. Mini Micro:
Download Mini Micro from https://miniscript.org/MiniMicro/, launch, and then click the top disk slot and chose "Mount Folder..." Select the folder containing the BASIC program. Then, at the Mini Micro command prompt, enter:
load "war"
run
@@ -0,0 +1,65 @@
print " "*33 + "WAR"
print " "*15 + "CREATIVE COMPUTER MORRISTOWN, NEW JERSEY"
print; print; print
print "This is the card game of War. Each card is given by SUIT-#"
print "as S-7 for Spade 7."
// Get a yes/no (or at least y/n) response from the user.
askYesNo = function(prompt)
while true
answer = input(prompt + "? ").lower[:1]
if answer == "y" or answer == "n" then return answer
print "Answer yes or no, please."
end while
end function
if askYesNo("Do you want directions") == "y" then
print "The computer gives you and it a 'card'. The higher card"
print "(numerically) wins. The game ends when you choose not to"
print "continue or when you have finished the pack."
end if
print
print
cardValues = "2 3 4 5 6 7 8 9 10 J Q K A".split
deck = []
for suits in "SHCD"
for value in cardValues
deck.push suits + "-" + value
end for
end for
deck.shuffle
playerScore = 0
computerScore = 0
while true
m1 = deck.pop
m2 = deck.pop
print "You: " + m1 + "; Computer: " + m2
n1 = cardValues.indexOf(m1[2:])
n2 = cardValues.indexOf(m2[2:])
if n1 > n2 then
playerScore += 1
print "You win. You have " + playerScore + " and the computer has " + computerScore
else if n2 > n1 then
computerScore += 1
print "The computer wins!!! You have " + playerScore + " and the computer has " + computerScore
else
print "Tie. No score change."
end if
if not deck then break
if askYesNo("Do you want to continue") == "n" then break
end while
if not deck then
print
print
print "We have run out of cards. Final score: You: " + playerScore +
" The computer: " + computerScore
print
end if
print "Thanks for playing. It was fun."
print