Etape 1: Le code.
####################################
# L’oracle
#
#===============================
# Fonctions
#--------------------------------
# pc = positionne le curseur
fonction pc () {}
tput coupe $1 $2
}
en-tête de fonction () {
claire
PC 2 10 ; echo « L’Oracle »
}
function footer() {}
PC 24 0
}
fonctions de #
#=================================
# Affectations
# --------------------------------
DataFile = « odata »
payer = 5
un = 1
m = « ne pas fait »
d=" "
affectations fin #
#=================================
#
# Saisie
#---------------------------------
tout en ligne de lecture
faire fdata [$a] = $line
laisser un = un + 1
fait < $datafile
#===================================
variables locales #
#--------------------------------
Laissez le FDNO = $une
déclarer -i X = $nodf
# NUM = $[($RANDOM %$X) + 1]
#====================================
# Header
#-----------------------------------
en-tête
#=====================================
# Begin logique
#--------------------------------------
tout en vrai ; faire
Laissez les tours = tours + 1
claire
PC 4 1
echo « T H E O R A C L E! »
PC 2 25
echo "Computothought:(c) 1980-2011"
PC 7 1
ECHO « S’il vous plaît entrez votre question »
PC 8 1
echo "["
PC 8 2
lire q
PC 10 1
echo "l’Oracle va vous montrer c’est pensées, puis assigner votre réponse."
PC 12 1
echo "donc s’il vous plaît être patient!"
PC 15 1
echo "***********************************************************************"
PC 16 1
# peut-être ajouter des espaces
echo "* *"
PC 17 1
echo "***********************************************************************"
pour ((y = 1; y < = 100; y += 1)); faire
PC 16 1
# peut-être ajouter des espaces
echo "* *"
PC 16 3
NUM = $[($RANDOM %$X) + 1]
echo ${fdata [$NUM]}
fait
PC 18 1
echo "Play nouveau (O/n)"
lu -s-n1 d
ECHO
cas $d dans
[nN]) casser ;
ESAC
fait
Laissez dus = $pay * $turns
ECHO « S’il vous plaît payer le caissier $owed dollars! »
lire
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# end de travail :
ECHO
claire
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 "si vous utilisez ce programme plus de plusieurs fois et que vous désirez"
ECHO « pour voir plus de programmes comme l’Oracle et le Cartomancer, s’il vous plaît »
ECHO « que l’auteur sait! »
ECHO
# FIN
# logique fin
#-----------------------------------
pied de page #
pied de page
#===================================
# Fin.
####################################