j'ai du poster une version de ce prog, mais comme je retrouve pas le topic, j'en fais un nouveau:
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,"
