[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 Hitskin_logo Hitskin.com

Ceci est une prévisualisation d'un thème de Hitskin.com
Installer le thèmeRetourner sur la fiche du thème

Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Tout 82

Mar 7 Mai 2024 - Bienvenue,

Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe



Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyDim 16 Oct 2022 - 21:11 par Wistaro

» Bonne année 2018!
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyVen 2 Nov 2018 - 19:42 par Ti64CLi++

» Lancement du TI-Concours 2017 !
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptySam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyVen 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyVen 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyDim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyMer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyJeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 EmptyJeu 15 Déc 2016 - 10:24 par Ti64CLi++

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

Le Deal du moment : -39%
Pack Home Cinéma Magnat Monitor : Ampli DENON ...
Voir le deal
1190 €

Vous n'êtes pas connecté. Connectez-vous ou enregistrez-vous

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

+7
pito2901
ashtrail
m@thieu41
xiug
persalteas
blg_flg
Wistaro
11 participants

Aller à la page : Précédent  1, 2

Voulez vous avoir la version bétatest de ce jeu ?

[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 Vote_lcap100%[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 Vote_rcap 100% [ 11 ]
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 Vote_lcap0%[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 Vote_rcap 0% [ 0 ]
Total des votes : 11


Aller en bas  Message [Page 2 sur 2]

pito2901


Passioné
Passioné

Bien alors bonne chance !

http://www.clictune.com/id=179469

Wistaro

Wistaro
Passioné
Passioné

Merci Smile

Code et screenshoot dès que possible :-)

https://www.youtube.com/user/Wistaro

Wistaro

Wistaro
Passioné
Passioné

Voici la version 2.0 !
Screen: [prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 1388941960tijump2.0

Code:
Code:

:3→dim(L6
:DelVar DDelVar L39→dim(L3
:9→dim(L1:9→dim(L2
:ClrDraw
:AxesOff:ClrDraw
:0→Xmin:1→∆X
:0→Ymax:‾62→Ymin
:51→M:36→N:60→W
:1→T:Lbl 1
:Text(5,28,"‾ TI JUMP! ‾
:Text(38,62,"-
:Text(52,39,"-
:Text(27,43,"-
:For(A,24,71,5
:   Pt-On(A,‾16
:End:Text(57,1,"Wistaro
:Text(57,81,"v2.0
:Repeat getKey
:   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,"    "
:End:Lbl J
:51→M:36→N
:Menu("*-TI JumP-*","Jouer",9,"Scores",S,"Quitter",Q
:Lbl S:ClrDraw
:Text(1,25,"Meilleurs  scores
:Text(20,1,"1er:  ",L6(1
:Text(35,20,"2e:  ",L6(2
:Text(50,39,"3e:  ",L6(3
:Pause :Goto J
:Lbl 9:ClrDraw
:DelVar CDelVar SDelVar ΘDelVar C1→G
:Lbl 2
:If not(Q:8→D
:If D=2:Then:Text(1,1,int(S
:   Text(M,N,"^
:   DelVar C1→G:End
:If D≠2:Text(M,N,"    "
:DelVar EIf Θ=1:Then
:   S+5→S
:   M+8(D≠2→M
:   For(A,1,9
:      Text(L2(A),L1(A),"  "
:   End
:   For(A,9,2,‾1
:      L1(A-1→L1(A
:      L3(A-1→L3(A
:   End
:   randInt(14,74→L1(1
:   L1(1)+(int(L1(1)/2)=L1(1)/2)→L1(1
:   Q-(D=2→Q
:   If D=2:Goto 2
:   Text(M+7,N+1,"  "
:   If S≥100:1.2→T
:   If S≥200:1.4→T
:   randInt(1,3→D
:   randInt(1,8→U
:   If D=2:1→L3(U
:   If D=1:2→L3(U
:   If L3(U:ClrDraw
:   For(A,1,8,T
:      round(A,0→A
:      If not(L3(A:Text(L2(A),L1(A),"-
:      If L3(A)=2:Text(L2(A),L1(A),"+
:      If L3(A)=1:Text(L2(A),L1(A),"+
:   End
:   Goto Θ:End
:For(A,1,57,8
:   E+1→E
:   randInt(14,74→B
:   B+(int(B/2)=(B/2→B
:   B→L1(E:A→L2(E:Text(L2(E),B,"-
:End:Lbl Θ
:Lbl 3
:ClrHome
:Vertical 13
:Vertical 81
:StorePic 1
:Repeat K=45 or M=55
:   RecallPic 1
:   Text(1,1,int(S
:   If M<52:Then
:      If Pxl-Test(M+10,N+2) and not(Pxl-Test(M+10,N+1:Then
:         Pause "FUSEE!
:         20→Q:2→D:Goto 2:End
:      If Pxl-Test(M+10,N+3) and Pxl-Test(M+10,N+1:Goto 5
:   End
:   If M=9:Then
:      1→Θ:Goto 2:End
:   getKey→K
:   Text(M,N,"π
:   If K=34:Then:Text(30,36,"Pause
:      Pause :DelVar KClrDraw:RecallPic 1: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+2:DelVar C1→G
:   If G: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
:Lbl 5
:1→M:ClrDraw
:DelVar DText(7,30,"GAME OVER!
:Text(20,1,"Score: ",S
:If S>L6(3:S→L6(3
:If S>L6(2:Then:L6(2→L6(3:S→L6(2:End
:If S>L6(1:Then
:   L6(1→L6(2:L6(2→L6(3
:   S→L6(1:End
:If S≤L6(3
:Then
:   Text(30,1,"A battre: ",L6(3:
:Else:Text(30,1,"Meileur score!
:End
:Pause :Goto J:End
:End:End
:Lbl Q:ClrDraw
:DelVar CDelVar GDelVar SDelVar L1DelVar L2
 

Alors? Smile

https://www.youtube.com/user/Wistaro

pito2901

pito2901
Passioné
Passioné

Wistaro a écrit:Je travaille sur un 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

Bien mais à quoi ça correspond sur ton screenshot ?

http://www.clictune.com/id=179469

Wistaro

Wistaro
Passioné
Passioné

Tout n'apparaît pas sur le screennshoot:
#Monstres = M
#Ressorts= +

https://www.youtube.com/user/Wistaro

pito2901

pito2901
Passioné
Passioné

Ok et bien + 1

http://www.clictune.com/id=179469

m@thieu41

m@thieu41
----------------------
----------------------

Super! Bien Joué

blg_flg

blg_flg
Connaisseur
Connaisseur

Tu ne voudrais pas utiliser le scrolling de Wlib ?

pito2901

pito2901
Passioné
Passioné

Grave ! Ce serait mieux...

http://www.clictune.com/id=179469

Wistaro

Wistaro
Passioné
Passioné

blg_flg a écrit:Tu ne voudrais pas utiliser le scrolling de Wlib ?

Pourquoi pas.... :-) Je n'ai jamais utiliser Wlib, faut que je regarde sa.

NB: Si vous êtes sur TI-82, je vous déconseille d'utiliser de nombreuses fois le boost. Après utilisation, le programme ralentit fortement (pourquoi??)

https://www.youtube.com/user/Wistaro

Linkakro

Linkakro
----------------------
----------------------

Voici pourquoi le boost cause un ralenti. Tu as placé un goto dans des alternatives.
Code:
:      If Pxl-Test(M+10,N+2) and not(Pxl-Test(M+10,N+1:Then
:         Pause "FUSEE!
:         20→Q:2→D:Goto 2:End
Il y a d'autres exemples dans ton programme.

Ma source. http://tout82.free.fr/forum/sujet.php?sujet=2757

Le fait que tu signales la Ti82 :
- ne dis pas juste 82. Confusion Ti82stats.
- je n'avais pas testé le bug sur les ti flash, c'est à voir

Wistaro

Wistaro
Passioné
Passioné

Bien vu, pour le goto, je n'y avais pas pensé. Je vais essayer de contourner ce soucis.

https://www.youtube.com/user/Wistaro

m@thieu41

m@thieu41
----------------------
----------------------

Probablement que le bogue ne se ressent pas parce que la calto va plus vite.

J'ai testé ce code:

Code:
For(A,0,1
If not(A
Goto 1
End
Disp 0
Return
Lbl 1
Disp 1
End
Sur ti 82stats et sur 83+/84+SE, ça me donne la même chose (ça affiche 0 puis 1), donc le Goto interfère bien de la même façon avec les boucles.

Quand à savoir si ça ralentis bien la calto...
J'ai fait ce code pour qu'on se rende mieux compte:
Code:
0->A

Lbl 1
While 1 //Boucle qui sert à simuler le bogue

Disp A
A+1->A

If not(getKey
Goto 1 //On va rentre à nouveau dans la boucle
J'ai testé sur 82stats.fr/83+/84+SE, les 3 ti ralentissent (même si la 84+ va toujours plus vite et la 83+ est plus lente (même par rapport à la ti82stats.fr))

Dans l'ordre, de gauche à droite:
TI82stats.fr/84+SE/83+
[prgm - jeu] Doodle Jump ! (TI-basic - écran graphique) - Page 2 MvOB

Wistaro

Wistaro
Passioné
Passioné

Ce bug n'est donc pas corrigible?

https://www.youtube.com/user/Wistaro

Linkakro

Linkakro
----------------------
----------------------

Non car c'est le fonctionnement même du TI-Basic.
A toi de ne pas créer de situation usant des goto à mauvais escient.
Quelques manières d'éviter les défauts sont présentes dans mon article que j'ai cité. Mais la solution la plus stable est l'algorithmie.

Ce que je n'avais pas testé est le potentiel ralentissement des tiflash que m@thieu41 a comparé aux autres. Le conflit entre l'algorithmie et les goto était déjà connu sur toutes les tiZ80.

AnToX98


Nouveau Venu
Nouveau Venu

Ca a l'air super comme jeu mais je ne comprends pas pourquoi à chaque scrolling les pixels disparaissent et réapparaissent...
Et une autre petite question : le jeu tourne-t-il à la même vitesse que sur le gif ?

m@thieu41

m@thieu41
----------------------
----------------------

En ti basic il est impossible de faire un scroll efficace de l'écran graphique, en "déplaçant" les pixels. Il faut donc mieux (dans un cas similaire au cas présent) effacer l'écran et tout ré-afficher.

(A mon avis) le gif a été pris sur une 84+ (ou au moins une 83+ puisqu'il y a des petits caractères dans le texte).
Donc la vitesse risque d'être moins importante sur 82stats/83.
Mais quand tu poses une question de ce type, veille à préciser ton modèle.

rpgcreator

rpgcreator
Connaisseur
Connaisseur

j'imagine que c'est une 84+, mais si c'est une 83+, le jeu sera plus rapide que le screenshot sur 82stats (d'apres ma comparaison de fsnake sur une ti83+ et une 82stats) et ce n'est pas une fatalité, car il y a matrefeytontias!!! hé oui!!! notre dieu en matière de ti avec sa w-lib!!!!!! Razz
Et n'oubliez pas qu'une ti non-flash va en général plus vite qu'une ti flash, c'est pourquoi la ti83+ a une cadence de 8Mhz contre 6Mhz pour la ti82(stats) puisque sinon, ca serait trop lent deja que ca l'est beaucoup quand la ROM est pleine.

m@thieu41

m@thieu41
----------------------
----------------------

La ti 84+ est une ti flash beaucoup plus rapide que la ti 82stats, donc ne tire pas des conclusions trop hâtives.

WLib permet de faire plein de choses, mais je ne vois pas ici pourquoi ça rendrait le jeu plus rapide.
L'affichage du perso ce fait avec du texte, donc c'est rapide, contrairement à l'utilisation d'un sprite qui pourrait être plus longue (il faudrait pour l'afficher/effacer lancer le programme qui lance WLib (ce qui est assez long selon matref), alors qu'un texte se fait en une seule commande, et ne nécessite pas d'appeler un autre prgm). Je pense que l'utilisation de sprites est utile lorsqu'on veut un perso plus réaliste, et qu'il y a beaucoup de sprites à afficher d'un coup (je ne sais pas si matref a prévu de faire en sorte qu'on puisse afficher plusieurs sprites d'un coup, mais ça pourrait permettre de bannir certains problèmes de vitesse).
Par contre l'utilisation de WLib permettrait d'avoir un scrolling.

Il y a aussi quelques optimisations possibles dans le code et qui permettraient de gagner un peu de vitesse:
Privilégier la multiplication à la division:
Code:
B+(int(B/2)=(B/2→B
devient:
Code:
B+(int(B.5)=B.5→B
ou encore:
Code:
B+not(fPart(.5B→B

Ne pas fermer les guillemets/parenthèses etc:
Code:
L1(1)+(int(L1(1)/2)=L1(1)/2)→L1(1
devient:
Code:
L1(1)+(int(L1(1)/2)=L1(1)/2→L1(1
ou encore
Code:
L1(1)+(int(.5L1(1))=.5L1(1→L1(1
ou
Code:
L1(1)+not(fPart(.5L1(1→L1(1

Réduire le nombre de conditions si possible:
Code:
:  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
devient:
Code:
If K=26
Then
Text(M,N-4(N!=74),"      "
N+2-62(N=74→N
End

matrefeytontias


Connaisseur
Connaisseur

Houlà ... N'importe quoi rpgcreator. Les TI-82 stats, 83+ et 84+ ont exactement le même processeur. La seule chose qui change est le niveau de bridage : seule la 84+ peut tourner à 15 MHz en plus de 6 MHz, les deux autres sont bloquées à 6 MHz. Les TI non-flash tournent plus vite parce que l'OS n'a pas à se soucier des diverses manipulations de page flash qui n'ont lieu d'être que sur TI-Flash.

Wistaro

Wistaro
Passioné
Passioné

Oui, j'ai pris le screenshoot sur un TI84+. Mais je compte faire une version "allégée" du programme, et compatible TI-82/TI-82Stats

Merci M@thieu pour ces optimisations ;-)

Antox98: par défaut, je n'efface pas tout l'écran, mais une boucle efface seulement les plaques. Lorsque un bonus est affiché sur l'écran, j'efface tout l'écran

https://www.youtube.com/user/Wistaro

Contenu sponsorisé



Revenir en haut  Message [Page 2 sur 2]

Aller à la page : Précédent  1, 2

Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum