Ti80.Online
Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------
Envoyé par Pierre Bruges
LEGENDE :
_ : espace en ALPHA
-> : touche STO>
fkghdrj : mots a taper en ALPHA
THPK : fonctions dans PRGM ou MATH ou DRAW
++++++++++++++++
---------------- décoration ( il y a 16 caractères à chaque fois)
:DISP "++++++++++++++++","----------------","___"," machine a sous ","_","----------------","++++++++++++++++"
:PAUSE
:DISP "pour jouer","actionnez enter"
:DISP "mise en dolards "
:INPUT N
:0->Z
:LBL 1
:CLRDRAW
:0->XMIN
:50->XMAX
:0->XSCL
:1->YMIN
:40->YMAX
:0->YSCL
:LINE(13,9,37,09)
:LINE(19,9,19,30)
:LINE(19,30,31,30)
:LINE(31,9,31,30)
:LINE(21,28,29,28)
:LINE(21,13,29,13)
:PT-ON(32,20)
:PT-ON(33,20)
:PT-ON(33,21)
:PT-ON(33,22)
:PT-ON(33,23)
:PT-ON(25,25)
:PT-ON(25,26)
:PT-ON(26,25)
:PT-ON(26,26)
:PT-OFF(33,23)
:PT-OFF(33,22)
:PT-OFF(33,21)
:PT-ON(33,19)
:PT-ON(33,18)
:PT-ON(33,17)
:PT-OFF(33,17)
:PT-OFF(33,18)
:PT-OFF(33,19)
:PT-ON(33,21)
:PT-ON(33,22)
:PT-ON(33,23)
:RANDINT (1,5)->A
:RANDINT (1,5)->B
:RANDINT (1,5)->C
:DISP " ","resultat du "," tirage",A,B,C
:IF A=B
:THEN
:DISP "tu as eu un peu","de chance"
:Z+1xNx5->Z
:PAUSE
:IF B=C
:THEN
:DISP "quelle chance","tu peux rejouer"
:PAUSE
:Z+2xNx10->Z
:END
:DISP "tu as",Z,"dolards"
:GOTO 1
:END
:IF B=C
:THEN
:DISP "tu as eu un peu","de chance"
:Z+1xNx5->Z
:DISP "tu as",Z,"dolards"
:PAUSE
:GOTO 1
:END
:IF A=C
:THEN
:DISP "tu as eu un peu","de chance"
:Z+1xNx5->Z
:DISP "tu as",Z,"dolards"
:PAUSE
:GOTO 1
:END
:Z-N->Z
:DISP "++++++++++++++++","dolards:",Z,"++++++++++++++++"
:PAUSE
:DISP "_ _ _ _","----------------","_ _un programme","_ _ _ _ p.bruges","----------------"
:STOP