Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 4057
Réponses : 26
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Rpg basé pvp

grmycaire le 08/12/2013 à 18:54
bonsoir à tous. je laisse de côté mon projet de tinvader en graphique et je me lance dans un rpg (texte) basé sur le pvp (systeme xp...) dont le but sera de combatre toutes les arenes.
je poste le programme des qu'il est finis.
m@thieu41 le 08/12/2013 à 19:33
C'est un projet assez conséquent, tu as de nombreuses sources dont tu peut t'inspirer si tu veux voir comment d'autres ont abordé le sujet.

En tous cas, si tu as besoin d'aide n'hésites pas à nous en demander happy.gif

Bonne continuation !
grmycaire le 11/12/2013 à 20:22
sa y est ! la version beta presque terminé. je la poste d'ici une semaine.
ce que j'ai fais:
-le programme principal (417octets) qui permet de :
-continuer/recommencer une partie
-voir ses stats
-choisir l'arene dans laquel se battre.

-le programme de combat (712 octets) qui permet de:
-gerer les combats (on dirait pas comme ça mais ce n'est pas si simple que sa en à l'air)

ce qu'il me reste à fair:
-un programme pour la gestion d'objet (shop...)
-une quete principal (peut etre un autre programme pour cela.)
-d'autres petites (ou grosse) améliorations.

j'envisage un menu interactif dans lequel il faut deplacer son personnage sur l'ecran (qui representera certainement une ville) et de rentrer par exemple dans l'arene pour se battre.

voila. c'est tout pour aujourd hui.
m@thieu41 le 11/12/2013 à 21:28
En tous cas, la taille est assez sympa: il n'est peut être pas fini, mais 1000o pour un rpg c'est pas mal du tout winkle.gif
grmycaire le 12/12/2013 à 18:09
je n'ais pas encore codé de quete. je pense qu c'est cela qui prend le plus de place.
grmycaire le 13/12/2013 à 19:01
j'ai finis le pogramme des objets (je dois encore en ajouter). j'ai de même ajouté quelques ameliorations sur la gestion des pv.
le tout prend pour l'instant 1744 octets.
si vous avez des idées sur la quête principale, merci de les évoquer.

merci d'avance. glasses.gif
grmycaire le 13/12/2013 à 19:06
ps: pour la quête sachez que le jeux est basé sur le pvp et que le but est de battre toutes les arenes (un peut comme pokemon).
j'ai fais ce choix pour qu'il y ai une veritable evolution du personnage au cour du jeux (xp, argent, ...).
grmycaire le 17/12/2013 à 13:21
je poste une première version du code. il y a:
-le menu principale avec le choix des arènes (il y en a 2)
-la gestion des objets
-la gestion des combats
avant de lancer le programme principale (RPGARENA) faite 0->[thêta]

RPGARENA

Code

