[82] Pong2

Voir le sujet précédent Voir le sujet suivant Aller en bas

[82] Pong2

Message par h4x@n le Mer 18 Jan - 16:22

Voici une adaptation du jeu PONG en version 2 joueurs simultanés sur calculatrice.
Les commandes de jeu sont les suivantes :


  • : Mouvement de la palette de droite.
  • : Mouvement de la palette de droite.
  • 2nd : Mouvement de la palette de gauche.
  • math : Mouvement de la palette de gauche.
  • entrer : Pause du jeu.

Nom : PONG2
Version : 1.0
Taille : 437 octets
Développeur : Hakan Sener
Site Web : [Vous devez être inscrit et connecté pour voir ce lien]
Date de création : 18/01/2012
Langage de programmation : Ti-Basic
Plateformes : Ti 82/83/84
Captures d'écran :


[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]


Code source : Pong.8xp
Spoiler:
:iPart(rand2B
:iPart(rand2D
:If B=0:1Z
:If B=1:1Z
:If D=0:1O
:If D=1:1O
:4A
:4C
:8X
:4Y
:Lbl 0
:ClrHome
:Output(A,1,"!
:Output(A+1,1,"!
:Output(C,16,"I
:Output(C+1,16,"I
:Output(Y,X,"O
:getKey→K
:If K=105:Then
: Output(1,7,"PAUSE")
: Output(7,2,"HTTP://A.SENER"
: Output(8,4,".FREE.FR/")
: Pause
:End
:If K=25 and C-10:C-1C
:If K=21 and A-10:A-1A
:If K=41 and A+29:A+1A
:If K=34 and C+29:C+1C
:X+ZX
:Y+OY
:If X=1:Goto 1
:If X=16:Goto 2
:If Y=1:1O
:If Y=8:1O
:If X=2 and A=Y or X=2 and A+1=Y
: 1Z
:If X=15 and C=Y or X=15 and C+1=Y:1Z
:Goto 0
:ClrHome
:Lbl 1
:Output(4,4,"WINNER -->"
:Goto Q
:Lbl 2
:Output(4,4,"<-- WINNER")
:Lbl Q
:Pause
:ClrHome
:Output(1,1,"
:Stop

Telechargement : PONG2.8xp


Dernière édition par h4x@n le Jeu 19 Jan - 15:40, édité 1 fois

h4x@n
Argent 1
Argent 1

Sexe : Masculin
Age : 32
Messages : 11
Date d'inscription : 19/09/2010
Etudes : Terminale S
Points Forum : 0
Points Concours : 0
Langages :
  • - TI-Basic Z80
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+.fr

TI-83+.fr


http://a.sener.free.fr/

Revenir en haut Aller en bas

Re: [82] Pong2

Message par sandro le Mer 18 Jan - 17:38

Il m'a l'air assez court, mais on peut encore gagner quelques octs :
Spoiler:
Code:
:iPart(rand2→B
:iPart(rand2→D
:If not(B:‾1→Z                  //B=0 peut être remplacé par not(B
:If B=1:1→Z
:If not(D:‾1→O                //D=0 peut être remplacé par not(D
:If D=1:1→O
:4→A
:4→C
:8→X
:4→Y
:Lbl 0
:ClrHome
:Output(A,1,"!
:Output(A+1,1,"!
:Output(C,16,"I
:Output(C+1,16,"I
:Output(Y,X,"O
:getKey→K
:If K=105:Then
: Output(1,7,"PAUSE          //pas la peine de fermer les guillemets et les parrenthèses
: Output(7,2,"HTTP://A.SENER          //pas la peine de fermer les guillemets
: Output(8,4,".FREE.FR/          //pas la peine de fermer les guillemets et les parrenthèses
: Pause
:End
:If K=25 and C-1:C-1→C              //≠0 est facultatif
:If K=21 and A-1:A-1→A                //≠0 est facultatif
:If K=41 and A-7:A+1→A              //A-7 peutremplacer A+2≠9
:If K=34 and C-7:C+1→C              //idem
:X+Z→X
:Y+O→Y
:If X=1:Goto 1
:If X=16:Goto 2
:If Y=1:1→O
:If Y=8:‾1→O
:If X=2 and A=Y or X=2 and A+1=Y
: 1→Z
:If X=15 and C=Y or X=15 and C+1=Y:‾1→Z
:Goto 0
:ClrHome
:Lbl 1
:Output(4,4,"WINNER -->          //pas la peine de fermer les guillemets
:Goto Q
:Lbl 2
:Output(4,4,"<-- WINNER          //pas la peine de fermer les guillemets et les parrenthèses
:Lbl Q
:Pause
:ClrHome
:Output(1,1,"
            //stop inutile en dernière ligne de programme (sauf à la limite si c'est un sous-programme, mais ici c'est pas le cas.
Sandro

_________________
mort à l'inutile, place à la mémoire libre et aux programmes!

sandro
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 806
Date d'inscription : 01/07/2011
Etudes : T°S SVT spé maths
Points Forum : 29
Points Concours : 5
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84+ SE
  • - TI-89
  • - Casio Collège

TI-84+ SE


Revenir en haut Aller en bas

Re: [82] Pong2

Message par h4x@n le Mer 18 Jan - 17:52

Je ne connaissais pas la fonction not(). Merci pour ton astuce Content !

h4x@n
Argent 1
Argent 1

Sexe : Masculin
Age : 32
Messages : 11
Date d'inscription : 19/09/2010
Etudes : Terminale S
Points Forum : 0
Points Concours : 0
Langages :
  • - TI-Basic Z80
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+.fr

TI-83+.fr


http://a.sener.free.fr/

Revenir en haut Aller en bas

Re: [82] Pong2

Message par sandro le Mer 18 Jan - 17:57

De rien

_________________
mort à l'inutile, place à la mémoire libre et aux programmes!

sandro
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 806
Date d'inscription : 01/07/2011
Etudes : T°S SVT spé maths
Points Forum : 29
Points Concours : 5
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-84+ SE
  • - TI-89
  • - Casio Collège

TI-84+ SE


Revenir en haut Aller en bas

Re: [82] Pong2

Message par Contenu sponsorisé Aujourd'hui à 14:05


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum