Ti80.Online
Pour plus de programmes...
http://www.ti80.online.fr
ti80@citeweb.net
-----------------------------------
: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 |