ClrDraw
0üTmin
94üTmax
0üXscl ú62üÁmin
0üÁmax
0üYscl
8üDot
AxesOff
DelVar Y
DelVar Y‚
DelVar Yƒ
DelVar Y„
DelVar Y…
DelVar Y†
DelVar Y‡
DelVar Yˆ
DelVar Y‰
DelVar Y€
Func
0üU
For(U,0,23
Text(U,6,"APRES UN IMMENSE SUCCES
End
94üU
While (Uø20
U-1üU
Text(29,U,"IL EST DE RETOUR
End
Text(35,40,"R
For(U,0,50
End
Text(35,40,"RP
For(U,0,50
End
Text(35,40,"RPG
For(U,0,50
End
Text(35,40,"RPG3
Text(56,0,"2008 MADIAN CORPORATION
For(U,0,400
End
ClrDraw
Menu("RPG3","NOUVEAU JEU",1,"CHARGER PARTIE",2,"QUITTER",3
Lbl 3
AxesOn ú10üTmin
10üTmax
1üXscl ú10üÁmin
10üÁmax
1üYscl
1üDot
Stop
Lbl 1
Text(0,0,"ATTENTION VOUS ALLEZ
Text(6,0,"EFFACER VOS DONNEES
Text(12,0,"ENTRER POUR CONTINUER
Pause
ClrDraw
Input "NOM:",Str5
ClrHome
0üZXmin
DelVar K
DelVar L
DelVar M
DelVar N
"RIEN"üStr2
"RIEN"üStr3
Menu("CLASSE?","NAIN",13,"ELFE",14,"MAGICIEN",15,"GUERRIER",16,"VOLEUR",17
Lbl 13
"NAIN"üStr1
65üA
20üB
65üC
20üD
8üE
10üF
8üG
8üH
5üI
5üJ
1üO
Goto 2
Lbl 14
"ELFE"üStr1
50üA
25üB
50üC
25üD
5üE
10üF
8üG
5üH
8üI
8üJ
1üO
Goto 2
Lbl 15
"MAGICIEN"üStr1
50üA
25üB
50üC
25üD
5üE
10üF
8üG
5üH
5üI
10üJ
1üO
Goto 2
Lbl 16
"GUERRIER"üStr1
65üA
20üB
65üC
20üD
10üE
10üF
8üG
5üH
5üI
5üJ
1üO
Goto 2
Lbl 17
"VOLEUR"üStr1
50üA
20üB
50üC
20üD
5üE
10üF
8üG
5üH
10üI
7üJ
1üO
Goto 2
Lbl 2
If C÷0
Then
AüC
BüD
iPart(N/2)üN
iPart(M/2)üM
End
Menu("RPG3","COMBAT",99,"VILLAGE",11,"VOIR STATS",12,"QUITTER",3
Lbl 99
Menu("COMBAT","GOBELIN",AA,"ORQUE",AB,"KOBBOLD",AC,"OGRE",AD,"TROLL",AE,"DRAGON",AF,"RETOUR",2
Lbl AA
"GOBELIN"üStr6
50üP
7üQ
10üR
8üS
7üT
7üU
7üV
Goto A
Lbl AB
"ORQUE"üStr6
100üP
12üQ
11üR
9üS
12üT
12üU
12üV
Goto A
Lbl AC
"KOBBOLD"üStr6
150üP
17üQ
12üR
10üS
17üT
17üU
17üV
Goto A
Lbl AD
"OGRE"üStr6
150üP
22üQ
13üR
22üS
22üT
22üU
22üV
Goto A
Lbl AE
"TROLL"üStr6
200üP
27üQ
14üR
12üS
27üT
27üU
27üV
Goto A
Lbl AF
"DRAGON"üStr6
250üP
35üQ
15üR
13üS
35üT
35üU
35üV
Goto A
Lbl 11
Menu("VILLAGE","HOTEL",18,"MARCHAND ARME",19,"MARCHAND ARMURES",20,"RETOUR",2
Lbl 20
Menu("ARMURES","PLAQUE",27,"COTTE MATELASSEE",28,"VESTE DE CUIR",29,"COTTE DE MAILLES",30,"CUIRASSE ECAILLE",31,"CUIRASSE MAILLE",32,"RETOUR",11
Lbl 33
Output(1,1,"NOM:
Output(1,5,Str4
Output(2,1,"PRIX:
Output(2,6,Á
Output(3,1,"PROTECTION:
Output(3,12,Z
Pause
ClrHome
Menu("ACHETER","ACHETER",34,"LAISSER",11
Lbl 34
If M<Á
Then
Output(4,1,"PAS ASSEZ D OR
Pause
ClrHome
Goto 11
End
M-ÁüM
Str4üStr3
ZüL
Output(4,2,"ARME ACHETEE
Pause
ClrHome
Goto 2
Lbl 27
"PLAQUES"üStr4
5üÁ
1üZ
Goto 33
Lbl 28
"COTTE MATELASSE"üStr4
10üÁ
2üZ
Goto 33
Lbl 29
"VESTE DE CUIR"üStr4
20üÁ
3üZ
Goto 33
Lbl 30
"COTTE DE MAILLE"üStr4
35üÁ
4üZ
Goto 33
Lbl 31
"CUIRASSE ECAILLE"üStr4
50üÁ
5üZ
Goto 33
Lbl 32
"CUIRASSE MAILLE"üStr4
100üÁ
6üZ
Goto 33
Lbl 19
Menu("ARMES","POIGNARD",21,"DAGUE",22,"GLAIVE",23,"SABRE",24,"EPEE",25,"EPEE BATARDE",26,"RETOUR",11
Lbl 35
Output(1,1,"NOM:
Output(1,5,Str4
Output(2,1,"PRIX:
Output(2,6,Á
Output(3,1,"+ AU DEGATS:1D+
Output(3,16,Z
Pause
ClrHome
Menu("ACHAT","ACHETER",36,"LAISSER",2
Lbl 36
If M<Á
Then
Output(4,2,"PAS ASSEZ D OR
Pause
ClrHome
Goto 2
End
M-ÁüM
Str4üStr2
ZüK
Output(4,3,"ARME ACHETEE"
Pause
ClrHome
Goto 2
Lbl 21
5üÁ
1üZ
"POIGNARD"üStr4
Goto 35
Lbl 22
10üÁ
2üZ
"DAGUE"üStr4
Goto 35
Lbl 23
20üÁ
3üZ
"GLAIVE"üStr4
Goto 35
Lbl 24
35üÁ
4üZ
"SABRE"üStr4
Goto 35
Lbl 25
50üÁ
5üZ
"EPEE"üStr4
Goto 35
Lbl 26
100üÁ
6üZ
"EPEE BATARDE"üStr4
Goto 35
Lbl 18
If M<5
Then
Output(4,1,"PAS ASSEZ D OR
Pause
ClrHome
Goto 2
End
M-5üM
AüC
BüD
Disp "APRES UNE NUIT","DE SOMMEIL","VOUS ETES","REGENERE"
Pause
ClrHome
Goto 2
Lbl 12
ClrHome
Output(1,1,"CLASSE:
Output(1,8,Str1
Output(2,1,"VIE:
Output(2,5,C
Output(2,8,"/
Output(2,9,A
Output(3,1,"MP:
Output(3,4,D
Output(3,7,"/
Output(3,8,B
Output(4,1,"FORCE:
Output(4,7,E
Output(5,1,"ATTAQUE:
Output(5,9,F
Output(6,1,"PARADE:
Output(6,8,G
Output(7,1,"RESISTANCE:
Output(7,12,H
Output(8,1,"VITESSE:
Output(8,9,I
Pause
ClrHome
Output(1,1,"INTELLIGENCE:
Output(1,14,J
Output(2,1,"ARME:
Output(2,6,Str2
Output(3,1,"ARMURE:
Output(3,8,Str3
Output(4,1,"OR:
Output(4,4,M
Output(5,1,"XP:
Output(5,4,N
Output(6,1,"NIVEAU:
Output(6,8,O
Pause
ClrHome
Goto 2
Lbl 3
Stop
Lbl A
ClrDraw
Text(0,0,Str5:"
Text(0,40,C
Text(6,0,Str6
Text(6,40,P
Pause
ClrDraw
Menu("COMBAT","ATTAQUER",6,"COMPETENCE",C,"FUIR",B
Lbl C
If Str1="NAIN
Goto DA
If Str1="ELFE
Goto EA
If Str1="MAGICIEN
Goto FA
If Str1="GUERRIER
Goto GA
If Str1="VOLEUR
Goto HA
Lbl HA
ClrDraw
0üZ
Text(0,0,"COMPETENCE
If Où1 and Dù10
Then
Z+6üZ
Text(Z,0,"1.COUP EN TRAITRE
End
If Où4 and Dù15
Then
Z+6üZ
Text(Z,0,"2.BALAYAGE
End
If Où8 and Dù20
Then
Z+6üZ
Text(Z,0,"3.TREBUCHAGE
End
If Où12 and Dù25
Then
Z+6üZ
Text(Z,0,"4.BOTTTE DU TRAITRE
End
If Où16 and Dù35
Then
Z+6üZ
Text(Z,0,"5.CONTRE ATTAQUE
End
If Où20 and Dù50
Then
Z+6üZ
Text(Z,0,"6.ENFONCEMENT DU POINT FAIBLE
End
Z+6üZ
Text(Z,0,"7.RETOUR
Lbl H
0üZ
getKeyüÁ
If Á=92 and Dù10
Goto H1
If Á=93 and Dù15 and Où4
Goto H2
If Á=94 and Dù20 and Où8
Goto H3
If Á=82 and Dù25 and Où12
Goto H4
If Á=83 and Dù35 and Où16
Goto H5
If Á=84 and Dù50 and Où20
Goto H6
If Á=72
Goto A
Goto H
Lbl H1
D-10üD
randInt6,11)üZ
Z+ÁüZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl H2
D-15üD
randInt9,14)üZ
Z+ÁüZ
Z+F+J-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl H3
D-20üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+7üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl H4
D-25üD
randInt1,6)üZ
Á+ZüÁ
randInt1,6)üZ
Á+ZüÁ
randInt1,6)üZ
Á+Z+5üÁ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl H5
D-35üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+6üZ
Z+F+J-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl H6
D-50üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+8üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl GA
ClrDraw
0üZ
Text(0,0,"COMPETENCE
If Où1 and Dù10
Then
Z+6üZ
Text(Z,0,"1.ARRACHEMENT
End
If Où4 and Dù15
Then
Z+6üZ
Text(Z,0,"2.ENFONCEMENT
End
If Où8 and Dù20
Then
Z+6üZ
Text(Z,0,"3.ATTAQUE VERTICALE
End
If Où12 and Dù25
Then
Z+6üZ
Text(Z,0,"4.SERIE DE DEFONCEMENT
End
If Où16 and Dù35
Then
Z+6üZ
Text(Z,0,"5.FAHRENHEIT
End
If Où20 and Dù50
Then
Z+6üZ
Text(Z,0,"6.NO MERCI
End
Z+6üZ
Text(Z,0,"7.RETOUR
Lbl G
0üZ
getKeyüÁ
If Á=92 and Dù10
Goto G1
If Á=93 and Dù15 and Où4
Goto G2
If Á=94 and Dù20 and Où8
Goto G3
If Á=82 and Dù25 and Où12
Goto G4
If Á=83 and Dù35 and Où16
Goto G5
If Á=84 and Dù50 and Où20
Goto G6
If Á=72
Goto A
Goto G
Lbl G1
D-10üD
randInt4,9)üZ
Z+ÁüZ
Z+F+E-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl G2
D-15üD
randInt7,12)üZ
Z+ÁüZ
Z+E-T+FüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl G3
D-20üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+7üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl G4
D-25üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+3üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl G5
D-35üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+6üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl G6
D-50üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+5üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl FA
ClrDraw
0üZ
Text(0,0,"COMPETENCE
If Où1 and Dù10
Then
Z+6üZ
Text(Z,0,"1.BOULE DE FEU
End
If Où4 and Dù15
Then
Z+6üZ
Text(Z,0,"2.GLACIER
End
If Où8 and Dù20
Then
Z+6üZ
Text(Z,0,"3.FOUDRE
End
If Où12 and Dù25
Then
Z+6üZ
Text(Z,0,"4.JAVELOT GLACE
End
If Où16 and Dù35
Then
Z+6üZ
Text(Z,0,"5.COMBUSTION
End
If Où20 and Dù50
Then
Z+6üZ
Text(Z,0,"6.ECLAIR CONCENTRE
End
Z+6üZ
Text(Z,0,"7.RETOUR
Lbl F
0üZ
getKeyüÁ
If Á=92 and Dù10
Goto F1
If Á=93 and Dù15 and Où4
Goto F2
If Á=94 and Dù20 and Où8
Goto F3
If Á=82 and Dù25 and Où12
Goto F4
If Á=83 and Dù35 and Où16
Goto F5
If Á=84 and Dù50 and Où20
Goto F6
If Á=72
Goto A
Goto F
Lbl F1
D-10üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+5üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl F2
D-15üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+8üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl F3
D-20üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+7üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl F4
D-25üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+5üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl F5
D-35üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+6üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl F6
D-50üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+8üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl EA
ClrDraw
0üZ
Text(0,0,"COMPETENCE
If Où1 and Dù10
Then
Z+6üZ
Text(Z,0,"1.TREMBLEMENT
End
If Où4 and Dù15
Then
Z+6üZ
Text(Z,0,"2.EBOULEMENT
End
If Où8 and Dù20
Then
Z+6üZ
Text(Z,0,"3.SABLES MOUVANTS
End
If Où12 and Dù25
Then
Z+6üZ
Text(Z,0,"4.TOMBEAU DE SABLE
End
If Où16 and Dù35
Then
Z+6üZ
Text(Z,0,"5.ETOUFEMENT DE LIANES
End
If Où20 and Dù50
Then
Z+6üZ
Text(Z,0,"6.VENT TOURBILLONANT
End
Z+6üZ
Text(Z,0,"7.RETOUR
Lbl E
0üZ
getKeyüÁ
If Á=92 and Dù10
Goto E1
If Á=93 and Dù15 and Où4
Goto E2
If Á=94 and Dù20 and Où8
Goto E3
If Á=82 and Dù25 and Où12
Goto E4
If Á=83 and Dù35 and Où16
Goto E5
If Á=84 and Dù50 and Où20
Goto E6
If Á=72
Goto A
Goto E
Lbl E1
D-10üD
randInt6,11)üÁ
Z+ÁüZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl E2
D-15üD
randInt9,14)üÁ
Z+ÁüZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl E3
D-20üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+7üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl E4
D-25üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+5üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl E5
D-35üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+6üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl E6
D-50üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+8üZ
Z+J+F-VüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl DA
ClrDraw
0üZ
Text(0,0,"COMPETENCE
If Où1 and Dù10
Then
Z+6üZ
Text(Z,0,"1.COUP PUISSANT
End
If Où4 and Dù15
Then
Z+6üZ
Text(Z,0,"2.SERIE DE COUPS
End
If Où8 and Dù20
Then
Z+6üZ
Text(Z,0,"3.DEFONCEMENT
End
If Où12 and Dù25
Then
Z+6üZ
Text(Z,0,"4.COUP TOURBILLONANT
End
If Où16 and Dù35
Then
Z+6üZ
Text(Z,0,"5.COUP CROISE
End
If Où20 and Dù50
Then
Z+6üZ
Text(Z,0,"6.ESTOCADE
End
Z+6üZ
Text(Z,0,"7.RETOUR
Lbl D
0üZ
getKeyüÁ
If Á=92 and Dù10
Goto D1
If Á=93 and Dù15 and Où4
Goto D2
If Á=94 and Dù20 and Où8
Goto D3
If Á=82 and Dù25 and Où12
Goto D4
If Á=83 and Dù35 and Où16
Goto D5
If Á=84 and Dù50 and Où20
Goto D6
If Á=72
Goto A
Goto D
Lbl D1
D-10üD
randInt4,9)üÁ
Z+ÁüZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl D2
D-15üD
randInt7,12)üÁ
Z+ÁüZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl D3
D-20üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+5üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl D4
D-25üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+3üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl D5
D-35üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+6üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl D6
D-50üD
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+ÁüZ
randInt1,6)üÁ
Z+Á+5üZ
Z+E+F-TüZ
Disp "TU LUI FAIS",Z,"DEGATS
Pause
ClrHome
P-ZüP
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
Goto A
Lbl B
Q+RüÁ
ClrHome
Disp "IL TE FAIT",Á,"DEGATS
C-ÁüC
If C÷0
Stop
Pause
ClrHome
Goto 2
Lbl 6
If IùU
Goto 7
If U>I
Goto 8
Lbl 7
Output(1,1,"TU ATTAQUES
randInt1,20)üÁ
randInt1,20)üZ
Output(2,1,"DE:
Output(2,4,Á
If FùÁ
Output(3,1,"ATTAQUE REUSSI
If F<Á
Output(3,1,"ATTAQUE RATEE
If FùÁ
Then
Output(4,1,"DE:
Output(4,4,Z
End
If Z÷S and FùÁ
Output(5,1,"PARADE REUSSIE
If Z>S and FùÁ
Output(5,1,"PARADE RATEE
If Z>S and FùÁ
Then
0üY
If Str2ø"RIEN"
randInt1,6)+ZüZ
If Str2="POIGNARD"
Z+1üZ
If Str2="DAGUE"
Z+2üZ
If Str2="GLAIVE"
Z+3üZ
If Str2="SABRE"
Z+4üZ
If Str2="EPEE"
Z+5üZ
If Str2="EPEE BATARDE"
Z+6üZ
E+F+K+Y+Z-Á-T-SüÁ
If Áù0
P-ÁüP
Output(6,1,Á
Output(6,5,"DEGATS
End
Pause
ClrHome
If P÷0
Then
ClrHome
Output(4,4,"GAGNE
Pause
ClrHome
Goto 9
End
If IùU
Goto 8
Goto A
Lbl 8
0üY
Output(1,1,"IL ATTAQUES
randInt1,20)üÁ
randInt1,20)üZ
Output(2,1,"DE:
Output(2,4,Á
If RùÁ
Output(3,1,"ATTAQUE REUSSI
If R<Á
Output(3,1,"ATTAQUE RATEE
If RùÁ
Then
Output(4,1,"DE:
Output(4,4,Z
End
If Z÷G and RùÁ
Output(5,1,"PARADE REUSSIE
If Z>G and RùÁ
Output(5,1,"PARADE RATEE
If Z>G and RùÁ
Then
If Str3="PLAQUES"
Á+1üÁ
If Str3="COTE MATELASSE"
Á+2üÁ
If Str3="VESTE DE CUIR"
Á+3üÁ
If Str3="COTTE DE MAILLE"
Á+4üÁ
If Str3="CUIRASSE ECAILLE"
Á+5üÁ
If Str3="CUIRASSE MAILLE"
Á+6üÁ
Q+R+Z-Á-H-GüÁ
If Áù0
C-ÁüC
Output(6,1,Á
Output(6,5,"DEGATS
End
Pause
ClrHome
If C÷0
Then
ClrHome
Output(4,4,"PERDU
Goto 2
End
If I
Goto 7
Goto A
Lbl 9
If Str6="GOBELIN"
Then
50üÁ
M+2üM
End
If Str6="ORQUE"
Then
M+4üM
100üÁ
End
If Str6="KOBBOLD"
Then
M+6üM
200üÁ
End
If Str6="OGRE"
Then
300üÁ
M+8üM
End
If Str6="TROLL"
Then
500üÁ
M+10üM
End
If Str6="DRAGON"
Then
M+12üM
750üÁ
End
N+ÁüN
If O=1 and Nù100 or O=2 and Nù300 or O=3 and Nù600 or O=4 and Nù1000 or O=5 and Nù1500 or O=6 and Nù2100 or O=7 and Nù2800 or O=8 and Nù3600 or O=9 and Nù4500 or O=10 and Nù5500 or O=11 and Nù6600 or O=12 and Nù7800 or O=13 and Nù9100 or O=14 and Nù10500 or O=15 and Nù12000 or O=16 and Nù13600 or O=17 and Nù15300 or O=18 and Nù17100 or O=19 and Nù20000
Then
O+1üO
Output(3,3,"TU PASSE AU
Output(4,3,"NIVEAU
Output(4,10,O
Pause
ClrHome
If Str1="VOLEUR
Then
A+20üA
B+7üB
C+20üC
D+7üD
E+1üE
If O=2 or O=4 or O=6 or O=8 or O=10 or O=12 or O=14 or O=16
F+1üF
If O=3 or O=5 or O=7 or O=9 or O=11 or O=13 or O=15 or O=17
G+1üG
H+1üH
I+2üI
J+2üJ
N+1üN
Goto 2
End
If Str1="GUERRIER
Then
A+25üA
B+5üB
C+25üC
D+5üD
E+2üE
If O=2 or O=4 or O=6 or O=8 or O=10 or O=12 or O=14 or O=16
F+1üF
If O=3 or O=5 or O=7 or O=9 or O=11 or O=13 or O=15 or O=17
G+1üG
H+2üH
I+1üI
J+1üJ
N+1üN
Goto 2
End
If Str1="NAIN
Then
A+25üA
B+5üB
C+25üC
D+5üD
E+2üE
If O=2 or O=4 or O=6 or O=8 or O=10 or O=12 or O=14 or O=16
F+1üF
If O=3 or O=5 or O=7 or O=9 or O=11 or O=13 or O=15 or O=17
G+1üG
H+2üH
I+1üI
J+1üJ
N+1üN
Goto 2
End
If Str1="ELFE
Then
A+20üA
B+7üB
C+20üC
D+7üD
E+1üE
If O=2 or O=4 or O=6 or O=8 or O=10 or O=12 or O=14 or O=16
F+1üF
If O=3 or O=5 or O=7 or O=9 or O=11 or O=13 or O=15 or O=17
G+1üG
H+1üH
I+2üI
J+2üJ
N+1üN
Goto 2
End
If Str1="MAGICIEN
Then
A+17üA
B+10üB
C+17üC
D+10üD
E+1üE
If O=2 or O=4 or O=6 or O=8 or O=10 or O=12 or O=14 or O=16
F+1üF
If O=3 or O=5 or O=7 or O=9 or O=11 or O=13 or O=15 or O=17
G+1üG
H+1üH
I+1üI
J+3üJ
N+1üN
Goto 2
End
End
Goto 2
Autorisation : Membre
Nb de messages : 18
Inscrit le : Sam 18 Oct 2008, 11:38
Posté le : Mer 24 Déc 2008, 16:07
Je vien de revenir et je voie le jeu que j'atend depuid le début un RPG
Bon j'ai pas le cable donc je vais le taper a la main donc sa va me prendre beaucoup de temp mais d'a que j'ai fini je te dit si il est bien ^^
-Il fait a peu prés quel taille ?
-Il a une durée de vie de combien a peu prés (pas la peine d'être présis, tu peux donner une fourchette au pire) ?
-Quel est le niveau maximum ?
-Il réagit rapidement ou il lag comme même ?
De toute façon ma mémoire a été éfacée il y a une semaine donc j'aurais pas besoin de faire de la place
Autorisation : Membre
Nb de messages : 18
Inscrit le : Sam 18 Oct 2008, 11:38
Posté le : Mar 13 Jan 2009, 15:04
voila j'ai fini de le taper (7H45 pour le taper, je sens plus mes doigts)
J'ai pas eu le temp de le tester car j'ai oublier ma calculatrice chez un pote quans je l'aider pour les math (comme par hasard il a été bloquer par la neige )
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 13 Jan 2009, 18:01
A mon avis chackal37 tu vas avoir plein d'erreurs de copiage à résoudre, tenez-vus près les gars
Sinon je pense sérieusement qu'on peut le réduire à 60%/70% de sa taille initiale on faisant vraiment le maximum. Voir plus si on entre dans la logistique du programme, sans fonctionnement (sans changer ce que voit l'utilisateur)
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 15 Jan 2009, 19:40
T'est un peux trop optimiste je pense.
A mon avis, 30% de taille en moins sera déjà pas mal.
C'est pour sa que je voudrais télécharger le fichier mais étant interne, megaupload est bloqué par le lycée donc si quelqu'un pouvais m'envoyer par mail où un autre moyen ce programme, j'essayerais de le raccourcir.
Autorisation : Membre
Nb de messages : 74
Inscrit le : Mer 06 Fév 2008, 11:42
Posté le : Mar 20 Jan 2009, 23:08
ça fait une paye que j'suis pas venu, mais tu m'impressionne toujours autant mad!
(J'ai pas essayé, parce que j'ai pas de cable, mais rien qu'a voir le contenu, ça donne envie! :o )
---------------------- -RPG battle! (nom provisoire) ---------&gt; 90% (retape en cours (50%, et qu'est ce que c'est long >_<), le teste et que je le debug, et après je le poste)
Autorisation : Membre
Nb de messages : 74
Inscrit le : Mer 06 Fév 2008, 11:42
Posté le : Mer 21 Jan 2009, 15:56
Tu as déjà essayé l'ASM ?
---------------------- -RPG battle! (nom provisoire) ---------&gt; 90% (retape en cours (50%, et qu'est ce que c'est long >_<), le teste et que je le debug, et après je le poste)
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Jeu 12 Fév 2009, 11:02
je bosse maintenant sur la v2
Hareck Invité
Posté le : Mar 19 Mai 2009, 18:40
Je sais que sa fais longtemps que personne n'a poster, mais en étudiant le programme, je m'aperçois que le jeu ne comporte qu'une ville véritable, et que c'est le système de combat qui prend tellement de chose...
Sinon, j'ai deux trois question pour toi mad...
J'ai beau regarder, je ne sais pas comment tu fais le système de sauvegarde, si comment tu fais pour qu'on puisse s'équiper d'arme en particulier...
J'ai créer mon propre RPG à ma façons, et mon moyen de sauvegarde à moi et de sauvegarder la zone ou se trouve le héros quand il le DÉSIRE (donc, la fonction sauvegarder est présente, il suffire de dormir dans une auberge), et pour charger la partie, il téléporte le héros à la zone ou il était... Mais c'est facile de tricher pour passer les niveaux et augmenter ses caractéristiques. Il suffi de taper : 50=>D (dégâts supplémentaire du à la classe du héros et à son niveau), et voila, nos dégâts sont booster de 50 points...
Donc, ton système de sauvegarde m'intéresse...
Sinon, C'est ton système d'équipement d'arme qui me tante bien...
PS : Je ne comprend pas les symboles du type | au début... Peux tu me dire sa signification? Merci beaucoup...
Autorisation : Membre
Nb de messages : 30
Inscrit le : Dim 10 Mai 2009, 15:53
Posté le : Ven 22 Mai 2009, 19:56
En fait moi je pense ke si on veut faire un RPG pas trop lourd ,il faut faire Un sous-programme de baston, un sous programme de déplacement sur la carte, un de boutique et tu change quelques variables a chaque fois pour reconnaitre quel monstre tu combat, quels armes te sont proposées, kel force tu as, etc...
Pasque la vraiment,le mec qui recopie tout ca a la main, je le respecte!!!!
Pour la sauvegarde, tu peux faire:
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mar 16 Mar 2010, 17:29
non c'est bon
j'ai retrouvé les variable et il me reste que le passer en graph et créer les quetes au final pour le finir
apres selon la place un mode combat link et echange objets et un élargissement du nombre d'objets arme armure etc... (pour les echanger par cable)
et enfin optimisation du jeu
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
(comme par hasard il a été bloquer par la neige 
)
