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
Aujourd'hui à 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
 


FRUITS (jeu)

Poster un nouveau sujet   Répondre au sujet

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

FRUITS (jeu)

Message par ashtrail le Ven 27 Sep 2013 - 21:43

Bonjour ami lecteur,
Il y a un an deux ans ou dans ces environs (époque ou je ne savais même pas manier le codeTou... enfin euh, c'est pas sujet)
j'ai découvert ce programme sur l'ancien Tout 82 et je l'avais bien apprécié, du coup je l'ai copié sur ma caltoche, et j'ai créé un lien (quelle action héroïque n'est-ce pas, 80 lignes siouplé). Je vous le présente donc parce que je pense qu'il le mérite. J'aimerais vous dire que je l'ai au moins un peu amélioré mais en fait même pas (ah si placer le Lbl Q à la fin c'est tout).
Oh j'ai failli oublier l'auteur du programme : c'est Luffychigox.
Lien du post d'origine : http://tout82.free.fr/forum/sujet.php?sujet=2955

Le principe du jeu est de ramasser des fruits qui tombent dans un panier, ça vous fait gagner des points, si vous récolter un(e?) bogue vous perdez 2 points et si vous laissez tomber 9 fruits vous avez perdu. Il fait 779 octets.

Malheureusement j'ai oublié mon câble et je ne l'aurais pas jusqu'à la semaine prochaine du coup pas de screenshots, et en plus le prog est fait pour 83+ (enfin faut juste remplacer le "o" minuscule par un symbole degré et c'est bon).

Il y a quelques bugs qu'il faut que je répare. En attendant voici un screen de la version actuelle :



Le lien : 4shared.com/file/PN-O3dCd/FRUITS.html


Code:
:Lbl M
:ClrHome   // ou EffEcr
:Menu("MENU","JOUER",J,"RECORD",R,"INFO",A,"QUITTER",Q
:ClrHome
:Output(5,4,"RECORD
:Output(5,11,L6(4
:Pause
:Goto M
:Lbl A
:Disp "˖=CERISE=1P","°=POMME=2P","O=NOIX DE COCO","=3P","*=BOGUE=‾2P" /* le + : "˖" en tout petit se trouve dans le catalogue dans la partie du bas (faites 'haut' quand vous êtes en haut du catalogue), ° = symbole degré */
:Pause
:Goto M
:Lbl J
:4→dim(L6
:10→A:1→B:10→C:1→D
:DelVar EDelVar PDelVar NDelVar M9→V    // DelVar = EffVar (sur les caltoches françaises)
:Lbl 1
:ClrHome
:Output(1,3,"I
:Output(2,1,"V I
:Output(3,1,"I I
:Output(4,1,"E I
:Output(5,1,"S I
:Output(6,1,": I
:Output(7,3,"I
:Output(8,3,"I
:Output(7,1,V
:Output(8,A,"U
:If D=1
: Output(B,C,"˖    /* Ces espaces sont des indentation c'est juste pour être lisible, ne les recopiez pas */
:If D=2
: Output(B,C,"°
:If D=3
: Output(B,C,"O
:If D=4
: Output(B,C,"*
:If B=8 and A≠C and D≠4
: V-1→V
:If not(V
: Goto G
:If B=8 and A=C and D=1
: E+1→E
:If B=8 and A=C and D=2
: P+1→P
:If B=8 and A=C and D=3
: N+1→N
:If B=8 and A=C and D=4
: M+1→M
:If B=8
:Then
: 1→B
: randInt(1,8→X         // ou entAléat(
: If X=1 or X=2 or X=3
: 1→D
: If X=4 or X=5
: 2→D
: If X=6
: 3→D
: If X=7 or X=8
: 4→D
: randInt(4,16→C
:End
:B+1→B
:getKey→K       // ou codeTouch(→K
:max(4,min(16,A-(K=24)+(K=26→A
:Goto 1
:Lbl G
:E+2P+3N-2M→S
:If S<0
: DelVar S
:If S>L6(4
: S→L6(4
:ClrHome
:Output(1,4,"GAME OVER
:Disp " ","CERISES:","POMMES:","NOIX DE COCO:","BOGUES:
:Output(3,9,E
:Output(4,8,P
:Output(5,14,N
:Output(6,8,M
:Pause
:ClrHome
:Output(3,5,"SCORE:
:Output(3,11,S
:Output(5,4,"RECORD:
:Output(5,11,L6(4
:Pause
:Goto M
:Lbl Q

__________________________________________________________________________
Mes programmes :
-JEUX : Le TAPTAUPE, Le MINSTEP, Un Plus-Moins
-MATHS : Regroupement n°1, Regroupement n°2, tout sur les pourcentages
-AUTRE : Le programme qui jauge les prénoms
avatar
ashtrail
Connaisseur
Connaisseur

Messages : 248
Points Concours : 21
Productivité : 21
Date d'inscription : 18/06/2013
Localisation : Paris
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://ti-freeworld.fr1.co/

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