Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Monde virtuel HERSSAHE - Page 1 / 4
Persalteas le 23/01/2010 à 10:25
Bonjour tout le monde!
ça fait des mois que je rêve du moment où je pourrais écrire ce message!
j'ai enfin fini de programmer un monde virtuel pour calculette (un peu du style dofus m'ai je n'aurais pas la prétention de dire que le graphisme est top )
cependant, je l'ai quand même pas mal réussi.
Avant de dévoiler mon super code programme
je préviens:
il faut 10 programmes différents pour le faire tourner (j'avais essayé de tout mettre dans un seul mais un programme de 15000 octets sa va pas très vite donc pour la rapidté j'ai pris des mesures.
Ce monde que j'ai appelé HERSSAHE fonctionne sur TI 82 Stats fr (les autres je sais pas)
Je prendrais le temps d'écrire le code si personne ne peut d'abord répondre à cette question:
Pour l'ergonomie du jeu, est-il possible de créer une liste avec un nom à partrir du programme?
C'est à dire je peut pas écrire 15=> dim(LRTI)
dans le programme car sinon; à chaque fois que je lance le programme, il me crée une liste qui s'appelle RTI.
je voudrais qu'on puisse choisir le nom de la liste.(en fait le nom de la liste c'est le nom du personnage et dans cette liste tous ses attributs)
Si vous avez une réponse, merci, sinon j'enverrai le code comme il est actuellement (c'est moins esthétique, mais ça marche quand même.)sypotu le 23/01/2010 à 11:40
Salut !
J'ai hâte de voir ce jeu, en tout cas a te lire ça donne envie !
Pour répondre à ta question, c'est impossible...
p.s: vu que tu vas pas mal poster inscris toi sur le sitePersalteas le 23/01/2010 à 20:08
ouais, OK.
dommage.
bon alors j'ai plus qu'a me mettre à tout écrire.
Euh, comment on fait pour écrrire sur fond blanc comme on voit sur le site?linkakro le 23/01/2010 à 22:46
c'est la balise code.
Bonne chance pour le recopiage.
S'il y a une perspective de .82p ce serait tellement biendarkmory le 23/01/2010 à 22:55
tu mets "[ code]"avant la 1ere ligne de code puis "[ /code]" apres la derniere
(j'ai mis des espace sinon ca s'affiche pas, mais faut pas en mettre)Rézus le 24/01/2010 à 16:24
Pour l'histoire de la liste,c'est peut-être possible avec une chaîne,il suffit juste de faire des essais,par exemple j'ai découvert qu'on peut faire un menu dont les choix sont des chaînes,comme ça:
Menu("titre",chaîne0,1,chaîne2,2...
Ca peut servir pour les noms de personnages,quand on fait plusieurs sauvegardes.Persalteas le 24/01/2010 à 20:27
merci
mais en fait, je me suis peut-être compliqué la vie, mais je n'ai jamais essayé d'utiliser les chaines, je ne sais pas en quoi ça consiste.
Désolé, le code va mettre du temps a arriver, je suis en train de le recopier sur l'ordi, puis je copierai/collerai tout les 10 programmes en même temps.
parce que sinon vous allez en recopier des petits bouts qui vous prendront de la place pour rien sur votre calculette alors que vous pourrez pas jouer sans la totalité du code programme.
autre question (désolé, je débute) c'est quoi le format .82p ?sypotu le 24/01/2010 à 22:25
Les chaîne sont des variables dans lesquelles tu stockes du texte entre ", tu en as 10 sur ta calculette (de 0 à 9).
Un fichier format .82p peut être transferé a une calculette par un cable, ou être uttilisé avec un émulateur, il évite donc de recopier le code.Persalteas le 26/01/2010 à 14:58
La je déprime à mort je viens d'écrire un commentaire regroupant les règles du jeu, le programme HERSSAHE et le programme Z1FOIS et ça à tout supprimé parce que j'ai appuyé sur tab! m'énèèèèèèèrveeee!!!
Résultat je viens de perdre une heure et j'ai plus le temps.
bon, a plus.Persalteas le 26/01/2010 à 16:09
Bon, voilà c'est recopié.
alors d'abord, si vous obtenez une erreur de syntaxe en jouant, c'est sûrement fait exprès.
Cela peut arriver dans le cas d'une création de personnage, monde, ou d'une sauvegarde.
Vous tapez [2] et vous suivez les instructions dans le code programme.On vous demande le plus souvent d'entrer un nom.Puis vous quittez le programme, et vous redémarrez HERSSAHE.Nouvelle erreur, tapez [2], on vous demande d'effacer le nom que vous avez rentré,vous l'effacez (avec [suppr], pas avec [annul]!!!).Vous quittez à nouveau le programme. Si vous le redémarrez, il recommencera normalement, comme au début.Votre sauvegarde ou création aura été enregistrée.
Si il n'y a pas d'instructions dans le programme, c'était une vraie erreur.
HERSSAHE est un RPG où l'on peut créer autan de personnages que l'on veut, et jusqu'à 9 mondes.
Pensez bien a en créer l'un et l'autre avant votre première partie, sinon, ça beugue.
Lorsque vous jouez, vous vous retrouvez sur la carte en forme de X.
Vous vous déplacez avec les flèches. Sur la carte, vous pouvez trouver des batiments, des arbres, et d'autres bonhommes, symbolisés par un thêta.
Vous pouvez entrer dans les batiments(par la porte, si vous essayez par le toit c'est normal que ça passe pas), tabasser les bonhommes, et les arbres ont pour seul intéret de faire joli sur une map qui serait entièrement vide.
Pour quitter le jeu, appuyez sur [annul]. Ne faites pas [ON].On vous demande si vous voulez sauvegarder, vous choisissez.
Ils peut vous arriver de trouver de l'argent par terre, que vous filerez dépenser au magasin pour compléter votre équipement et acheter des sorts.
Pour entrer en combat avec un bonhomme, il faut lui venir dessus (comme aux échecs).
Vous pouvez ensuite vous déplacer de quelques pas, 3 ou 4 (plus vous êtes près, moins vous avez de chances de rater votre attaque),puis vous lancez une attaque.
On lance une attaque en appuyant sur [1],[2], ou [3], puis quand vous aurez avancé dans le jeu [4],[5], ou [6].Chaque bouton correspond à une attaque.
Vous pouvez réussir vottre attaque, ce qui causera des dommages à votre adversaire, ou la rater.
Puis c'est votre adversaire qui peut se déplacer et vous attaquer, et ainsi de suite jusqu'à ce qu'un des deux meure.
Les points de vie des combattants sont affichés au dessus de leur tête (au dessus du X et du thêta).
Mais si vous voulez connaitre toutes les caractéristiques de votre adversaire, appuyez sur [zoom].
Si vous voulez voir les votres, appuyez sur [fenêtre].
Ces deux boutons ne fonctionnent qu'en combat.
Si vous gagnez, vous dépouillez votre adversaire de ses objets et de son argent.
Si vous perdez, c'est lui qui vous prend les votres.(d'où l'intéret de laisser ses objets/argent inutilisés dans un placard, dans un batiment.Ils y seront en sûreté).
Vous pouvez également vous servir de sorts en combat.
Ils se commandent par les touches [+],[-],[*],[/],[enter], mais je ne sais plus lequel dans quel ordre.je vous le repréciserai.
Voici la liste des attaques et leurs intérets:
[1] attaque bourrin: enlève des points à l'adversaire, beaucoup si vous possédez beaucoup d'armes offensives.
[2] attaque précise: rate rarement sa cible, enlève moins de points que la bourrin.Attention, si votre adversaire est beaucoup plus puissant que vous question précision, il peut gagner des points au lieu d'en perdre.
[3] attaque énergique: enlève énormément de points mais vous avez pas mal de chances de la rater.
puis aussi
[4] attaque chocked: idéale quand on l'a débloquée (à partir de 100pts d'expérience).Perso j'aime bien le graphisme.
[5] attaque destroy: enlève autant de points que vous savez tapez vite sur [alpha].Pratique car les ennemis ne peuvent pas l'utiliser vu qu'ils sont virtuels.Se débloque à 200pts d'expérience.
[6] attaque sismik: ben, la plus balèze, vu qu'elle se débloque qu'a 350 pts d'expérience.
Vous pouvez aussi recevoir des lettres de mission: il vous faut alors l'éxécuter, il y a souvent une forte récompense à la clé. Quand vous avez fini une mission, rendez vous en bas à gauche de la carte, le batiment qui s'y trouve quelque soit votre monde s'appelle "l'office de contrôle des missions".
Vous ne pouvez pas passer au level suivant si vous avez une mission en cours.
Pour passer au level suivant, allez tout en haut à droite de la carte, il y a une porte.
Vous pouvez la passer à n'importe quel moment.Mais attention: vous restez sur le même monde, votre personnage ne change pas, ce sont les ennemis seuls qui deviennent plus puissants (et donc vous gagnez plus quaand vous les trucidez).Ne passez donc pas au level suivant si vous n'êtes pas encore assez fort!
Si vous êtes level 9 et que vous passez encore la porte, vous avez fini le jeu.
Pour pouvoir augmenter vos stats afin de passer les levels, vous devez vous rendre dans les magasins et vendre des parties de votre équipement (je vous assure c'est très utile et c'est tout ce que j'ai trouvé pour débarrasser un bonhomme ayant 82 armes sur lui).
Vous choisissez ensuite en quoi vous voulez être payé (points de vie, d'attaque, de défense, ou simplement en argent).La monnaie n'est pas l'euro mais le dèkès.
Vous ressortez du magasin et vous venez vérifier de temps en temps si un client vous a fait une proposition.
Si oui, vous pouvez l'accepter (vous perdez alors ce que vous avez vendu et gagnez ce que ce client vous propose), ou la refuser en attendant mieux en quittant le magasin.
Si vous faites une vente alors que votre précédente n'a pas été achetée, cette précédente s'annule, vous ne perdez rien et ne gagnez rien, mais vous pouvez vendre autre chose.
Bon, bravo pour avoir tout lu,voici maintenant la liste des programmes nécéssaires:
HERSSAHE gère les liens entres les autres programmes, les déplacements sur la carte, c'est celui la qu'il faut lancer quand vous voulez jouer.
Z1FOIS gère le débloquage de nouvelles attaques, les compliments en fin de jeu, et la supression de votre personnage qui a fini le jeu.
ZCOMBATS (le plus gros) gère les combats, les attaques, leurs graphismes, et les sorts.
ZMAISON gère ce qui se passe dans les batiments.
ZPETITFC gère toutes les petites fonctions (trouver de l'argent par terre, se téléporter aléatoirement quand on arrive sur une map (retenez bien la place de ces maps, c'est vraiment énervant de se retrouver à l'autre bout de la carte justre parce qu'on a oublié que c'était une map piégée)...
ZSAUVER gère les sauvegardes
ZSHOP gère le magasin
ZTERSACR gère la création d'un nouveau personnage
ZTERSAFC gère votre situation géographique, votre environnement
ZVENDRE gère vos ventes et les propositions des clients
Bravo! vous avez tout lu! et maintenant bon recopiage!
(euh s'il vous plait est-ce que vous pourriez laisser la présentation du jeu intacte avec mon nom et pas le votre SVP. Je sais c'est contraire aux lois du forum, ce programme n'est plus a moi puisque je l'ai publié, mais j'ai quand même un pincement au coeur: c'est mon premier gros programme, et j'y ai passé 5 mois! C'est pourquoi je vous remercie de votre clémence et de votre pitié.titozzz le 26/01/2010 à 17:53
Comment telecharge t'on tes fichiers

Persalteas le 26/01/2010 à 18:38
hélas mon pauvre, on ne télécharge pas! on recopie!
alors:
- les $ signifient flèche "sto"
- les @ signifient thêta ([alpha],[3])
- les /=/ signifient différent (normalement = barré)
- les <= c'est "inférieur ou égal", les >= c'est "supérieur ou égal"
- veuillez respecter les espaces et les entrées (sign deux points ":" )
- L5 et L6 c'est les listes ([2nde],[5] et [2nde],[6])
-[J] est une matrice.
- la ou c'est marqué
96 espaces, il faut faire 96 fois [alpha],[0]
Bonne chance!
Code
programmeHERSSAHE
:AxesNAff
:EffVar B
:FonctOff
:If Q=7614:prgmZ1FOIS
:If Q=8998:Goto Y
:If Q=124421:prgmZTERSACR
:If Q=123321 ou Q=1221:prgmZSAUVER
:PleinEcr
:Normal
:Flottant
:QuadAff
:0$Xmin
:0$Ymin
:5$Xmax
:4$YmaxIf K=24 et ((V>1) ou (V=1 et Z>1)):Then
:Texte(62-(16@+9),18Z-7," "
:Z-1$Z
:End
:1$Xgrad
:1$Ygrad
:Texte(57,0,"[couleur=#0000AA] 96espaces [/couleur]"
:SauveImage 1
:QuadNAff
:94$Xmax
:62$Ymax
:EffEcr
:Output(1,1,"PERSALTEAS GAMES
:Output(4,5,"HERSSAHE
:Output(6,1," VIRTUAL ROLE PLAYING GAME 3.0
:For(K,1,300):End
:Cercle(47,30,29
:Cercle(47,30,23
:Ligne(25,26,40,26
:Ligne(42,28,44,38
:Ligne(45,39,47,40
:Ligne(48,40,50,39
:Ligne(51,38,54,28
:Ligne(54,27,56,25
:Ligne(56,25,69,25
:Pt-On(41,27
:Cercle(47,19,4
:Texte(16,32,"HERSSAHE
:Texte(0,0,"BUISNESS
:Texte(0,62,"ET BASTON
:For(K,1,94)
:Texte(57,0,"LOADING..."
:Ligne(K,0,K,7
:End
:EffDessin
:RappelImage 1
:Menu("PARTIE","EN COURS",BX,"CREER ELEMENT",A)
:Lbl A
:Menu("NOUVEAU","MONDE",C,"PERSONNAGE",D)
:Lbl C
:EffEcr
:Output(4,3,"CHARGEMENT..."
:matAléat(10,10)$[J]
:-10$[J](10,1)
:8998$Q
:
:"DESCENDEZ"
:
:
:
:TAPEZ 'MATRICE'ET SELECTIONNEZ LE NOM DE VOTRE NOUVEAU MONDE APRES LA FLECHE.ENSUITE,REDEMARELE PROGRAMME ET TAPE 'VOIR' A L'ERREUR...
:Lbl Y:[J]$
:0$Q
:
:
:
:
:EFFACEZ LE NOM SVP
:
:
:
:Goto BX
:Lbl D
:prgmZTERSACR
:Lbl BX
:EffEcr
:Disp "TAPEZ '2nde' ET
:Disp "'STATS' PUIS
:Disp "SELECTIONNEZ LE
:Disp "JOUEUR SOUHAITE
:Input L6
:EffEcr
:{1,1}$dim([J])
:Output(1,1,"TAPEZ 'MATRICE' ET SELECTIONNEZ LE MONDE CHOISI:
:Disp "T
:Disp "E
:Disp "L
:Input [J]
:L6(15)$V
:L6(16)$W
:L6(17)$Z
:L6(18)$@
:prgmZTERSAFC
:Lbl B
:codeTouche$K
:If K=24 et ((V>1) ou (V=1 et Z>1)):Then
:Texte(62-(16@+9),18Z-7," "
:Z-1$Z
:End
:If K=25 et ((W<10) ou (W=10 et @<3)):Then
:Texte(62-(16@+9),18Z-7," "
:@+1$@
:If Z=4 et @=2 et A=1:91$A
:End
:If K=26 et ((V<10) ou (V=10 et Z<5)):Then
:Texte(62-(16@+9),18Z-7," "
:Z+1$Z
:End
:If K=34 et ((W>1) ou (W=1 et @>1)):Then
:Texte(62-(16@+9),18Z-7," "
:@-1$@
:End
:If K=45:Then
:Menu("SAUVEGARDER?","OUI",B1,"NON",B2)
:Lbl B1
:prgmZSAUVER
:Lbl B2
:EffDessin
:EffEcr
:Stop
:End
:If K=44 et L6(12)>0:prgmZPETITFC
:If V/=/1:Texte(22,0,"<"
:If V=1:Texte(22,0," "
:If V/=/10:Texte(22,91,">"
:If V=10:Texte(22,91," "
:If W/=/1:Texte(47,46,"V"
:If W=1:Texte(47,46," "
:If W/=/10:Texte(0,46,"^"
:If W=10:Texte(0,46," "
:
:If Z<1:Then
:5$Z:0$B
:V-1$V
:EffDessin
:RappelImage 1
:0$A
:prgmZTERSAFC
:End
:
:If @>3:Then
:1$@:0$B:0$A
:W+1$W
:EffDessin
:RappelImage 1
:0$A
:prgmZTERSAFC
:End
:
:If @<1:Then
:3$@:0$B
:W-1$W:
:EffDessin
:RappelImage 1
:0$A
:prgmZTERSAFC
:End
:
:If Z>5:Then
:1$Z:0$B
:V+1$V
:EffDessin
:RappelImage 1
:0$A
:prgmZTERSAFC
:End
:Texte(62-(16@+9),18Z-7,"X"
:Texte(57,0,"LONGITUDE=",V," "
:Texte(57,50,"LATITUDE=",W," "
:If V=10 et W=10 et Z=4 et @=2 et L6(4)<9:Then
:Menu("GO NEXT LEVEL?","YES",41,"NO",42)
:Lbl 41
:L6(4)+1$L6(4)
:EffDessin
:Texte(30,40,"LEVEL ",L6(4))
:Pause
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:Lbl 42
:3$Z
:End
:If A=2 et Z=C et @=D:prgmZPETITFC
:If A=91:prgmZMAISON
:If B=3 et Z=C et @=D:prgmZCOMBATS
:If L6(24)=100 ou L6(24)=200 ou L6(24)=350:prgmZ1FOIS
:If L6(4)=9 et V=10 et W=10 et Z=4 et @=2:prgmZ1FOIS
:If Z=4 et @=2 et V=1 et W=1:prgmZPETITFC
:Goto B
voilà.le programme suivant arrivera plus tard.
Persalteas le 26/01/2010 à 18:41
euh, à coté des 96 espaces, les "couleur" et autres "/couleurs" ne sont pas prévus. Boulette de ma part.
on doit juste mettre 96 espaces en tapant [alpha],[3](normalement vous avez comprisPersalteas le 26/01/2010 à 18:46
ici, le L tout seul, c'est une fonction et pas une lettre, attention.
Code
voilà le programme Z1FOIS:
:If Q=7614:Goto 5
:If L6(24)=100:Then
:EffEcr
:Output(4,1,"ATTAQUE CHOCKED DEBLOQUEE!")
:For(K,1,500):End
:101$L6(24)
:EffEcr
:End
:If L6(24)=200:Then
:EffEcr
:Output(4,1,"ATTAQUE DESTROY DEBLOQUEE!")
:For(K,1,500):End
:201$L6(24)
:EffEcr
:End
:If L6(24)=350:Then
:EffEcr
:Output(4,1,"ATTAQUE SISMIK DEBLOQUEE!")
:For(K,1,500):End
:351$L6(24)
:EffEcr
:End
:If L6(4)=9 et V=10 et W=10 et Z=4 et @=2:Then
:If L6(23)/=/0:Then
:EffDessin
:Texte(0,0,"VOUS NE POUVEZ PAS!")
:Texte(7,0,"VOUS AVEZ ENCORE UNE MISSION")
:Texte(14,0,"EN COURS!!")
:Pause
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:Goto 5
:End
:For(K,1,50)
:Pt-On(entAléat(0,94),entAléat(0,62))
:End
:Texte(10,10,"JEU TERMINE"
:Texte(20,10,"BRAVO ET FELICITATIONS!"
:Texte(27,10,"VOTRE AVATAR EST LE PLUS"
:Texte(33,10,"PUISSANT D'HERSSAHE!"
:For(K,1,2000):End
:Lbl 5
:0$J
:If Q=7614:5$J
:7614$Q
:If J=5:0$Q
:"ECRIVEZ LE NOM DE VOTRE AVATARICI:
:EffListe L
:"EFFACEZ LE NOMET COMMENCEZ UNENOUVELLE PARTIE!
:
:End
titozzz le 26/01/2010 à 18:48
Est ce que tu joindra un .83P? ou est ce que quelqu'un s'en chargera ^^?Persalteas le 26/01/2010 à 18:49
si tu m'explique comment faire je veux bienPersalteas le 26/01/2010 à 18:53
une question (plus précisément au webmaster car c'est lui qui connait le mieux le forum):
Est-ce que quelqu'un a déjà essayé un RPG ou je suis le prems?titozzz le 26/01/2010 à 18:56
Je m'y connais po trop mais je pense que tu télécharge ti graph link 83 et que tu recopie avec ce logiciel puis tu enregistre et hop^^

Rézus le 26/01/2010 à 19:30
Et désolé pour toi mais Mad67 avait déjà posté un rpg (RPG3) voir plus puisque c'est son troisième.Après je sais que quelqu'un avait parlé d'une adaptation d'Oblivion, mais il n'y a pas eu de suite,et monstercrunch avait aussi demandé de l'aide pour en faire un.sypotu le 26/01/2010 à 20:56
à lire les regles ça donne envie !

dans ma signature tu as un lien vers un site qui te permet de creer des .83p sans rien telecharger
Persalteas le 27/01/2010 à 16:15
Merci pour le lien sypotu.
eh ben, une fois que j'aurais déjà posté ça à l'écrit, j'essayerai de le faire en .82p et .83p.
En attendant, voilà le plus gros programme: ZCOMBATS.
Je vais essayer de retrouver le RPG de mad67.
Celui que je vous présente, c'est la version 3 de mon premier RPG.
A chaque version je l'améliore et je continuerai: rajouter des attaques différentes, créer de nouvelles mission, parce qu'il y en a que deux pour l'instant différentes (mais bon, on peut faire deux fois la même et de toutes façon je fais rarement plus de 2 missions dans 1 partie.
- bon, pour les caractères et les listes, même précautions que dans les 2 programmes précédents.
- quand c'est marqué "+45 espaces", vous savez ce qu'il vous reste à faire.Attention, ça arrive souvent. toujours respecter le nombre d'espaces.
-ne vous trompez pas en recopiant ce programme(parenthèses des listes), sinon vous pouvez dire adieu à mes super graphismes et le jeu risque de foirer.
Allez, bonne chance, pour les courageux qui ont la flemme d'attendre une éventuelle version à télécharger!
Code
programme ZCOMBATS
:24$dim(L5)
:Z$N
:@$O
:1$F
:entAléat(1,1000)*2*L6(4)$L5(1)
:ent(entAléat(1,200)*1.5*L6(4))$L5(2)
:ent(entAléat(1,200)*1.5*L6(4))$L5(3)
:entAléat(0,100)$L5(19)
:ent(entAléat(1,100)*1.5*L6(4))$L5(24)
:Texte(57,0,"ENGAGEZ LE COMBAT !+24 espaces"
:Lbl T
:If F=1:L6(24)$E
:If F=2:L5(24)$E
:N$M:O$T
:Z$N:@$O
:M$Z:T$@
:0$R
:Lbl 1
:If F=1:codeTouche$K
:If R>=3+(L6(8)>0) et (K=24 ou K=25 ou K=26 ou K=34):0$K
:If F=2:Then
:entAléat(1,4)$K
:Texte(62-(16O+9),18N-7,"X"
:For(M,1,entAléat(1,5))
:Texte(62-(16@+9),18Z-7," "
:Texte(62-(16@+14),18Z-9," "
:If K=1:Z-1$Z
:If K=2:@+1$@
:If K=3:Z+1$Z
:If K=4:@-1$@
:If @>3:3$@
:If @<1:1$@
:If Z<1:1$Z
:If Z>5:5$Z
:Texte(62-(16@+9),18Z-7,"@ "
:Texte(62-(16@+14),18Z-9,L5(1))
:For(H,1,100):End
:End
:entAléat(1,3)$K
:If L5(24)>100:entAléat(1,4)$K
:If K=1:92$K
:If K=2:93$K
:If K=3:84$K
:If K=4:82$K
:End
:If K=24 et ((V>1) ou (V=1 et Z>1)):Then
:Texte(62-(16@+14),18Z-9,"+19 espaces"
:Texte(62-(16@+9),18Z-7," "
:Z-1$Z
:R+1$R
:End
:If K=25 et ((W<10) ou (W=10 et @<3)):Then
:Texte(62-(16@+14),18Z-9,"16 espaces"
:Texte(62-(16@+9),18Z-7," "
:@+1$@
:R+1$R
:End
:If K=26 et ((V<10) ou (V=10 et Z<5)):Then
:Texte(62-(16@+14),18Z-9,"16 espaces"
:Texte(62-(16@+9),18Z-7," "
:Z+1$Z
:R+1$R
:End
:If K=34 et ((W>1) ou (W=1 et @>1)):Then
:Texte(62-(16@+14),18Z-9,"16 espaces"
:Texte(62-(16@+9),18Z-7," "
:@-1$@
:R+1$R
:End
:If Z<1:1$Z
:If Z>5:5$Z
:If @<1:1$@
:If @>3:3$@
:If F=1:Then
:Texte(62-(16@+9),18Z-7,"X"
:Texte(62-(16@+14),18Z-9,L6(1))
:Texte(62-(16O+9),18N-7,"@"
:Texte(62-(16O+14),18N-9,L5(1)
:Texte(57,77,"PM=",(3+(L6(8)>0))-R)
:End
:If F=2:Then
:Texte(62-(16@+9),18Z-7,"@"
:Texte(62-(16@+14),18Z-9,L5(1))
:Texte(62-(16O+9),18N-7,"X"
:Texte(62-(16O+14),18N-9,L6(1)
:End
:If N=Z et O=@:Texte(62-(16O+9),18N-4,"X"
:If K=12:Then
:EffEcr
:Output(1,1,"VIE:")
:Output(1,8,L6(1))
:Output(2,1,"ATT:")
:Output(2,8,L6(2))
:Output(3,1,"DEF:")
:Output(3,8,L6(3))
:Output(4,1,"PRECIS:")
:Output(4,9,L6(19))
:Output(5,1,"EXP:"
:Output(5,8,L6(24))
:For(K,1,1500):End
:EffEcr
:End
:If K=13:Then
:EffEcr
:Output(1,1,"VIE:")
:Output(1,8,L5(1))
:Output(2,1,"ATT:")
:Output(2,8,L5(2))
:Output(3,1,"DEF:")
:Output(3,8,L5(3))
:Output(4,1,"PRECIS:")
:Output(4,9,L5(19))
:Output(5,1,"EXP:"
:Output(5,8,L5(24))
:For(K,1,1500):End
:EffEcr
:End
:If F=1:L6(19)-4*((abs(@-O)+abs(Z-N))/2)$P
:If F=2:L5(19)-4*((abs(@-O)+abs(Z-N))/2)$P
:If K=92:Texte(57,0,"ATTAQUE BOURIN! "
:If K=93:Texte(57,0,"ATTAQUE PRECISE! "
:If K=94:Texte(57,0,"ATTAQUE ENERGIQUE! "
:If E>=100 et K=82:Texte(57,0,"ATTAQUE CHOCKED! "
:If E>=200 et K=83:Texte(57,0,"ATTAQUE DESTROY! "
:If E>=350 et K=84:Texte(57,0,"ATTAQUE SISMIK! "
:0$J
:If K=92 ou K=93 ou K=94 ou (E>=100 et K=82) ou (E>=200 et K=83) ou (E>=350 et K=84):Then
:For(R,1,P)
:Texte(62-(16@+9),18Z-7,"°"
:If K=92 ou (K>=82 et K<=84):entAléat(1,70)$J
:If K=93:entAléat(1,60)$J
:If K=94:entAléat(1,125)$J
:Texte(62-(16@+7),18Z-7,"°"
:If J=51:P+1$R
:If J=51:75$J
:End
:If J=75:Then
:Texte(57,0,"TOUCHE!! ")
:If F=1:Then
:If K=92:ent(L5(1)-(L6(2)*L6(7))+(L6(2)*L5(3)/200))$L5(1)
:If K=93:ent(L5(1)-L6(2)-P+L5(3)/P+L5(19)$L5(1)
:If K=94:ent(L5(1)-L6(1)-L6(2)+L5(3))$L5(1)
:If K=82:L5(1)-L6(2)-L6(24)+L5(3)+L5(24)$L5(1)
:If K=83:Then
:0$J:For(K,1,100):End
:EffEcr
:Output(1,1,"A CHAQUE FOIS QUE VOUS APPUYEZSUR LE BOUTON ORANGE VOTRE ADVERSAIRE PERD 10 POINTS DE VIE"
:For(K,1,1000)
:If codeTouche=31:J+10$J
:End
:L5(1)-J$L5(1)
:End
:If K=84:L5(1)-L6(1)-L6(24)+L5(3)+L5(24)$L5(1)
:End
:If F=2:Then
:If K=92:ent(L6(1)-(L5(2)*L5(7))+(L5(2)*L6(3)/200))$L6(1)
:If K=93:ent(L6(1)-L5(2)-P+L6(3)/P+L6(19)$L6(1)
:If K=94:ent(L6(1)-L5(1)-L5(2)+L6(3))$L6(1)
:If K=82:L6(1)-L5(2)-L5(24)+L6(3)+L6(24)$L6(1)
:If K=84:L6(1)-L5(1)-L5(24)+L6(3)+L6(24)$L6(1)
:End
:If K=92:Ligne(18Z-7,16@+6,18N-6,16O+6
:If K=93:Then
:N$P:O$R
:18N-7$N
:16O+9$O
:Ligne(N,O,N+3,O-4
:Ligne(N-7,O-4,N+3,O-4
:Ligne(N+4,O-6,N+3,O-11
:Ligne(N+6,O-6,N+3,O-11
:Ligne(N+6,O-6,N+11,O-9
:Ligne(N+8,O-4,N+11,O-9
:Ligne(N+8,O-4,N+17,O-2
:Ligne(N+1,O-1,N+17,O-2
:Ligne(N+1,O-1,N+1,O+5
:Ligne(N+6,O-1,N+1,O+5
:Ligne(N+6,O-1,N,O
:P$N:R$O
:End
:If K=94:Then
:Ligne(18Z-7,16@+6,18N-6,16O+6)
:Cercle(18N-7,16O+9,6)
:End
:If K=82:Then
:For(J,1,10)
:Pt-On(18N-5,16O+6,3)
:Pt-Off(18N-5,16O+6)
:For(K,1,50):End
:Texte(62-(16O+9),18N-7," ")
:For(K,1,50):End
:End
:End
:If K=84:Then
:SauveImage 0
:For(K,1,10
:EffDessin
:RappelImage 0
:For(J,1,20):End
:End
:End
:Else
:Texte(57,0,"LOUPE!!! +42 espaces "
:End
:For(K,1,300):End
:0$M
:If F=1:8118$M
:If F=2:1$F
:If M=8118:2$F
:118008$M
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If K=75 et L6(13)>0:Then
:Texte(57,0,"KILLER LANCE!!! ")
:For(R,1,50)
:Texte(62-(16@+9),18Z-7;"°
:Texte(62-(16@+7),18Z-7;"°
:End
:Texte(57,0,"QUASI DETRUIT!! ")
:L5(1)-8L6(2)$L5(1)
:L5(2)/2$L5(2)
:L6(13)-1$L6(13)
:Ligne(18Z-7,16@+6,18N-6,16O+6)
:For(K,1,300):End
:0$M
:If F=1:8118$M
:If F=2:1$F
:If M=8118:2$F
:118008$M
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If K=85 et L6(26)>0:Then
:Texte(57,0,"LIBERATION!!! "
:For(R,1,50)
:Texte(62-(16@+9),18Z-7;"°
:Texte(62-(16@+7),18Z-7;"°
:End
:Texte(57,0,"LIBERES!!! +40 espaces "
:3$@:1$Z:1$O:5$N
:EffDessin
:RappelImage 1
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:Texte(62-16*3-9,11,"X
:Texte(35,18*5-7,"@
:0$M
:If F=1:8118$M
:If F=2:1$F
:If M=8118:2$F
:118008$M
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If K=65 et L6(27)>0:Then
:Texte(57,0,"PRECISIOREDUCTOR!"
:For(R,1,50)
:Texte(62-(16@+9),18Z-7;"°
:Texte(62-(16@+7),18Z-7;"°
:End
:Texte(57,0,"REDUIT! +45espaces "
:ent(L5(19)/2)$L5(19)
:Cercle(18Z-7,16@+9,6)
:Cercle(18N-7,16O+9,6)
:0$M
:If F=1:8118$M
:If F=2:1$F
:If M=8118:2$F
:118008$M
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If K=95 et L6(28)>0:Then
:Texte(57,0,"PUISSANCIOREDUCTOR!"
:For(R,1,50)
:Texte(62-(16@+9),18Z-7;"°
:Texte(62-(16@+7),18Z-7;"°
:End
:Texte(57,0,"REDUIT! +45 espaces "
:ent(2L5(2)/3)$L5(2)
:Cercle(18Z-7,16@+9,6)
:Cercle(18N-7,16O+9,6)
:0$M
:If F=1:8118$M
:If F=2:1$F
:If M=8118:2$F
:118008$M
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If k=105 et L6(30)>0:Then
:Texte(57,0,"DESERTEUR!! "
:For(K,1,300):End
:7777$M
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If L5(1)<=0:Then
:Texte(62-(16@+9),18Z-7,"WON!
:.1$[J](11-W,V)
:0$A
:0$B
:For(K,1,200):End
:ent(L6(4)/2*entAléat(0,5)$F
:ent(L6(4)/2*entAléat(0,5)$K
:ent(L6(4)/2*entAléat(0,500)$J
:F+L6(6)$L6(6)
:F+L6(8)$L6(8)
:K+L6(5)$L6(5)
:K+L6(7)$L6(7)
:J+L6(11)$L6(11)
:J+L6(14)$L6(14)
:EffDessin
:Texte(0,0,"BRAVO! VOTRE ADVERSAIRE:"
:Texte(10,15,"AVAIT:"
:Texte(20,15,"- ",K,"ARMES OFFENSIVES"
:Texte(27,15,"- ",F,"ARMES DEFENSIVES"
:Texte(34,15,"- ",J,"DEKES"
:For(K,1,1000):End
:ent(L5(18)/1000)$L5(18)
:L6(24)+L5(18)+1$L6(24
:EffListe L5
:RappelImage 1
:prgmZTERSAFC
:7777$M
:End
:If L6(1)<=0:Then
:Texte(62-(16@+14),18Z-9,"LOST!"
:For(K,1,200):End
:EffDessin
:Texte(30,15,"VOTRE ADVERSAIRE VOUS"
:Texte(37,20," DEPOUILLE"
:1$L6(1)
:L6(11)-L6(14)$L6(11)
:L6(10)-L6(13)$L6(10)
:L6(9)-L6(12)$L6(9)
:L6(6)-L6(8)$L6(6)
:L6(5)-L6(7)$L6(5)
:0$L6(7
:0$L6(8
:0$L6(12
:0$L6(13
:0$L6(14)
:7777$M
:For(K,1,500):End
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If M=7777:Goto 2
:If M=118008:Goto T
:Goto 1
:Lbl 2
:0$A
:EffListe L5
Rézus le 27/01/2010 à 16:23
Et au fait,combien de place prend le programme au total ?Persalteas le 27/01/2010 à 16:30
HERSSAHE 2182
Z1FOIS 700
ZCOMBATS 5506
ZMAISON 2566
ZPETITFC 791
ZSAUVER 383
ZSHOP 2713
ZTERSACR 634
ZTERSAFC 951
ZVENDRE 1544
TOTAL 17970. MAIS si ça vous éclate, vous pouvez supprimer tous les guillemets, parenthèses et autres trucs qu'on peut enlever sans altérer la fonction. Ca vous simplifiera le programme d'au moins 1000.
(et encore, la version 2 faisait 18975!!)Rézus le 27/01/2010 à 17:38
Ouah,sacré travail.J'ai jamais dépassé les 12000 ^^.Et encore la dedans t'as pas compté les listes et les matrices

sypotu le 27/01/2010 à 17:45
Ouai franchement bravo rien que pour la taille du programme !!!

Persalteas le 27/01/2010 à 18:08
ensuite, c'est 908 par monde et 282 par joueur.
on peut très bien jouer avec un seul joueur et un seul monde.
L'intéret d'avoir plusieurs joueurs, c'est par exemple dans la mission "vider la carte de tous les bonhommes" et que tu es un petit joueur faible, tu quittes, tu redémarres, et tu choisis de jouer dans le même monde, mais avec le joueur boss qui te nettoie la carte en moins de 2.
Tu sauvegardes, et tu reviens avec ton petit nul qui reçoit sa récompense pour mission accomplie.
Bon, a propos, je vous devais des précisions sur les sorts utilisés en combat.
il y a le killer, [*], qui divise par 2 les points d'attaque de l'adversaire, et enlève 8 fois tes points de défense a ses points d'attaque.
il y a l'écarteleur, [-], qui met la plus grande distance entre vous et l'adversaire
il y a le précisioréductor, [/], qui divise par 2 la précision de l'autre.
il y a le puissancioréductor,[+], qui enlève les deux tiers de ses points d'attaque à l'adversaire,
il y a le go, [enter], qui vous permet de déserter un combat, vous pouvez fuir, mais vous ne dépouillez pas l'adversaire.
Tous ces sorts s'achètent en magasin.
il existe aussi un objet: le téléporteur qui vous permet d'aller un endroit précis sans devoir appuyer des centaines de fois sur une flèche, exemple, batiment que vous avez repéré.
(oui, a propos, la carte est un grand carré de 10 maps sur 10, chaque map est un rectangle de 3 cases par 5)
Pour se téléporter, appuyez sur [var] quand vous avez acheté un téléporteur, la on vous demande la latitude et la longitude.Entrez les sous forme numéro de la map/point/numéro de la case.
Ex: téléportation sur la map (3,5) en case (1,2)
Code
TELEPORTATION:
LATITUDE? 3.1
LONGITUDE? 5.2
Voilà. a + pour la suite du programme.
titozzz le 27/01/2010 à 18:14
Tu gere mais s'il te plait commence par le .83p , y'ora plus de moi content^^(et moi d'abord =p)

sypotu le 27/01/2010 à 18:19
Tout le monde peux le faire ce .83p
on a qu'a chacun en faire 1
moi je fais le 1er HERSSAHEtitozzz le 27/01/2010 à 18:21
Jveux bien aide mais pas me taper le gros en entier ^^ dites moi cke je fais

titozzz le 27/01/2010 à 18:27
Pouvez vous me dire a quoi correspondent les $ etc... plz
mici, avec un bon Ctrl+C sur ti -editor ca va etre vitee régléMonstercrunch le 27/01/2010 à 18:45
Franchement bravo, j'imagine pas comment tu as eu le courage de faire ça, surtout si tu l'a fait seul ( mais je pense que c'est la cas ). On m'a cité un peu plus tôt, ça me ferai plaisir que tu passe voir mon projet. Contrairement à toi, j'ai juste les idées mais pas les compétences... je fais souvent appel à d'autres pour m'aider. Encore une fois chapeau, et je veux bien aider pour recopier un bout de code en .83p, ça je sais faire ;ptitozzz le 27/01/2010 à 18:46
A quoi correspond le @ (si j'ai la reponse j'ai recopié le 700 otitozzz le 27/01/2010 à 19:05
Quelqu'un silvouplait pour me dire a quoi correspond le @ dans:
:If L6(4)=9 et V=10 et W=10 et Z=4 et
@=2:Then

olivier le 27/01/2010 à 19:19
faut lire les mecs^^
Citation
- les $ signifient flèche "sto"
- les @ signifient thêta ([alpha],[3])
- les /=/ signifient différent (normalement = barré)
- les <= c'est "inférieur ou égal", les >= c'est "supérieur ou égal"
- veuillez respecter les espaces et les entrées (sign deux points ":" )
- L5 et L6 c'est les listes ([2nde],[5] et [2nde],[6])
-[J] est une matrice.
- la ou c'est marqué 96 espaces, il faut faire 96 fois [alpha],[0]
titozzz le 27/01/2010 à 19:23
Ups j'avais po vu bon me mank plus que la traduction de rappelmimage 1 en francais->anglais je dois y aller je re plus tard mici
ps; le pgrm Z1FOIS est géré

sypotu le 27/01/2010 à 20:26
rappel image ça doit être un truc du style recallpic
moi non plus j'ai pas fini, je continuerai ce week end, la je bosse pour le jeu d'echecs...titozzz le 28/01/2010 à 19:40
Z1FOIS et ZCOMBATS terminés!!

Persalteas le 28/01/2010 à 19:51
Alors , là, merci tout le monde, hein!
joie extrême mèlée de jubilation intense!
C'est vraiment cool, les gars, je débarque sur le forum,et je vois que vous avez pris des initiatives! merci beaucoup ça m'évite du boulot.
(euh, je dis les gars, mais il y a peut être des filles?)
Euh, titozzz, tu as déjà traduit les deux programmes en anglais ou tu les as mis en format .83p ?
et d'ailleurs, il y a des gens qui m'ont demandé mon programme sur une calto en anglais et je sais pas comment leur filer, par cable c'est pas compatible...
Le format .83p ça marche sur les calto en français ou en anglais?
Ce seraitr bien si il existait un logiciel du genre Ti graph link qui puisse traduire...Persalteas le 28/01/2010 à 19:52
et si vous les avez transcrits en 83p ou est-ce que je peux les récupérer?Persalteas le 28/01/2010 à 19:55
C'est qui monster crunch? quand est-ce qu'on a parlé de toi?
c'est toi l'ancien mad67?titozzz le 28/01/2010 à 20:46
J'ai du les traduire en anglais avant de les enregistrer en .83P
=)
je sais pas comment les mettre en ligne
mais si vous dites je le fais =)

Persalteas le 28/01/2010 à 21:00
désolé moi je sais pas, c'est dans la signature de sypotu.
Est-ce que c'est possible de les mettre en .83p en français (t'inquiète je le ferais moi même)?titozzz le 28/01/2010 à 21:01
Je pense c'est possible mais normalement c'est automatiquement traduit
peut tu me mettre le suite , j'ai fini Herssahe^^ =pPersalteas le 28/01/2010 à 21:10
Donc la ta déjà traduit les trois que j'ai donné et écrits sous forme de .836p ?
A mon tour de dire chapeau!!

Euh, pour la suite faudra attendre samedi j'ai pas encore recopié et la j'ai peut être pas le temps.
J'essaie quand même.
titozzz le 28/01/2010 à 21:23
J'ai fais Ctrl+C et j'ai corrigé les erreurs + traduction si tu veux tu peux me passer demi-programme

Persalteas le 28/01/2010 à 21:29
Ah aussi: ne pas protéger les programmes ZSAUVER, Z1FOIS ET ZTERSACR:
Ils ont besoin d'être éditables.
Ce programme, je viens de le modifier en le simplifiant. il est donc beaucoup plus léger que je l'avais annoncé.
Bon, faites toujours gaffe aux entrées et aux espaces, les L6 sont toujours des listes.
Bonne chance tiozz si tu recopies tout ce soir.Moi j'arrête.
[code programme ZTERSACR]
:If Q=124421:1$Q
:If Q=1:Goto O1
:Lbl N
:EffEcr
:Output(1,1," APRES CHAQUE MESSAGE D'ERREUR TAPEZ 'VOIR'."
:{100,50,50,1,1,1,1,1,0,0,500,0,0,500,6,6,4,3,50,0,0,0,0,0,0,0,0,0,0,0}$L6
:For(Q,1,900)
:End
:124421$Q
:EffEcr
:
:
:
:
:
:Lbl O1
:"ECRIRE LE NOM APRES LE PETIT LET REDEMARER LE PROGRAMME(NOM ENQUATRE LETTRES)"
:L6$L ce L en rouge est une fonction
:
:EffVar Q
:A PRESENT,VOUS POUVEZ EFFACER LE NOM APRES LE L POUR EVITER UN BUG. VOTRE PERSONNAGE SERA ENREGISTRE APRES----TERMINE.----
[/code]Persalteas le 28/01/2010 à 21:30
Merde, ça a pas pris. Quelles erreurs?
Code
:If Q=124421:1$Q
:If Q=1:Goto O1
:Lbl N
:EffEcr
:Output(1,1," APRES CHAQUE MESSAGE D'ERREUR TAPEZ 'VOIR'."
:{100,50,50,1,1,1,1,1,0,0,500,0,0,500,6,6,4,3,50,0,0,0,0,0,0,0,0,0,0,0}$L6
:For(Q,1,900)
:End
:124421$Q
:EffEcr
:
:
:
:
:
:Lbl O1
:"ECRIRE LE NOM APRES LE PETIT LET REDEMARER LE PROGRAMME(NOM ENQUATRE LETTRES)"
:L6$L ce L en rouge est une fonction
:
:EffVar Q
:A PRESENT,VOUS POUVEZ EFFACER LE NOM APRES LE L POUR EVITER UN BUG. VOTRE PERSONNAGE SERA ENREGISTRE APRES----TERMINE.----
sypotu le 28/01/2010 à 21:33
bravo titozzz !!!
pour les metre en ligne je te conseille d'utiliser Mediafire (cherche sur google) Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.