[83] Fléchettes

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

[83] Fléchettes

Message par persalteas le Lun 6 Sep - 18:55

voilà un vieux programme que je retrouve et qui vous intéressera peut-être:

un jeu de fléchetes.

Spoiler:

Code:

:Full
:ClrHome
:" Σx----->"→Str1
:Output(3,1,"****************"
:Output(4,1,"***FLECHETTES***"
:Output(5,1,"****************"
:For(Y,1,8)
:If Y=3:6→Y
:For(K,1,7
:Output(Y,K,Str1
:69!
:End
:End
:Pause
:‾4→A:‾6.5→B
:0→S:1→T
:1→C:1.1→D
:ClrDraw
:‾5→Ymin
:5→Ymax
:7.5→Xmax
:‾7.5→Xmin
:For(K,1,5
:Circle(0,0,K
:End
:Line(6,3,7.5,3
:Line(6,1,7.5,1
:Line(6,1,6,5
:
:Lbl 1
:Text(3,87,S
:Text(15,87,T
:
:Repeat getKey=105
:Line(‾7.5,A-C,‾6,A-C,0
:Line(B-D,‾5,B-D,‾4,0
:Line(‾7.5,A,‾6,A
:Line(B,‾5,B,‾4
:If abs(A)≥5:‾C→C
:If abs(B)≥7.5:‾D→D
:A+C→A
:B+D→B
:End
:T+1→T
:
:
:A-C→A
:B-D→B
:Line(‾7.5,A,‾6,A,0
:Line(B,‾5,B,‾4,0
:Pt-On(B,A,3
:iPart(√(A²+B²)→K
:S+(5-K)→S
:A+C→A
:B+D→B
:If T≠16:Goto 1
:Text(3,87,S
:Horizontal ‾1
:For(K,‾.8,1,0.1
:Line(Xmin,K,Xmax,K,0
:End
:Horizontal 1
:Text(28,20,"<--SCORE:  ",S," -->"
:Pause
:ClrDraw
:ClrHome
:DelVar ADelVar BDelVar CDelVar DDelVar SDelVar KDelVar TDelVar XDelVar YDelVar Str1
:Output(1,1,"


Dernière édition par persalteas le Ven 31 Déc - 10:05, édité 1 fois

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [83] Fléchettes

Message par Alexis le Mer 8 Sep - 14:30

C'est celui qui est sur le site ?

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

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