:0->W
:ClrHome
:If [theta]=1:Goto 1
:Menu("RPG ARENA","NOUVELLE PARTI",0,"CONTINUER",1
:Lbl 0
:Input "NOM:",Str1
:DelVar P
:" "->Str2
:{35,35->lPV
:{1,50}->lXP
:{0,0,0,0,0,0->lOBJ
:{randInt(6,9),1,100}->lRPG
:Lbl 1
:0->[theta]
:Menu(Str1,"QUETE",3,"ARENE",AR,"STATS",ST,"OBJETS",OB,"QUITTER",Q
:Lbl 3
:prgmRPGQUETE
:Lbl Q
:ClrHome
:Stop
:Lbl ST
:ClrHome
:Output(1,1,Str1
:Output(3,1,"ATTAQUE:
:Output(3,9,lRPG(1
:Output(4,1,"PV:
:Output(4,4,lPV
:Output(5,1,"NIVEAUX:
:Output(5,9,lRPG(2
:Output(7,1,"XP:
:Output(7,4,lXP
:Output(8,1,"GOLD:
:Output(8,6,lRPG(3
:Pause
:Goto 1
:Lbl OB
:prgmRPGOBJET
:Lbl AR
:Menu("CHOIX ARENE","ARENE 1",A1,"ARENE 2",A2,"QUITTER",1
:Lbl A1
:randInt(4,9->A
:randInt(25,35->P
:P->V
:randInt(5,10->G
:prgmRPGFIGHT
:Lbl A2
:randInt(7,12->A
:randInt(28,38->P
:P->V
:randInt(5,10->G
:prgmRPGFIGHT


RPGFIGHT

Code

:1->[theta]
:1->W
:Lbl 0
:Menu("COMBAT","ATTAQUE",A,"TES PV",PV,"STATS ENNEMIE",SE,"OBJETS",2
:Lbl 2
:prgmRPGOBJET
:Lbl PV
:ClrHome
:Output(1,1,"PV:
:Output(1,6,lPV
:Pause
:Goto 0
:Lbl SE
:ClrHome
:Output(2,1,"ATTAQUE:
:Output(2,9,A
:Output(4,1,"PV:
:Output(4,4,P
:Output(6,1,"NIVEAUX:
:Output(6,9,L
:Pause
:Goto 0
:Lbl A
:If P>0 and lPV(1>0:Then
:ClrHome
:randInt((lRPG(1)-5),lRPG(1)->X
:P-X->P
:Output(1,1,"TU ATTAQUE !
:Pause
:ClrHome
:Output(1,1,"TU INFLIGE
:Output(1,12,X
:Output(1,14,"DE DEGAT A L'ENNEMIE
:Pause
:ClrHome
:randInt((A-3),A)->X
:lPV(1)-X->lPV(1
:Output(1,1,"L'ENNEMIE ATTAQUE !
:Pause
:Output(1,1,"L'ENNEMIE TA INFLIGE
:Output(2,6,X
:Output(2,8,"DE DEGAT
:Pause
:Goto 0
:Else
:ClrHome
:If P[inférieur ou égal]0:Then
:Output(1,1,"L'ENNEMIE EST KO
:Pause
:lPV(2)->lPV(1
:(A+V+lXP(1)->lXP(1
:G+lRPG(3)->lRPG(3)
:If lXP(1)[supérieur ou égal]lXP(2:Then
:0->lXP(1
:lXP(2)*1.2->lXP(2
:lRPG(2)+1->lRPG(2
:lPV(2)+randInt(2,4)->lPV(2
:lPV(2)->lPV(1
:lRPG(1)+randInt(1,3)->lRPG(1
:prgmRPGARENA
:Else
:prgmRPGARENA
:Pause
:Goto 1
:Else
:If lPV(1)[inférieur ou égal]0:Then
:Output(1,1,"TU EST KO
:lPV(2)->lPV(1
:Pause
:Goto 1
:Lbl 1
:prgmRPGARENA
:End


RPGOBJET

Code

:1->[theta]
:Lbl 0
:Menu("OBJETS","ACHETER",1,"UTILISER",2,"VOIR OBJETS",3,"QUITTER",Q
:Lbl 3
:ClrHome
:Output(1,1,Str2
:Output(1,8,lOBJ(1
:Pause
:Goto 0
:Lbl Q
:If W=1:Then
:prgmRPGFIGHT
:Else
:prgmRPGARENA
:Lbl 1
:ClrHome
:Menu("ACHETER QUOI?","POTION",P,"RETOUR",0
:Lbl P
:If lRPG(3)[supérieur ou égal]15:Then
:Menu("POTION A 15 GOLDS?","OUI",OP,"NON",NP
:Lbl NP
:Goto 1
:Lbl OP
:lRPG(3)-15->lRPG(3
:lOBJ(1)+1->lOBJ(1
:"POTION"->Str2
:Output(1,1,"POTION ACHETE
:Pause
:Goto 1
:Else
:Output(1,1,"ACHAT IMPOSSIBLE
:Pause
:Goto 1
:Lbl 2
:ClrHome
:Menu("UTILISER QUOI?",Str2,PU,"RETOUR",0
:Lbl PU
:If lOBJ(1)[superieur ou egal]1:Then
:Output(1,1,"POTION RESTAURE 20 PV
:lPV(1)+20->lPV(1
:If lPV(1)>(lPV(2:lPV(2)->lPV(1
:lOBJ(1)-1->lOBJ(1
:Pause
:Goto 2
:Else
:Output(1,1,"EMPLACEMENT VIDE
:" "->Str2
:Pause
:Goto 2



n’hésitez pas à laisser vos commentaires et vos avis. ils m'aiderons dans la création de ce projet.

EDIT linkakro : un ajout est en page 2.
m@thieu41 le 18/12/2013 à 14:25
Continues comme ça winkle.gif

Je précise qu'il y a un autre sujet sur le nouveau forum:
https://tout82.forumactif.org/t158-rpg-arena
grmycaire le 18/12/2013 à 16:20
m@thieu41 a écrit :
Continues comme ça winkle.gif

Je précise qu'il y a un autre sujet sur le nouveau forum:
https://tout82.forumactif.org/t158-rpg-arena


je sais c'est moi qui l'ai posté.
m@thieu41 le 18/12/2013 à 19:55
Je sais bien, c'est juste pour ceux qui liraient ce sujet, pour savoir qu'il y a une autre discussion sur le sujet (ça peut éviter des malentendus ou de dire plusieurs fois la même chose).
grmycaire le 18/12/2013 à 22:04
m@thieu41 a écrit :
Je sais bien, c'est juste pour ceux qui liraient ce sujet, pour savoir qu'il y a une autre discussion sur le sujet (ça peut éviter des malentendus ou de dire plusieurs fois la même chose).

je t'avous que je me sens un peut con... godgrace.gif
nico382 le 22/01/2014 à 21:24
Bonjour, j'ai quelque problème à rentrer ton programme, les voici:
comment rentrer:
[thêta]
randInt

et puis "Lbl OB", "Lbl AR", etc, les deux lettres qui suivent, faut-il juste rentrer les lettres O et B pour le premier et ainsi de suite, ou c'est autre chose?

Merci d'avance happy.gif
linkakro le 23/01/2014 à 00:45
Quel est ton modèle de TI ?
thêta est le rond barré saisi avec alpha+3.
randInt()=entAléat() se trouve dans le menu math>prb
Si tu as une TI 82 non-stat alors tu ne peux pas utiliser randInt et il faut remplacer le calcul autrement et cela dépend de la situation.
randInt(A,B)=A+int ((B-A+1)rand)
Si tu as une TI82 alors tu ne peux pas utiliser les Lbl avec deux caractères.
Si tu as une Ti82stat ou suppérieure alors tu peux les saisir et cela se fait simplement en écrivant les deux caractères après le Lbl.
nico382 le 23/01/2014 à 21:09
Bonjour, merci pour la réponse, et oui j'ai une TI-82 Stats.fr
nico382 le 23/01/2014 à 21:40
Désolé, j'en ai une nouvelle. Comment faire le "and" dans la ligne:
If P>0 and...

Merci d'avance happy.gif
nico382 le 23/01/2014 à 22:34
J'ai réussi à rentrer le prgm. Il y a quelque probleme que je recontre les voici:
-après avoir fait Nouvelle partie et écrit son prenom cela fait erreur syntaxe et cela me renvoie dans la ligne: {35,35}->1PV
-quand je vais dans une arène, et que j'attaque, le texte me donne le nombre de dégat que j'ai fait mais ensuite cela me fait erreur syntaxe et cela me renvoie dans le programme rpgfight dans la ligne: 1PV(1)-X->1PV(1

Voilà voilà j'espère que ça vous aidera à améliorer le projet et que vous pourrez modifier le problème winkle.gif

Merci d'avance happy.gif
linkakro le 24/01/2014 à 00:55
Tu as des réponses là bas : https://tout82.forumactif.org/t158-rpg-arena
(je le dis pour ceux qui passeraient ici)
xyfro 1991 le 03/04/2014 à 21:52
L'avantage des floodeurs,c'est qu'il remette en haut de page les sujets enterrée laugh.gif bref pour revenir au sujet,je n'ai pas réussi le grpfight de grmycaire
linkakro le 03/04/2014 à 22:03
Flood supprimé.

Quel est ton problème ? Dis nous le type et l'emplacement du curseur lors d'un message d'erreur. Et pour une erreur domaine, les valeurs des variables.
xyfro 1991 le 03/04/2014 à 22:09
Merci de ton aide linkakro,c'était belle et bien une erreur concernant les variables. Corrigé.
JeSuis42 le 16/11/2014 à 23:30
Bonjour/Bonsoir à tous !

Désolé de déranger encore une fois pour si peu, mais je ne trouve pas la touche/commande "str"

Si quelqu'un peut maider, cela serait très aimable happy.gif
linkakro le 16/11/2014 à 23:35
Str=String=Chaîne.
Les variables chaînes de caractères, c'est-à-dire Chaîne# ou Str# avec # un chiffre entre 0 et 9 sont dans le menu var+7.
JeSuis42 le 16/11/2014 à 23:45
Merci linkakro happy.gif

Au fait, je voudrais me mettre sérieusement a la programmation mais je ne trouve pas de tutoriel assez compréhensible, si tu pouvais m'en indiquer un ce serait très aimable.

Merci d'avance ! happy.gif
linkakro le 16/11/2014 à 23:57
Celui de Mdr1 du site OpenClassrooms (ancien Site-Du-Zero) est bien.

Tu peux poser des questions dans la rubrique aide du forum tout82 mais cherche un peu par toi-même, éventuellement avec un moteur de recherche, mais préfère "site:tout82.free.fr" de google plutôt que celui du forum.
Commence par lire la rubrique article du forum, au moins pour constater ce qui a déjà été résumé quitte à y revenir plus tard.

Poser cette question ici est HS. Un nouveau sujet aurait été mieux. Saches aussi que cette question et cette réponse ont déjà été posées/postées de nombreuses fois.
JeSuis42 le 20/11/2014 à 21:13
Je suis désoler de remettre une réponse sur le mauvais moodforlove.gif mais j'ai rajouté un item sur le programme rpgOBJET. Il s'agit d'une épée donnant +3 en attaque.

Voilà c'est tout pour moi ! Voilà le code :

Code
:Menu("ACHETER QUOI ?","POTION",P,"EPEE",I,"RETOUR,O
:Lbl I
:If lRPG(3)[Supérieur ou égal à]30
:Then
:Menu("EPEE A 30 GOLDS ?","OUI",OE,"NON",NE
:Lbl NE
:Goto 1
:Lbl OE
:lRPG(3)-30->lRPG(3)
:Output(1,1,"EPEE ACHETE
:Pause
:EffEcr
:Output(1,1,"+3 D'ATTAQUE
:lRPG(1)+3->lRPG(1)
:Pause
:Goto 1



PS: "->" => sto ->

N'hésitez pas à me corriger s'il y a des erreurs.

Encore désolé d'écrire sur ce forum moodforlove.gif
linkakro le 20/11/2014 à 22:14
Cette fois tu réponds au sujet, je ne voie pas d'inconvénient. La fois d'avant j'ai signalé mon désaccord, cela ne veut pas dire que je t'en voudrais pour chaque message. Des gens voient mal remonter de vielles discussions, je n'en suis pas pourvu qu'il y a bien un lien. Moi j'hésite souvent entre nouveau sujet et réponse lorsqu'il y a bien un rapport.

Je ne suis pas motivé pour examiner ça. Je poste un lien au début pour le retrouver dans un avenir lointain.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.