Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> [prgm - jeu] Doodle Jump ! (TI-basic - écran graphique)

[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique)

Auteur

Message

Wistaro

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 18 Oct 2013, 13:14

Posté le : Ven 18 Oct 2013, 13:21

Bonjour à tous!

Aujourd'hui je viens vous présenter l'un de mes meilleur jeu sur TI, il s'agit, d'un jeu très sympa, et que tout le monde connait sur Iphone.
Je veut bien sûr parler de Doodle Jump!

Le jeu s'apelle Ti-Jump, et il ressemble à Doodle Jump. Logique, quoi.
Vous allez me dire: mais il existe déjà ton jeu !
Le mien, non. Contrairement aux versions qui existent déjà en ti basic, moi j'utilise l'écran graphique.
Ce qui permet d'avoir une meilleures fluidité des mouvement et un design amélioré!

Bref, j'èspère que vous trouverez mon TI Jump à la hauteur de vos espérance!

Disponilble sur toutes les TI programmables!!
Pour les TI-82, j'ai peut être oublié des fois des txt(-1...)...

Lien: https://tiplanet.org/forum/portal.php/forum/archives_voir.php?id=19334

Screenshoot:

Code:

Code

:DelVar ᴸTJMP
:3→dim(ᴸTJMP
:ClrDraw:StoreGDB 1
:GridOff:AxesOff:ClrDraw
:0→Xmin:1→∆X
:0→Ymin:1→∆Y
:53→M:36→N:60→W
:1→T:Lbl 1
:Text(5,28,"‾ TI JUMP! ‾
:For(A,18,74,5
: Line(A,47,A,47
:End:Text(57,1,"Wistaro
:Text(57,81,"v1.6
:Line(55,23,70,23
:Line(36,34,51,34
:Line(33,9,48,9
:While 1:DelVar K:getKey→K
: For(A,1,W
: Text(46,38,"π
: End
: Text(46,38," "
: For(A,1,W
: Text(32,61,"π
: End
: Text(32,61," "
: For(A,1,W
: Text(21,41,"π
: End
: Text(21,41," "
: If K=105:Goto J:End:Lbl J
:53→M:36→N
:Menu("*-TI JumP-*","Jouer",JJ,"Scores",MS,"Quitter",Q
:Lbl MS:ClrDraw
:Text(1,25,"Meilleurs scores
:Text(20,1,"1er: ",ᴸTJMP(1
:Text(35,20,"2e: ",ᴸTJMP(2
:Text(50,39,"3e: ",ᴸTJMP(3
:Pause :Goto J
:Lbl JJ:ClrDraw
:DelVar CDelVar SDelVar ΘDelVar C1→G
:Lbl 2
:Text(M,N," "
:DelVar E:
:If Θ=1:Then
: S+5→S:M+8→M
: For(A,1,9
: Text(L2(A),L1(A)," "
: End
: For(A,9,2,‾1
: L1(A-1)→L1(A)
: End
: randInt(14,74→L1(1
: If int(L1(1)/2)=(L1(1)/2):L1(1)+1→L1(1
: If S≥100:1.2→T
: If S≥200:1.4→T
: If S≥300:1.6→T
: If S≥350:2→T
: For(A,1,8,T
: round(A,0→A
: Text(L2(A),L1(A),"-
: End:Goto Θ:End
:For(A,0,57,7
: E+1→E
: randInt(14,74→B
: If int(B/2)=(B/2):B+1→B
: B→L1(E:A→L2(E:Text(L2(E),B,"-
:End:Lbl Θ
:Lbl 3:StorePic 1
:Repeat K=45 or M=55
: Vertical 13
: Vertical 81
: RecallPic 1
: Text(1,1,round(S,0
: If M=15:Then
: 1→Θ:Goto 2:End
: getKey→K
: Text(M,N,"π
: If K=34:Then:Text(30,36,"Pause
: Pause :ClrDraw:RecallPic 1:DelVar K:End
: If K=24 and N≠14:Then
: Text(M,N+4," ":N-2→N:End
: If K=26 and N≠74:Then:Text(M,N-4," ":N+2→N:End
: If K=26 and N=74:Then:Text(M,N," ":14→N:End
: If K=24 and N=14:Then:Text(M,N," ":74→N:End
: If Pxl-Test(M+7,N+3)=1 or Pxl-Test(M+8,N+3)=1:Then:DelVar C1→G:End
: If G=1:Then:M-2→M:C+1→C:S+1→S:End
: If C=10:DelVar G
: If not(G:Then:C-1→C:M+2→M:S-.4→S:End
: If M<53:Text(M+4,N," "
: Text(1,1," ":End
:round(S,0→S
:1→M:ClrDraw
:Text(7,30,"GAME OVER!
:Text(20,1,"Score: ",S
:If S>ᴸTJMP(3:S→ᴸTJMP(3
:If S>ᴸTJMP(2:Then:ᴸTJMP(2→ᴸTJMP(3:S→ᴸTJMP(2:End
:If S>ᴸTJMP(1:Then
: ᴸTJMP(1→ᴸTJMP(2:ᴸTJMP(2→ᴸTJMP(3
: S→ᴸTJMP(1:End
:If S≤ᴸTJMP(3
:Then
: Text(30,1,"A battre: ",ᴸTJMP(3:
:Else:Text(30,1,"Meileur score!"
:End
:Pause :Goto J:End
:End:End
:Lbl Q:ClrDraw
:DelVar CDelVar GDelVar SDelVar L1DelVar L2DelVar ᴸTJMP
:RecallGDB 1:DelVar GDB1

Google_AdSense

rpgcreator

Autorisation : Membre
Nb de messages : 85
Inscrit le : Sam 20 Juil 2013, 17:00

Posté le : Ven 18 Oct 2013, 18:30

j'avais deja vu ton programme sur le nouveau tout82, mais je n'avais pas fait attention au screenshot, et je suis bluffé

bravo a toi, c'est une bonne chose que tu l'aies mis sur l'ancien tout82, car le nouveau n'est pas encore tres actif (haha la blague

).

----------------------
je prefere la ti-82stats a la fumette ^^

Wistaro
Invité

Posté le : Ven 18 Oct 2013, 22:35

NB: J'utilise un pseudo "invité" car je n'arrive pas à me login avec le navigateur de ma psp...

Oui merci!
Par contre c'est normal les bugs dans la balise code?
J'ai simplement recopier le code via ti-editor

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Ven 18 Oct 2013, 23:37

Cela est une abscence de support du codage html de l'unicode.
https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=2502

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Wistaro
Invité

Posté le : Dim 20 Oct 2013, 23:14

ouai ok

Wistaro

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 18 Oct 2013, 13:14

Posté le : Jeu 26 Déc 2013, 18:09

Je travaille sur une V2 avec, entre autres:
-Une rapidité augmentée
- Ajout de plaques mouvantes
- Ajout de monstres
- Ajout d'un système de shop
- Ajout de bonus/malus

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> [prgm - jeu] Doodle Jump ! (TI-basic - écran graphique)

Page générée en 6 requêtes

Flux RSS