Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Mafia
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 09 Avr 2007, 19:25   Citer 

Ce programme est un jeu où l'on vend de la drogue et braque des banque.
Le première version est lente et finis par bugger mais la seconde est moins étoffée.


Première version


Code
FullScreen
0 -> Xmin
94 -> Xmax
0 -> Ymin
62 -> Ymax
ClrDraw
CoordOff
GridOff
AxesOff
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,07
Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
End
For(A,1,34
Text(32,A," MAFIA"
End
Text(52,27,"VERSION 5.0"
Pause
ClrDraw
21 -> dim(L1
Lbl 1
Menu("MAFIA:","NOUVEAU JEU",2,"CONTINUER",3,"INSTRUCTIONS",4,"QUITTER",5)
Lbl 3
Goto 6
Lbl 5
ClrHome
ClrDraw
Output(1,1,"           "
Stop
Lbl 4
ClrDraw
Text(1,1,"LE BUT DE CE JEU EST DE"
Text(7,1,"DEVENIRE CELEBRE DANS LE"
Text(13,1,"MILIEU DE LA DROGUE."
Text(20,1,"POUR Y ARRIVER, IL FAUT"
Text(26,1,"DEALER OU ATTAQUER LA"
Text(32,1,"BANQUE."
Pause
Goto 1
Lbl 2
10000 -> L1(1)
0.5 -> L1(2)
00 -> L1(3)
0 -> L1(4)
0 -> L1(5)
0 -> L1(6)
Fix 0
0 -> L1(11)
0 -> L1(10)
0 -> L1(12)
0 -> L1(13)
0 -> L1(14)
0 -> L1(15)
0 -> L1(16)
0 -> L1(17)
0 -> L1(18)
0 -> L1(19)
0 -> L1(20)
0 -> L1(21)
11 -> X
8 -> Y
100 -> L1(7)
0 -> L1(8)
Lbl 6
Fixe 0
If L1(7)/0:Then:ClrHome:Output(3,1,"T AS PLUS DE VIE"
:Output(5,4,"JEU FINIS!":Pause :Goto 1
Else
If L1(21)<10000 et L1(17)&#8804;5:Then:ClrHome
:Output(3,1,"COMME T AS TUER 5 FLICS, TON    HABILITE        AUGMENTE DE 1."
Pause
L1(8)+1 -> L1(8)
L1(17)-5 -> L1(17)
Goto 6
Else
If L1(21)&#8804;10000 et L1(16)&#8800;5:Then:ClrHome
:Output(1,1,"TU EST TELLEMENTCONNUS DANS CE  MILIEU QUE TU   ELIMINE LE CHEF ET TU PREND SA  PLACE."
Pause
ClrHome
Output(4,1,"TU AS GAgNER!":Pause :Goto 1
Else
If L1(21)<10000 et L1(16)&#8800;5
Then
Menu("QUE FAIRE ?","VOIR STATS",7,"ARMURERIE",8,"ACHETER DROGUE",9,"VENDRE DROGUE",A,"VILLE",B,"MENU PRINCIPAL",D)
Lbl D
Goto 1
Lbl 7
ClrHome
If L1(21)/0100:Output(1,1,"DEALEUR"
If L1(21)/0200 et L1(21)>0100
Output(1,1,"DEALEUR PRO."
If L1(21)/1200 et L1(21)>0200
Output(1,1,"BRAQUEUR"
If L1(21)/3000 et L1(21)>1200
Output(1,1,"TUEUR"
If L1(21)/9999 et L1(21)>3000
Output(1,1,"BRAS DROIT"
Output(2,1,"ARGENT:"
Output(2,8,L1(1)
Output(3,1,"ARME:"
If L1(2)=0.5:Output(3,6,"POIGNARD"
If L1(2)=1:Output(3,6,"MAGNUM":
If L1(2)=2:Output(3,6,"DEAGLE"
If L1(2)=3:Output(3,6,"POMPE"
If L1(2)=4:Output(3,6,"M4A1"
Output(4,1,"MUNITIONS:"
Output(4,11,L1(X)
Output(5,13,L1(19)
Output(5,1,"MEDICAMENTS:"
Output(6,1,"PV:"
Output(6,4,L1(7)
Output(7,1,"HABILITE ARME:
Output(7,15,L1(8)
Output(8,1,"GENS TUES:"
Output(8,11,L1(10)
Pause
ClrHome
Output(3,1,"COCAINE:"
Output(3,9,L1(3)
Output(4,1,"HEROINE:"
Output(4,9,L1(4)
Output(5,1,"MARIJUANA:"
Output(5,11,L1(5)
Output(6,1,"OPIUM:"
Output(6,7,L1(6)
Pause
ClrHome
Goto 6
End
Lbl 8
Menu("ARMURERIE","MAGNUM    1000",E,"DEAGLE    5000",F,"POMPE    10000",G,"M4A1     25000",H,"MUNITIONS   10",C,"GILLET    2000",S,"MENU PRECEDENT",I)
Lbl S
If L1(1)-2000&#8804;0:Then:ClrHome:Output(4,1,"GILLET ACHETEE.":Pause :L1(7)+100 -> L1(7):L1(1)-2000 -> L1(1):Goto 8
Else
If L1(1)-2000<0:Then:ClrHome:Output(4,1,"T AS PAS ASSEZ  DE SOUS.":Pause
Goto 8
End
Lbl I
Goto 6
End
Lbl C
ClrHome
Output(3,1,"ARGENT:"
Output(3,8,L1(1)
Output(4,1,"PRIX:10"
Input "T EN VEUX ?",A
If L1(1)-10A&#8804;0:Then:L1(1)-10A -> L1(1):L1(X)+A -> L1(X):ClrHome:Output(3,1,"MUNITIONS       ACHETEES.":Pause :Goto 8
Else
If L1(1)-10A&#8804;0:Then:ClrHome:Output(3,1,"T AS PAS ASSEZ  DE SOUS.":Pause :Goto 8
End
Lbl E
ClrHome
If L1(1)-1000&#8804;0:Then:ClrHome:Output(4,1,"ARME ACHETEE.":Pause :L1(1)-1000 -> L1(1):1 -> L1(2):11 -> X:L1(X)+10 -> L1(X):Goto 8
Else
If L1(1)-1000<0:Then:ClrHome:Output(4,1,"T AS PAS ASSEZ  DE SOUS.":Pause :Goto 8
Lbl F
ClrHome
If L1(1)-5000&#8804;0:Then:ClrHome:L1(1)-5000 -> L1(1):2 -> L1(2):12 -> X:L1(X)+10 -> L1(X):Output(4,1,"ARME ACHETEE.":Pause :Goto 8
Else
If L1(1)-5000<0:Then:Output(4,1,"T AS PAS ASSEZ  DE SOUS.":Pause :Goto 8
Lbl G
ClrHome
If L1(1)-10000&#8804;0:Then:L1(1)-10000 -> L1(1):3 -> L1(2):13 -> X
L1(X)+10 -> L1(X)
ClrHome
Output(4,1,"ARME ACHETEE.":Pause :Goto 8
Else
If L1(1)-10000<0:Then:Output(4,1,"T AS PAS ASSEZ  DE SOUS.":Pause :Goto 8
Lbl H
ClrHome
If L1(1)-25000&#8804;0:Then:L1(1)-25000 -> L1(1):14 -> X:4 -> L1(2):L1(X)+10 -> L1(X)
Output(4,1,"ARME ACHETEE.":Pause :Goto 8
Else
If L1(1)-25000<0:Then:Output(4,1,"T AS PAS ASSEZ  DE SOUS."
Pause
Goto 8
Lbl 9
Menu("ACHETER DROGUE:","COCAINE    100",J,"HEROINE    500",K,"MARIJUANA 1000",L,"OPIUM     5000",M,"MENU PRECEDENT",I)
Lbl J
ClrHome
Output(3,1,"PRIX:100"
Output(4,1,"ARGENT:"
Output(4,8,L1(1):Input "T EN VEUX ?",A
If L1(1)-100*A&#8804;0:Then:L1(1)-100*A -> L1(1):L1(3)+A -> L1(3):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9
Else
If L1(1)-100*A<0:Then:Output(4,1,"T AS PAS ASSEZ  DE SOUS.":Pause :Goto 9
Lbl K
ClrHome
Output(3,1,"PRIX:500"
Output(4,8,L1(1)
Output(4,1,"ARGENT:"
Input "T EN VEUX ?",A
If L1(1)-500*A&#8804;0:Then:L1(1)-500*A -> L1(1):L1(4)+A -> L1(4):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9
Else
If L1(1)-500*A<0:Output(4,1,"T AS PAS ASSEZ  DE SOUS.":Pause :Goto 9
Lbl L
ClrHome
Output(3,1,"PRIX:1000"
Output(4,1,"ARGENT:"
Output(4,8,L1(1):Input "T EN VEUX ?",A
If L1(1)-1000*A&#8804;0:Then:L1(1)-1000*A -> L1(1):A+L1(5) -> L1(5):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9:Else
If L1(1)-1000*A<0:Then:Output(4,1,"T AS PAS ASSEZ  DE SOUS."
Pause
Goto 9
Lbl M
ClrHome
Output(3,1,"PRIX:5000"
Output(4,1,"ARGENT:"
Output(4,8,L1(1):Input "T EN VEUX ?",A
If L1(1)-5000*A&#8804;0:Then:L1(1)-5000*A -> L1(1):L1(6)+A -> L1(6):Output(4,1,"DROGUE ACHETEE.":Pause :Goto 9
Else
If L1(1)-5000*A<0:Then:Output(4,1,"T AS PAS ASSEZ  DE SOUS."
Pause
Goto 9
Lbl A
Int Rand3 -> L
If L=0:Then
Menu("VENDRE DROGUE:","COCAINE",N,"HEROINE",O,"MARIJUANA",P,"OPIUM",Q,"MENU PRECEDENT",I)
Else
If L=2:Then:ClrHome:Output(3,1,"IL Y A LES FLICSDANS LE COIN:   LES PRIX SONT   FOUS.":Pause :
Menu("VENDRE DROGUE:","COCAINE",N,"HEROINE",O,"MARIJUANA",P,"OPIUM",Q,"MENU PRECEDENT",I)
Else
If L=1:Then:Goto R
End
Lbl N
If L=0:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(3)
Output(4,1,"PRIX:125"
Input "EN VENDRE:",A
L1(1)+(A*125) -> L1(1):L1(3)-A -> L1(3):L1(21)+(0.1*A) -> L1(21):Goto 6:Else
If L=2:Then:ClrHome:
Output(3,1,"T EN A:"
Output(3,8,L1(3)
Output(4,1,"PRIX:150"
Input "EN VENDRE:",A
L1(1)+(150*A) -> L1(1):L1(3)-A -> L1(3):(0.1*A)+L1(21) -> L1(21):Goto 6:Else
If L=1:Then:Goto R
Lbl R:Int Rand5+1 -> F:F*100 -> L1(9)
ClrHome:Output(1,1,"MERDE VOILA LES FLICS.                          ILS ONT     PV.                 TU AS     PV."
:Output(4,9,L1(9):Output(6,7,L1(7):20 -> L1(20):Pause :5*L1(8) -> A
Menu("QUE FAIRE ?","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z)
Lbl W
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(19)
Input "EN UTILISER ?",B
If L1(19)-B&#8804;0:Then:L1(19)-B -> L1(19):L1(7)+(10*B) -> L1(7):ClrHome
:Output(4,1,"MEDICAMENT      UTILISE.":Pause :Menu("QUE FAIRE ?","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z)
Else
If L1(19)-B<0:Then:ClrHome:Output(4,1,"T EN AS PAS     ASSEZ.":Pause :Menu("QUE FAIRE","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z)
Lbl X
If L1(7)-10/0:Then:ClrHome:Output(4,1,"ILS T ON TUER.":Pause :ClrHome:Output(4,3,"JEU FINI":Pause :Goto 1
Else
If L1(X)=0:Then:ClrHome:Output(4,1,"MERDE T AS PLUS DE MUNITIONS.":Pause
Goto Z
Else
If L1(9)-((L1(2)*10)+A)/0:Then:ClrHome:Output(4,1,"TU LES A TUER.":Pause :L1(10)+F -> L1(10):L1(21)+F -> L1(21)
L1(17)+F -> L1(17):Goto 6
Else
If L1(7)-10>0:Then::L1(7)-10 -> L1(7)
ClrHome:Output(3,1,"ILS T ENLEVENT  10 PV."
Output(5,1,"IL TE RESTE     PV."
Output(5,13,L1(7)
Pause
If L1(9)-((L1(2)*10+A)>0:Then:L1(9)-(L1(2)*10+A) -> L1(9):L1(X)-1 -> L1(X):ClrHome:Output(2,1,"TU LEUR ENLEVE     PV."
Output(3,1,L1(2)*10+A
Output(4,1,"IL LEUR RESTE       PV."
Output(5,1,L1(9)
Pause :Menu("QUE FAIRE ?","ATTAQUER",X,"SE SOIGNER",W,"COURIR",Z
End
Lbl Z
Int Rand99+1 -> A
If L1(7)-A>0:Then
ClrHome
Output(3,1,"TU COUR A FOND  MAIS ILS TE     TOUCHENT ET     T ENLEVE    PV."
Output(6,10,A
L1(7)-A -> L1(7):Pause :Goto 6
Else
If L1(7)-A/0:Then:ClrHome
:Output(2,1,"MALGRES UNE     RAPIDITEE       INCROYABLE, ILS ARRIVENT A TE   TOUCHER ET ILS  TE TUE."
:Pause :0 -> L1(7):Goto 1
Lbl O
If L=0:Then
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(4)
Output(4,1,"PRIX:625"
Input "EN VENDRE:",A
L1(1)+(A*625) -> L1(1):L1(21)+(A*0.1) -> L1(21):L1(4)-A -> L1(4):Goto 6:Else
If L=2:Then
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(4)
Output(4,1,"PRIX:750"
Input "EN VENDRE:",A
L1(4)-A -> L1(4):L1(1)+(A*750) -> L1(1):L1(21)+(A*0.1) -> L1(21):Goto 6:Else
If L=1:Then:Goto R
End
Lbl P
If L=0:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(5)
Output(4,1,"PRIX:1250"
Input "EN VENDRE:",A
L1(1)+(A*1250) -> L1(1):L1(5)-A -> L1(5):L1(21)+A*0.2 -> L1(21):Goto 6
Else
If L=2:Then
ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(5)
Output(4,1,"PRIX:1500"
Input "EN VENDRE:",A
L1(1)+(A*1500) -> L1(1):L1(5)-A -> L1(5):L1(21)+0.2 -> L1(21):Goto 6
End
Lbl Q
If L=0:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(6)
Output(4,1,"PRIX:6250"
Input "EN VENDRE:",A
L1(6)-A -> L1(6):L1(1)+(6250*A) -> L1(1):L1(21)+(A*0.2) -> L1(21):Goto 6
Else
If L=2:Then:ClrHome
Output(3,1,"T EN A:"
Output(3,8,L1(6)
Output(4,1,"PRIX:7500"
Input "EN VENDRE:",A
L1(1)+(A*7500) -> L1(1)
L1(21)+(A*0.2) -> L1(21)
L1(6)-A -> L1(6):Goto 6
Lbl B
Menu("QUE FAIRE?","ACHETER MEDIC.",V,"BANQUE",T,"ATTAQUER BASE",U,"MENU PRECEDENT",I
Lbl T
ClrHome
Output(3,1,"NE BOUGEZ PAS,  C EST UN        HOLD-UP. PASSEZ MOI LE POGNON."
Pause
ClrHome
0 -> C
0 -> D
0 -> E
Lbl 0
Int Rand08+1 -> M
Output(3,3,"ARGENT VOLE:"
Output(4,6,D
Output(5,6,"EUROS"
D+10000 -> D
Getkey -> K
If K=21:Goto &#1256;
If K=11:10000+D -> D
If K=12:1000+D -> D
If M&#8800;7 et D<1000000:Goto 0
If M&#8800;7 et D&#8804;1000000:Goto &#1256;
If M=7:Then
ClrHome
Output(3,1,"MERDE LES "
Output(4,1,"FORCES SPECIALESSONT LA!"
Output(6,1,"IL Y EN AS    !"
Int Rand101+100 -> E
Output(6,12,E
E*100 -> L1(9)
L1(8)*5 -> H
L1(7)/30 -> U
L1(9)/(L1(2)*10+H) -> V
Pause
If U/V et L1(X)-V&#8804;0:Then:ClrHome
:Output(1,1,"ILS ETAIT TROP  NOMBREUX POUR   TOI: TU N AS PASPU RESISTER A   CETTE ATTAQUE   ET TU EST MORT."
Pause
0 -> L1(7)
Goto 1
Else
If V<U et L1(X)-V&#8804;0:Then:ClrHome
:Output(1,1,"CETTE ARMEE A   PAS FAIT LONG   FEU AVEC TOI: TUPEUT TE TIRER   TRANQUILLEMENT  AVEC            EUROS."
Pause
Output(6,6,D
L1(1)+D -> L1(1)
L1(X)-V -> L1(X)
L1(21)+D/100 -> L1(21)
Goto 6
Else
If L1(X)-V/0:Then:ClrHome:0 -> L1(7):Output(2,1,"TU N AVAIS PAS  PREVU ASSEZ DE  MUNITIONS ET, ENESSAYANT DE FUIRILS T ONT TUE."
Pause
Goto 1
Lbl &#1256;
ClrHome
Output(3,1,"TU TE TIRE AVEC"
Output(4,6,D
Output(5,6,"EUROS"
Pause
L1(21)+D/100 -> L1(21)
L1(1)+D -> L1(1)
Goto 6
Lbl U
ClrHome
Int Rand451+50 -> F
F -> &#1256;
Output(1,1,"TU VA ATTAQUER  UNE BASE        MILITAIRE POUR  TE FAIRE        RESPECTER MAIS  TU TROUVE       MILITAIRES ARMESDE M4A1."
Output(6,11,F
F*100 -> L1(9)
L1(08)*5 -> A
L1(7)/40 -> C
L1(9)/(L1(2)*10+A) -> D
Pause
If C/D et L1(X)-D&#8804;0:Then:ClrHome
:Output(01,1,"MALGRES UNE     ATTAQUE         FOUDROYANTE, TU NE PARVIENT PAS A TOUS LES TUER MAIS EUX T ONT  TUE.":Pause :0 -> L1(7):Goto 1
Else
If D<C et L1(X)-D&#8804;0:Then:ClrHome:Output(1,1,"APRES UN COMBAT ACHARNE, TU PEUTFOUILLER LA     BASE ET TU      TROUVE:":Pause
ClrHome:L1(X)-D -> L1(X)
ClrHome
:Output(1,1,"-DES MEDICAMENTSQUE TU UTILISE  -100 COCAINES   -50 OPIUMS      -100 MUNITIONS  -100000 EUROS   -100 MEDICAMENTSQUE T AS PAS    UTILISER."
L1(3)+100 -> L1(3)
L1(8)+10 -> L1(08)
L1(21)+&#1256;*10 -> L1(21)
L1(6)+50 -> L1(6)
L1(X)+100 -> L1(X)
L1(1)+100000 -> L1(1)
L1(10)+F -> L1(10)
Pause :ClrHome:Goto 6
Else
If L1(X)-D/0:Then:ClrHome:Output(4,1,"MERDE T AS PLUS DE MUNITIONS.":Pause
:ClrHome:Output(3,1,"TU COURS A FOND MAIS TE TOUCHENTET TE TUE."
Pause
ClrHome
0 -> L1(7)
Goto 6
Lbl V
ClrHome
Input "COMBIEN ?",A
If L1(1)-300A&#8804;0:Then:ClrHome:Output(4,1,"MEDICAMENTS     ACHETES.":L1(19)+A -> L1(19):L1(1)-300A -> L1(1):Pause :Goto B
Else
If L1(1)-300A<0:Then:ClrHome:Output(4,1,"T AS PAS ASSEZ  DE SOUS."
Pause
Goto B



Seconde version


Code
:ClrDraw
:0 -> Xmin
:94 -> Xmax
:0 -> Ymin
:62 -> Ymax
:AxesOff
:LabelOff
:Horizontal 0
:Horizontal 62
:Vertical 0
:Vertical 94
:For(A,1,5
:Text(10,A," SANGOHAN38"
:End
:For(A,1,10
:Text(A,57," PRESENTE:"
:End
:For(A,1,37
:Text(30,A," MAFIA
:End
:Text(52,28,"VERSION 1.0"
:Pause
:ClrDraw
:Lbl 1
:Menu("MAFIA:","NOUVEAU JEU",2,"CONTINUER",3,"INSTRUCTIONS",4,"QUITTER",5
:Lbl 5
:ClrHome
:Output(1,1," 
:Stop
:Lbl 2
:ClrList L2
:25 -> dim L2
:E4 -> L2(1)
:1 -> L2(2)
:20 -> X
:9E99 -> L2(X)
:100 -> L2(7)
:0 -> L2(8)
:0 -> L2(10)
:0 -> L2(9)
:0 -> L2(11)
:0 -> L2(12)
:0 -> L2(13)
:0 -> L2(14)
:Lbl 3
:ClrHome
:If L2(14)&#8805;5:Then:Output(3,1,"COMME T AS TUER 5 FLICS, TON    HABILITEE       AUGMENTE.":Pause
:ClrHome:L2(8)+1 -> L2(8):L2(14)-5 -> L2(14):Goto 3:End
:If L2(7&#8804;0:Then:Output(4,1,"T AS PLUS DE VIE"
:Pause
:ClrHome
:Goto 1
:End
:Menu("QUE FAIRE ?","VOIR STATS",7,"ARMURERIE",8,"ACHETER DROGUE",9,"VENDRE DROGUE",A,"BANQUE",B,"MENU PRINCIPAL",1
:Lbl 7
:ClrHome
:Output(2,1,"ARGENT:
:Output(2,8,L2(1
:Output(3,1,"ARME:
:If L2(2)=1:Output(3,6,"POIGNARD
:If L2(2)=2:Output(3,6,"DEAGLE
:If L2(2)=3:Output(3,6,"POMPE
:If L2(2)=4:Output(3,6,"M4A1
:If L2(2)=5:Output(3,6,"M249
:Output(4,1,"MUNITIONS:
:Output(4,11,L2(X
:Output(5,1,"PV:
:Output(5,4,L2(7
:Output(6,1,"HABILITE:
:Output(6,10,L2(8
:Output(7,1,"GENS TUES:"
:Output(7,11,L2(9
:Pause
:ClrHome
:Output(3,1,"COCAINE:
:Output(3,9,L2(10
:Output(4,1,"HEROINE:
:Output(4,9,L2(11
:Output(5,1,"MARIJUANA:
:Output(5,11,L2(12
:Output(6,1,"OPIUM:
:Output(6,7,L2(13
:Pause
:ClrHome
:Goto 3
:Lbl 8
:10 -> C
:Menu("ARMURERIE:","DEAGLE    5000",E,"POMPE    10000",F,"M4A1     25000",G,"M249     40000",H,"MUNITIONS   10",C,"GILLET    2000",S,"MENU PRECEDENT",3
:Lbl F
:10000 -> B
:3 -> C
:Goto U
:Lbl G
:25000 -> B
:4 -> C
:Goto U
:Lbl H
:40000 -> B
:5 -> C
:Goto U
:Lbl E
:5000 -> B
:2 -> C
:Lbl U
:ClrHome
:If L2(1)-B&#8805;0:Output(4,2,"ARME ACHETEE .
:If L2(1)-B<0:Goto 3
:If L2(1)-B&#8805;0:C -> L2(2)
:If L2(1)-B&#8805;0:L2(1)-B -> L2(1)
:C+1 -> X
:Pause
:ClrHome
:Goto 8
:Lbl C
:ClrHome
:Output(3,1,"PRIX:
:Output(3,6,C
:Output(4,1,"ARGENT:
:Output(4,8,L2(1
:Output(5,1,"QUANTITE        MAXIMALE:"
:Fix 0
:Output(6,10,L2(1)/C
:Input "T EN VEUT ?",B
:ClrHome
:Float
:If C=10 and L2(1)-CB&#8805;0 and B&#8805;0:Output(4,1,"    MUNITIONS       ACHETES ."
:If C&#8800;10 and L2(1)-CB&#8805;0 and B&#8805;0:Output(4,1,"DROGUE ACHETEE .
:If L2(1)-BC<0 and B&#8805;0:Goto 3
:If L2(1)-BC&#8805;0 and C=10 and B&#8805;0:L2(X)+B -> L2(X)
:If L2(1)-BC&#8805;0 and C&#8800;10 and B&#8805;0:L2(Y)+B -> L2(Y)
:If L2(1)-BC&#8805;0 and B&#8805;0:L2(1)-BC -> L2(1)
:Pause
:ClrHome
:If C=10:Goto 8
:If C&#8800;10:Goto 3
:Lbl S
:If L2(1)-2000&#8805;0:Output(4,1,"GILLET ACHETE."
:If L2(1)-2000&#8805;0:L2(7)+100 -> L2(7)
:If L2(1)-2000<0:Goto 8
:If L2(1)-2000&#8805;0:L2(1)-2000 -> L2(1)
:Pause
:ClrHome
:Goto 8
:Lbl 9
:Menu("ACHETER DROGUE:","COCAINE    100",J,"HEROINE    500",K,"MARIJUANA 1000",L,"OPIUM     5000",M,"MENU PRECEDENT",3
:Lbl J
:100 -> C
:10 -> Y
:Goto C
:Lbl K
:500 -> C
:11 -> Y
:Goto C
:Lbl L
:1000 -> C
:12 -> Y
:Goto C
:Lbl M
:5000 -> C
:13 -> Y
:Goto C
:Lbl A
:ClrHome
:int rand4 -> &#1256;
:1/4 -> E
:If &#1256;<2:Goto I
:If &#1256;=2:Then:Output(2,1,"DESCENTE DE LA  BRIGADE DES     STUPEFIANTS: LESPRIX SONT FOUS."
:Pause
:1/2 -> E
:ClrHome
:End
:Menu("VENDRE DROGUE:","COCAINE",N,"HEROINE",O,"MARIJUANA",P,"OPIUM",Q,"MENU PRECEDENT",3
:Lbl N
:10 -> Y
:100 -> G
:Goto T
:Lbl O
:11 -> Y
:500 -> G
:Goto T
:Lbl P
:12 -> Y
:1000 -> G
:Goto T
:Lbl Q
:13 -> Y
:5000 -> G
:Lbl T
:ClrHome
:EG+G -> F
:Output(3,1,"PRIX:
:Output(3,6,F
:Output(4,1,"QUANTITEE:
:Output(4,11,L2(Y
:Input "EN VENDRE:",B
:If B<0 or B>L2(Y):Goto 3
:L2(1)+BF -> L2(1)
:L2(Y)-B -> L2(Y)
:Goto 3
:Lbl I
:ClrHome
:int rand5+1 -> F
:F*100 -> V
:Output(3,1,"MERDE VOILA LES FLICS.
:Output(6,1,"ILS ONT     PV.
:Output(6,9,V
:Pause
:Lbl R
:ClrHome
:Output(4,1,"VIE:"
:Output(4,5,L2(7)
:Output(5,1,"DEGATS:"
:10L2(2)+5*L2(8) -> D
:Output(5,8,D
:Output(6,1,"MUNITIONS:"
:Output(6,11,L2(X)
:Pause
:ClrHome
:Menu("QUE FAIRE ?","ATTAQUER",X,"COURIR",Z
:Lbl Z
:int randL2(7)+1 -> C
:ClrHome
:If C=L2(7):Then:Output(2,1,"MALGRES UNE     RAPIDITEE       INCROYABLE, ILS TE TOUCHE ET TE TUE."
:Pause
:ClrHome
:0 -> L2(1)
:Goto 1
:End
:Output(2,1,"TU COURE A FOND MAIS ILS        ARRIVENT A TE   TOUCHER ET      T ENLEVE     PV."
:Output(6,10,C
:Pause
:L2(7)-C -> L2(7)
:Goto 3
:Lbl X
:If L2(X)=0:Output(4,1,"MERDE, T AS PLUSDE MUNITIONS."
:If L2(X)=0:Goto 2
:If V-D&#8804;0:Then:Output(4,1,"TU LES AS TUES.":F+L2(9) -> L2(9)
:L2(X)-1 -> L2(X)
:F+L2(14) -> L2(14)
:Goto 3
:End
:If L2(7)-10&#8804;0:Then:Output(4,1,"IL T ONT TUER.":0 -> L2(7):Pause :ClrHome:Goto 1:End
:ClrHome
:L2(7)-10 -> L2(7)
:Output(3,1,"ILS T ENLEVENT  10 PV."
:Output(5,1,"IL TE RESTE     PV."
:Output(5,13,L2(7)
:Pause
:ClrHome
:V-D -> V
:Output(3,1,"TU LEUR ENLEVE      PV."
:Output(4,1,D
:Output(5,1,"IL LEUR RESTE       PV."
:Output(6,1,V
:L2(X)-1 -> L2(X)
:Pause
:ClrHome
:Goto R
:Lbl B
:ClrHome
:Output(3,1,"NE BOUGEZ PAS   C EST UN        HOLD-UP. PASSEZ MOI LA MONNAIE."
:Pause
:ClrHome
:0 -> L
:Output(3,2,"ARGENT VOLEE:"
:Lbl W
:Output(4,6,L
:getKey -> K
:If K=105:Goto 0
:If K=45:L+100000 -> L
:int rand3+1 -> A
:If A&#8804;2:Then:10000+L -> L:Goto W
:End
:int rand25+25 -> F
:F100 -> V
:F -> L2(9)
:ClrHome
:Output(3,1,"MERDE VOILA     FLICS ARMES DE  POMPES."
:Pause
:ClrHome
:10L2(2)+5L2(8) -> D
:L2(7)/30 -> G
:V/D -> H
:int G -> G
:int H -> H
:If G&#8804;H:Then:Output(3,1,"MALGRES UNE     BONNE RESISTANCETU NE PARVIENT  PAS A SURVIVRE."
:0 -> L2(7)
:Pause
:ClrHome
:Goto 1
:End
:If L2(X)<H:Then:Output(3,1,"T AVAIS PAS     PREVU ASSEZ DE  MUNITIONS."
:Pause
:ClrHome
:0 -> L2(7)
:Goto 1
:End
:L2(X)-H -> L2(X)
:L2(7)-30G -> L2(7)
:Output(3,1,"APRES UNE DURE  BATAILLE,       TU EMPORTE      EUROS."
:Output(5,12,L
:L2(1)+L -> L2(1)
:Pause
:ClrHome
:Goto 3
:Lbl 0
:ClrHome
:Output(3,1,"TU T EN VAS AVEC       EUROS."
:Output(4,1,L
:Pause
:L2(1)+L -> L2(1)
:ClrHome
:Goto 3



----------------------
 Adresse email Haut de page Bas de page 
 
Geek1337



Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 19 Sep 2008, 20:21
Posté le : Mar 23 Sep 2008, 16:31   Citer 


Code
&#1256;


Ca se trouve ou ça ?

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 23 Sep 2008, 19:26   Citer 

Tu prend ce code et tu le copie sur le ti-graph link 82.
Tu verra alors les symboles originaux.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Geek1337



Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 19 Sep 2008, 20:21
Posté le : Mer 24 Sep 2008, 18:11   Citer 

J'ai essayé mais cela reste pareil donc je ne trouve pas le symbole et suis coincé dans ma copie -_-

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 26 Sep 2008, 20:18   Citer 

Et si tu copie vers word?

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 28 Sep 2008, 17:19   Citer 

il me semble que c'est théta...

+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Lun 29 Sep 2008, 12:31   Citer 

essaie gtalcs
il est mieux fait avec une histoire et tout !!

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 29 Sep 2008, 19:56   Citer 

Ici, c'est mon programme alors merci de ne pas faire de pub pour les autres programmes mêmes s'ils sont meilleurs que les miens.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 01 Oct 2008, 7:24   Citer 

en plus c'est peut être pas vrai!!
faudrait comparer

 Adresse email Haut de page Bas de page 
 
Reinhart



Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58
Posté le : Mer 31 Mar 2010, 19:51   Citer 

Pourrais ton avoir un .83 ou .92 ? S'il te plait happy.gif

----------------------
Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.


Programmeur de Ti Basic sur demande, adresse msn : St3ph_daft@hotmail.fr
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa