Oraklet. (1 / 9 steg)

Steg 1: Koden.

####################################
# Oracle
#
#===============================
# Funktioner
#--------------------------------
# pc = position markören
funktionen pc () {
tput cup $1 $2
}

funktionen header () {
klart
PC 2 10. ECHO "The Oracle"
}

funktion footer() {
PC 24 0
}

# end funktioner
#=================================
# Uppdrag
# --------------------------------
datafile = "odata"
betala = 5
en = 1
m = "inte gjort"
d=" "
# slut uppdrag

#=================================
#
# Indata
#---------------------------------
medan Läs linje
göra fdata [$a] = $line
Låt en = a + 1
gjort < $datafile

#===================================
# lokala variabler
#--------------------------------
Låt nodf = $en
deklarera -i X = $nodf
# NUM = $[($RANDOM %$X) + 1]
#====================================
# Header
#-----------------------------------
header
#=====================================
# Börja logik
#--------------------------------------
samtidigt sant; göra
Låt varv = varv + 1
klart
PC 4 1
ECHO "T H E O R A C L E!"
PC 25 2
ECHO "Computothought:(c) 1980-2011"
PC 7 1
ECHO "Ange din fråga"
PC 8 1
ECHO "["
PC 8 2
Läs q
PC 10 1
ECHO "Oracle kommer att visa dig det är tankar, kalla sedan ditt svar."
PC 12 1
ECHO "så ha tålamod!"
PC 15 1
echo "***********************************************************************"
PC 16 1
# kan behöva lägga till blanksteg
ECHO "* *"
PC 17 1
echo "***********************************************************************"
för ((y = 1; y < = 100; y + = 1)), göra
PC 16 1
# kan behöva lägga till blanksteg
ECHO "* *"
PC 16 3
NUM = $[($RANDOM %$X) + 1]
ECHO ${fdata [$NUM]}
gjort

PC 18 1
ECHO "Play igen (J/n)"
läsa -s-n1 d
ECHO
fallet $d i
[nN]) bryta;
ESAC

gjort
Låt skyldig = $pay * $turns
ECHO "Vänligen betala i kassan $owed dollar!"
Läs
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# slutet av jobb:
ECHO
klart
PC 4 1
ECHO "T H E O R A C L E!"
PC 23 1
ECHO "Computothought: (c) 1980-2011"
PC 6 1
ECHO
ECHO "om du använder detta program mer än flera gånger och vill"
ECHO "för att se mer program som Oracle och Cartomancer, snälla"
ECHO låt"författaren vet!"
ECHO

# SLUT
# slut logik
#-----------------------------------
# sidfot
sidfot
#===================================
# Slut.
####################################