EffÉcran
ÉditeurConfig RPGST
17→dim(⌊RPGST
0→⌊RPGST(17)
0→⌊RPGST(15)
0→⌊RPGST(7)
15→⌊RPGST(8)
0→X
5→⌊RPGST(9)
50→⌊RPGST(5)
0→⌊RPGST(10)
For(A,1,4
0→⌊RPGST(A)
End
Lbl ST
⌊RPGST(5)→C
Output(1,1,"POINT :"
Output(1,8," "
Output(1,8,⌊RPGST(5)
Output(2,1,"1)PV :":Output(2,7,⌊RPGST(1)
Output(3,1,"2)DEF :":Output(3,8,⌊RPGST(2)
Output(4,1,"3)ATACK :":Output(4,10,⌊RPGST(4)
Repeat ⌊RPGST(5)=0
⌊RPGST(1)→⌊RPGST(16)
getKey→K
If K=92
Then
⌊RPGST(5)-1→⌊RPGST(5)
⌊RPGST(1)+1→⌊RPGST(1)
Goto ST
End
If K=84
Then
Lbl XY
If ⌊RPGST(5)=C
C→⌊RPGST(5)
EffÉcran
Disp "",⌊RPGST(5)
Input "NOMBRE DE PV",D
If D>⌊RPGST(5)
Then
⌊RPGST(1)→D
Goto XY
Else
⌊RPGST(5)-D→⌊RPGST(5)
End
Disp "",⌊RPGST(5)
Input "POINT DATACK :",E
If ⌊RPGST(5)<E
Then
⌊RPGST(4)→E
Goto XY
Else
⌊RPGST(5)-E→⌊RPGST(5)
End
Disp "",⌊RPGST(5)
Input "POINT DE DEF :",I
If ⌊RPGST(5)<I
Then
⌊RPGST(2)→I
Goto XY
Else
⌊RPGST(5)-I→⌊RPGST(5)
End
D→⌊RPGST(1)
E→⌊RPGST(4)
D→⌊RPGST(2)
EffÉcran
Goto UP
End
If K=93
Then
⌊RPGST(5)-1→⌊RPGST(5)
⌊RPGST(2)+1→⌊RPGST(2)
Goto ST
End
If K=94
Then
⌊RPGST(5)-1→⌊RPGST(5)
⌊RPGST(4)+1→⌊RPGST(4)
Goto ST
End
End
EffÉcran
Lbl UP
While 1
Input "ACTION :",Chn1
Chn1
If Chn1="8"
Chn2→Chn1
If Chn1="HELP"
Then
Chn1→Chn2
Disp "AVANCER"
Disp "ATACK"
Disp "FUITE"
Disp "XP"
Disp "DRINK PO"
Disp "GOLD"
End
If Chn1="DRINK PO"
Then
Chn1→Chn2
If ⌊RPGST(17)≥1
Then
⌊RPGST(16)+5→⌊RPGST(16)
Disp "VOUS GAGNEZ 5 PV"
End
If ⌊RPGST(17)≤0
Then
Disp "VOUS N AVEZ PLUS"
Disp "DE POTION"
End
End
If Chn1="GOLD"
Then
Chn1→Chn2
Disp ⌊RPGST(10)
End
If Chn1="XP"
Then
Chn1→Chn2
Disp ⌊RPGST(7)
Disp ⌊RPGST(8)
End
If Chn1="STAT"
Then
Chn1→Chn2
Disp "PV :",⌊RPGST(1)
Disp "DEGAT :",⌊RPGST(2)
Disp "DEFF :",⌊RPGST(4)
Disp "POTION :",⌊RPGST(17)
End
If Chn1="AVANCER"
Then
Chn1→Chn2
nbrAléatEnt(1,3)→⌊RPGST(6)
If ⌊RPGST(6)=1
Then
Disp "VOUS TROUVEZ UN"
Disp "MARCHANS"
Pause
EffÉcran
While 1
Output(1,3,"OR :"
Output(1,7," "
Output(1,7,⌊RPGST(10)
Output(2,1,"1)POTION C10"
Output(4,1,"2)ATT + C20"
Output(6,1,"3)DEFF + C20"
Output(8,1,"ANL)QUITTER"
getKey→K
If K=92 et ⌊RPGST(10)≥10
Then
⌊RPGST(17)+1→⌊RPGST(17)
⌊RPGST(10)-10→⌊RPGST(10)
End
If K=93 et ⌊RPGST(10)≥20
Then
⌊RPGST(10)-20→⌊RPGST(10)
⌊RPGST(4)+15→⌊RPGST(4)
End
If K=94 et ⌊RPGST(10)≥20
Then
⌊RPGST(10)-20→⌊RPGST(10)
⌊RPGST(2)+15→⌊RPGST(2)
End
End
End
If ⌊RPGST(6)=2
Then
1→⌊RPGST(12)
Disp "VOUS CROISER UN"
Disp "MONSTRE"
Repeat Y=1
nbrAléatEnt(1,9)→J
nbrAléatEnt(1,⌊RPGST(4)+10)→M
Input "COMBAT :",Chn1
nbrAléatEnt(1,2)→⌊RPGST(13)
If Chn1="FUIR"
Then
0→M
Disp "VOUS FUIEE"
Goto UP
End
If Chn1="ATACK"
Then
M-⌊RPGST(4)→M
Disp "VOUS ENLEVEZ ",⌊RPGST(4)
Disp "AU MONTRE"
Disp "IL LUI RESTE",M
End
If Chn1="DEF"
1→D
If ⌊RPGST(13)=1 et M>0
Then
If D=1
Then
J-⌊RPGST(2)→J
⌊RPGST(16)-J→⌊RPGST(16)
Disp "VOUS PERDEZ :",J
Disp "IL VOUS RESTE",⌊RPGST(16)
If J≤0
1→J
0→D
Pause
End
If D≠1
Then
⌊RPGST(16)-J→⌊RPGST(16)
Disp "VOUS PERDEZ :",J
Disp "IL VOUS RESTE :",⌊RPGST(16)
Pause
End
End
If M≤0
Then
nbrAléatEnt(5,30)→V
⌊RPGST(7)+V→⌊RPGST(7)
Disp "VOUS GAGNEZ",V
Disp "XP"
1→Y
Pause
If ⌊RPGST(7)≥⌊RPGST(8)
Then
X+15→X
N+5→N
⌊RPGST(8)+X→⌊RPGST(8)
⌊RPGST(5)+N→⌊RPGST(5)
EffÉcran
Goto ST
End
0→Y
If ⌊RPGST(6)=3
Then
Disp "VOUS TROUVEZ "
nbrAléatEnt(1,2)→⌊RPGST(7)
If ⌊RPGST(7)=2
Then
Disp "UNE POTION"
⌊RPGST(17)+1→⌊RPGST(17)
End
If ⌊RPGST(7)=1
Then
nbrAléatEnt(10,100)→⌊RPGST(11)
Disp "UN TRESOR"
⌊RPGST(10)+⌊RPGST(11)→⌊RPGST(10)
Disp "DE ",⌊RPGST(11)
End
End
End
End
End
End
End
End