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)