[82] Mon premier programme: RPG
3 participants
Page 1 sur 1
![[82] Mon premier programme: RPG Empty](https://2img.net/i/empty.gif)
[82] Mon premier programme: RPG
par Metallica Mer 22 Sep - 12:27
Je tiens à vous présenter mon premier programme même s'il n'est pas très joli, qu'il est mal programmé et que il y a des bugs partout :D :
(Je tiens à préciser que je ne suis pas raciste envers les Roux et que ce programme à été fait à la demande d'un camarade)
Si vous avez un modèle de TI inférieur à la 83+ modifier l'extension en .83p.
Et pour ceux qui n'ont pas le câble:
(Je tiens à préciser que je ne suis pas raciste envers les Roux et que ce programme à été fait à la demande d'un camarade)
Si vous avez un modèle de TI inférieur à la 83+ modifier l'extension en .83p.
Et pour ceux qui n'ont pas le câble:
- RPG:
- Code:
:ClrHome
:Output(1,1,"****************++++++++++++++++
:Output(7,1,"++++++++++++++++****************
:Output(4,7,"RPG
:Output(6,2,"PAR METALLICA
:Pause
:Lbl 0
:ClrHome
:Menu(" RPG ","JOUER",JO,"RESET",RE,"QUITTER",QU
:Lbl RE
:DelVar ADelVar DDelVar EDelVar FDelVar GDelVar IDelVar KDelVar UDelVar VDelvar W
:1000→H
:1→J
:Pause :ClrHome
:Output(3,1,"SAUVEGARDE EFFACEE ...
:Pause :ClrHome
:Goto 0
:Lbl JO
:If not(A:Then:Goto NO:End
:If A≥1:Then:Goto 99:End
:Lbl NO
:ClrHome
:Menu(" RACE ","GUERRIER",1,"MAGE",2,"ARCHER",3,"RETOUR",0
:Lbl 1
:1→A
:1→U
:10→D
:2→E
:3→F
:40→G
:Output(3,1,"FELICITATION TU ES UN GUERRIER"
:Pause :ClrHome
:Goto 99
:Lbl 2
:2→A
:1→V
:2→D
:10→E
:8→F
:35→G
:Output(3,1,"FELICITATION TU ES UN MAGE
:Pause :ClrHome
:Goto 99
:Lbl 3
:3→A
:1→W
:5→D
:5→E
:10→F
:35→G
:Output(3,1,"FELICITATION TU ES UN ARCHER
:Pause :ClrHome
:Goto 99
:Lbl 99
:ClrHome
:0→Q
:0→S
:0→R
:G→M
:If G≤0:Then
:Output(3,1,"GAME OVER"
:Pause :ClrHome
:Goto RE:End
:If I≥100J:Then
:ClrHome
:I-100J→I
:J+1→J
:Output(3,1,"TU PASSE AU LVL:
:Output(4,1,J
:Pause :ClrHome
:Goto 90:End
:Menu(" QUE FAIRE ? ","COMBAT",CB,"VOIR STATS",ST,"OBJECTIF",OB,"TRICHES",AC,"RETOUR",0
:Lbl OB
:ClrHome
:Output(3,1,"TUE 1000000 ROUXTU EN AS TUER :
:Output(5,1,K
:If K<1000000:Pause :Goto 99
:If K≤1000000:Pause :Goto 98
:Lbl 98
:ClrHome
:Output(1,1,"****************++++++++++++++++
:Output(7,1,"++++++++++++++++****************
:Output(4,5,"OBJECTIF
:Output(5,5,"TERMINE!
:J100000→I
:Pause :ClrHome
:Goto 99
:Lbl ST
:ClrHome
:Output(1,1,"RACE :"
:If A=1:Output(1,8,"GUERRIER"
:If A=2:Output(1,8,"MAGE"
:If A=3:Output(1,8,"ARCHER"
:Output(2,1,"NIVEAU :"
:Output(2,10,J
:Output(3,1,"EXP :"
:Output(3,7,I
:Output(4,1,"FORCE :"
:Output(4,9,D
:Output(5,1,"MAGIE :"
:Output(5,9,E
:Output(6,1,"PRECISION :"
:Output(6,13,F
:Output(7,1,"VIES :"
:Output(7,8,G
:Output(8,1,"ARGENT :"
:Output(8,10,H
:Pause :ClrHome
:Output(1,1,"ARMES:"
:Output(2,1,"CORPS A CORPS :"
:If U=1:Output(3,1,"EPEE ."
:Output(4,1,"MAGIE :
:If V≥1 and V<4:Output(5,1,"BATON ."
:Output(6,1,"DISTANCE :"
:If W=1:Output(7,1,"ARC ."
:Output(8,1,"ROUX:"
:Output(8,6,K
:Pause :ClrHome
:Goto 99
:Lbl 90
:ClrHome
:Output(3,1,"REPARTI 10 PT DECARACTERISTIQUE"
:Pause :ClrHome
:Input "VIE:",Θ
:If Θ≤10:Then
:G+Θ→G
:ClrHome
:Output(3,1,"+ VIES."
:Output(3,3,Θ
:If 10-Θ=0:Goto 99
:Pause :ClrHome
:Goto 92:End
:Else
:Goto 91
:Lbl 92
:Input "FORCE:",L
:If L≤10 and L≤10-Θ:Then:D+L→D
:Output(3,1,"+ FORCE"
:Output(3,3,L
:If 10-Θ-L=0:Goto 99
:Pause :ClrHome:Goto 93:End
:Else
:Goto 92
:Lbl 93
:ClrHome
:Input "MAGIE:",M
:If M≥10 and M≤10-Θ-L:Then
:E+M→E
:Output(3,1,"+ MAGIE
:Output(3,3,M
:If 10-Θ-L-M=0:Goto 99
:Pause :ClrHome
:Goto 94:End
:Lbl 94
:ClrHome
:Input "PRECISION:",P
:If P≤10 and P≤10-Θ-L-M:Then
:F+P→F
:Output(3,1,"+ PRECISION
:Output(3,3,P
:If 10-Θ-L-M-P=0
:Goto 99
:Pause :ClrHome
:Lbl CB
:ClrHome
:Menu("MONSTRE :","BRUTE ROUSSE",MB,"GNOME ROUX",MG,"LOUP GA ROUX",ML,"ZOMBIE ROUX",MZ,"YETI ROUX",MY," -> ",CC,"RETOUR",99
:Lbl CC
:ClrHome
:Menu("SOUS-BOSS :","ROUX ENRAGEE",SR,"TROLL DE NEIGE",TS,"YETI ENRAGEE",SY,"PIKAROUX",SP," <- ",CB," -> ",CD,"RETOUR",99
:Lbl CD
:ClrHome
:Menu("BIG-BOSS","WOLFY LE ROUX",BW,"ROUXCHU",BR,"TROLL ROUX",BT,"DISCIPLE SATAN",BD,"SATAN",BS," <- ",CC," -> ",MX
:Lbl MX
:ClrHome
:Menu("THE ROUX","MAXENCE",MA," <- ",CD,"RETOUR",99
:Lbl MA
:10000000000000000000→Θ
:1000000000000000000→B
:2000000000000000000→S
:1000000000000000000000→Q
:Goto 50
:Lbl MB
:15→Θ
:5→B
:10→S
:1000→Q
:Goto 50
:Lbl MG
:25→Θ
:10→B
:20→S
:2000→Q
:Goto 50
:Lbl ML
:45→Θ
:15→B
:30→S
:3000→Q
:Goto 50
:Lbl MZ
:65→Θ
:25→B
:40→S
:4000→Q
:Goto 50
:Lbl MY
:90→Θ
:50→B
:50→S
:5000→Q
:Goto 50
:Lbl SR
:200→Θ
:80→B
:100→S
:10000→Q
:Goto 50
:Lbl TS
:300→Θ
:125→B
:150→S
:15000→Q
:Goto 50
:Lbl SY
:500→Θ
:200→B
:200→S
:20000→Q
:Goto 50
:Lbl SP
:750→Θ
:300→B
:500→S
:25000→Q
:Goto 50
:Lbl BW
:1500→Θ
:500→B
:1000→S
:100000→Q
:Goto 50
:Lbl BR
:2500→Θ
:1000→B
:2000→S
:200000→Q
:Goto 50
:Lbl BT
:5000→Θ
:2000→B
:4000→S
:400000→Q
:Goto 50
:Lbl BD
:10000→Θ
:4000→B
:100000→S
:10000000→Q
:Goto 50
:Lbl BS
:100000→Θ
:10000→B
:1000000→S
:100000000→Q
:Goto 50
:Lbl 50
:ClrHome
:Output(2,5,"VIES :"
:Output(4,1,"----------------
:Output(6,5,"VIES :"
:Output(2,11,M
:Output(6,11,Θ
:Pause :ClrHome
:0→C
:Menu("ATTAQUER :","MAGIE",ΘV,"CORPS A CORPS",ΘU,"DISTANCE",ΘW,"FUIR",99
:Lbl ΘU
:ClrHome
:If U=0:Then
:ClrHome
:Output(3,1,"TU NA PAS D'EPEE
:Pause :Goto 50
:End
:Output(3,1,"TU ATTAQUES"
:Pause
:UD→C
:ClrHome
:Output(3,1,"‾ PV."
:Output(3,3,C
:Pause
:Θ-C→Θ
:If Θ>0:Goto 55
:If Θ≤0:Goto 56
:Lbl 55
:ClrHome
:Output(3,1,"ILS ATTAQUENT"
:Pause :ClrHome
:Output(3,1,"‾ PV."
:Output(3,3,B
:Pause
:M-B→M
:If M≤0:Goto 99
:Goto 50
:Lbl 56
:ClrHome
:Output(3,1,"TU GAGNE XP
:Output(3,10,S
:I+S→I
:K+1→K
:Output(5,1,"TU GAGNE : ARGENT
:Output(6,1,Q
:H+Q→H
:Pause :ClrHome
:Goto 99
:Lbl ΘW
:ClrHome
:If W=0:Then
:ClrHome
:Output(3,1,"TU N'A PAS D'ARC
:Pause :Goto 50
:End
:Output(3,1,"TU ATTAQUE."
:Pause :ClrHome
:VF→C
:Output(3,1,"‾ PV."
:Output(3,3,C
:Θ-C→Θ
:Pause :ClrHome
:If Θ>0:Goto 55
:If Θ≤0:Goto 56
:Lbl ΘV
:ClrHome
:If V=1:Goto 57
:If V=2:Goto 58
:If V=3:Goto 59
:If V=0:Then
:ClrHome
:Output(3,1,"TU N'AS PAS DE BATON."
:Pause :Goto 50
:End
:Lbl 57
:ClrHome
:Menu("SORT","BOULE DE FEU",BF,"RETOUR",50
:Lbl BF
:ClrHome
:VE→C
:Output(3,1,"TU ATTAQUE
:Pause :ClrHome
:Output(3,1,"‾ PV"
:Output(3,3,C
:Θ-C→Θ
:Pause :ClrHome
:If Θ>0:Goto 55
:If Θ≤0:Goto 56
:Lbl 58
:ClrHome
:Menu("SORT","BOULE DE FEU",BF,"SOIN",SS,"RETOUR",50
:Lbl SS
:ClrHome
:E→C
:Output(1,1,"TU RECUPERE
:Pause
:Output(3,1,"+ PV.
:Output(3,3,C
:M+C→M
:Pause :ClrHome
:Goto 50
:Lbl 59
:ClrHome
:Menu("SORT","FUREUR DIVINE",FD,"BOULE DE FEU",BF,"SOIN",SS,"RETOUR",50
:Lbl FD
:ClrHome
:3VE→C
:Output(3,1,"TU ATTAQUE"
:Pause :ClrHome
:Output(3,1,"‾ PV
:Output(3,3,C
:Θ-C→Θ
:Pause :ClrHome
:If Θ>0:Goto 55
:If Θ≤0:Goto 56
:Lbl AC
:ClrHome
:Menu("TRICHES","MAGIE",TM,"FORCE",TF,"PRECISION",TP,"VIE",TV,"NIVEAU",TN,"RETOUR",99
:Lbl TM
:ClrHome
:Input "COMBIEN ?",X
:X→E
:Output(3,1," MAGIE
:Output(3,3,X
:Pause :ClrHome
:Goto 99
:Lbl TF
:ClrHome
:Input "COMBIEN ?",X
:X→D
:Output(3,1," FORCE"
:Output(3,3,X
:Pause :ClrHome
:Goto 99
:Lbl TN
:ClrHome
:Input "COMBIEN ?",X
:X→J
:Output(3,1," NIVEAU
:Output(3,3,X
:Pause :ClrHome
:Goto 99
:Lbl TP
:ClrHome
:Input "COMBIEN ?",X
:X→F
:Output(3,1," PRECISION
:Output(3,3,X
:Pause :ClrHome
:Goto 99
:Lbl TV
:ClrHome
:Input "COMBIEN ?",X
:X→G
:Output(3,1," VIE
:Output(3,3,X
:Pause :ClrHome
:Goto 99
:Lbl QU
:ClrHome
:Output(1,1,"
Dernière édition par Metallica le Mer 22 Sep - 13:24, édité 1 fois
Metallica- Or 4
- Sexe :
Age : 28
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-82 Stats.fr
- - TI-83+ SE
Re: [82] Mon premier programme: RPG
par persalteas Mer 22 Sep - 13:03
combien d'octets prend ton programme?
si on est roux on a le droit de recopier ton prog en le modifiant?
(mdr je suis blond).
si on est roux on a le droit de recopier ton prog en le modifiant?
(mdr je suis blond).
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [82] Mon premier programme: RPG
par Metallica Mer 22 Sep - 13:21
Le programme fait 4500 octets et je te conseille fortement de le modifier. Tu peux peut-être descendre à 3000 octets et tu as le droit de modifier les noms des monstres...
Metallica- Or 4
- Sexe :
Age : 28
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-82 Stats.fr
- - TI-83+ SE
Re: [82] Mon premier programme: RPG
par persalteas Mer 22 Sep - 13:35
et ben je vais pas me gêner alors. ^^
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Re: [82] Mon premier programme: RPG
par Metallica Mer 22 Sep - 13:40
Tu remarquera que tout ce fait par Menu car je venais juste de découvrir cette fonction et c'était l'époque où j'en abusai 
.
.
Metallica- Or 4
- Sexe :
Age : 28
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-82 Stats.fr
- - TI-83+ SE
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
-
Alexis- Platinum 2
- Sexe :
Age : 30
Messages : 2321
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :- - TI-Basic Z80
- - ASM TI-82 Stats / TI-83
- - Axe Parser
- - TI-Collège
- - TI-82 Stats.fr
- - TI-84+
-
Re: [82] Mon premier programme: RPG
par Metallica Ven 24 Sep - 12:35
Je l'ai programmer durant les 2 premiers mois de ma seconde donc il date.
Metallica- Or 4
- Sexe :
Age : 28
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :- - TI-Basic Z80
- - Axe Parser
- - TI-82 Stats.fr
- - TI-83+ SE
Sujets similaires» [Axe] Prog2hex, à ma connaissance le premier désassembleur on-calc créé en Axe
» Mon premier programme KnightOS \o/
» [Grammer] Mon premier programme (qui, évidemment, ne sert à rien lol )
» [82] programme coeur
» programme NOTABENE
» Mon premier programme KnightOS \o/
» [Grammer] Mon premier programme (qui, évidemment, ne sert à rien lol )
» [82] programme coeur
» programme NOTABENE
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|