Ti80.Online

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

SIM CITY. Construisez votre ville à l'image du célèbre jeu Sim City.

Voici quelques explications. Ce programme est assez long à taper, c'est en fait le + long.
Petit conseil : Entrez en dernier le programme principal mis en gras. , vérifiez en cas d'erreur si vous n'avez pas oublié une ligne, un caractère.
Codes : @ (théta) correspond à ALPHA 3
$ (1er schéma du plot) correspond à 2nd, Y=, Flèche Droite et 1.
', + , ° correspondent à 2nd, Y=, 2 Flèches Droites.
% n'existe pas sur la Ti80, faîtes alors °/. ou comme vous voulez...


SI VOUS OBTENEZ ERROR:SYNTAX C'est que vous vous êtes trompé quelque part, ce programme a bien fonctionné sur ma ti.
Bon courage, vous pouvez cliquer sur Imprimer comme ça vous le rentrerez à tête reposée ;-)

:CLRHOME
:DISP ""," SIMCITY"
:PAUSE
:CLRHOME
:CLRLIST L1,L2,L
3,L4,L5,L6
:50->K
:0->L1(1)
:0->L2(1)
:0->L3(1)
:0->L4(1)
:0->L5(1)
:0->L6(1)
:FNOFF
:PLOTSOFF
:5->M
:10->F
:10->V
:0->A
:0->C
:0->T
:0->P
:0->I
:0->@ (@=teta)
:0->R
:5000->B
:1->XMIN
:63->XMAX
:0->XSCAL
:1->YMIN
:47->YMAX
:0->YSCAL
:CLRDRAW
:CLRDRAW
:PLOT1($,L1,L2, ($=1er schema du plot)
')
:PLOT2($,L3,L4,+)
:PLOT3($,L5,L6,°)
:PLOTSOFF
:CLRDRAW
LBL1
:CLRHOME
:DISP "CONSTRUI
RE.....1","STAT....2","BU
DGET.......3","CARTE...4
","IMPOTS.....
..5","POLICE..
.....6","OPINIO
N......7"
:INPUT Z
:CLRHOME
:IF Z=0
:THEN
:CLRLIST L1,L2,L
3,L4,L5,L6
:STOP
:END
:IF Z=7
:PRGM_OPINION
:IF Z=6
:PRGM_PSALAIR
:IF Z=5
:PRGM_TAX
:IF Z=4
:PRGM_STAT
:IF Z=1
:PRGM_CONSTRU
:IF Z=2
:PRGM_CARTE
:IF Z=3
:PRGM_BUDGET
:GOTO 1


PROGRAM:BUDGET
:CLRHOME
:DISP "SOLDE PRE
CEDENT:",B
:PAUSE
:DISP "PERTE PAR
VOL:"
:RANDINT(10,20)-
>@ (@=teta)
:IF C>3:C@->@
:R@->@
:IF I>1:I@->@
:IF A>1:A@->@
:IF T>1:T@->@
:IF @<0:->@
:IF @>B:B->@
:IF @-5KP<0
:THEN
:0->@
:ELSE
:@-5KP->@
:END
:DISP @
:PAUSE
:DISP "SALAIRE P
OLICE:",KP
:PAUSE
:DISP "IMPOT COM
MERCE:",5VT+10VA
+VC
:PAUSE
:DISP "IMPOT LOC
AUX:",MR
:PAUSE
:DISP "IMPOT IND
USTRIE:",FI
:PAUSE
:DISP "SOLDE FIN
AL:"
:B->Y
:B-@-KP+5VT+10VA
+VC+MR+FI->B
:DISP Y
:IF Y-B>0
:THEN
:DISP "
-",Y-B,"
="
:END
:IF Y-B<=0 (<= :superieur ou égal)
:THEN
:DISP "
+",-(Y-B),
"
="
:END
:DISP B
:IF B>=20000
:THEN
:PAUSE
:CLRHOME
:DISP "VOUS
AVEZ GAGNE!"
:CLRLIST L1,L2,L
3,L4,L5,L6
:PLOTSOFF
:STOP
:END
:IF B<=0
:THEN
:PAUSE
:CLRHOME
:DISP "VOUS ETE
S VIRE.","VOUS A
VEZ PERDU!"
:CLRLIST L1,L2,L
3,L4,L5,L6
:PLOTSOFF
:STOP
:END
:PAUSE
:CLRHOME


PROGRAM:CARTE
:CLRHOME
:DISP "RESIDENCE
:",R
:PAUSE
:DISP "COMMERCE:
",C
:PAUSE
:DISP "INDUSTRIE
:",I
:PAUSE
:DISP "GARE:",T
:PAUSE
:DISP "AEROPORT:
",A
:PAUSE
:DISP "COMMISSAR
IAT:",P
:PAUSE
:RETURN
PROGRAM:CONSTRU
:LBL 1
:CLRHOME
:DISP "1:RESIDEN
CE","2:COMMERCE"
,"3:INDUSTRIE","
4:COMMISSARIAT",
"5:GARE","6:AERO
PORT"
:INPUT S
:IF s>6:GOTO 1
:CLRHOME
:IF S=1
:THEN
:R+1->R
:DISP "COUT:20"
:B-20->B
:PAUSE
:INPUT
:X->L1(DIM L1+1)
:Y->L2(DIM L2+1)
:PLOTSON 1
:PAUSE
:END
:IF S=2
:THEN
:C+1->C
:DISP "COUT:50"
:B-50->B
:PAUSE
:INPUT
:X->L1(DIM L1+1)
:Y->L2(DIM L2+1)
:PLOTSON 1
:PAUSE
:END
:IF S=3
:THEN
:I+1->I
:DISP "COUT:50"
:B-50->B
:PAUSE
:INPUT
:X->L1(DIM L1+1)
:Y->L2(DIM L2+1)
:PLOTSON 1
:PAUSE
:END
:IF S=4
:THEN
:P+1->P
:DISP" COUT:150"
:B-150->B
:PAUSE
:INPUT
:X->L3(DIM L3+1)
:Y->L4(DIM L4+1)
:PLOTSON 2
:PAUSE
:END
:IF S=5
:THEN
:T+1->T
:DISP "COUT:500"
:B-500->B
:PAUSE
:INPUT
:X->L5(DIM L5+1)
:Y->L6(DIM L6+1)
:PLOTSON 3
:PAUSE
:END
:IF S=6
:THEN
:A+1->A
:DISP "COUT:1000"
:B-1000->B
:PAUSE
:INPUT
:X->L5(DIM L5+1)
:Y->L6(DIM L6+1)
:PLOTSON 3
:PAUSE
:END


PROGRAM:OPINION
:CLRHOME
:((100-DIM L1)/2
)+K/2+P->G
:20-M+20+(R-C)+(
R-I)->N
:N+10+(T+A-R)->N
:N+P2->N
:40-(F+V)+30-((A
+T+C+I)-R)->U
:LBL 1
:DISP "OPINION:"
:PAUSE
:DISP "HABITANTS
:",N,"
%"
:PAUSE
:DISP "POLICE:",
G,"
%"
:PAUSE
:IF U>79:B+500->
B
:IF N>79:B+500->
B
:IF G>79:G+500->
G
:IF U<=25
:THEN
:CLRHOME
:DISP "LES PRINC
IPAUX","REPRESEN
TANTS DU","COMME
RCE ET DE","L'IN
DUSTRIE SONT","M
ECONTENT DE","VO
TRE TRAVAIL."
:PAUSE
:CLRHOME
:DISP "ILS QUITT
ENT","SYMBOLIQUE
MENT","VOTRE VIL
LE."
:PAUSE
:{0}->L6
:0->T
:0->A
:{0}->L5
:END
:IF N<=25
:THEN
:CLRHOME
:DISP "LA VILLE
N'EST","ADAPTE A
UX","HABITANTS,
ILS","QUITTENT L
A",VILLE."
:50->K
:{0}->L1
:{0}->L2
:{0}->L3
:{0}->L4
:{0}->L5
:{0}->L6
:0->A
:0->C
:0->T
:0->P
:0->I
:0->@
:0->R
:END
:IF G<=25
:THEN
:CLRHOME
:DISP "LES POLIC
IERS","SONT MECO
NTANTS:","MAUVAI
S SALAIRE,","TRO
P DE TRAVAIL.","
ILS QUITTENT LA"
,"VILLE."
:PAUSE
:{0}->L3
:{0}->L4
:0->K
:END


PROGRAM:PSALAIR
:CLRHOME
:DISP "ANCIEN SA
LAIRE:",K
:PAUSE
:DISP "NOUVEAU S
ALAIRE"
:LBL 1
:INPUT K
:IF K>100:GOTO 1
:RETURN


PROGRAM:STAT
:DISPGRAPH
:PAUSE
:RETURN


PROGRAM:TAX
:CLRHOME
:DISP "IMPOTS LO
CAUX:",M
:PAUSE
:DISP "IMPOTS IND
USTRIE:",F
:PAUSE
:DISP "IMPOTS COM
MERCE:",V
:PAUSE
:LBL 3
:CLRHOME
:DISP "CHANGER I
MPOTS:","1:LOCAU
X","2:INDUSTRIE"
,"3:COMMERCE"
:INPUT S
:IF S>3:RETURN
:INPUT "NOUVEAU
SOLDE:",W
:IF W>20:GOTO 3
:IF S=1
:W->M
:IF S=3
:W->V
:IF S=2
:W->F
:RETURN