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
Mar 10 Oct 2017 - 19:42 par Wistaro

» 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


prgm MORPION

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

prgm MORPION

Message par Cytropus le Lun 17 Juin 2013 - 12:23

Attention, c'est du lourd:
La syntaxe est la plus basique possible et avec une IA

Progamme MORPION
3897 octets
Code:
:PlotsOff 
:FnOff 
:AxesOff
:GridOff
:Lbl 0
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:ClrHome
:ClrDraw
:Menu(">>>>MORPION<<<<<","1 JOUEUR",A,"2 JOUEURS",B,"QUITTER",D
:Lbl A
:Output(5,1,"3 LETTRES MAX
:Disp "NOM DU
:Input "JOUEUR 1:",Str1
:"IA->Str2
:Menu(">>>>>NIVAUX<<<<<","FACILE",1,"NORMAL",2
:Lbl 1
:1->H
:Goto C
:Lbl 2
:2->H
:Goto C
:Lbl B
:Output(5,1,"3 LETTRES MAX
:Disp "NOM DU
:Input "JOUEUR 1:",Str1
:Disp "NOM DU
:Input "JOUEUR 2:",Str2
:DelVar H
:Lbl C
:ClrHome[
:For(A,15,75,20
:For(X,1,3
:Vertical A+X
:End
:End
:For(A,-1,59,20
:For(X,1,3
:Horizontal A+X
:End
:End
:For(X,0,79,79
:For(A,0,15
:Line(A+X,0,A+X,62,0
:End
:End
:DelVar VDelVar [J]DelVar ADelVar B
:{3,3->dim([J]
:1->J
:Lbl 99
:Repeat [J](1,1) and [J](1,2) and [J](1,3) and [J](2,1) and [J](2,2) and [J](2,3) and [J](3,1) and [J](3,2) and [J](3,3)
:DelVar T
:For(A,0,79,79
:For(X,0,15
:Line(A+X,0,A+X,62,0
:End
:End
:Text(31,0,Str1
:Text(31,80,Str2
:If J=1
:78->X
:If J=2
:0->X
:For(Y,0,94,2
:Line(X,Y,X+16,Y-16
:End
:If J=1 or Str2=/="IA":Then
:While T=0
:getKey->T
:End
:End
:If T=72 and [J](1,1)=0:Then
:J->[J](1,1
:20->X
:58->Y
:End
:If T=73 and [J](1,2)=0:Then
:J->[J](1,2
:40->X
:58->Y
:End
:If T=74 and [J](1,3)=0:Then
:J->[J](1,3
:60->X
:58->Y
:End
:If T=82 and [J](2,1)=0:Then
:J->[J](2,1
:20->X
:38->Y
:End
:If T=83 and [J](2,2)=0:Then
:J->[J](2,2
:40->X
:38->Y
:End
:If T=84 and [J](2,3)=0:Then
:J->[J](2,3
:60->X
:38->Y
:End
:If T=92 and [J](3,1)=0:Then
:J->[J](3,1
:20->X
:18->Y
:End
:If T=93 and [J](3,2)=0:Then
:J->[J](3,2
:40->X
:18->Y
:End
:If T=94 and [J](3,3)=0:Then
:J->[J](3,3
:60->X
:18->Y
:End
:If J=1
:999->K
:If J=2
:888->K
:prgm@MORP
:If (J=[J](1,1) and J=[J](1,2) and J=[J](1,3)) or (J=[J](2,1) and J=[J](2,2) and J=[J](2,3)) or (J=[J](3,1) and J=[J](3,2) and J=[J](3,3)) or (J=[J](1,1) and J=[J](2,1) and J=[J](3,1)) or (J=[J](1,2) and J=[J](2,2) and J=[J](3,2)) or (J=[J](1,3) and J=[J](2,3) and J=[J](3,3)) or (J=[J](1,1) and J=[J](2,2) and J=[J](3,3)) or (J=[J](3,1) and J=[J](2,2) and J=[J](1,3)
:Goto V
:If [J](1,1) and [J](1,2) and [J](1,3) and [J](2,1) and [J](2,2) and [J](2,3) and [J](3,3) and [J](3,1) and [J](3,2):Then
:Disp "EGALITE"
:Pause 
:Goto 0
:End
:If J=1:Then
:2->J
:Else
:If Str2=/="IA
:1->J
:End
:If J=2:Then
:If Str2="IA" and H:Then
:888->K
:randInt(1,9)->R
:If H=2:Then
:1->A
:2->B
:If [J](1,3)=0 and ((A=[J](1,1) and A=[J](1,2)) or (A=[J](2,2) and A=[J](3,1)) or (A=[J](2,3) and A=[J](3,3)) or (B=[J](1,1) and A=[J](1,2)) or (B=[J](2,2) and B=[J](3,1)) or (B=[J](2,3) and B=[J](3,3
:3->R
:If [J](1,1)=0 and ((A=[J](1,2) and A=[J](1,3)) or (A=[J](2,1) and A=[J](3,1)) or (A=[J](2,2) and A=[J](3,3)) or (B=[J](1,2) and B=[J](1,3)) or (B=[J](2,1) and B=[J](3,1)) or (B=[J](2,2) and B=[J](3,3
:1->R
:If [J](1,2)=0 and ((A=[J](1,1) and A=[J](1,3)) or (A=[J](2,2) and A=[J](3,2)) or (B=[J](1,1) and B=[J](1,3)) or (B=[J](2,2) and B=[J](3,2))
:2->R
:If [J](2,1)=0 and ((A=[J](1,1) and A=[J](3,1)) or (A=[J](2,2) and A=[J](2,3)) or (B=[J](1,1) and B=[J](3,1)) or (B=[J](2,2) and B=[J](2,3))
:4->R
:If [J](2,2)=0 and ((A=[J](1,1) and A=[J](3,3)) or (A=[J](2,1) and A=[J](2,3)) or (A=[J](1,3) and A=[J](3,1)) or (A=[J](1,2) and A=[J](3,2)) or (B=[J](1,1) and B=[J](3,3)) or (B=[J](2,1) and B=[J](2,3)) or (B=[J](1,3) and B=[J](3,1)) or (B=[J](1,2) and B=[J](3,2))
:5->R
:If [J](2,3)=0 and ((A=[J](2,2) and A=[J](2,1)) or (A=[J](1,3) and A=[J](3,3)) or (B=[J](2,2) and B=[J](2,1)) or (B=[J](1,3) and B=[J](3,3))
:6->R
:If [J](3,1)=0 and ((A=[J](1,1) and A=[J](2,1)) or (A=[J](3,2) and A=[J](3,3)) or (A=[J](2,2) and A=[J](1,3)) or (B=[J](1,1) and B=[J](2,1)) or (B=[J](3,2) and B=[J](3,3)) or (B=[J](2,2) and B=[J](1,3))
:7->R
:If [J](3,2)=0 and ((A=[J](3,1) and A=[J](3,3)) or (A=[J](1,2) and A=[J](2,2)) or (B=[J](3,1) and B=[J](3,3)) or (B=[J](1,2) and B=[J](2,2))
:8->R
:If [J](3,3)=0 and ((A=[J](1,1) and A=[J](2,2)) or (A=[J](1,3) and A=[J](2,3)) or (A=[J](3,1) and A=[J](3,2)) or (B=[J](1,1) and B=[J](2,2)) or (B=[J](1,3) and B=[J](2,3)) or (B=[J](3,1) and B=[J](3,2)
:9->R
:End
:If R=1:Then
:If [J](1,1):Goto 99
:2->[J](1,1)
:20->X
:58->Y
:End
:If R=2:Then
:If [J](1,2):Goto 99
:2->[J](1,2)
:40->X
:58->Y
:End
:If R=3:Then
:If [J](1,3):Goto 99
:2->[J](1,3)
:60->X
:58->Y
:End
:If R=4:Then
:If [J](2,1):Goto 99
:2->[J](2,1)
:20->X
:38->Y
:End
:If R=5:Then
:If [J](2,2):Goto 99
:2->[J](2,2)
:40->X
:38->Y
:End
:If R=6:Then
:If [J](2,3):Goto 99
:2->[J](2,3)
:60->X
:38->Y
:End
:If R=7:Then
:If [J](3,1):Goto 99
:2->[J](3,1)
:20->X
:18->Y
:End
:If R=8:Then
:If [J](3,2):Goto 99
:2->[J](3,2)
:40->X
:18->Y
:End
:If R=9:Then
:If [J](3,3):Goto 99
:2->[J](3,3)
:60->X
:18->Y
:End
:prgm@MORP
:If (J=[J](1,1) and J=[J](1,2) and J=[J](1,3)) or (J=[J](2,1) and J=[J](2,2) and J=[J](2,3)) or (J=[J](3,1) and J=[J](3,2) and J=[J](3,3)) or (J=[J](1,1) and J=[J](2,1) and J=[J](3,1)) or (J=[J](1,2) and J=[J](2,2) and J=[J](3,2)) or (J=[J](1,1) and J=[J](2,2) and J=[J](3,3)) or (J=[J](3,1) and J=[J](2,2) and J=[J](1,3)) or (J=[J](1,3) and J=[J](2,3) and J=[J](3,3
:Goto V
:1->J
:End
:End
:End
:End
:End
:End
:End
:Disp "EGALITE"
:Pause [
:DelVar KDelVar [J]ClrDraw
:Goto 0
:Lbl V
:DelVar KDelVar [J]
:If J=1
:Disp Str1
:If J=2
:Disp Str2
:Disp "A GAGNE
:Pause 
:ClrDraw
:Goto 0
:Lbl D
:DelVar Str1DelVar Str2DelVar [J]DelVar K
:ClrDraw
:ClrHome
:Output(8,5,"prgm14*785ln(
:Output(1,3,"THANKS  FOR
:Output(2,5,"PLAYING
:Output(7,9,"CYTROPUS


Programme @MORP
338 octets

Code:
:If K=999
:Then
:   Line(X+1,Y,X+14,Y-13
:   Line(X,Y,X+14,Y-14
:   Line(X,Y-1,X+13,Y-14
:   Line(X+14,Y,X,Y-14
:   Line(X+13,Y,X,Y-13
:   Line(X+14,Y-1,X+1,Y-14
:End
:If K=888
:Then
:   Line(X+7,Y,X,Y-7
:   Line(X+7,Y,X+14,Y-7
:   Line(X+14,Y-7,X+7,Y-14
:   Line(X+7,Y-14,X,Y-7
:   Line(X+1,Y-7,X+7,Y-1
:   Line(X+2,Y-7,X+7,Y-2
:   Line(X+7,Y-1,X+13,Y-7
:   Line(X+7,Y-2,X+12,Y-7
:   Line(X+13,Y-7,X+7,Y-13
:   Line(X+12,Y-7,X+7,Y-12
:   Line(X+7,Y-13,X+1,Y-7
:   Line(X+7,Y-12,X+2,Y-7
:End

voilà, avec un screenshot si possible!
avatar
Cytropus
Intéressé
Intéressé

Messages : 31
Points Concours : 15
Productivité : 2
Date d'inscription : 11/06/2013
Localisation : Paris
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm MORPION

Message par Wistaro le Lun 17 Juin 2013 - 15:54

Voici mon morpion
http://tiplanet.org/forum/archives_voir.php?id=18010


Le quel est le meilleur?

__________________________________________________________________________
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 : 910
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: prgm MORPION

Message par blg_flg le Lun 17 Juin 2013 - 16:33

Pensez aux screenshots et aux liens qui évitent de tout recopier ou corriger avant de mettre dans un éditeur, c'est important ! Wink

__________________________________________________________________________




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: prgm MORPION

Message par persalteas le Lun 17 Juin 2013 - 17:02

Vous avez deux systèmes d'IA différentes... Celui de Cytropus pique les yeux, mais est plus léger... et aussi moins beau.

Sur 82 Stats par contre 5000 octets le Morpion, c'est vraiment trop lourd.

J'en ai fait un en 3D et il faisait 3000 à tout casser (mais l'IA était primitive, je l'avoue, elle gagnait, empêchait de gagner, et si aucun de ces deux cas ne se présentait, elle jouait aléatoire.) :P

__________________________________________________________________________
Bienvenue sur le nouveau Tout-82, Invité ! Viens discuter sur le chat... What a Face
Depuis que je me suis tatoué une calculatrice sur le bras, vous pouvez compter sur moi ! :P (Best joke ever x) )
avatar
persalteas
----------------------
----------------------

Messages : 482
Points Concours : 152
Productivité : 39
Date d'inscription : 06/12/2012
Localisation : Savoie, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://tout82.forumactif.org

Revenir en haut Aller en bas

Re: prgm MORPION

Message par Cytropus le Lun 17 Juin 2013 - 17:26

persalteas a écrit:Celui de Cytropus pique les yeux

heu.... je suis un peu d'accord avec toi mais après essai je me suis rendu compte que c'était le plus rapide (la vitesse du prgm).

persalteas a écrit:(mais l'IA était primitive, je l'avoue, elle gagnait, empêchait de gagner, et si aucun de ces deux cas ne se présentait, elle jouait aléatoire.)

pareil, les grands esprits se rencontre ! santé
avatar
Cytropus
Intéressé
Intéressé

Messages : 31
Points Concours : 15
Productivité : 2
Date d'inscription : 11/06/2013
Localisation : Paris
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm MORPION

Message par Wistaro le Mer 19 Juin 2013 - 14:02

Le mien je l'avais fait quand j'avais ma calculatrice depuis pas longtemps (au début de cette années).
J'avais donc pas beaucoup de programme et je m'en fichais pas mal de la taille du programme.

En y regardant bien, je pense que on peut réduire le programme à 3000/4000 octet.
Et en plus, l'IA n'est pas totalement terminée...
Mais le programme est tellement lourd comme sa que je préfère pas en rajouter !

Je vais peut être le refaire, avec seulement un mode solo mais une IA  extrêmement intelligente, et un design moins complexe...
Fichiers joints
image.gif Screenshoot du jeu(34 Ko) Téléchargé 210 fois


Dernière édition par Wistaro le Mer 19 Juin 2013 - 14:04, édité 1 fois (Raison : Raison de quoi?)

__________________________________________________________________________
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 : 910
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: prgm MORPION

Message par persalteas le Mer 19 Juin 2013 - 19:56

Très bonne idée Smile

__________________________________________________________________________
Bienvenue sur le nouveau Tout-82, Invité ! Viens discuter sur le chat... What a Face
Depuis que je me suis tatoué une calculatrice sur le bras, vous pouvez compter sur moi ! :P (Best joke ever x) )
avatar
persalteas
----------------------
----------------------

Messages : 482
Points Concours : 152
Productivité : 39
Date d'inscription : 06/12/2012
Localisation : Savoie, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://tout82.forumactif.org

Revenir en haut Aller en bas

Re: prgm MORPION

Message par Wistaro le Jeu 20 Juin 2013 - 9:06

What a Face
Dès que j'ai finit mon doodle jump.

PS: Dans mon morpion actuel, il y a juste les techniques de "défense" de l'IA...

__________________________________________________________________________
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 : 910
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: prgm MORPION

Message par rpgcreat le Mer 25 Sep 2013 - 12:09

Alors, t'en est ou? es ce que t'as fini ton prog? ou t'as abandonné?

rpgcreat
Invité


Revenir en haut Aller en bas

Re: prgm MORPION

Message par m@thieu41 le Mer 25 Sep 2013 - 16:04

?
Le prgm est fini non?
Il y a le code complet...

__________________________________________________________________________
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: prgm MORPION

Message par rpgcreator le Sam 28 Sep 2013 - 9:08

je parlais de wistaro, maintenant qu'il a fini son doodle jump (qui est super, par ailleurs, bravo a lui). parce que j'en ai un qui est sans IA, mais qui possede les mechanismes de securité (empecher de remetre deux fois la croix) et les detections de gagné, perdu ou match nul. Je souhaitais alors m'en inspirer

__________________________________________________________________________
troll!!!
je prefere la ti-82stats a la fumette Razz

ET VOUS ?

Je travaille en ce moment sur une adaptation de pokémon donjon mystère en ti-basic sur 82stats. J'ai fini la première version du jeu que je posterais prochainement !!!!!!!!!!
En attendant, viens voir mes RPG supra légers en ti-basic pour ti-82stats:

http://www.tout82.org/t87-rpg82-iii-world-war-z
http://www.tout82.org/t75-skyrim-ii-modern-warfare
http://www.tout82.org/t78-rpg82-deluxe

avatar
rpgcreator
Connaisseur
Connaisseur

Messages : 252
Points Concours : 27
Productivité : 6
Date d'inscription : 16/09/2013
Localisation : Vernouillet 28
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: prgm MORPION

Message par pito2901 le Jeu 10 Oct 2013 - 21:01

Je propose celui-ci, je ne sais plus de qui il est...
Juste le mode multijoueur, et seulement 1340 octets.

Code:

Code:
:AxesOff
0→S
0→R
1→P
Lbl Z
0→Y
ClrDraw
Full
0→Xmin
50→Xmax
0→Ymin
30→Ymax
Line(0,10,30,10
Line(0,20,30,20
Line(10,2,10,29
Line(20,2,20,29
Vertical 35
Line(35,0,50,0
Line(35,30,50,30

1→C:1→D
2→A:2→B
0→T
If int(P/2:1→T
{3,3}→dim([A]
For(K,1,3
For(G,1,3
0->[A](K,G)
End
End
Text(10,85,"J.1"
Text(52,85,"J.2"
Repeat 0
getKey→K
If K≥24 and K=26 or K≤34:Then
A→C
B→D
End

If K=24:A-1→A
If K=25:B+1→B
If K=26:A+1→A
If K=34:B-1→B
If A=0:3→A
If A=4:1→A
If B=0:3→B
If B=4:1→B
Line(10C-1,10D-1,10C-1,10D-9,0
Line(10C-9,10D-1,10C-1,10D-1,0
Line(10C-9,10D-9,10C-1,10D-9,0
Line(10C-9,10D-9,10C-9,10D-1,0
Line(10A-1,10B-1,10A-1,10B-9
Line(10A-9,10B-1,10A-1,10B-1
Line(10A-9,10B-9,10A-1,10B-9
Line(10A-9,10B-9,10A-9,10B-1
Text(28,69,"PARTIE :"
Text(34,75,P
Text(10,70,S
Text(52,70,R
Line(44,22,50,22,T
Line(44,1.5,50,1.5,not(T
If K=45:Goto Q
If K=105 and [A](A,B):0→K
If K=105 and T=1:Then
1→[A](A,B)
Line(10A-8,10B-2,10A-2,10B-8
Line(10A-8,10B-8,10A-2,10B-2
End
If K=105 and T=0:Then
Circle(10A-5,10B-5,3
2→[A](A,B)
End

If K=105:not(T→T
[A](1,1)→J
[A](1,2)→K
[A](1,3)→L
[A](2,1)→M
[A](2,2)→E
[A](2,3)→F
[A](3,1)→G
[A](3,2)→H
[A](3,3)→I
If JKL=1 or MEF=1 or GHI=1 or JMG=1 or KEH=1 or LFI=1 or JEI=1 or LEG=1:Then
Line(0,12,50,12
For(K,12.5,18.5,0.5
Line(0,K,50,K,0
End

Line(0,19,50,19
Text(28,20,"JOUEUR 1 GAGNE!
P+1→P
S+1→S
1→Y
Pause
End
If JKL=2³ or MEF=2³ or GHI=2³ or JMG=2³ or KEH=2³ or LFI=2³ or JEI=2³ or LEG=2³:Then
Line(0,12,50,12
For(K,12.5,18.5,0.5
Line(0,K,50,K,0
End
Line(0,19,50,19
Text(28,20,"JOUEUR 2 GAGNE!
P+1→P
R+1→R
1→Y
Pause
End

If J+K+L+M+E+F+G+H+I=13 and not(Y:Then
Line(0,12,50,12
For(K,12.5,18.5,0.5
Line(0,K,50,K,0
End
Line(0,19,50,19
Text(28,32,"RATE!!!
P+1→P
1→Y
Pause
End
If Y:Goto Z
End
Lbl Q
ClrDraw
ClrHome
ZStandard
AxesOn

Un lien.82p

Et un screenshot.gif

__________________________________________________________________________
Programmes de Jeux TI 82 Stats.fr à recopier
"Parfois les personnes capables de rien sont celles capables de faire ce que personne n'aurait imaginé" A.Turing
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: prgm MORPION

Message par Wistaro le Ven 11 Oct 2013 - 7:44

rpgcreator a écrit:je parlais de wistaro, maintenant qu'il a fini son doodle jump (qui est super, par ailleurs, bravo a lui). parce que j'en ai un qui est sans IA, mais qui possede les mechanismes de securité (empecher de remetre deux fois la croix) et les detections de gagné, perdu ou match nul. Je souhaitais alors m'en inspirer
Merci Smile
Pas de sou cis désolé du retard :p
Pour mon Morpion Deluxe je suis en train de travailler sur l'IA

__________________________________________________________________________
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 : 910
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: prgm MORPION

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 ne pouvez pas répondre aux sujets dans ce forum