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
Ven 21 Juil 2017 - 11:52 par Clément.7

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 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
Wistaro
 
Clément.7
 


MEMORY [jeu]

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

MEMORY [jeu]

Message par m@thieu41 le Jeu 12 Déc 2013 - 22:06

Bonsoir à tous! Smile

Je vous présente mon tout dernier projet, j'ai nommé (très originalement j'avoue Razz ): MEMORY

Le but du jeu est classique: retrouver toutes les paires Wink

Les commandes:
Flèches pour se déplacer
Entrer pour valider
annul pour quitter

Un petit screen pour la route:


Le code (faut que je revoit les caractères qui ne sont pas passés je fais ça dès que possible):
Code:
" MEMORY üStr3
"ôõ<ö>ÐÄ÷ù^*-/ú+ÁO0üStr0
1üW
ClrHome
Lbl M
For(A,1,8
For(Á,1,8
Output(A,2Á-1,sub(Str0,randInt(1,17),2
End
End
If W
Then
Output(4,5,Str3
For(A,1,1000
End
End
{2,4
DelVar WMenu(Str3,"2*2",J,"4*4",1,"4*5",2,"5*6",3,"6*6",4,"QUITTER",0
Lbl 4
Ans+{1,0
Lbl 3
Ans+{1,1
Lbl 2
Ans+{0,1
Lbl 1
Ans+{2,0
Lbl J
AnsüL
Ans(1üM
L(2üN
5+int(ú.5MüO
abs(N-8üP
For(Á,1,8
Output(Á,1,sub(Str3,Á,1
End
For(Á,0,M+1
For(A,0,2N
Output(Á+O-1,A+P+1,sub(" ?",1+(Á and Á-1-M and fPart(.5A)),1
End
End
Output(1,7," 0/
Output(1,10,MN.5
Output(1,11+(MNù20),"
DelVar SOutput(8,8," 0
seq(int(Á.5),Á,2,1+NMüL
randInt(0,9,MNüL‚
SortA(L‚,L
Fill(0,L‚
DelVar LDelVar JDelVar D1üE
getKey
Repeat prod(L=L‚
For(Á,0,1
0üB
Repeat K=105 and not(L‚(NA+B
If A-D or B-E
" "+sub("?"+Str0,1+L‚(ND+E),1üStr1
DüA
LüK
DelVar LEüB
Output(A+O,2Ans+P,"
Repeat K
If not(K
getKeyüK
If K=45
Goto M
F+1üF
not(CüC
If K+not(fPart(F.2
Output(A+O,2B+P,sub(Str1,1+(Ans or K),1
End
max(0,min(M-1,A+(K=34)-(K=25üD
max(1,min(N,B+(K=26)-(K=24üE
End
Output(A+O,2B+P,sub(Str0,L(NA+B),1
L(NA+BüL‚(NA+B
If not(Á
A+.1BüG
End
Repeat Ans or Á=50
Á+1üÁ
getKeyüL
End
10fPart(GüH
int(G
If L(NA+B)-L(NAns+H
Then
Output(Ans+O,2H+P,"?
0üL‚(NAns+H
0üL‚(NA+B
Output(A+O,2B+P,"?
Else
J+1üJ
Output(1,8-(Ans>9),Ans
Output(1,7-(Ans>9),"
End
S+1üS
9-int(log(Ans
Output(8,Ans,S
Output(8,Ans-1,"
Output(8,Ans+int(log(S))+1,"
End
getKey
Output(8,1,"  PRESS A KEY. 
Repeat getKey
Output(randInt(1,7),randInt(1,14),"GAGNE!
Output(8,1,"  PR
End
Goto M
Lbl 0
For(A,3,5
For(C,1,16
Output(A,C,"
End
End
AüC
For(Á,1,6
Output(4,2Á,"?
End
Repeat getKey
randInt(1,7üB
Output(4,2B,sub("MATHIEU",B,1
For(W,1,100
End
Output(4,2Á,"?
CüÁ
AüC
BüA
End
DelVar Str1DelVar Str2DelVar Str3DelVar LDelVar L‚ClrHome

Un petit lien:
mediafire.com ?xv1bgw52qq611qa

Le tout en 1100o Smile

N'hésitez pas à commenter Wink

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: MEMORY [jeu]

Message par Linkakro le Jeu 12 Déc 2013 - 22:55

Bien à première vue.  Bien Joué 
Mais les caractères aléatoires des cadres et messages me dégoûtent.

Je repense à mon propre memory. Je mettrai à jour le mien et comparerai probablement.

__________________________________________________________________________
Vétéran du TI-Basic Zilog80. Ti82statfr sur Tout82 depuis 2009 et ti84pocketfr depuis noël 2012. Ti83plusfrUSB (été 2014, concours tiplanet suite du geek). Bidouille un peu d'assembleur Z80.
Incappable de gérer le temps et manque de tact, plutôt serviable.
Je prend les commandes de programme. Je suis motivé par les maths et la physique tant que ce n'est pas une simple copie d'antisèche.
Vous pouvez trouver une grande partie de mes données hébergées dans mon mediafire. Le ZIP et la liste sont périmées depuis longtemps.
coucou Invité What a Face
avatar
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

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: MEMORY [jeu]

Message par Wistaro le Ven 13 Déc 2013 - 7:40

Sympa !
+1

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 906
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

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: MEMORY [jeu]

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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