Forum TI-Planet.org

Bonjour, tout d'abord je tiens à remercier kindermoumoute sans qui la réalisation de ce projet aurait était vaine. AlexPack est une application composée de deux mini-jeux: Sniper et Mario. Elle est compilée grâce au langage de programmation Axe Parser de Kevin Horowitz. Votre record sera conservé même en cas de reset de la RAM tant que "AlexHS" sera archivée. Pour quitter l'application à tout moment appuyez sur [CLEAR].


Téléchargement:
AlexPack v1.1 (Français) (Application + Documentation.)
Page TI Calc


But du jeu:
Dans le mini-jeu Sniper, le but est de tirer sur le plus de smileys en un temps limité. Pour jouer déplacez-vous avec les flèches, quand votre viseur est placé sur un smiley appuyez sur [2ND] pour tirer.

Dans le second mini-jeu Mario, le but est de ne pas se faire écraser par les whomps, pour cela déplacez-vous avec les flèches pour éviter de vous faire écraser.


Images:

Wow, sympa !!

Merci.

Vraiment bien!
Si je peut faire 2 petites demandes : rajoute le source de ton code pour qu'on puisse commenter et ça pourra toujours servir. Ensuite.. j'arrive pas à gagner au jeu de mario , la vitesse est super dur, pourquoi pas mettre plusieurs mode de jeu (facile, moyen, dur), et puis tu peut toujours améliorer plein de chose (la encore la différence entre le bien et le mieux =).

PS : Moi je n'ai rien fait sur ce programme ^^, mais de rien comme même.

La source:

Code: Select all

.AlexPack

"vAlexHS→Str1
GetCalc(Str1,Yɿ)→Z
If Z
UnArchive Str1
End
GetCalc(Str1)→Z
!If Z
GetCalc(Str1,3)→Z
1→{Z}
0→{Z+1}
0→{Z+2}
End

[Pic1→GDB1
[Pic2→GDB2
[Pic3→GDB3
[Pic4→GDB4
[Pic5→GDB5
[Pic6→GDB6

[C1800100010001AA→Pic11
[07030101010101AB→Pic12
[010001000180C1FF→Pic13
[01010101010307FF→Pic14
[3C42A58199A5423C→Pic15
[3C42A581A599423C→Pic16
[000000000000183E→Pic21
[64D0C63C7E957EE7→Pic22
[000000000000187C→Pic23
[260B633C7EA97EE7→Pic24
[FFFF8888FF2222FF→Pic25
[7F808090A8A4AA9C→Pic26
[FE01010915255539→Pic27
[80809FAAB59F807F→Pic28
[0101F9AD55F901FE→Pic29

Lbl 0A
sub(0B
sub(0B
1→A
Repeat getKey(9) or getKey(54)
DispGraphr
If getKey(2)
1→A
End
If getKey(3)
2→A
End
If getKey(15)
Goto Z
End
If getKey(32)
Goto 0D
End
If getKey
If A=1
sub(0B
Else
sub(0C
End
End
End
If A=1
sub(1A
Else
sub(2A
End
Lbl 0B
ClrDraw
ClrDrawr
conj(GDB2,L6,768
StorePic
conj(GDB1,L6,768
Text(27,49,{Z+1}Dec
Text(73,49,{Z+2}Dec
Fix 5
Return
Lbl 0C
ClrDraw
ClrDrawr
conj(GDB3,L6,768
StorePic
conj(GDB1,L6,768
Text(27,49,{Z+1}Dec
Text(73,49,{Z+2}Dec
Fix 5
Return
Lbl 0D
ClrDraw
ClrDrawr
conj(GDB5,L6,768
StorePic
conj(GDB4,L6,768
Repeat getKey(15)
DispGraphr
If getKey(56)
0→{Z+1}
0→{Z+2}
End
End
Goto 0A

Lbl 1A
ClrDraw
0→A
999→B
40→C
24→D
Lbl 1B
16+(rand^73→E
E+8→E
16+(rand^41→F
F+8→F
Lbl 1C
B-1→B
If B1000
Goto 1E
End
ClrDraw
Pt-On(C,D,Pic11
Pt-On(C+8,D,Pic12
Pt-On(C,D+8,Pic13
Pt-On(C+8,D+8,Pic14
Pt-On(E,F,Pic15
ref(0,0,C+16,D
ref(C+16,0,95,D+16
ref(C,D+16,95,63
ref(0,D,C,63
DispGraph
If getKey(54)
Goto 1D
End
If getKey(15)
Goto Z
End
If getKey(3)
C+1→C
End
If C79
79→C
End
If getKey(2)
C-1→C
End
If C2
2→C
End
If getKey(1)
D+1→D
End
If D47
47→D
End
If getKey(4)
D-1→D
End
If D2
2→D
End
Goto 1C
Lbl 1D
SinReg 300,10000
0→G
If E-7C
G+1→G
End
If EC
G+1→G
End
If F-7D
G+1→G
End
If FD
G+1→G
End
If G=4
A+1→A
Goto 1B
End
Goto 1C
Lbl 1E
ClrDraw
Pt-On(E,F,Pic16
DispGraph
Pause 1200
ClrHome
Fix 3
If A{Z+1}
A→{Z+1}
Output(0,7,"Nouveau Record !
End
Output(0,0,"     Sniper    
Fix 2
Output(0,3,"Score:
Output(11,3,ADec
Output(0,4,"Record:
Output(11,4,{Z+1}Dec
Pause 5000
Goto 0A

Lbl 2A
ClrDraw
0→A
Repeat A95
Pt-On(A,56,Pic25
A+8→A
End
StorePic
0→A
43→B
2→C
Lbl 2B
!If A
rand^10→D
Else
rand^79→D
End
0→E
Repeat E65
RecallPic
If C=2
Pt-On(B,40,Pic21
Pt-On(B,48,Pic22
Else
Pt-On(B,40,Pic23
Pt-On(B,48,Pic24
End
Pt-On(D,E,Pic26
Pt-On(D+8,E,Pic27
Pt-On(D,E+8,Pic28
Pt-On(D+8,E+8,Pic29
DispGraph
If getKey(3)
B+1→B
2→C
End
If B87
87→B
End
If getKey(2)
B-1→B
1→C
End
If B1
1→B
End
If getKey(15)
Goto Z
End
If E=30
Goto 2D
End
Lbl 2C
E+1→E
End
SinReg 500,10000
Goto 2B
Lbl 2D
0→F
For(G,0,24
If D+G-8=B
1→F
End
End
If F=1
DrawInv
DispGraph
Pause 1200
Goto 2E
End
A+1→A
Goto 2C
Lbl 2E
ClrHome
Fix 3
If A{Z+2}
A→{Z+2}
Output(0,7,"Nouveau Record !
End
Output(0,0,"     Mario     
Fix 2
Output(0,3,"Score:
Output(11,3,ADec
Output(0,4,"Record:
Output(11,4,{Z+2}Dec
Pause 5000
Goto 0A

Lbl Z
ClrDraw
conj(GDB6,L6,768
DispGraph
Archive Str1

Si vous voulez les images demandez-moi.

Ok merci, je regarderais une autre fois (contrôle oblige ^^), je tiens juste à t'informer qu'un autre projet de sniper a vu le jour :
http://www.omnimaga.org/index.php?topic=4930.0

Ah, ce projet date de trois jours seulement et pourtant il est pas mal.

Mic, est-il possible de remplacer le AlexPack mis sur le site par celui-ci: mediafire.com 2xqtpwp826m4uc0
Car l'autre bug quand on l'envoi sur la calculatrice, merci.

alexvire wrote:Ah, ce projet date de trois jours seulement et pourtant il est pas mal.

Le post a peut être demarré il y a 3 jours, mais en général cela signifie que le projet a démarré depuis quelques semaines.

Nouvelle version 1.1 !