Ti80.Online
Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------
Grâce à la contribution de François que je remercie, ce programme a été traduit et me contient pas d'erreur.
:FNOFF
:PLOTTSOFF
:1->XMIN
:63->XMAX
:0->XSCL
:1->YMIN
:47->YMAX
:0->YSCL
:LBL A
:CLRHOME
:DISP "COURSE CHEVAUX",---------------","1:COURSE","2:RECORD","3:REPRENDRE","4:ARRET",""
:INPUT "1-4:",A
:CLRHOME
:IF A=>5
:GOTO A
:IF A<=0
:GOTO A
:IF A=1
:THEN
:20->M
:GOTO B
:END
:IF A=2
:GOTO C
:IF A=3
:GOTO B
:IF A=4
:STOP
:LBL B
:CLRDRAW
:CLRHOME
:RANDINT(3,5->B
:RANDINT(0,10->C
:IF A=3
:THEN
:IF M<=20
:20->M
:END
:DISP "ARGENT:",M,"","DOLLARS 1-3.","(0=ARGENT)"
:INPUT "1-3:",S
:CLRHOME
:IF S=>3.1
:GOTO D
:IF S<=-1
:GOTO D
:IF S=0
:GOTO V
:LBL I
:B+(C/10)->Z
:FIX 1
:DISP "COTE CHEVAL:",Z
:FLOAT
:DISP "ARGENT:",M,""
:INPUT "MISE:",P
:CLRHOME
:IF P>M
:GOTO I
:IF P<1
:GOTO I
:DISP " A VOS MARQUES"
:FOR(A,1,35
:END
:DISP " PRETS"
:FOR(A,1,35
:END
:DISP " PARTEZ!"
:FOR(A,1,35
:END
:CLRHOME
:CLRDRAW
:LINE(63,19,60,19
:LINE(62,21,59,21
:LINE(61,23,58,23
:LINE(60,25,57,25
:LINE(59,27,55,27
:PT-ON(54,28
:PT-ON(55,29
:LINE(56,30,53,30
:PT-ON(52,29
:PT-ON(51,28
:LINE(50,27,47,27
:LINE(46,26,43,26
:PT-ON(42,25
:PT-ON(41,24
:PT-ON(41,23
:PT-ON(42,22
:LINE(43,21,46,21
:PT-ON(47,20
:LINE(48,19,50,19
:PT-ON(51,20
:PT-ON(52,21
:VERTICAL 25
:LINE(28,38,28,34
:LINE(27,34,29,34
:PT-ON(27,37
:LINE(29,22,27,22
:LINE(27,23,29,25
:LINE(28,26,27,26
:LINE(27,10,28,10
:PT-ON(29,11
:PT-ON(28,12
:PT-ON(29,13
:LINE(27,14,28,14
:1->A
:1->B
:1->C
:IF S=1
:36->L
:IF S=2
:24->L
:IF S=3
:12->L
:LINE(32,L,38,L
:LINE(33,L+1,33,L-1
:LINE(34,L+2,34,L-2
:LBL Q
:A+RAND*RANDINT(1,3->A
:B+RAND*RANDINT(1,3->B
:C+RAND*RANDINT(1,3->C
:PT-ON(A,36
:PT-ON(B,24
:PT-ON(C,12
:IF A=>24
:GOTO 1
:IF B=>24
:GOTO 2
:IF C=>24
:GOTO 3
:GOTO Q
:LBL 1
:DISP "CHEVAL 1 GAGNE!"
:1->B
:GOTO L
:LBL 2
:DISP "CHEVAL 2 GAGNE!"
:2->B
:GOTO L
:LBL 3
:DISP "CHEVAL 3 GAGNE!"
:3->B
:LBL L
:IF S<>B
:GOTO S
:DISP "TU AS",INT (PZ)
:INT (PZ+M-P)->M
:PAUSE
:IF M>@
:M->@ ***Theta***
:GOTO B
:LBL S
:DISP "MAUVAIS PARI!",INT (PZ)
:INT (M-P)->M
:PAUSE
:IF M=0
:GOTO T
:GOTO B
:LBL T
:CLRHOME
:DISP " PLUS D'ARGENT!",""," G A M E","
O V E R"
:PAUSE
:GOTO A
:LBL V
:DISP "DU FICK:",M
:LBL C
:DISP "RECORD BATTU:",@
:PAUSE
:IF A=2
:GOTO A
:CLRHOME