Portail
Rechercher
Connexion
Chatbox externe
Derniers sujets
Partenaires
| TI-Planet | Espace-TI : Forum |
|
|
|
Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)
Les posteurs les plus actifs du mois
| Aucun utilisateur |
T-invader V2
4 participants
Page 1 sur 1
T-invader V2
par grmycaire Dim 4 Jan 2015 - 11:47
Bonjour, voici enfin une nouvelle version de t-invader, mais cette fois-ci en AXE parser. autrement dis, le programme sera plus beau et plus fluide. le programme est disponible pour les shell ION doorCS et MirageOS. une version fonctionnant sans shell l'est également.
Télécharger
screen:
n'hésitez pas à me faire part de vos avis, conseils, sachant que je débute dans ce language.
à la prochaine
Télécharger
screen:
- Code source (en AXE parser):
- Code:
.TINVADER
ClrDraw
ClrHome
[42247EDBBDA51800]→Pic1
[183C5AFF7E244224]→Pic2
[0000000000000000]→Pic0
[1808100810081018]→Pic3
[FEFE303030303030]→Pic5
[000000FEFE000000]
[FEFE30303030FEFE]
[C6C6F6F6DEDEC6C6]
[FCFCC6C6C6C6FCFC]
Lbl 2
ClrDraw
Pt-On(11,8,Pic5
Pt-On(19,8,Pic5+8
Pt-On(27,8,Pic5+16
Pt-On(35,8,Pic5+24
Pt-On(43,8,Pic4+40
Pt-On(51,8,Pic4+8
Pt-On(59,8,Pic5+32
Pt-On(67,8,Pic4+24
Pt-On(75,8,Pic4+48
DispGraph
Text(20,30,"1.COMMENCER
Text(20,38,"2.QUITTER"
Repeat getKey(34)
If getKey(26)
Goto 0
End
End
ClrDraw
47→X
rand ^81→θ
0→C
1→Y
0→O
10→T
0→J
0→R
θ+5→θ
ClrDraw
Repeat getKey(15)
Pt-Off(θ,Y,Pic2
Pt-Off(θ,Y-8,Pic0
Pt-Off(X,54,Pic1
Pt-Off(X-8,54,Pic0
Pt-Off(X+8,54,Pic0
DispGraph
O++
If J=10
T--
0→J
End
If O≥T
0→O
Y++
End
If Y=54
ClrDraw
Goto 1
End
If getKey(2)
X--
ElseIf getKey(3)
X++
End
If X=88
0→X
ClrDraw
ElseIf X=0
86→X
ClrDraw
End
If getKey(54)
ClrDraw
X→S
46→N
1→R
End
If R=1
N--
Pt-Off(S,N,Pic3
Pt-Off(S,N+8,Pic0
End
If (Y≥N) and (S≥(θ-5)) and (S≤(θ+5))
ClrDraw
0→R
C++
rand ^81→θ
θ+5→θ
1→Y
46→N
J++
If J=10
T--
End
End
End
Lbl 1
ClrDraw
[7EFEC0C0CEC6FE7E]→Pic4
[7C7CC6C6FEC6C6C6]
[666666DBDBDBC3C3]
[FEFEE0F8F8E0FEFE]
[FEFEC6C6C6C6FEFE]
[C6C6C6C66C6C7C38]
[FEFEC6C6FEFECCC6]
Pt-On(31,8,Pic4
Pt-On(39,8,Pic4+8
Pt-On(47,8,Pic4+16
Pt-On(56,8,Pic4+24
Pt-On(31,17,Pic4+32
Pt-On(39,17,Pic4+40
Pt-On(47,17,Pic4+24
Pt-On(55,17,Pic4+48
DispGraph
Pause 1000
Text(33,31,"SCORE:
Text(56,31,CDec
If C>F
C→F
End
Pause 1000
Text(17,41,"MEILLEUR SCORE:
Text(73,41,FDec
Repeat getKey(54)
End
Goto 2
Lbl 0
ClrDraw
ClrHome
n'hésitez pas à me faire part de vos avis, conseils, sachant que je débute dans ce language.
à la prochaine
Dernière édition par grmycaire le Dim 4 Jan 2015 - 12:01, édité 1 fois (Raison : ajout du screen)
grmycaire- Intéressé
- Messages : 79
Points Concours : 14
Productivité : 7
Date d'inscription : 13/12/2013
Localisation : Embrun
Calculatrice(s) :- TI-82 Stats.fr
. :
Re: T-invader V2
par Linkakro Dim 4 Jan 2015 - 21:09
Chouette 
Ce changement de langage rend les programmes incomparables selon moi donc je ne baptiserais pas l'un des deux "version 2". Mais cela ne retire rien au mérite.
Je ne pratique pas ce langage donc je n'ai aucun commentaire à formuler.
Je propose pour l'avenir de générer plusieurs ennemis et de leur permettre d'attaquer comme nous. Apprend l'Axe par la pratique. Réfléchis bien à ton algorithme avant de coder en revanche.
Ce changement de langage rend les programmes incomparables selon moi donc je ne baptiserais pas l'un des deux "version 2". Mais cela ne retire rien au mérite.
Je ne pratique pas ce langage donc je n'ai aucun commentaire à formuler.
Je propose pour l'avenir de générer plusieurs ennemis et de leur permettre d'attaquer comme nous. Apprend l'Axe par la pratique. Réfléchis bien à ton algorithme avant de coder en revanche.
Dernière édition par Linkakro le Mar 6 Jan 2015 - 20:05, édité 1 fois
Linkakro- ----------------------
- Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :- TI-82 Stats.fr
. :
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
Re: T-invader V2
par rpgcreator Ven 23 Jan 2015 - 19:24
Magnifique !!!! Et en plus c'est suer fluide comme jeu!! Enfin 60fps!!!
rpgcreator- Connaisseur
- Messages : 252
Points Concours : 27
Productivité : 6
Date d'inscription : 16/09/2013
Localisation : Vernouillet 28
Calculatrice(s) :- TI-82 Stats.fr
. :
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|
» Bonne année 2018!
» Lancement du TI-Concours 2017 !
» Chaînes Youtube des membres
» cacul du taux d'intêret
» [Projet] Un mario by tout82
» Cherche documentation assembleur TI82stat
» Probleme Ti-82 Stats fr
» ROM 82 stats.fr