[82] Pong2
2 participants
Page 1 sur 1
[82] Pong2
Voici une adaptation du jeu PONG en version 2 joueurs simultanés sur calculatrice.
Les commandes de jeu sont les suivantes :
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 :
Code source : Pong.8xp
Telechargement : PONG2.8xp
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 :
Code source : Pong.8xp
- Spoiler:
- :iPart(rand2→B
:iPart(rand2→D
:If B=0:‾1→Z
:If B=1:1→Z
:If D=0:‾1→O
: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")
: Output(7,2,"HTTP://A.SENER"
: Output(8,4,".FREE.FR/")
: Pause
:End
:If K=25 and C-1≠0:C-1→C
:If K=21 and A-1≠0:A-1→A
:If K=41 and A+2≠9:A+1→A
:If K=34 and C+2≠9:C+1→C
: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 -->"
: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
Re: [82] Pong2
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- Or 4
- Sexe :
Age : 28
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
- - TI-82 Stats.fr
- - TI-84+ SE
- - TI-89
- - Casio Collège
Re: [82] Pong2
De rien
sandro- Or 4
- Sexe :
Age : 28
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
- - TI-82 Stats.fr
- - TI-84+ SE
- - TI-89
- - Casio Collège
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|