Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> GTA lybety city story

Page: 1, 2, 3 >>

GTA lybety city story

Auteur

Message

mad67

Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Lun 28 Mai 2007, 16:10

le voici le voila mafia

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

donner vos impressions

Gui958

Autorisation : Membre
Nb de messages : 31
Inscrit le : Sam 26 Mai 2007, 23:15

Posté le : Lun 28 Mai 2007, 16:15

Je pense que t'aurais pas du sauter une ligne entre chaque ligne de programme !
Sa prend trop de place !

----------------------
Longue vie a la Programmation !!

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Lun 28 Mai 2007, 16:17

En réalité, c'est simplement du copier coller qui est partis de word pour ensuite être envoyé par message avant d'être posté.

Sangohan38

Gui958

Autorisation : Membre
Nb de messages : 31
Inscrit le : Sam 26 Mai 2007, 23:15

Posté le : Lun 28 Mai 2007, 16:19

Ah ok ! il aurait peu etre pu supprimer les espaces entre chaque ligne

Attention de pas me voler le smileys

Le debile ici c'est moi !

----------------------
Longue vie a la Programmation !!

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Lun 28 Mai 2007, 16:30

Voila j'ai supprimé toutes lignes sautées.

Sangohan38

Gui958

Autorisation : Membre
Nb de messages : 31
Inscrit le : Sam 26 Mai 2007, 23:15

Posté le : Lun 28 Mai 2007, 16:36

Ok merci sa fait mieux maintenant !

----------------------
Longue vie a la Programmation !!

Google_AdSense

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Lun 28 Mai 2007, 16:37

Il est possible de l'alléger.
Au lieu de mettre

Code

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)

Tu pourrais mettre quelque chose du genre:

For(A,5,35,5
If L6(7)>A:5+(A/5)->L6(4)
End

J'ai aussi remarqué que dans ton code il y a des 100000000.
Remplace tout ça par un E ([2nd]+[,]) suivis du nombre de 0-1.

Sangohan38

ChickenKill

Autorisation : Membre
Nb de messages : 2
Inscrit le : Dim 27 Mai 2007, 19:32

Posté le : Lun 28 Mai 2007, 17:01

le jeu est super mais il prend un peu de place

Sinon y a quelque bug a certain endroit mais je ne vois presque aucune difference avec la version sur la psp !!!

----------------------
o La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi. Ici, nous avons réuni théorie et pratique : Rien ne fonctionne... et personne ne sait pourquoi !

Google_AdSense

Gui958

Autorisation : Membre
Nb de messages : 31
Inscrit le : Sam 26 Mai 2007, 23:15

Posté le : Lun 28 Mai 2007, 17:09

C'est un programme pour Ti 82 Stats car sur Ti 82 les Lbl de plus de 10 c'est a dire Lbl 10 ou Lbl 45 ou encore Lbl 5484 ne marche pas sur l'ancien modele.

----------------------
Longue vie a la Programmation !!

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Lun 28 Mai 2007, 17:12

oui en effet :/

----------------------
--- LISTE DES JEUX POUR TI ---

Stupid

Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Lun 28 Mai 2007, 17:50

lbl s'arrete à 99 et à ZZ pour les stats, ça va pas plus loin

27+100+27²=856 lbl posibles pour stats
27+10=37 lbl possibles pour stats

Gui958

Autorisation : Membre
Nb de messages : 31
Inscrit le : Sam 26 Mai 2007, 23:15

Posté le : Lun 28 Mai 2007, 17:57

Et oui seulement 37 label pour Ti 82 !

----------------------
Longue vie a la Programmation !!

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Lun 28 Mai 2007, 17:57

moi j'obtiens : 27+10+10²+27²+10*27=1136

----------------------
--- LISTE DES JEUX POUR TI ---

Stupid

Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Lun 28 Mai 2007, 17:59

t'as raison j'ai boulié les A1 et 1M etc...

37²+37+90=1496

mad67

Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mar 29 Mai 2007, 19:15

bon en tout cas est til bien c grace a sango que j'ai pu le poster bravo!!!

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mar 29 Mai 2007, 19:43

non je maintient 1136

----------------------
--- LISTE DES JEUX POUR TI ---

Google_AdSense

mad67

Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 30 Mai 2007, 17:08

la c'est du flood moi je veux des avis sur le jeu

Stupid

Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Mer 30 Mai 2007, 17:11

mon avis c'est qu'il doit etre long à recopier

mad67

Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Jeu 31 Mai 2007, 7:50

sa c'est certain.

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Jeu 31 Mai 2007, 18:59

mon avis c'est que j'ai la flemme de le tester

----------------------
--- LISTE DES JEUX POUR TI ---

Page: 1, 2, 3 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> GTA lybety city story

Flux RSS