Ti80.Online

Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------

Vous choississez un niveau de difficulté. La machine tire ensuite
3 numéros au hasard, et vous gagnez si vous avez au moins 2 numéros
identiques. Le jackpot, c'est lorsque 3 numéros sont identiques !
Un de mes jeux préférés.
Attention ce programme est divisé en deux sous-programmes. (Tapez d'abord FORTUN 2, puis FORTUNE -pour la ligne finale de FORTUNE, faîtes PRGM, 2 flèches droite et choisissez FORTUN2

:LBL A
:DISP "TON NIVEAU?"
:DISP "1.FACILE"
:DISP "2.MOYEN"
:DISP "3.DIFFICILE"
:DISP "4.TRES DIFFICILE"
:INPUT I
:IF I=1
:THEN
:5000->L
:4->Q
:END
:IF I=2
:THEN
:8->Q
:2000->L
:END
:IF
:I=3
:THEN
:600->L
:12->Q
:END
:IF I=4
:THEN
:300->L
:15->Q
:END
:IF I>4
:G0TO A
:IF I<1
:G0TO A
:CLRHOME
:PRGM_FORTUN2

FORTUN2

:LBL A
:DISP "TU AS",L,"FRS"
:L->N
:LBL B
:IF N<=0
:DISP "GAME OVER"
:IF N<=0
:STOP
:LBL D
:INPUT "TA MISE?",A
:IF A>N
:G0TO D
:RANDINT(1,Q)->B
:RANDINT(1,Q)->C
:RANDINT(1,Q)->D
:DISP B
:PAUSE
:DISP C
:PAUSE
:DISP D
:PAUSE
:IF B=C
:G0TO K
:LBL 0
:IF B=C
:G0TO C
:IF C=D
:G0TO L
:IF B=D
:G0TO U
:DISP "PERDU..."
:DISP "IL TE RESTE:",N-A,"FRS"
:N-A->N
:G0TO B
:LBL C
:DISP"GAGNE, GENIAL"
:DISP "IL TE RESTE:",N+(AxB),"FRS"
:N+(AxB)->N
:G0TO B
:LBL K
:IF C=D
:THEN
:DISP "JACKPOT!"
:DISP "TU GAGNES 1000 FOIS"
:DISP "TA MISE"
:N+(1000xA)->N
:DISP "IL TE RESTE:",N,"FRS"
:G0TO B
:ELSE
:G0TO O
:LBL L
:DISP "GAGNE,"
:DISP "BALAISE"
:PAUSE
:DISP "IL TE RESTE: " ,N+(AxC)->N," FRS"
:N+(AxC)->N
:G0TO B
:LBL U
:DISP "TU AS GAGNE"
:DISP "TU VAS ME"
:DISP "RUINER..."
:PAUSE
:DISP "IL TE RESTE:",N+(AxB),"FRS"
:N+(AxB)->N
:GOTO B