Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 05 Nov 2009, 18:44
Bon,je vous poste mon programme des vacances que j'ai fini hier,enfin je vais essayer de mettre un lien mais c'est la première fois que je le fais.
Ca fait plaisir un programme avec du niveau ^^. http://www.mediafire.com/?jh2xm1gnqjt
-C'est un jeu deux joueurs au tour par tour,les joueurs se passent la calculette sans regarder ce que l'autre fait pendant son tour.
-Le but du jeu est de faire chuter les PV de l'adversaire a 0.
-Pour se faire,vous pouvez utiliser une arme a feu ou un couteau,poser des mines ou les enlever,construire des murs ou les détruire et vous camoufler.
Pour les courageux qui ont envie de recopier les 5360 octets du programme vous pouvez passer les cinq premières lignes,c'est une petite présentation de rien du tout,et ¤ c'est [theta].
J'aurais besoin de testeurs,et de savoir comment mettre des captures d'écran.
-Pour ceux qui essaieront le programme,quand vous êtes en jeu,le menu action s'ouvre avec [2nd].Pour les actions tir,poser une mine,construire un mur,détruire et déminer,le programme passe a une étape de visée.vous choisissez l'endroit où vous voulez faire l'action (ou là où vous voulez tirer) en déplaçant le point qui s'affiche en haut à gauche et en appuyant sur entrer.
-Pour quitter l'éditeur de map vous appuyez sur entrer.Vous revenez au menu principale et si vous faites "jouer",vous jouerez sur la map.
-Se déplacer coûte 1PA.
-Pour une partie normale,les réglages sont 100 PV à chaque joueur,3 PA et 9E99 pour les dégats des mines.
Bon jeu!
Code
:EffEcr
:Output(1,4,"DESERT--2
:Output(2,4,"MOUVEMENT
:Output(8,4,"PAR REZUS
:Pause
:EffEcr
:EffDessin
:CoordRect:CoordNAff:QuadNAff:AxesNAff:EtiqAff:ExpNAff
:0->Xmin:94>Xmax:0>Ymax:-62->Ymin
:EffListe L6
:4->dim(L6
:EffVar [C]
:{8,19}->dim([C]
:0->A:0->B:18->D:7->E
:Lbl 1
:Ligne(0,-56,95,-56
:1->T
:Menu("----DESERT-2----","JOUER",A,"PREPARER JEU",B¤,"QUITTER",¤
:Lbl A
:EffEcr
:Input "PV JOUEUR 1:",U
:Input "PV JOUEUR 2:",W
:Input "PA DES JOUEURS:",S
:Disp "DEGATS CAUSES
:Input "PAR LES MINES:",n (le "n" des suites)
:EffEcr
:Ligne(72,-56,72,-62
:Texte(57,0,"PV:
:Texte(57,74,"PA:
:U->L6(2
:W->L6(4
:Lbl A1
:Texte(57,10,"
:S->P
:If partDéc(T/2)=0
:Disp "TOUR DU JOUEUR 2
:D ->X:E->Z:W->V
:If partDéc(T/2)ø0
:Then
:A->X:B->Z:U->V
:Disp "TOUR DU JOUEUR 1
:End
:If V[< ou =]0
:Goto ¤¤
:Pause
:X->I:Z->J
:Lbl A2
:1->[C](Z+1,X+1
:Texte(57,10,V
:For(¤,0,6
:Ligne(5I,-7J-¤,5I+4,-7J-¤,0
:End
:Ligne(5X+1,-7Z,5X+3,-7Z
:Ligne(5X+1,-7Z-6,5X+1,-7Z-5
:Ligne(5X+3,-7Z-6,5X+3,-7Z-5
:Ligne(5X,-7Z-2,5X+4,-7Z-2
:Ligne(5X+1,-7Z-1,5X+3,-7Z-1
:Ligne(5X,-7Z-4,5X+4,-7Z-4
:Ligne(5X,-7Z-3,5X+4,-7Z-3
:If partDéc(T/2)=0
:Pt-Off(5X+2,-7Z-3
:Lbl ¤¤
:Pt-On(95,-63
:Texte(57,84," (9 espaces)
:Texte(57,85,P
:If P[< ou =]0
:Goto A4
:X->I:Z->J
:For(¤,0,9E99
:codeTouch->K
:X-(K=24)+(K=26->X
:X-(X>18)+(X<0->X
:Z-(K=25)+(K=34->Z
:Z-(Z>7)+(Z<0->Z
:If XøI ou ZøJ
:Goto A3
:If K=21
:Goto B
:End
:Goto A2
:Lbl A3
:[C](Z+1,X+1->Á
:If ¤=0
:Then
:P-1->P
:0->[C](J+1,I+1
:Goto A2
:End
:If ¤=1 ou ¤=2
:Then
:I->X:J->Z
:Goto A2
:End
:If ¤=3
:Goto ¤1
:Lbl A4
:T+1->T
:If partDéc(T/2)=0
:Then
:X->A:Z->B:V->U
:Goto A1
:End
:X->D:Z->E:V->W
:Goto A1
:Lbl B
:Menu("-----ACTION-----","TIR-1PA",B1,"COUTEAU-1PA",B2,"MINE-2PA",B3,"CONSTRUIRE-3PA",B4,"DETRUIRE-1PA",B5,"AUTRE",C,"RETOUR PARTIE",A¤
:Lbl B1
:1->F:1->G
:18->Q:7->R
:5->C
:Goto D
:Lbl B2
:P-1->P
:entAléat(10,20->¤
:Disp "COUP DE COUTEAU
:If partDéc(T/2)ø0 et X-D[< ou =]1 et X-D[> ou =]-1 et Z-E[< ou =]1 et Z-E[> ou :=]-1
:W-¤->W
:If partDéc(T/2)=0 et X-A[< ou =]1 et X-A[> ou =]-1 et Z-B[< ou =]1 et Z-B[> ou :=]-1
:U-¤->U
:Pause
:Goto A¤
:Lbl B3
:If P[< ou =]1
:Goto C0
:4->C
:X->F:Z->G
:X->Q:Z->R
:Goto D
:Lbl B4
:If P[< ou =]2
:Goto C0
:3->C
:X->F:Z->G
:X->Q:Z->R
:Goto D
:Lbl B5
:2->C
:X->F:Z->G
:X->Q:Z->R
:Goto D
:Lbl B6
:If [C](O+1,N+1)=2
:Then
:P-1->P
:0->[C](O+1,N+1
:For(¤,0,6
:Ligne(5N,-7O-¤,5N+4,-7O-¤,0
:End
:Disp "MUR DETRUIT
:Pause
:Goto A¤
:End
:Disp "PAS DE MUR ICI.
:Pause
:Goto A¤
:Lbl B7
:[C](O+1,N+1->¤
:If ¤=0 ou ¤=2
:Then
:P-3->P
:2->[C](O+1,N+1
:Ligne(5N,-7O,5N+3,-7O
:Ligne(5N+4,-7O,5N+4,-7O-5
:Ligne(5N+4,-7O-6,5N,-7O-6
:Ligne(5N,-7O-6,5N,-7O
:If ¤=0
:Disp "MUR CONSTRUIT
:If ¤=2
:Disp "MUR REPARE
:Pause
:Goto A¤
:End
:If ¤=1
:Then
:Disp "IL Y A QUELQU'UN
:Pause
:Goto A¤
:End
:If ¤=3
:Goto ¤1
:Lbl B8
:[C](O+1,N+1->¤
:If ¤=0
:Then
:P-2->P
:3->[C](O+1,N+1
:Disp "MINE POSEE
:Pause
:Goto A¤
:End
:If ¤=1 ou ¤=2
:Disp "IMPOSSIBLE ICI.
:If ¤=3
:Goto ¤1
:Pause
:Goto A¤
:Lbl B9
:0->I
:If N=X et O=Z
:Goto ¤¤
:Menu("---VOUS-TIREZ---","A DECOUVERT",BE,"DEPUIS UN ABRI",BD
:Lbl BD
:12->I
:Lbl BE
:P-1->P
:1->C
:5(N-X)->F:-7(O-Z)->G
:If X>N
:-I->I
:If F=0
:Goto BB
:G/F->F
:-7Z-3-F(5X+2)->H
:If X>N
:-1->C
:If F>1
:Then
:I/F->I
:C/F->C
:End
:If F<-1
:Then
:-I/F->I
:-C/F->C
:End
:If X>N
:1->J
:If X<N
:93->J
:Lbl BF
:For(¤,5X+2+I,J,C
:If F¤+H[> ou =]0 ou F¤+H[< ou =]-55
:Goto B0
:If ¤>5X+5 et pxl-Test(partEnt(-F¤-H+.001),partEnt(¤+.001))=1 ou ¤<5X-1 et pxl-Test(partEnt(-F¤-H+.001),partEnt(¤+.001))=1
:Goto B0
:Pt-On(¤,F¤+H
:Pt-Off(¤-C,F(¤-C)+H
:End
:Lbl B0
:Pt-Off(¤,F¤+H,3
:¤+C->¤
:If F¤+H[> ou =]0
:H-1->H
:If F¤+H[< ou =]-55
:H+1->H
:Lbl BA
:If partDéc(T/2)ø0 et [C](partEnt((F¤+H-.001)/-7)+1,partEnt((¤-.001)/5)+1)=1
:W-30->W
:If partDéc(T/2)=0 et [C](partEnt((F¤+H-.001)/-7)+1,partEnt((¤-.001)/5)+1)=1
:U-30->U
:Disp "COUP TIRE
:Pause
:Goto A2
:Lbl BB
:5X+2->¤
:If Z>O
:-1->J
:If Z<O
:Then
:-54->J
:-1->C
:-I->I
:End
:For(G,-7Z-3+I,J,C
:G->H
:If G>-7Z et pxl-Test(-G,5X+2)=1 ou G<-7Z-6 et pxl-Test(-G,5X+2)=1
:Goto BC
:Pt-On(5X+2,G
:Pt-Off(5X+2,G-C
:End
:Lbl BC
:Pt-Off(5X+2,G,3
:Goto BA
:Lbl B¤
:1->F:1->G
:18->Q:7->R
:6->C
:Goto D
:Lbl C
:Menu("-----ACTION-----","VOIR MINES-1PA",C1,"DEMINER-3PA",C2,"CAMOUFLAGE-1PA",C3,"HISTORIQUE",C4,"FIN DU TOUR",C5,"PRECEDENT",B,"QUITTER PARTIE",1
:Lbl C1
:P-1->P
:For(C,Z-1,Z+3
:For(¤,X-1,X+3
:0->H
:If C>0 et C<9 et ¤>0 et ¤<20
:[C](C,¤->H
:If H=3
:Texte(7C-7,5¤-4,"Ð (le petit carré qui est en 25ème position en partant de la fin du catalogue).
:End
:End
:Pt-On(95,63
:Pause
:For(C,Z-2,Z+2
:For(¤,X-2,X+2
:If ¤>-1 et ¤<20 et C>-1 et C<9
:Texte(7C,5¤,"
:If ¤>-1 et ¤<19 et C>-1 et C<8
:Then
:If [C](C+1,¤+1)=2
:Then
:Ligne(5¤+4,-7C,5¤+4,-7C-6
:Ligne(5¤+4,-7C-6,5¤,-7C-6
:Ligne(5¤,-7C-6,5¤,-7C
:Ligne(5¤,-7C,5¤+4,-7C
:End
:End
:End
:End
:Goto A2
:Lbl C2
:If P[< ou =]2
:Goto C0
:P-3->P
:X->F:Z->G
:X->Q:Z->R
:1->C
:Goto D
:Lbl C3
:P-1->P
:For(¤,0,6
:Ligne(5X,-7Z-¤,5X+4,-7Z-¤,0
:End
:Goto A¤
:Lbl C4
:Disp :Pause :Goto C
:Lbl C5
:Goto A4
:Lbl C6
:If [C](O+1,N+1)=3
:Then
:0->[C](O+1,N+1
:Disp "MINE ENLEVEE"
:Pause
:Goto A¤
:End
:Disp "PAS DE MINE ICI."
:Pause
:Goto A¤
:Lbl C0
:Disp "PAS ASSEZ DE PA.
:Pause
:Goto A¤
:Lbl D
:If C=6
:Then
:For(¤,57,63
:Ligne(0,-¤,95,-¤,0
:End
:Ligne(19,-57,19,-63
:Ligne(38,-57,38,-63
:Ligne(57,-57,57,-63
:Ligne(76,-57,76,-63
:Texte(57,4,"MUR
:Texte(57,21,"MINE
:Texte(57,45,"J1
:Texte(57,64,"J2
:Texte(57,81,"EFF
:End
:F->N:G->O
:Lbl D1
:0->Y <--------
:For(¤,0,9E99
:N->L:O->M
:codeTouch->K
:N-(K=24)+(K=26)->N
:O-(K=25)+(K=34)->O
:N-(N>Q+1 ou N>18)+(N<F-1 ou N<0->N
:O-(O>R+1 ou O>7)+(O<G-1 ou O<0->O
:If Y=0 <--------
:Pt-Off(5L+2,-7M-3,3
:pxl-Test(7O+3,5N+3->Y <--------
:Pt-On(5N+2,-7O-3,3
:If K=11 et C=6
:Goto E1
:If K=12 et C=6
:Goto E2
:If K=14 et C=6
:Goto E3
:If K=13 et C=6
:Goto E4
:If K=15 et C=6
:Goto E5
:If K=105
:Goto D2
:End
:Lbl D2
:Pt-Off(5N+2,-7O-3,3
:If C=1
:Goto C6
:If C=2
:Goto B6
:If C=3
:Goto B7
:If C=4
:Goto B8
:If C=5
:Goto B9
:If C=6
:Goto 1
:Lbl E1
:1->¤
:[C](O+1,N+1)->H
:If H=2
:Then
:0->[C](O+1,N+1
:0->¤
:End
:If Hø2
:2->[C](O+1,N+1
:Ligne(5N,-7O,5N+4,-7O,¤
:Ligne(5N+4,-7O,5N+4,-7O-6,¤
:Ligne(5N+4,-7O-6,5N,-7O-6,¤
:Ligne(5N,-7O-6,5N,-7O,¤
:Goto D1
:Lbl E2
:For(¤,0,6
:Ligne(5N,-7O-¤,5N+4,-7O-¤,0
:End
:1->¤
:[C](O+1,N+1->H
:3->[C](O+1,N+1
:If H=3
:0->[C](O+1,N+1
:Goto D1
:Lbl E3
:For(¤,0,6
:Ligne(5N,-7O-¤,5N+4,-7O-¤,0
:End
:1->¤
:[C](O+1,N+1)->H
:1->[C](O+1,N+1)
:N->D:O->E
:If Hø1
:Goto E¤
:0->[C](O+1,N+1
:19->D:8->E
:Goto D1
:Lbl E4
:For(H,0,6
:Ligne(5N,-7O-H,5N+4,-7O-H,0
:End
:N->A:O->B
:[C](O+1,N+1)->H
:If H=1
:Then
:0->[C](O+1,N+1
:0->A:0->B
:Goto D1
:End
:Lbl E¤
:For(H,0,6
:Ligne(5N,-7O-H,5N+4,-7O-H
:End
:Ligne(5N,-7O,5N,-7O-1,0
:Ligne(5N+4,-7O,5N+4,-7O-1,0
:Ligne(5N,-7O-5,5N,-7O-6,0
:Ligne(5N+4,-7O-5,5N+4,-7O-6,0
:Ligne(5N+2,-7O-5,5N+2,-7O-6,0
:If ¤=1
:Pt-Off(5N+2,-7O-3
:Goto D1
:Lbl E5
:EffDessin
:EffVar [C]
:{8,19}->dim([C]
:Ligne(0,-56,95,-56
:0->A:0->B
:19->D:8->E
:Goto D
:Lbl ¤
:EffVar [C]
:EffVar Chaine7
:EffListe L6
:EffEcr
:Stop
:Lbl ¤1
:If [C](Z+1,X+1)=3
:Then
:For(¤,0,6
:Ligne(5I,-7J-¤,5I+4,-7J-¤,0
:Ligne(5X,-7Z-¤,5X+4,-7Z-¤
:End
:Ligne(5X,-7Z,5X,-7Z-1,0
:Ligne(5X+4,-7Z,5X+4,-7Z-1,0
:Ligne(5X,-7Z-5,5X,-7Z-6,0
:Ligne(5X+2,-7Z-5,5X+2,-7Z-6,0
:Ligne(5X+4,-7Z-5,5X+4,-7Z-6,0
:X->N:Z->O
:End
:For(¤,0,10
:Ligne(5N+2-¤,-7O-3-¤,5N+2+¤,-7O-3-¤,0
:Ligne(5N+2-¤,-7O-3+¤,5N+2+¤,-7O-3+¤,0
:Ligne(5N+2+¤,-7O-3+¤,5N+2+¤,-7O-3-¤,0
:Ligne(5N+2-¤,-7O-3+¤,5N+2-¤,-7O-3-¤,0
:End
:For(¤,Z,Z+2
:For(C,X,X+2
:If ¤>0 et C>0 et ¤<9 et C<20
:0->[C](¤,C
:End
:End
:V-n->V
:If partDéc(T/2)=1 et X-D[< ou =]1 et X-D[> ou =]-1 et Z-E[< ou =]1 et Z-E[> ou =]-1
:W-n->W
:If partDéc(T/2)=0 et X-A[< ou =]1 et X-A[> ou =]-1 et Z-B[< ou =]1 et Z-B[> ou =]-1
:U-n->U
:If V>0
:Goto A2
:Lbl ¤¤
:0->[C](Z+1,X+1
:EffEcr
:If partDéc(T/2)ø0
:1->T
:If partDéc(T/2)=0
:2->T
:Output(4,1,"LE JOUEUR
:Output(4,11,T
:Output(4,13,"EST MORT.
:Pause
:Lbl ¤¤
:If T=2 et [C](B+1,A+1)=0 et U-n[< ou =]0 ou T=1
:Then
:entAléat(0,18->A:entAléat(0,7->B
:L6(3)+1->L6(3
:L6(2)->U
:End
:If T=1 et [C](E+1,D+1)=0 et W-n[< ou =]0 ou T=2
:Then
:entAléat(0,18->D:entAléat(0,7->E
:L6(1)+1->L6(1
:L6(4)->W
:End
:EffEcr
:Disp "SCORE J1",L6(1
:Disp "SCORE J2",L6(3
:Disp "CONTINUER LA","PARTIE ?
:Input "O/N ? ",Chaine7
:If Chaine7="N
:Goto 1
:For(¤,0,6
:Ligne(5X,-7Z-¤,5X+4,-7Z-¤,0
:End
:EffEcr
:Goto A1
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 05 Nov 2009, 19:08
Uh merci et bon courage !!
Et j'arrive pas à mettre des images,comment qu'on fait (j'ai uploadé mes captures d'écran avec media fire) mais quand je met l'url entre les crochets [img] ça n'affiche rien.
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 12 Nov 2009, 19:18
Désolé pour le double poste,j'ai aussi rajouté trois lignes (Là où il y a les flèches,la couleur marchait pas :/ ).T'en es où ?
Et qui d'autre serait volontaire pour le tester ?
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Ven 13 Nov 2009, 19:59
Merci Sypotu.
En fait pour le jeu sur ma calculette il marche partout,le truc c'est de trouver tous les petits bugs qui sautent pas aux yeux du premier abord,c'est ce que j'ai pas fait pour la première version et résultat il y a plein de détails qui rendent le jeu inégal.
PS:les trois lignes que j'ai corrigées sont un de ces petits détails,du coup le lien est obsolète .
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Sam 14 Nov 2009, 17:26
Par contre je pensais attaquer la version 4 joueurs quand celle-ci sera débuguée,ça permettra plus de stratégies.
Et pour l'IA on peux mais ça serait pas vraiment une IA,pour la rendre intelligente et capable de mettre quelqu'un en difficulté faudrait bien quadrupler la taille du programme et encore,en plus le jeu serait extrêmement lent lol.
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 26 Nov 2009, 19:00
Désolé du double post,mais j'ai vu que mon jeu a été téléchargé 12 fois,donc s'il vous plaît,qu'est-ce que vous en pensez,et si c'est pas trop demandé,les bugs rencontrés ^^ ?
Autorisation : Membre
Nb de messages : 158
Inscrit le : Dim 11 Oct 2009, 14:18
Posté le : Mer 17 Fév 2010, 22:40
Je l'ai tester sur l'émulateur et ton jeu est vraiment excellent ! Dommage que je ne possède ni de cable ni de Ti adapté à ton programme (La mienne c'est une Ti-82 qui date bien de 7-8 ans)
