All pastes #283437 Raw Edit

dicegame

public text v1 · immutable
#283437 ·published 2006-12-18 10:48 UTC
rendered paste body
## START: namn + bank + play + regler

clear

echo Skriv ditt namn:
read name

clear

bank=100
play=j

echo Vlkommen, $name. Du har $bank kronor till godo.

echo Reglerna r enkla, du kan satsa 1-10 kronor per hand.
echo Datorn matchar alltid ditt bud.
echo Hgst trningsdrag vinner!
echo "#####################################################"

sleep 4

while [ $play = j ]
do


## SATSA: bet

clear

echo Hur mycket vill du satsa? 1-10
read bet

while [ "$bet" -ge 11 -o "$bet" -lt 1 ]
do

echo "Du mste hlla dig till 1-10 kronor. Ange vad igen:"
read bet

done


## RANDOM: dice

echo Trningarna rullar!
dice1=$(( $RANDOM%6+1 ))
dice2=$(( $RANDOM%6+1 ))
echo "$name rullar en $dice1:a.."
sleep 2
echo "Datorn drar till med en $dice2:a!"

sleep 1

if [ $dice1 -gt $dice2 ]
then
bank=`expr $bank + $bet`
echo "$name vinner! $bet lggs till banken. Ny total: $bank kronor."
	elif [ $dice1 -lt $dice2 ]
	then
	bank=`expr $bank - $bet`
	echo "Datorn vinner! Du frlorade $bet kronor. Nytt bankvrde: $bank kronor."
	elif [ $dice1 -eq $dice2 ]
	then
	echo "Ingen vann, pengarna behlls."
fi	

sleep 2

## VAL AV ACTION: play + bankrutt

echo "Spela igen? (j/n)"
read play

if [ $bank -le 0 ]
then
play=n 
echo "Spelet slut.. Du har inga pengar kvar."
fi

done
while [ $play = n ]
do

sleep 3


## AVSLUTNING + TOPPLISTA

echo Ok, hoppas du hade skj!
echo Vi fr vl se var p topplistan $bank kronor placerar dig..

sleep 5

echo $bank kronor - $name >> topplista

clear

cat topplista | sort -nr
exit
done