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
Programme killer instinct (jeu de combat)
Auteur Message
algerino77930



Autorisation : Membre
Nb de messages : 5
Inscrit le : Mer 30 Mar 2011, 14:54
Posté le : Mer 30 Mar 2011, 15:06   Citer 

Un petit prog trouvé, comme une sorte de combat de boxe plutot bien fait^^

Code
:0->V
:AxesOff:GridOff:FnOff
:ClrHome
:Goto Z
:Lbl Q:C+2->D
:50->T
:Output(8,D,"[racine carré] !"
:For(P,1,T:End
:Output(7,C-1,"..":For(P,1,T:End:Output(7,C-1,"  "
:Output(8,C-2,":":Output(8,C+1,"X"
:For(P,1,T:End
:Output(8,C-2," ":For(X,5,1,-1:Output(8,X,".. "
:For(P,1,T:End
:End:Stop
:Lbl O
:C+1->C
:For(X,6,8
:Output(X,C," "
:For(P,1,100:End:End
:2->C:Output(8,C,"^"
:For(P,1,100:End
:Output(7,C,"T"
:For(P,1,100:End
:Output(6,C,"O"
:For(P,1,100:End
:Output(7,C-1,"<"
:For(X,3,10:Output(6,X,"-"
:For(P,1,25:End
:End
:For(X,11,3,-1
:Output(6,X,"[téta] "
:For(P,1,25:End
:End:Output(7,10," ":Output(8,8,"+< "
:Stop
:Lbl P
:50->T
:Output(7,C,"/T"
:For(P,1,T:End
:Output(7,C," ":Output(6,C,"L":For(P,1,T:End:Output(6,C," "
:C+1->C
:Output(5,C,"."
:For(P,1,T:End
:Output(5,C," "
:C+1->C
:Output(5,C,"/"
:For(P,1,T:End
:Output(5,C," "
:Output(6,C," ."
:Output(7,C,"/0"
:C+1->C
:Output(8,C,"[le M couché vers la gauche]x"
:Output(8,C+1," "
:Stop
:Lbl Z
:0->Xmin:0->Ymin
:94->Xmax:62->Ymax
:ClrDraw:Line(10,56,22,52
:Line(22,52,22,9
:Line(22,9,10,9
:Line(10,9,10,56
:Line(22,45,51,57
:Line(51,57,46,48
:Line(46,48,43,46
:Line(42,45,22,36
:Line(22,34,64,13
:Line(64,13,54,13
:Line(54,13,22,25
:Line(56,52,56,17
:Line(56,13,56,6
:Line(56,6,64,9
:Line(69,17,64,9
:Line(69,17,69,56
:Line(68,56,56,52
:Text(25,14,"KILLER INSTINCT
:0->K
:Lbl U
:Text(56,27,"HIT ENTER
:For(P,1,20
:getKey->K:If K[different]0
:Goto W
:End
:Text(56,27,"                               "
:For(P,1,10
:getKey->K:If K[different]0
:Goto W
:End
:Goto U
:Lbl W
:ClrDraw
:If K=21:96->V
:If K=15:Goto G
:If K=14:Then:96->V:Goto G:End
:Text(3,23,"KI  1.1 BY YAN.
:Line(0,62,94,62
:Line(0,62,0,50
:Line(0,50,94,50
:Line(94,50,94,62
:Text(16,20,"O
:Text(16,70,"0
:Text(22,20,"+ <-YOU   HIM->  +
:Text(28,20,"^
:Text(28,70,"^
:Text(38,0,"LIKE STICK FIGHTER WITHOUT":Text(44,0,"THE MEMORY LEAKS!
:Pause
:ClrDraw
:Disp "MOVES:","< MOVE LEFT","> MOVE RIGHT","1:HIGH PUNCH","2:LOW PUNCH","3:KICK"
:Pause :ClrHome
:Disp "DIFFICULTY(1-6)","1=EASY
:Input Y
:6-Y->M
:0->X
:400->T
:0->N
:9->A:9->B
:7->C:10->D
:ClrHome
:Output(1,1,"YOU
:Output(1,14,"HIM
:Output(4,6,"READY?
:Output(2,2,A
:Output(2,15,B
:Output(1,7,"{KI}
:For(téta,1,16
:Output(3,téta,"-
:End
:Output(6,C,"O  0
:Output(7,C,"+  +
:Output(8,C,"^  ^
:For(P,1,T:End
:Output(4,6,"FIGHT!
:For(P,1,T:End
:Output(4,6,"      "
:Lbl 0:0->H:0->F
:X+1->X
:Output(6,C-1," O "
:Output(7,C-1," + "
:Output(8,C-1," ^ "
:1->R
:getKey->K
:If K=0:Goto 4
:If K=24 and C>2:1->F:If F=1
:C-1->C
:If F=1:Goto 1
:0->F
:If K=26 and C<16 and C<D-2:1->F:If F=1
:C+1->C:If F=1
:Goto 1
:If K=92:Goto A
:If K=93:Goto B
:If K=94:Goto C
:Lbl 1
:Output(6,C-1," O "
:Output(7,C-1," + "
:Output(8,C-1," ^ "
:Lbl 4
:If X[inferieur ou egale]M
:Goto 0
:Lbl 5:0->H
:Output(6,D-1," 0 "
:Output(7,D-1," + "
:Output(8,D-1," ^ "
:rand->N
:2->R
:If N>.75:Goto D
:If N>.5:Goto E
:If N>.25:Goto F
:If D>C+2:Then:D-1->D
:Output(6,D,"0 "
:Output(7,D,"+ "
:Output(8,D,"^ "
:End
:If D>C+2:Goto 5
:0->X:Goto 0
:Lbl A
:Output(6,C,"O/
:Output(7,C-1,"<T
:If D=C+2
:Then:1->H
:Output(6,D," ":Output(7,D," ":Output(8,D," "
:If D<15:D+1->D
:Output(6,D," 0
:Output(7,D,"/
:Output(8,D,"^
:B-1->B:For(P,1,50:End
:Output(6,C,"O ":Output(7,C-1," +
:End:Goto 3
:Lbl B
:Output(7,C+1,"-
:If D=C+2:Then:
:1->H
:Output(6,D,"
:Output(7,D,"
:Output(8,D,"
:If D<15:D+1->D
:Output(6,D,"0
:Output(7,D," )
:Output(8,D,"^
:B-1->B:For(P,1,50:End
:End:Goto 3
:Lbl C
:Output(6,C-1,"O
:Output(7,C,"X/
:Output(8,C-1,"/
:If D=C+2:Then
:1->H:Output(6,D,"
:Output(7,D,"
:Output(8,D,"
:If D<15:D+1->D
:Output(6,D," 0
:Output(7,D,"X
:Output(8,D-1,"/!
:B-1->B:For(P,1,50:End
:Output(8,D-1,"
:End
:Goto 3
:Lbl D
:Output(7,D-1,"-
:If C=D-2
:Then:1->H
:Output(6,C,"
:Output(7,C,"
:Output(8,C,"
:If C>2:C-1->C
:Output(6,C,"O
:Output(7,C-1,"(
:Output(8,C,"^
:A-1->A
:For(P,1,50:End
:Output(7,C-1," +
:End:Goto 6
:Lbl E
:Output(6,D-1,"L
:Output(7,D,"T!
:If C=D-2
:Then:1->H
:Output(6,C,"
:Output(7,C,"
:Output(8,C,"
:If C>2:C-1->C
:Output(6,C-1,"O
:Output(7,C,")
:Output(8,C,"^
:A-1->A
:For(P,1,50:End
:End
:Goto 6
:Lbl F
:Output(6,D,"0
:Output(7,D,"[le x avec une barre au dessus]
:Output(8,D-1,"/!
:If C=D-2:Then
:1->H:Output(6,C,"
:Output(7,C,"
:Output(8,C,"
:If C>2:C-1->C
:Output(6,C,"O
:Output(7,C,"+
:Output(8,C-1,"/!
:A-1->A
:For(P,1,50
:End:Output(8,C-1,"
:End:Goto 6
:Goto 0
:Lbl 3
:Output(2,15,B
:If B=0:Goto G
:If B=6 and H=1 or B=3 and H=1
:Then:Output(6,D," 
:Output(7,D," 
:Output(8,D,">+0
:For(P,1,400:End
:End
:Output(6,D,"0
:Output(7,D,"+
:Output(8,D,"^ 
:Goto 4
:Lbl 6:0->X
:Output(2,2,A
:If A=0:Goto G
:If A=6 and H=1 or A=3 and H=1
:Then:Output(6,C-1,"   
:Output(7,C," 
:Output(8,C-1,"O+<
:For(P,1,400:End
:Output(6,C,"O
:Output(7,C,"+
:Output(8,C-1," ^
:End
:Goto 0
:Lbl G:ClrHome
:int 3rand->F
:If A>B:Then:Output(3,5,"YOU WIN
:0->Q:Else
:Output(3,5,"YOU LOSE
:1->Q:End
:Lbl H
:Output(6,C," O 0
:Output(7,C," + +
:Output(8,C," ^ ^
:If C=7:Goto 7
:If C>7:C-1->C
:If C<7:C+1->C
:Goto H
:Lbl 7
:For(P,1,100:End
:100->T
:If V=96:prgmKIFATALS
:If Q=1:Goto Q
:If F=0:Goto N
:If F=1:Goto O
:If F=2:Goto P
:Lbl N
:Output(5,C-1,"*
:Output(6,C,"LO
:Output(7,C+1,"T
:For(P,1,T:End
:Output(5,C-1,"-*
:Output(6,C,"
:For(P,1,T:End
:Output(5,C-1,"   
:Output(4,C-1," -*
:For(P,1,T:End
:Output(4,C-1,"   
:Output(5,C+2,"*
:For(P,1,T:End
:Output(5,C+2,"
:Output(6,C+3,"*
:For(P,1,50:End
:1->X:1->Y
:Lbl 9
:For(X,5,1,-1
:Output(X,10,"0
:Output(X+1,10,"
:For(P,1,40:End
:End
:Output(1,10,"
:Stop



Voila^^ je l'ai traduit via microsoft word winkle.gif et si on peut l'ameliorer ou le diminuer (surement d'ailleur) ca serai encore mieu^^ Bon jeu laugh.gif

 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 : Jeu 31 Mar 2011, 8:47   Citer 


Citer
[...]
4) Ne déposez que les programmes que vous avez fait vous-même !
[...]



Source: http://tout82.free.fr/forum/sujet.php?sujet=65

A-tu demandé à l'auteur avant de poster le programme ici?

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
algerino77930



Autorisation : Membre
Nb de messages : 5
Inscrit le : Mer 30 Mar 2011, 14:54
Posté le : Ven 01 Avr 2011, 21:28   Citer 

effectivement je ne l'ai pas demander, mais cette version poster n'est pas l'original, mais une version modifiée de l'original par moi et un ami.. Je peux la supprimer si tu veux, je pencais simplement en faire profiter a tous.. (en sachant bien entendu que le version original etait gratuite, et mise en telechargement sur un autre site)

 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 : Sam 02 Avr 2011, 9:06   Citer 

Si c'est en libre téléchargement et que tu l'as modifié, je pense que c'est bon.
Par contre pour le raccourcir, à première vue, ça ne semble pas bien possible.

Sangohan38

----------------------
 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