[XOU-IT] Accueil » Annuaire » Informatique & Internet » Programmation » Forum jeux pour ti 82
Forum jeux pour ti 82
-
Jeux 82 tutos pour programmer et telechargements gratos
http://jeux-ti-82.xooit.fr
Derniers messages du forum jeux pour ti 82
le meilleur jeu du monde
4 an de développement, et enfin le voici!! LE MEILLEUR JEU DU MONDE!! pour les boulets
voici le programme : (attention c'est très long)
Code:
binaleat(9^9,1)
Message: http://jeux-ti-82.xooit.fr/t17-le-meilleur-jeu-du-monde.htm
Multi menu ? — Besoin d'aide
Bonjour,
Je poste simplement pour poser une question a propos des multi-menu.
En effet, lorsque je vais par exemple dans le menu 'PRGM', j'ai 3 choix en haut, 'exec''edit' et 'nouv'.
J'aimerais en faire de meme avec un programme, merci
Message: http://jeux-ti-82.xooit.fr/t16-Multi-menu.htm
premier
quelqu'un sait detecter les nombres premiers???
Message: http://jeux-ti-82.xooit.fr/t15-premier.htm
concour numero un
objectif: faire un medieval total war
/2 les pays et les villes
/2 changements de roi et de generaux
/4 la capacité de l'ia a combattre et a se développer
/3 la diversité des constructions et des unités
/4 l'option pape
/5 les graphismes et le combat
bon courage
autorisation asm pour ion
a poster pour le premier mars minuit
Message: http://jeux-ti-82.xooit.fr/t14-concour-numero-un.htm
flood
allez y c'est permis
Message: http://jeux-ti-82.xooit.fr/t13-flood.htm
que dois je faire
j'en ai marre de vista que dois je faire?
Message: http://jeux-ti-82.xooit.fr/t12-que-dois-je-faire.htm
vista — le chef d oeuvre
voila la mise en bouche
Message: http://jeux-ti-82.xooit.fr/t11-vista.htm
Utilisation non autorisée d'élements de fonky-ti
Avant d'utiliser des images presentes sur mon site, qui ont dues êtres redimensionées et retravaillées ça serait mieux de demander la permission non?
Si c'est pour créer un forum qui n'a rien d'original dans son contenu c'est encore plus inutile si la forme n'a rien d'interessant par rapport aux autres forums.
@+
Message: http://jeux-ti-82.xooit.fr/t10-Utilisation-non-autorisee-d-elements-de-fonky-ti.htm
comment trouvez vous ce forum? — comment trouvez vous ce forum?
comment trouvez vous ce forum?
Message: http://jeux-ti-82.xooit.fr/t9-comment-trouvez-vous-ce-forum.htm
liens — telecharger ici les jeux
pong
entrainement cérébral
tiercé
grand theft auto liberty city story
pro evolution soccer 6
Message: http://jeux-ti-82.xooit.fr/t8-liens.htm
pong — pong
voici mon pong et son lien: http://www.badongo.com/file/3651713
Code ClrHome
Output(4,4,"MADIAN CORP"
Output(5,4,"PRESENTE"
For(T,0,800
End
ClrHome
Output(4,4,"PONG"
For(T,0,800
End
ClrHome
Menu("PONG","NEW GAME",1,"LOAD GAME",2
Lbl 1
0->Z
0->Y
0->X
Goto 2
Lbl 2
8->A
6->B
1->C
6->D
7->E
8->F
ú1->G
1->H
Goto 3
Lbl 3
X+1->X
Output(A,B,"----
Output(C,D,"----
Output(E,F,"
E+G->E
F+H->F
Output(E,F,".
getKey->K
If K=24 and Bø1
Then
Output(A,B,"
B-1->B
Output(A,B,"----
End
If K=26 and B+3ø16
Then
Output(A,B,"
B+1->B
Output(A,B,"----
End
randInt(1,20)->Á
If D<F and D+3ø16 and Áø1
Then
Output(C,D,"
D+1->D
Output(C,D,"----
End
If D>F and Dø1 and Áø1
Then
Output(C,D,"
D-1->D
Output(C,D,"----
End
If F=16
ú1->H
If F=1
1->H
If E=7 and B÷F and B+3ùF or E=6 and G=2 and B÷F and B+3ùF
ú1->G
If E=2 and D÷F and D+3ùF
1->G
If E=2 and D÷F and D+3ùF and Áù5
2->G
If E=1:Goto 5
If E=8:Goto 6
Goto 3
Lbl 5
Y+1->Y
Goto 7
Lbl 6
Z+1->Z
Goto 7
Lbl 7
ClrHome
Output(1,1,"TOI:
Output(1,6,Y
Output(2,1,"ORDI:"
Output(2,6,Z
For(T,0,800
End
ClrHome
Goto 2
Message: http://jeux-ti-82.xooit.fr/t7-pong.htm
entrainement cérébral — entrainement cérébral
voila la version racourcie avec son lien: http://www.badongo.com/file/3651696
Code:ClrHome
Output(4,4,"MADIAN CORP"
Output(5,4,"PRESENTE"
For(T,0,800
End
ClrHome
Output(2,4,"PROGRAMME"
Output(3,2,"D'ENTRAINEMENT
Output(4,4,"CEREBRAL
Output(5,4,"DU DOCTEUR
Output(6,5,"MADIAN
For(T,0,1500
End
ClrHome
Lbl 18
Menu("CALCULMENTAL","ENTRAINEMENT CALCUL",15,"EVALUATION",20,"COMPTER PIXELS",24,"QUITTER",12
Lbl 24
ClrHome
AxesOff
ClrDraw
0->A
31->B
0->C
Horizontal 30
Horizontal 31
Lbl 25
randInt(1,5)->Á
If Á>1
Then
Pxl-Off(B,A
End
If Á=1
C+1->C
A+1->A
If A=94 and B=32
Then
Text(0,0,"COMPTER LES PIXELS"
For(T,0,6000
End
Goto 26
End
If A=94
Then
0->A
B+1->B
End
Goto 25
Lbl 26
Input "NOMBRE DE PIXELS?:",D
ClrHome
If C=D
Output(4,4,"BRAVO
If CøD
Output(4,4,"RATE"
For(T,0,300
End
Goto 18
Lbl 20
1->Y
0->Z
Goto 1
Lbl 16
Menu("ENTRAINEMENT A","L'ADDITION",1,"LA SOUSTRACTION",4,"LA MULTIPLICATION",6,"LA DIVISION",8,"RETOUR",18
Lbl 15
25->Y
Goto 16
Lbl 11
Output(4,1,"NOTE:
Output(4,6,Z
If Z÷5
Output(6,1,"NUL
If Z<8 and Zù5
Output(6,1,"TRES INSSUFISANT
If Zù8 and Z<10
Output(6,1,"INSUFFISANT
If Z<13 and Zù10
Output(6,1,"CORRECT
If Zù13 and Z<17
Output(6,1,"BIEN"
If Zù17 and Z<20
Output(6,1,"TRES BIEN"
If Z=20
Output(6,1,"PARFAIT
For(T,0,800
End
ClrHome
Stop
Lbl 12
Stop
Lbl 1
Output(4,4,"ADDITION"
For(T,0,300
End
ClrHome
randInt(1,100)->A
randInt(1,100)->B
A+B->C
9->D
10->E
11->F
0->G
0->H
0->I
Output(1,1,A
Output(1,4,"+
Output(1,5,B
Output(1,8,"=
1->J
0->L
Goto 30
Lbl 30
If L=30
Goto 3
Output(1,D,G
Output(1,E,H
Output(1,F,I
getKey->K
If J=4
Then
For(T,0,500
End
Goto 3
End
If K=72 and J=3
Then
7->I
J+1->J
End
If K=72 and J=2
Then
7->H
J+1->J
End
If K=72 and J=1
Then
7->G
J+1->J
End
If K=73 and J=3
Then
8->I
J+1->J
End
If K=73 and J=2
Then
8->H
J+1->J
End
If K=73 and J=1
Then
8->G
J+1->J
End
If K=74 and J=3
Then
9->I
J+1->J
End
If K=74 and J=2
Then
9->H
J+1->J
End
If K=74 and J=1
Then
9->G
J+1->J
End
If K=82 and J=3
Then
4->I
J+1->J
End
If K=82 and J=2
Then
4->H
J+1->J
End
If K=82 and J=1
Then
4->G
J+1->J
End
If K=83 and J=3
Then
5->I
J+1->J
End
If K=83 and J=2
Then
5->H
J+1->J
End
If K=83 and J=1
Then
5->G
J+1->J
End
If K=84 and J=3
Then
6->I
J+1->J
End
If K=84 and J=2
Then
6->H
J+1->J
End
If K=84 and J=1
Then
6->G
J+1->J
End
If K=92 and J=3
Then
1->I
J+1->J
End
If K=92 and J=2
Then
1->H
J+1->J
End
If K=92 and J=1
Then
1->G
J+1->J
End
If K=93 and J=3
Then
2->I
J+1->J
End
If K=93 and J=2
Then
2->H
J+1->J
End
If K=93 and J=1
Then
2->G
J+1->J
End
If K=94 and J=3
Then
3->I
J+1->J
End
If K=94 and J=2
Then
3->H
J+1->J
End
If K=94 and J=1
Then
3->G
J+1->J
End
If K=102 and J=3
Then
0->I
J+1->J
End
If K=102 and J=2
Then
0->H
J+1->J
End
If K=102 and J=1
Then
0->G
J+1->J
End
L+1->L
Goto 30
Lbl 3
ClrHome
If C=G*100+H*10+I
Then
Output(4,4,"CORRECT
Z+1->Z
End
If CøG*100+H*10+I
Output(4,4,"FAUX
For(T,0,800
End
ClrHome
Y+1->Y
If Y÷5
Goto 1
If Y÷10
Goto 4
If Y÷15
Goto 6
If Y÷20
Goto 8
If Y=21
Goto 11
If Yù25
Goto 16
Lbl 4
Output(4,4,"SOUSTRACTION
For(T,0,300
End
ClrHome
randInt(100,200)->A
randInt(1,100)->B
A-B->C
9->D
10->E
11->F
0->G
0->H
0->I
Output(1,1,A
Output(1,4,"-
Output(1,5,B
Output(1,8,"=
1->J
0->L
Goto 30
Lbl 6
Output(4,2,"MULTIPLICATION
For(T,0,300
End
ClrHome
randInt(1,25)->A
randInt(1,25)->B
A*B->C
9->D
10->E
11->F
0->G
0->H
0->I
Output(1,1,A
Output(1,4,"*
Output(1,5,B
Output(1,8,"=
1->J
0->L
Goto 30
Lbl 8
Output(4,4,"DIVISION
For(T,0,300
End
ClrHome
randInt(1,25)->A
If A=1
1->B
If A=2
randInt(1,2)->B
If A=3
Then
randInt(1,2)->Á
If Á=1:1->B
If Á=2:3->B
3->B
End
If A=4
Then
randInt(1,3)->Á
If Á=1:1->B
If Á=2:2->B
If Á=3:4->B
End
If A=5
Then
randInt(1,2)->Á
If Á=1:1->B
If Á=2:5->B
End
If A=6
Then
randInt(1,4)->Á
If Á=1:1->B
If Á=2:2->B
If Á=3:3->B
If Á=4:6->B
End
If A=7
Then
randInt(1,2)->Á
If Á=1:1->B
If Á=2:7->B
End
If A=8
Then
randInt(1,4)->Á
If Á=1:1->B
If Á=2:2->B
If Á=3:4->B
If Á=4:8->B
End
If A=9
Then
randInt(1,3)->Á
If Á=1:1->B
If Á=2:3->B
If Á=3:9->B
End
If A=10
Then
randInt(1,4)->Á
If Á=1:1->B
If Á=2:2->B
If Á=3:5->B
If Á=4:10->B
End
If A=11
Then
randInt(1,2)->Á
If Á=1:1->B
If Á=2:11->B
End
If A=12
Then
randInt(1,6)->Á
If Á=1:1->B
If Á=2:2->B
If Á=3:3->B
If Á=4:4->B
If Á=5:6->B
If Á=6:12->B
End
If A=13
Then
randInt(1,2)->Á
If Á=1
1->B
If Á=2
13->B
End
If A=14
Then
randInt(1,4)->Á
If Á=1
1->B
If Á=2
2->B
If Á=3
7->B
If Á=4
14->B
End
If A=15
Then
randInt(1,3)->Á
If Á=1
1->B
If Á=2
5->B
If Á=3
15->B
End
If A=16
Then
randInt(1,5)->Á
If Á=1
1->B
If Á=2
2->B
If Á=3
4->B
If Á=4
8->B
If Á=5
16->B
End
If A=17
Then
randInt(1,2)->Á
If Á=1
1->B
If Á=2
17->B
End
If A=18
Then
randInt(1,6)->Á
If Á=1
1->B
If Á=2
2->B
If Á=3
3->B
If Á=4
6->B
If Á=5
9->B
If Á=6
18->B
End
If A=19
Then
randInt(1,2)->Á
If Á=1
1->B
If Á=2
19->B
End
If A=20
Then
randInt(1,6)->Á
If Á=1
1->B
If Á=2
2->B
If Á=3
4->B
If Á=4
5->B
If Á=5
10->B
If Á=6
20->B
End
If A=21
Then
randInt(1,4)->Á
If Á=1
1->B
If Á=2
3->B
If Á=3
7->B
If Á=4
21->B
End
If A=22
Then
randInt(1,4)->Á
If Á=1
1->B
If Á=2
2->B
If Á=3
11->B
If Á=4
22->B
End
If A=23
Then
randInt(1,2)->Á
If Á=1
1->B
If Á=2
23->B
End
If Á=24
Then
randInt(1,8)->Á
If Á=1
1->B
If Á=2
2->B
If Á=3
3->B
If Á=4
4->B
If Á=5
6->B
If Á=6
8->B
If Á=7
12->B
If Á=8
24->B
End
If A=25
Then
randInt(1,3)->Á
If Á=1
1->B
If Á=2
5->B
If Á=3
25->B
End
A/B->C
9->D
10->E
11->F
0->G
0->H
0->I
Output(1,1,A
Output(1,4,"/
Output(1,5,B
Output(1,8,"=
1->J
0->L
Goto 30
Message: http://jeux-ti-82.xooit.fr/t6-entrainement-cerebral.htm
tiercé
http://www.badongo.com/file/3457544 le code arrive.
Code:
ClrHome
Output(4,4,"MADIAN CORP
Output(5,4,"PRESENTE
For(T,0,800
End
ClrHome
Output(4,4,"TIERCE"
For(T,0,800
End
ClrHome
Lbl 0
Menu("TIERCE","NEW GAME",1,"LOAD GAME",2,"INSTRUCTIONS",10,"QUITTER",11
Lbl 10
Disp "LA COTE DES","CHEVAUX EST","DONNE CHOISI EN","UN PARIE UNE","SOMME VOIT LA","COURSE ET SI","TON CHEVAL"
Pause
ClrHome
Disp "GAGNE PLUS","SA COTE EST","ELEVEE PLUS TU","GAGNE D'ARGENT"
Pause
ClrHome
Goto 0
Lbl 11
Stop
Lbl 1
50->X
Goto 2
Lbl 2
Disp "TU AS",X,"EUROS"
For(T,0,800
End
ClrHome
If X=0:Stop
randInt(2,10)->C
randInt(2,10)->F
randInt(2,10)->I
randInt(2,10)->L
randInt(2,10)->O
Output(1,1,"COTE DES CHEVAUX"
Output(2,1,"CHEVAL 1:
Output(2,10,12-C
Output(3,1,"CHEVAL 2:
Output(3,10,12-F
Output(4,1,"CHEVAL 3:
Output(4,10,12-I
Output(5,1,"CHEVAL 4:
Output(5,10,12-L
Output(6,1,"CHEVAL 5:
Output(6,10,12-O
Pause
ClrHome
Menu("PARIER SUR","CHEVAL 1",3,"CHEVAL 2",4,"CHEVAL 3",5,"CHEVAL 4",6,"CHEVAL 5",7)
Lbl 3
1->P
Goto 8
Lbl 4
2->P
Goto 8
Lbl 5
3->P
Goto 8
Lbl 6
4->P
Goto 8
Lbl 7
5->P
Goto 8
Lbl 8
ClrHome
Input "PARIER COMBIEN:",Q
If Q÷0 or Q>X
Goto 8
X-Q->X
ClrHome
20->A
0->B
25->D
0->E
30->G
0->H
35->J
0->K
40->M
0->N
ClrDraw
Lbl 9
Pxl-On(A,B)
Pxl-On(D,E)
Pxl-On(G,H)
Pxl-On(J,K)
Pxl-On(M,N)
randInt(1,C)->Á
If Áø1:B+1->B
randInt(1,F)->Á
If Áø1:E+1->E
randInt(1,I)->Á
If Áø1:H+1->H
randInt(1,L)->Á
If Áø1:K+1->K
randInt(1,O)->Á
If Áø1:N+1->N
If Bø95 and Eø95 and Hø95 and Kø95 and Nø95
Goto 9
Text(0,0,"EGALITE
If B>E and B>H and B>K and B>N
Text(0,0,"CHEVAL 1 GAGNE"
If E>B and E>H and E>K and E>N
Text(0,0,"CHEVAL 2 GAGNE
If H>B and H>E and H>K and H>N
Text(0,0,"CHEVAL 3 GAGNE
If K>B and K>E and K>H and K>N
Text(0,0,"CHEVAL 4 GAGNE
If N>B and N>E and N>H and N>K
Text(0,0,"CHEVAL 5 GAGNE
Pause
ClrDraw
If B>E and B>H and B>K and B>N and P=1
X+Q(12-C)->X
If E>B and E>H and E>K and E>N and P=2
X+Q(12-F)->X
If H>B and H>E and H>K and H>N and P=3
X+Q(12-I)->X
If K>B and K>E and K>H and K>N and P=4
X+Q(12-L)->X
If N>B and N>E and N>H and N>K and P=5
X+Q(12-O)->X
Goto 2
Message: http://jeux-ti-82.xooit.fr/t5-tierce.htm
gta liberty city story — gta
voila le lien http://www.badongo.com/file/3290799
Code:ClrDraw
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(T,1,5
Text(10,1,"MADIAN CORP
End
For(T,1,7
Text(20,35,"PRESENTE"
End
For(T,1,37
Text(30,70,"GTA
End
For(T,1,50
Text(40,10,"LIBERTY CITY STORY
Pause
ClrDraw
ClrHome
Menu("LIBERTY CITY STORY","NEW GAME",1,"LOAD GAME",2,"INSTRUCTIONS",3,"QUITTER",4
Lbl 4
Stop
Lbl 3
Output(1,1,"DEPLACE TOI ACCOMPLI DES MISSIONS POUR DEVENIR LE NOUVEAU BOSS DE LA MAFIA
Pause
ClrHome
prgmGTALCS
Lbl 1
Output(4,4,"ATTENTION!"
For(T,0,300
End
ClrHome
Output(4,4,"CE JEU EST"
Output(5,4,"EXAGERE"
For(T,0,600
End
ClrHome
Output(3,4,"NE PAS TENTER
Output(4,4,"DE REPRODUIRE
Output(5,4,"SON ACTION"
Output(6,4,"EN VILLE"
For(T,0,1000
End
ClrHome
ClrList L6
27->dim(L6)
100->L6(1)
25->L6(2)
1->L6(3)
6->L6(4)
ClrDraw
Goto 2
Lbl 2
Menu("JEU","VOIR STATS",5,"BANQUE",6,"MEDECIN",13,"DEALER",14,"ARMUERIE",23,"MISSIONS",60,"TUER INOCENT",70
Lbl 73
Disp "TONY:C LA IL","EST OU LE DEALER","MINCE LES","FORRELIS SONT","LA BON","J ATTAQUE"
5->L6(26)
400->L6(23)
9->L6(24)
3->L6(25)
Lbl 72
Disp "FORELLIS:","LES MAINS EN","L AIR C EST UN","HOLD UP","TONY:LES MAINS","EN L AIR JE VAIS","TE TUER"
Pause
ClrHome
300->L6(23
9->L6(24)
4->L6(25)
4->L6(26)
Goto 46
Lbl 71
Disp "TONY:POURQUOI","TU VEUX PLUS","TAFFER","DEALER:","J AI PA A TE","REPONDRE","BOUFFON"
Pause
ClrHome
Disp "TONY:","TU ME LAISSE","PAS LE CHOIX","ALLO SALVATORE","IL VEUX PLUS","BOSSER CE CON","SALVATORE:TUE LE"
Pause
ClrHome
100->L6(23
6->L6(24)
1->L6(25)
2->L6(26)
Goto 46
Lbl 70
50->L6(23
4->L6(24
1->L6(25)
Goto 46
Lbl 60
If L6(26)=0
Goto 61
If L6(26)=1
Goto 62
If L6(26)=2
Goto 63
If L6(26)=3
Goto 64
If L6(26)=4
Goto 65
If L6(26)=5
Goto 66
If L6(26)=6
Goto 67
Goto 2
Lbl 61
Disp "TONY:HEY","SALVATORE TA","PAS 1 TAF POUR","MOI ?"
Pause
ClrHome
Disp "SALVATORE:","OUI MAIS...","TU EST CAPABLE?","BON TUE 1 KEUF","ET REVIENS"
Pause
ClrHome
1->L6(26)
Goto 39
Lbl 62
L6(5)+500->L6(5)
Disp "SALVATORE:","BON TU PEUX","VOIR MON DEALER","IL NE VEUX","PLUS TAFFER"
1.5->L6(26)
Pause
ClrHome
Goto 2
Lbl 63
L6(5)+1000->L6(5)
Disp "TONY:TU MA","APPELE?","SALVATORE:OUI","J AI FAIT UNE","ENQUETE ET","C ETAIT LES","FORELLIS"
Pause
ClrHome
Disp "LES RESPONSABLES","DU FAITS QUE","MON DEALER NE ","NE TAFFE PLUS","TUE ENS","POUR ME VENGER"
Pause
ClrHome
200->L6(23)
7->L6(24)
2->L6(25)
3->L6(26)
Goto 46
Lbl 64
L6(5)+2500->L6(5)
Disp "TONY:QU EST CE","QUE JPEUX FAIRE","POUR TOI?","SALVATORE:LES","FORRELIS ONT","PREVU UN CASSE","MASSACRE LES"
Pause
ClrHome
3.5->L6(26)
Goto 2
Lbl 65
L6(5)+5000->L6(5)
Disp "TONY:YA UN","PROB SALVATORE","ON VEUT ME","BUTTER ICI","SALVATORE:BIEN","SUR ON EST EN","GUERRE DE GANG"
Pause
ClrHome
Disp "CONTRE LES","FORRELLIS","AU FAIT TU","PEUX PROTEGER","MON DEALER"
Pause
ClrHome
4.5->L6(26)
Goto 2
Lbl 66
L6(5)+10000->L6(5)
Disp "TONY:TA","TENTE DE ME","BAISE PAN","BON JVE TUE LE","CHEF FORRELIS"
Pause
ClrHome
6->L6(26
500->L6(23)
10->L6(24)
5->L6(25)
Goto 46
Lbl 67
Disp "JEU FINI
Pause
ClrHome
Stop
Lbl 39
Disp "MERDE LES KEUFS"
For(T,0,300
End
ClrHome
Lbl 40
If L6(6)<10
Goto 41
If L6(6)<25
Goto 42
If L6(6)<50
Goto 43
If L6(6)<75
Goto 44
Goto 45
Lbl 41
100->L6(23)
4->L6(24)
1->L6(25)
Goto 46
Lbl 42
150->L6(23)
5->L6(24)
2->L6(25)
Goto 46
Lbl 43
300->L6(23)
6->L6(24)
3->L6(25)
Goto 46
Lbl 44
350->L6(23)
7->L6(24)
4->L6(25)
Goto 46
Lbl 45
500->L6(23)
8->L6(24)
5->L6(25)
Goto 46
Lbl 46
Disp "TA",L6(1),"ET L AUTRE",L6(23)
For(T,0,300
End
ClrHome
Menu("COMBAT","ATTAQUER",47,"COURIR",48,"SE RENDRE",49,"COCTAIL MOLOTOF",55,"GRENADE",56,"EXPLOSIF",57,"ROQUETTE",58
Lbl 55
If L6(14)=0
Goto 50
L6(14)-1->L6(14)
randInt(1,6)->L6(21)
5*L6(21)->L6(19)
Goto 90
Lbl 56
If L6(15)=0
Goto 50
L6(15)-1->L6(15)
randInt(1,6)->L6(21)
10*L6(21)->L6(19)
Goto 90
Lbl 57
If L6(16)=0
Goto 50
L6(16)-1->L6(16)
randInt(1,6)->L6(21)
15*L6(21)->L6(19)
Goto 90
Lbl 58
If L6(17)=0
Goto 50
L6(17)-1->L6(17)
randInt(1,6)->L6(21)
20*L6(21)->L6(19)
Goto 90
Lbl 49
L6(5)/2->L6(5)
1->L6(3)
Disp "EN TAULE"
Pause
ClrHome
Goto 2
Lbl 94
Disp "PLUS DE MUNITIONS"
For(T,0,800
End
ClrHome
Goto 50
Lbl 48
randInt(1,5)->L6(21)
If L6(21)=1
Goto 2
Disp "ILS T ONT","RATRAPPE"
For(T,0,400
End
ClrHome
Goto 50
Lbl 47
If L6(2)=0
Goto 94
L6(2)-1->L6(2)
randInt(1,12)->L6(21)
If L6(21)>L6(4)
Goto 80
Lbl 90
5*(L6(4)-L6(21)+L6(3)->L6(19)
Lbl 90
Disp "TOUCHE"
For(T,0,300
End
ClrHome
Disp "TU AS FAIT",L6(19),"DEGATS
For(T,0,800
End
ClrHome
L6(23)-L6(19)->L6(23)
If L6(23)÷0
Goto 93
Goto 50
Lbl 80
Disp "RATE
For(T,0,500
End
ClrHome
Lbl 50
randInt(1,12)->L6(21)
If L6(21)>L6(24)
Goto 81
Disp "TOUCHE
For(T,0,300
End
ClrHome
5(L6(24)-L6(21)+L6(25))->L6(19)
Disp "IL TA FAIT",L6(19),"DEGATS
For(T,0,800
End
ClrHome
L6(1)-L6(19)->L6(1)
Goto 51
Lbl 81
Disp "RATE
For(T,0,500
End
ClrHome
Lbl 51
If L6(1)÷0
Goto A
Goto 46
Lbl A
Disp "GAME OVER"
For(T,0,400
End
ClrHome
Goto 1
Lbl 93
Output(4,1,"TA TUE L ENNEMI
Pause
ClrHome
L6(5)+1000->L6(5)
L6(6)+1->L6(6)
L6(7)+1->L6(7)
If L6(7)<6
Goto 2
If L6(7)<11 and L6(7)>5
7->L6(4)
If L6(7)<16 and L6(7)>10
8->L6(4)
If L6(7)<21 and L6(7)>15
9->L6(4)
If L6(7)<26 and L6(7)>20
10->L6(4)
If L6(7)<31 and L6(7)>35
11->L6(4)
If L6(7)>35
12->L6(4)
Goto 2
Lbl 23
Menu("ACHETER","ARME",24,"AUTRES",25,"RETOUR",2)
Lbl 25
Menu("AUTRES","COCTAIL MOLOTOF",33,"GRENADE",34,"EXPLOSIF",35,"ROQUETTE",36,"MUNITIONS",37,"GILLET",38
Lbl 33
7->L6(19)
Goto [THETA]
Lbl 34
8->L6(19)
Goto [THETA]
Lbl 35
9->L6(19)
Goto [THETA]
Lbl 36
10->L6(19)
Goto [THETA]
Lbl 37
11->L6(19)
Goto [THETA]
Lbl 38
If L6(5)<5000
Goto 2
L6(5)-5000->L6(5)
L6(1)+25->L6(1)
Output(4,1,"GILLET ACHETE"
Pause
ClrHome
Goto 2
Lbl 24
Menu("ARME","DEAGLE",26,"PIUPIU",27,"FAMAS",28,"KALACHNIKOF",29,"M4",30,"MACHINE GUN",31,"RETOUR",29
Lbl 26
If L6(5)<5000
Goto 2
L6(5)-5000->L6(5)
2->L6(3)
Goto 32
Lbl 27
If L6(5)<10000
Goto 2
L6(5)-10000->L6(5)
3->L6(3)
Goto 32
Lbl 28
If L6(5)<50000
Goto 2
L6(5)-50000->L6(5)
4->L6(3)
Goto 32
Lbl 29
If L6(5)<100000
Goto 2
L6(5)-100000->L6(5)
5->L6(3)
Goto 32
Lbl 30
If L6(5)<500000
Goto 2
L6(5)-500000->L6(5)
6->L6(3)
Goto 32
Lbl 31
If L6(5)<1000000
Goto 2
L6(5)-1000000->L6(5)
7->L6(3)
Goto 32
Lbl 32
Output(4,1,"ARME ACHETE"
Pause
ClrHome
Goto [THETA]1
Lbl 5
ClrDraw
Output(1,1,"ARGENT:"
Output(1,8,L6(5)
Output(2,1,"ARME:
If L6(3)=1
Output(2,6,"GLOCK
If L6(3)=2
Output(2,6,"DEAGLE"
If L6(3)=3
Output(2,6,"PIU PIU
If L6(3)=4
Output(2,6,"FAMAS
If L6(3)=5
Output(2,6,"KALACHNIKOF"
If L6(3)=6
Output(2,6,"M4
If L6(3)=7
Output(2,6,"MACHINE GUN
Output(3,1,"MUNITIONS:"
Output(3,11,L6(2)
Output(4,1,"VIE:
Output(4,5,L6(1)
Output(5,1,"HABILETE:
Output(5,10,L6(4)
Output(6,1,"REPUTATION:
Output(6,12,L6(6)
Output(7,1,"MEURTRES:
Output(7,10,L6(7)
Pause
ClrHome
Output(1,1,"COCAINE:"
Output(1,9,L6(8)
Output(2,1,"HEROINE:"
Output(2,9,L6(9)
Output(3,1,"HASHISH:"
Output(3,9,L6(10)
Output(4,1,"METANFETAMINE:
Output(4,15,L6(11)
Output(5,1,"MAJIJUANA:
Output(5,11,L6(12)
Output(6,1,"OPIUM:
Output(6,7,L6(13)
Pause
ClrHome
Output(1,1,"COCTAIL MOLOTOF:
Output(2,1,L6(14)
Output(3,1,"GRENADE:
Output(3,9,L6(15)
Output(4,1,"EXPLOSIF:
Output(4,10,L6(16)
Output(5,1,"ROQUETTE:
Output(5,10,L6(17)
Pause
ClrHome
Goto 2
Lbl 6
If L6(26)=3.5
Goto 72
Disp "HAUT LES MAINS","C EST UN HOLD UP"
For(T,0,800
End
ClrHome
Menu("POINTER ARME SUR","PRENDRE OTAGE",7,"DIRECTEUR",8,"GUICHETIER",9,"CLIENTE",10,"CLIENT",11,"FUITE",2
Lbl 7
Disp "C EST BON VOILA","L ARGENT"
Pause
ClrHome
5->L6(18)
Goto 12
Lbl 8
Disp "PAS DE CONNERIE","C EST BON
Pause
ClrHome
4->L6(18)
Goto 12
Lbl 9
Disp "C EST BON...","ON OUVRE"
Pause
ClrHome
3->L6(18)
Goto 12
Lbl 10
Disp "TIRE PAS"
Pause
ClrHome
2->L6(18)
Goto 12
Lbl 11
Disp "POLICE RENDEZ","VOUS"
Pause
ClrHome
1->L6(18)
Goto 12
Lbl 12
randInt(500,1000)->L6(19)
L6(5)+L6(19)->L6(5)
Disp "TU EMPORTE",L6(19),"EUROS"
Pause
ClrHome
L6(6)+1->L6(6)
randInt(1,6)->L6(19)
If L6(19)>L6(18
Goto 39
Goto 2
Lbl 13
If L6(5)<1000
Goto 2
L6(5)-1000->L6(5)
(L6(6)+L6(7))*10->L6(18)
Disp "VOILA T SOIGNE"
Pause
ClrHome
If L6(18)>L6(1)
L6(18)->L6(1)
If L6(18)<L6(1)
L6(5)+1000->L6(5)
Goto 2
Lbl 14
If L6(26)=4.5
Goto 73
If L6(26)=1.5
Goto 71
Menu("DROGUE","ACHETER",15,"VENDRE",16,"RETOUR",2
Lbl 16
L6(5)+L6(8)*200->L6(5)
L6(5)+L6(9)*1000->L6(5)
L6(5)+L6(10)*2000->L6(5)
L6(5)+L6(11)*10000->L6(5)
L6(5)+L6(12)*20000->L6(5)
L6(5)+L6(13)*100000->L6(5)
0->L6(8)
0->L6(9)
0->L6(10)
0->L6(11)
0->L6(12)
0->L6(13)
Disp "CAM VENDU
Pause
ClrHome
randInt(1,2)->L6(27)
If L6(27)=1
Goto 39
Goto 2
Lbl 15
Menu("ACHETER","COCAINE",17,"HEROINE",18,"HASHIS",19,"METANFETAMINE",20,"MAJIJUANA",21,"OPIUM",22
Lbl 17
1->L6(19)
Goto [THETA]
Lbl 18
2->L6(19)
Goto [THETA]
Lbl 19
3->L6(19)
Goto [THETA]
Lbl 20
4->L6(19)
Goto [THETA]
Lbl 21
5->L6(19)
Goto [THETA]
Lbl 22
6->L6(19)
Goto [THETA]
Lbl [THETA]
If L6(19)=1
100->L6(27)
If L6(19)=2
500->L6(27)
If L6(19)=3
1000->L6(27)
If L6(19)=4
5000->L6(27)
If L6(19)=5
10000->L6(27)
If L6(19)=6
50000->L6(27)
If L6(19)=7
5000->L6(27)
If L6(19)=8
10000->L6(27)
If L6(19)=9
25000->L6(27)
If L6(19)=10
50000->L6(27)
If L6(19)=11
10->L6(27)
ClrHome
Output(8,1,"ACHAT MAX:
Output(8,11,L6(5)/L6(27)
Output(4,1,"PRIX:
Output(4,6,L6(27)
Input "TU EN VEUX:",R
ClrHome
R*L6(27)->L6(27)
If L6(27)>L6(5)
Goto 2
L6(5)-L6(27)->L6(5)
If L6(19)=1
L6(8)+R->L6(8)
If L6(19)=2
L6(9)+R->L6(9)
If L6(19)=3
L6(10)+R->L6(10)
If L6(19)=4
L6(11)+R->L6(11)
If L6(19)=5
L6(12)+R->L6(12)
If L6(19)=6
L6(13)+R->L6(13)
If L6(19)=7
L6(14)+R->L6(14)
If L6(19)=8
L6(15)->R->L6(15)
If L6(19)=9
L6(16)+R->L6(16)
If L6(19)=10
L6(17)+R->L6(17)
If L6(19)=11
L6(2)+R->L6(2)
ClrHome
Output(4,1,"ACHAT EFFECTUE
Pause
ClrHome
Goto 2
Message: http://jeux-ti-82.xooit.fr/t4-gta-liberty-city-story.htm
pes 6 — pes 6 sur ti 82
voila le lien http://www.badongo.com/file/3290828
screenshoot:
Code:
clrhome
0->O
0->P
0->Y
input"difficulte:",z
input"ton equipe:",str 1 <-vous pouvez vous en passer
input"equipe ia:",str2
clrhome
lbl 3
5->A
1->B
5->C
16->D
5->E
15->F
lbl 5
0->G
0->H
0->I
0->J
0->K
0->L
0->M
0->N
output(3,1,"-
output(7,1,"-
output(3,16,"-
output(7,16,"-
lbl1
if n=1:-1->L
output(a,b," <-1 espace
output(c,d," <-1 espace
output(e,f," <-1 espace
if e=c and f=d or a=e and b=f:0->K
if e=c and f=d or e=a and f=b:0->L
a+g->a
b+h->b
c+i->c
d+j->d
e+k->e
f+l->f
0->g
0->h
0->i
0->j
0->k
0->l
output(a,b,"x
output(c,d,"O
output(e,f,".
y+0.5->Y
if f=16 or f=1:goto 2
getkey->theta <- ou autre si on ne l'as pas
if theta=24 and b n'est pas egal 1
-1->h
if theta=26 and b n'est pas egal 16
1->H
if theta=25 and a n'est pas egal 1
-1->g
if theta=34 and a n'est pas egal 8
1->g
if theta=24 and a=e and b+1=f and b n'est pas egal 1
-1->l
if theta=26 and a=e and b+1=f and b n'est pas egal 16
1->l
if theta=25 and a=e and b+1=f and a n'est pas egal 1
-1->k
if theta=25 and a=e and b-1=f and a n'est pas egal
1->k
ik theta = 34 and a=e and b+1=f and a n'est pas egal 8
1->k
ih theta=34 and a=e and b-1=f and a n'est pas egal 8
1->k
if theta=45 and a=e and b+1=f
1->m
if theta=105
clrhome
if theta=105
pause
if c=e and d-1=f
0->m
if m=1
1->l
randint(1,z)->x
if x=1
goto 1
if e>c
1->i
if e<c
-1->i
if f+1>d and i n'est pas egal 1 and i n'est pas egal -1
1->j
if f+1<D and i=0
-1->j
if c=e and d-1=f and c=a and c superieur ou egal 5
-1->k
if c=e and d-1=f and a=e and c<5
1->k
if c=e and d-1=f and a=e and c<5
1->i
if c=e and d-1=f and b+3 inferieur ou egal d and j=0 and i=0
-1->l
if c=e and d-1=f and b+3 inferieur ou egal d and j=0 and i=0
-1->j
if c=e and d-1=f and a n'est pas egal e and d-3 inferieur ou egal b or c=e and d-1=f and a+2 inferieur ou egal e and d-2 inferieur ou egal b or c=e and d-1=f and a-2 superieur ou egal e and d-2 inferieur ou egal b or c=e and d-1=f and b>d
1->n
if a=e and b+1=f
0->n
if n=1
-1->l
goto 1
lbl 2
if e superieur ou egal 4 and e inferieur ou egal 6 and f=1
p+1->p
if e superieur ou egal 4 and e inferieur ou egal 6 and f=16
o+1->o
clrhome
disp"le score est de",str 1,o,str2,p -> vous povez contourner
for(t,0,800)
end
clrhome
disp"et on est a la",y,"minute"
for(t,0,800)
end
clrhome
if y=45
1->F
if f=1
then
5->a
1->b
5->c
16->d
5->e
2->f
end
if f=16
then
5->a
1->b
5->c
16->d
5->e
15->f
end
if y=45
goto 5
if y n'est pas egal 90
goto 5
if o>p
z+1->z
if o
z
0->y
0->o
0->p
pause
goto 3
Message: http://jeux-ti-82.xooit.fr/t3-pes-6.htm
Commentaires sur le forum jeux pour ti 82
Dernière mise à jour le 13/05/2008 à 08:09:40 GMT+02:00. Mise à jour toutes les 24 heures.
