Ce programme est un simple jeu de Morpion se jouant a deux.
Prevu pour Fx-8930 GT et +, il peut être converti en remplacant:
  ViewWindow par Range
  0->A~Z par Mcl
  F-Line X,Y,X2,Y2 par Plot X,Y:Plot X2,Y2:Line
  Text x,y,t par rien du tout

=> correspond a la flèche d'implication
>= supérieur ou égal
<= inférieur ou égal

// Pour quitter le jeu, cliquez au-dessus ou a droite de la grille
// Nom: Fx-Check
// Auteur: Gfx, alias Romain GUY
// Teste sur: Fx-8930 GT
// Have fun with it !

AxesOff:CoordOff:Cls
0->A~Z:ClrText
ViewWindow 0,5,0,0,5,0
F-Line 0,0,3,0
F-Line 3,0,3,3
F-Line 3,3,0,3
F-Line 0,3,0,0
F-Line 0,1,3,1
F-Line 0,2,3,2
F-Line 1,0,1,3
F-Line 2,0,2,3
Text 2,37,"## FX-CHECK ##"
Text 8,58,"BY GFX"
Text 27,80,"RELEASE 1.0"
Text 34,80,"CLICK: EXIT"
1->A
1.5->V~W
Lbl G
C=1=>D=1=>E=1=>Goto W
F=1=>G=1=>H=1=>Goto W
I=1=>J=1=>K=1=>Goto W
C=1=>F=1=>I=1=>Goto W
D=1=>G=1=>J=1=>Goto W
E=1=>H=1=>K=1=>Goto W
C=1=>G=1=>K=1=>Goto W
I=1=>G=1=>E=1=>Goto W
L=1=>M=1=>N=1=>Goto Y
O=1=>P=1=>Q=1=>Goto Y
R=1=>S=1=>T=1=>Goto Y
L=1=>O=1=>R=1=>Goto Y
M=1=>P=1=>S=1=>Goto Y
N=1=>Q=1=>T=1=>Goto Y
L=1=>P=1=>T=1=>Goto Y
N=1=>P=1=>R=1=>Goto Y
Z=9=>Goto D
A=1=>Text 55,80,"PLAYER 1"
A=2=>Text 55,80,"PLAYER 2"
V->X:W->Y
Plot X,Y
X->V:Y->W
If X>3.1 Or Y>3.1:Then Goto X:IfEnd
If X>=0 And X<=1 And Y>=0 And Y<=1:Then Goto 1:IfEnd
If X>1 And X<=2 And Y>=0 And Y<=1:Then Goto 2:IfEnd
If X>2 And X<=3 And Y>=0 And Y<=1:Then Goto 3:IfEnd
If X>=0 And X<=1 And Y>1 And Y<=2:Then Goto 4:IfEnd
If X>1 And X<=2 And Y>1 And Y<=2:Then Goto 5:IfEnd
If X>2 And X<=3 And Y>1 And Y<=2:Then Goto 6:IfEnd
If X>=0 And X<=1 And Y>2 And Y<=3:Then Goto 7:IfEnd
If X>1 And X<=2 And Y>2 And Y<=3:Then Goto 8:IfEnd
If X>2 And X<=3 And Y>2 And Y<=3:Then Goto 9:IfEnd
Goto G
Lbl 1
C=1 Or L=1=>Goto G
Z+1->Z
If A=1:Then Circle .5,.5,.5:1->C:2->A:Goto G:IfEnd
If A=2:Then F-Line 0,0,1,1:F-Line 0,1,1,0:1->L:1->A:IfEnd
Goto G
Lbl 2
D=1 Or M=1=>Goto G
Z+1->Z
If A=1:Then Circle 1.5,.5,.5:1->D:2->A:Goto G:IfEnd
If A=2:Then F-Line 1,0,2,1:F-Line 1,1,2,0:1->M:1->A:IfEnd
Goto G
Lbl 3
E=1 Or N=1=>Goto G
Z+1->Z
If A=1:Then Circle 2.5,.5,.5:1->E:2->A:Goto G:IfEnd
If A=2:Then F-Line 2,0,3,1:F-Line 2,1,3,0:1->N:1->A:IfEnd
Goto G
Lbl 4
F=1 Or O=1=>Goto G
Z+1->Z
If A=1:Then Circle .5,1.5,.5:1->F:2->A:Goto G:IfEnd
If A=2:Then F-Line 0,0,1,2:F-Line 0,2,1,1:1->O:1->A:IfEnd
Goto G
Lbl 5
G=1 Or P=1=>Goto G
Z+1->Z
If A=1:Then Circle 1.5,1.5,.5:1->G:2->A:Goto G:IfEnd
If A=2:Then F-Line 1,1,2,2:F-Line 1,2,2,1:1->P:1->A:IfEnd
Goto G
Lbl 6
H=1 Or Q=1=>Goto G
Z+1->Z
If A=1:Then Circle 2.5,1.5,.5:1->H:2->A:Goto G:IfEnd
If A=2:Then F-Line 2,1,3,2:F-Line 2,2,3,1:1->Q:1->A:IfEnd
Goto G
Lbl 7
I=1 Or R=1=>Goto G
Z+1->Z
If A=1:Then Circle .5,2.5,.5:1->I:2->A:Goto G:IfEnd
If A=2:Then F-Line 0,2,1,3:F-Line 0,3,1,2:1->R:1->A:IfEnd
Goto G
Lbl 8
J=1 Or S=1=>Goto G
Z+1->Z
If A=1:Then Circle 1.5,2.5,.5:1->J:2->A:Goto G:IfEnd
If A=2:Then F-Line 1,2,2,3:F-Line 1,3,2,2:1->S:1->A:IfEnd
Goto G
Lbl 9
K=1 Or T=1=>Goto G
Z+1->Z
If A=1:Then Circle 2.5,2.5,.5:1->K:2->A:Goto G:IfEnd
If A=2:Then F-Line 2,2,3,3:F-Line 2,3,3,2:1->T:1->A:IfEnd
Goto G
Lbl W
Cls
Text 1,1,"PLAYER 1 WIN !!!"
Goto X
Lbl Y
Cls
Text 1,1,"PLAYER 2 WIN !!!"
Goto X
Lbl D
Cls
Text 1,1,"NONE OF YOU HAS WON !"
Text 8,1,"BETTER LUCK NEXT TIME..."
Lbl X
Cls
Text 1,1,"TNX U 4 HAVING PLAYED MY GAME"
Text 14,1,"(C) 1998 GFX"
Text 21,1,"HTTP://WWW.CHEZ.COM/POWERTEAM"
Stop

<< Sommaire >>