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
Dim 3 Sep 2017 - 19:50 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
Ti64CLi++
 
Clément.7
 


Jeu: Puissance 4

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

Jeu: Puissance 4

Message par pito2901 le Mer 4 Sep 2013 - 18:47

Bonjour à tous !

Voici le code de puissance 4 (qui n'est pas de moi):

Code:
FullScreen
0=>Xmin
94=>Xmax
0=>Ymin
62=>Ymax
ClrDraw
CoordOff
QuadOff
AxesOff
Horizontal 0
Horizontal 62
Vertical 0
Vertical 94
For(A,1,07
Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
End
For(A,1,25
Text(32,A," PUISSANCE 4"
End
Text(52,27,"VERSION 1.0"
Pause
ClrDraw
Lbl 1
Menu("PUISSANCE 4","JOUER",2,"INSTRUCTIONS",3,"QUITTER",4)
Lbl 3
ClrDraw
Text(1,1,"LE BUT DE CE JEU EST "
Text(7,1,"D ALINER 4 PIONTS SOIT"
Text(13,1,"EN LIGNE, SOIT EN COLONNE"
Text(19,1,"SOIT EN DIAGONALE."
Text(28,1,"POUR CHOISIR LA COLONNE,"
Text(34,1,"ON UTILISE LES FLECHES ET"
Text(40,1,"LA TOUCHE [2ND]."
Pause
Goto 1
Lbl 4
ClrHome
ClrDraw
Output(1,1,"          "
Stop
Lbl 2
ClrDraw
41=>A
EffListe L1
43=>dim(L1
Float
Line(37,50,93,50
Line(37,42,93,42
Line(37,34,93,34
Line(37,26,93,26
Line(37,18,93,18
Line(37,10,93,10
Line(37,2,93,2
Line(37,50,37,2
Line(45,50,45,2
Line(53,50,53,2
Line(61,50,61,2
Line(69,50,69,2
Line(77,50,77,2
Line(85,50,85,2
Line(93,50,93,2
Text(17,5,"JOUEUR"
(-)2=>Y
Lbl 5
1=>[THETA]
1=>B
Text(17,31,[THETA]
Pt-Off(A-8,52
Pt-Off(A-8,53
Pt-Off(A-8,54
Pt-Off(A-8,55
Pt-Off(A+8,52
Pt-Off(A+8,53
Pt-Off(A+8,54
Pt-Off(A+8,55
Line(A,52,A,55
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C=21:Goto 6
Goto 5
Lbl 7
2=>[THETA]
0.1=>B
Text(17,31,[THETA]
Pt-Off(A-8,52
Pt-Off(A-8,53
Pt-Off(A-8,54
Pt-Off(A-8,55
Pt-Off(A+8,52
Pt-Off(A+8,53
Pt-Off(A+8,54
Pt-Off(A+8,55
Line(A,52,A,55
Getkey=>C
If C=24:A-8=>A
If C=26:A+8=>A
If C=21:Goto 6
Goto 7
Lbl 6
If A=41:1=>Z
If A=49:7=>Z
If A=57:13=>Z
If A=65:19=>Z
If A=73:25=>Z
If A=81:31=>Z
If A=89:37=>Z
Goto 0
Lbl 0
Z+1=>Z
Y+8=>Y
If L1(Z)[différent de]0 et B=1:Goto 0
If L1(Z)[différent de]0 et B=0.1:Goto 0
If L1(Z)=0 et B=1:Goto 8
If L1(Z)=0 et B=0.1:Goto 9
Lbl 8
Circle(A,Y,3
1=>L1(Z)
(-)2=>Y
Goto 7
Lbl 9
Circle(A,Y,3
0.1=>L1(Z)
Line(A-3,Y,A+3,Y
Line(A,Y-3,A,Y+3
(-)2=>Y
Goto 5
Bonne journée !


Dernière édition par pito2901 le Ven 6 Sep 2013 - 18:41, édité 3 fois
avatar
pito2901
Passioné
Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.clictune.com/id=179469

Revenir en haut Aller en bas

Re: Jeu: Puissance 4

Message par m@thieu41 le Mer 4 Sep 2013 - 19:35

bonjour,

Quand un code n'est pas de toi, précise le (même si c'est écrit dans le code en l’occurrence, mais c'est quand même un truc à faire tout le temps).

pito2901 a écrit:
Voici le code de puissance 4:
Le? il n'y en a pas qu'un seul j'imagine Razz (surtout que le sujet faisait parti du ti concours une année je crois Wink)

EDIT: Pourquoi as-tu mis The K en dessous du titre du projet (ce qui ne se remarque pas immédiatement) alors que dans le code il y a "SANGOHAN38 PRESENTE" ?!

__________________________________________________________________________
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: Jeu: Puissance 4

Message par pito2901 le Mer 4 Sep 2013 - 19:39

Il s'agit de Sangohan38


Dernière édition par pito2901 le Mer 4 Sep 2013 - 19:41, édité 1 fois
avatar
pito2901
Passioné
Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.clictune.com/id=179469

Revenir en haut Aller en bas

Re: Jeu: Puissance 4

Message par m@thieu41 le Mer 4 Sep 2013 - 19:39

Tu as modifié quoi? La mise en forme? L'as tu au moins testé ?
Code a écrit:Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
Shocked

EDIT: Pas de double poste.
J'ai vu (cf mon edit précédent) mais ce n'est pas de lui...
Quand c'est comme ça donne le sujet d'où tu sors le code...

__________________________________________________________________________
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: Jeu: Puissance 4

Message par pito2901 le Mer 4 Sep 2013 - 19:41

m@thieu41 a écrit:Tu as modifié quoi? La mise en forme? L'as tu au moins testé ?
Code a écrit:Text(10,A," SANGOHAN38"
End
For(A,1,10
Text(A,53," PRESENTE:"
Shocked 
Désolé. Et oui je l'ai testé mais enlevé toute l'intro...
avatar
pito2901
Passioné
Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.clictune.com/id=179469

Revenir en haut Aller en bas

Re: Jeu: Puissance 4

Message par m@thieu41 le Mer 4 Sep 2013 - 19:43

Voilà c'est déjà mieux 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: Jeu: Puissance 4

Message par blg_flg le Mer 4 Sep 2013 - 21:19

Evitons le double post, les amis... non 

En tout cas, merci, pito, de participer au transfert de ressources depuis l'ancien forum.

__________________________________________________________________________




A bove ante, ab asino retro, a moderatoro undique caveto.

Invité, tu désires la liberté ? Fais donc un petit tour sur TI-Free World !

Spoiler:
avatar
blg_flg
Connaisseur
Connaisseur

Messages : 249
Points Concours : 45
Productivité : 6
Date d'inscription : 04/06/2013
Localisation : Pantruche
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Jeu: Puissance 4

Message par pito2901 le Mer 4 Sep 2013 - 21:57

blg_flg a écrit:Evitons le double post, les amis... non
excuse-moi c'est que j'ai fais précédent quand j'ai terminé mon sujet, du coup ça l'a enregistré deux fois...
avatar
pito2901
Passioné
Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.clictune.com/id=179469

Revenir en haut Aller en bas

Re: Jeu: Puissance 4

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


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