coco-rico38
13 janv. 2010 à 14:13
bonjour je vien de cree un morpion pour ti 82 stats
:ZStandard
:AxesOff
:ClrDraw
:Horizontal 3.33
:horizontal -3.33
:vertical 3.33
:vertical -3.33
:Pause
:1->J
:1->X
:Repeat X=0
:ClrHome
:Disp "A1=7, A2=8, A3=9","B1=4, B2=5, B3=6","C1=1, C2=2, C3=3","0:ABANDON"
:Disp "","JOUEUR :",J
:Prompt X
:if X=7 and J=1
:then
:Line(-10,3.33,-3.33,10)
:Line(-10,10,-3.33,3.33)
:End
:if X=8 and J=1
:then
:Line(-3.33,10,3.33,3.33)
:Line(-3.33,3.33,3.33,10)
:End
:if X=9 and J=1
:then
:Line(3.33,10,10,3.33)
:Line(3.33,3.33,10,10)
:End
:if X=4 and J=1
:then
:Line(-10,-3.33,-3.33,3.33)
:Line(-10,3.33,-3.33,-3.33)
:End
:if X=5 and J=1
:then
:Line(-3.33,-3.33,3.33,3.33)
:Line(-3.33,3.33,3.33,-3.33)
:End
:if X=6 and J=1
:then
:Line(3.33,-3.33,10,3.33)
:Line(3.33,3.33,10,-3.33)
:End
:if X=1 and J=1
:then
:Line(-10,-10,-3.33,-3.33)
:Line(-10,-3.33,-3.33,-10)
:End
:if X=2 and J=1
:then
:Line(-3.33,-10,3.33,-3.33)
:Line(-3.33,-3.33,3.33,-10)
:End
:if X=3 and J=1
:then
:Line(3.33,-10,10,-3.33)
:Line(3.33,-3.33,10,-10)
:End
:if X=7 and J=2
Circle(-6.675,6.675,2)
:if X=8 and J=2
Circle(0,6.675,2)
:if X=9 and J=2
Circle(6.675,6.675,2)
:if X=4 and J=2
circle(-6.675,0,2)
:if X=5 and J=2
Circle(0,0,2)
:if X=6 and J=2
Circle(6.675,0,2)
:if X=1 and J=2
Circle(-6.675,-6.675,2)
:if X=2 and J=2
Circle(0,-6.675,2)
:if X=3 and J=2
Circle(6.675,-6.675,2)
:if X!=0
:Pause
:if J=2
:then
:1->J
:Else
:if J=1
:2->J
:End
:End
:ClrDraw
:clrHome
:AxesOn
:Disp
donner moi en des nouvelle c'est mon premier programe
Merci