N=5 And Dá1001ãReturn
D=1001ã2ÞMat F[L,C]
ClrGraph
For 1ÞT To 20
Getkey=71ã55ÞA
Next
ViewWindow 1,127,1,1,63,1
Cls
1ÞJ
0ÞK
Mat G[4,1]ÞM
Mat G[4,2]ÞÎ
Mat G[4,4]ÞE
If M>Î:Then ÎÞM
ÎÞMat G[4,1]
IfEnd
100ÞS
1001=D And N=5ã1000ÞS
Horizontal 10
Text 57,1,"COUPS:[MENU]"
Getkey=75ãGoto F
For 52ÞT To 53
F-Line T,10,T,1
Next
Mat G[4,3]ÞV
Text 57,55,"MP:   /"
Text 57,68,M
Text 57,84,Î
F-Line 96,10,96,1
Text 57,100,"HP:"
Text 57,111,V
0ÞP
0ÞX
1ÞA
1ÞB
Prog "MONSTRE"
80ÞA
12ÞB
0ÞP
Prog "CLAD"
1ÞP
Prog "CLAD"
Goto 1
Lbl 3
Cls
RclPict 1
S™WÞS
Text 57,68,"   "
Text 57,68,M
Text 57,111,"     "
Text 57,111,V
StoPict 1
1ÞP
Prog "CLAD"
Text 40,40,™W
For 1ÞT To 600
Next
Text 40,40,"        "
Goto 1
Lbl 4
1=KãGoto A
1ÞJ
2ÞI
O=2 Or O=4ã3ÞI
Int (Ran#©I‰10)ÞC
O=12ã55ÞC
Prog "COUPS"
C=10ãV™Int (Ran#©10‰10)©Mat G[4,4]ÞV
Cls
RclPict 1
Text 57,111,"    "
Text 57,111,V
Text 57,68,"   "
Text 57,68,M
StoPict 1
1ÞP
Prog "CLAD"
11=CãGoto 3
Lbl 1
GetkeyÞZ
S<0ãGoto F
V<0ãGoto F
J=2ãGoto 4
Z=71ãM‰2ÞM
Z=61ãV‰10ÞV
Z=51ãE‰1ÞE
Z=79ã777ÞV
V=777ãGoto 2
Z=72ãText 20,60,S
48=ZãGoto 2
Goto 1
Lbl 2
If V=777:Then 1ÞK
Goto A
IfEnd
For 16ÞG To 46 Step 5
Text G,10,"               "
Next
F-Line 10,53,80,53
F-Line 80,53,80,13
F-Line 80,13,10,13
F-Line 10,13,10,53
Text 13,12,"ATTAQUER:[A]"
Text 21,12,"MAGIE:[M]"
Text 29,12,"INVOCATION:[I]"
Text 37,12,"OBJET:[O]"
0ÞW
Lbl P
GetkeyÞZ
Zá0ãGoto Q
Goto P
Lbl Q
Z=76ãGoto A
Z=74ãGoto B
Z=55ãGoto C
Z=54ãGoto D
Goto 2
Lbl D
For 13ÞG To 43 Step 5
Text G,11,"                 "
Next
Text 14,12,"POTION:    Þ[P]"
Text 14,41,Mat G[4,6]
Text 24,12,"ETHER:   Þ[E]"
Text 24,36,Mat G[4,8]
Text 34,12,"SUPERPOTION:  Þ[S]"
Text 34,61,Mat G[4,7]
Text 44,12,"X™ETHER:    Þ[X]"
Text 44,45,Mat G[4,9]
For 1ÞT To 9
1ÞT
GetkeyÞZ
Zá0ã9ÞT
Next
If Z=43 And Mat G[4,7]>0:Then Mat G[4,7]™1ÞMat G[4,7]
V‰100©Mat G[4,4]ÞV
0ÞW
2ÞJ
Goto 3
IfEnd
If Z=36 And Mat G[4,8]>0:Then Mat G[4,8]™1ÞMat G[4,8]
M‰Int (Mat G[4,2]¹2)ÞM
M>Mat G[4,2]ãMat G[4,2]ÞM
0ÞW
2ÞJ
Goto 3
IfEnd
If Z=42 And Mat G[4,9]>0:Then Mat G[4,9]™1ÞMat G[4,9]
Mat G[4,2]ÞM
0ÞW
2ÞJ
Goto 3
IfEnd
If Z=73 And Mat G[4,6]>0:Then Mat G[4,6]™1ÞMat G[4,6]
V‰50ÞV
2ÞJ
0ÞW
Goto 3
IfEnd
Goto 2
Lbl B
For 13ÞG To 43 Step 5
Text G,11,"                "
Next
Text 13,12,"FEUÞ5 MP     [F]"
Text 20,12,"ECLAIRÞ6 MP [E]"
Text 27,12,"VIEÞ6 MP     [V]"
Text 34,12,"ULTIMAÞ20 MP [U]"
For 1ÞT To 2
1ÞT
GetkeyÞZ
Zá0ã2ÞT
Next
If Z=62 And M>6:Then 5ÞC
VIE
80ÞS
14ÞH
Prog "COUPS"
2ÞJ
M™6ÞM
E©100‰VÞV
0ÞW
Goto 3
IfEnd
If Z=26 And M>5:Then 4ÞC
FEU
S™20ÞS
Prog "COUPS"
2ÞJ
M™5ÞM
E©30ÞW
Goto 3
IfEnd
If Z=72 And M>19:Then 3ÞC
ULTIMA
Prog "COUPS"
For 1ÞT To 300
Next
Cls
RclPict 1
1ÞP
Prog "CLAD"
2ÞJ
M™20ÞM
E©90ÞW
Goto 3
IfEnd
If Z=36 And M>6:Then 2ÞC
ECLAIR
Cls
RclPict 1
3ÞP
Prog "CLAD"
™10ÞA
14ÞB
Prog "COUPS"
For 1ÞT To 300
Next
Cls
RclPict 1
1ÞP
80ÞA
12ÞB
2ÞJ
M™6ÞM
30©EÞW
2ÞJ
Goto 3
IfEnd
Goto 2
Lbl A
Cls
RclPict 1
20ÞA
0ÞP
For 17ÞT To 47 Step 5
Text T,80,"                    "
Next
Prog "CLAD"
1ÞP
Prog "CLAD"
Cls
RclPict 1
4ÞP
Prog "CLAD"
For 1ÞT To 200
Next
Cls
RclPict 1
For 25ÞT To 47 Step 2
Text T,35,"              "
Next
80ÞA
0ÞP
Prog "CLAD"
2ÞJ
15©EÞW
Goto 3
IfEnd
Goto 2
Lbl C
Text 13,12,"THOR Þ25MP [T]"
20ÞG
For 1ÞT To 5
Text G,12,"               "
G‰6ÞG
Next
For 1ÞT To 2
1ÞT
GetkeyÞZ
Zá0ã2ÞT
Next
If Z=33 And M>24:Then Cls
THOR
RclPict 1
For 17ÞT To 47 Step 5
Text T,90,"                 "
Next
For 10ÞT To 40
F-Line 61,T,65,T
Next
Circle 63,50,10
For 1ÞT To 75
Int (Ran#©50‰10)ÞG
Int (Ran#©126‰1)ÞH
F-Line 63,50,H,G
Next
For 1ÞT To 500
Next
M™25ÞM
E©150ÞW
2ÞJ
Goto 3
IfEnd
Goto 2
Lbl F
Graph Yâ10
Cls
Và0ãGoto G
O=4ãGoto X
Mat G[4,5]™1ÞD
DÞMat G[4,5]
If D=0:Then 5ÞMat G[4,5]
Mat G[4,4]‰1ÞMat G[4,4]
IfEnd
Text 10,1,"NIVEAU:"
Text 10,31,Mat G[4,4]
Text 20,1,"PROCHAIN NIVEAU DANS    COMBAT"
Text 20,91,Mat G[4,5]
Text 30,1,"MP MAX ‰"
O=1ã9ÞP
O=2ã5ÞP
Text 30,37,P
Mat G[4,2]‰PÞMat G[4,2]
Text 40,1,"OBJET RECU:"
Int (Ran#©7‰1)ÞR
R=5ã1ÞR
If R=1:Then Text 40,45,"POTION"
Mat G[4,6]‰1ÞMat G[4,6]
IfEnd
If R=2:Then Text 40,45,"SUPER POTION"
Mat G[4,7]‰1ÞMat G[4,7]
IfEnd
If R=3:Then Text 40,45,"ETHER"
Mat G[4,8]‰1ÞMat G[4,8]
IfEnd
If R=4:Then Text 40,45,"X™ETHER"
Mat G[4,9]‰1ÞMat G[4,9]
IfEnd
R>4ãText 40,45,"AUCUN"
Text 57,53,"[EXE]"
For 1ÞT To 2
1ÞT
Getkeyã2ÞT
Next
V=777ã1ÞV
VÞMat G[4,3]
MÞMat G[4,1]
25ÞV
Return
Lbl G
Text 30,46,"GAME OVER"
Stop
Stop
Lbl X
Cls
"FIN«"
Stop