Poster un nouveau sujet Poster une réponse Page: 1, , ,      >>
récapitulatif monde HERSSAHE
Auteur Message
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:10   Citer 

Voilà, alors, pour ceux qui auraient une erreur dim, comme titozz, je chercherait plus tard.
Mais pour les courageux du recopiage, voilà 15 Ko de prog qui fonctionne sur certaines caltos et pas d'autres.
voilà les dix progs composant HERSSAHE, (euh ZSHOP) arrivera un peu en retard), puis c'est la que je posterait une version en 83p quand j'aurais le temps.

tout d'abord, les rêgles:

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

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:12   Citer 

prgmHERSSAHE (contient peut-être une erreur)

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


: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

 



 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:13   Citer 

prgmZ1FOIS


ici, le L tout seul, c'est une fonction et pas une lettre, attention.




Code



: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
 



 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:15   Citer 

prgmZCOMBATS

- 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


Code

: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



 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:16   Citer 

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
 




 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:18   Citer 

ne pas protéger les programmes ZSAUVER, Z1FOIS ET ZTERSACR:
Ils ont besoin d'être éditables.


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.----
 





 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:19   Citer 

prgmZTERSAFC


Code

If abs(partDéc(([J](11-W,V)/2)))=.5:Then
If [J](11-W,V)=<0:1$G
If [J](11-W,V)>=0:2$G
For(C;1,G)
arrondi(W/5,0)$E
arrondi(V/2,0)$D
If E=0:2$E
If C=2:E+1$E
If C=2:D+1$D
62-(16E+9)$Y
18D-7$X
Ligne(X,Y,X,Y+11
Ligne(X+3,Y,X+3,Y+10
Ligne(X+5,Y+10,X+2,Y+10
Ligne(X+2,Y+10,X-1,Y+13
Ligne(X-1,Y+13,X-5,Y+14
Ligne(X-5,Y+14,X-6,Y+18
Ligne(X-6;Y+18,X-2,Y+22
Ligne(X-2,Y+22,X+3,Y+23
Ligne(X+8,Y+22,X+3,Y+23
Ligne(X+8,Y+22,X+11,Y+15
Ligne(X+5,Y+10,X+11,Y+15
Ligne(X+7,Y+11,X+11,Y+8
Ligne(X+16,Y+14,X+11,Y+8
Ligne(X+16,Y+14,X+13,Y+21
Ligne(X+9,Y+20,X+13,Y+21
Ligne(X+9,Y+9,X+9,Y+1
Ligne(X+11,Y+1,X+11,Y+8
Ligne(X+15,Y,X+6,Y+1
Ligne(X-3,Y-1,X+6,Y+1
End
End
If W=10 et V=10:Then
Ligne(70,25,70,40
Ligne(75,25,75,40
Ligne(67,41,78,41
End
If [J](11-W,V)=0:Then
Cercle(18Z-6,16@+7,2)
entAléat(1,10)$V
entAléat(1,10)$W
Texte(62-(16@+9),18Z-8,"     "
Texte(62-(16@+9),18Z-7,"X"
End
If [J](11-W,V)=1 ou (V=1 et W=1):Then
1$A
If V=1 et W=1:0$A
Ligne(79,47,64,56
Ligne(47,47,64,56
Ligne(47,47,79,47
Ligne(52,46,52,27
Ligne(74,27,52,27
Ligne(74,27,74,47
Ligne(70,27,70,34
Ligne(63,34,70,34
Ligne(63,34,63,27
End
If [J](11-W,V)=-1:Then
2$A
entAléat(1,5)$C
entAléat(1,3)$D
End
If [J](11-W,V)>2 et B=/=3:Then
3$B
entAléat(1,5)$C
entAléat(1,3)$D
Texte(62-(16D+9),18C-7,"@"
End




 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:20   Citer 

prgmZSAUVER


Code

If Q=1221:Goto 2
If Q=123321:Goto 1
EffDessin
V$L6(15)
W$L6(16)
Z$L6(17)
@$L6(18)
EffEcr
Output(1,1,"TAPEZ 'VOIR' A L'ERREUR"
For(K,1,500)
End
123321$Q
EffEcr
Lbl 1
:::::::::::::"ECRIRE LE NOM DUJOUEUR/MONDE QUE VOUS UTILISIEZ CETTE PARTIE   PUIS REDEMMARER LE   PROGRAMME"   attention aux espaces!!
L6$L    :[J]$
1221$Q
EFFACEZ LES NOMS POUR EVITER UN BUG ET LA SAUVEGARDE SE FERA.   REDEMAREZ ENCORELE PROGRAMME.
Lbl 2
EffVar Q
EffVar [J]
EffVar L6
EffVar L5






Si vous voulez, vous pouvez vous créer un personnage en inscrivant un nouveau nom à la place de celui avec qui vous jouiez.Cet ancien n'aura pas évolué, mais vous en aurez un nouveau qui sera ce que vous êtes aux moment ou vous sauvegardez.
idem pour les mondes

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:21   Citer 

Attention!! j'ai oublié de mettre les : au début de chaque ligne.
Il faut une entrée à toutes les lignes, sauf "PARTIE...", " REDEMAREZ..."
Attention, il en faut aussi avant la ligne ou il y en a déjà 14.

prgmZPETITFC



Code
 


:If Z=C et @=D:Then
:entAléat(1,100)$C
:L6(11)+C$L6(11)
:L6(14)+C$L6(14)
:EffDessin
:Texte(15,0,"OH! LA! PAR TERRE! VOUS"
:Texte(22,15,"TROUVEZ ",C,"  DEKES!"
:For(C,0,900):End
:EffDessin
:0$A
:-10$[J](11-W,V)
:RappelImage 1
:prgmZTERSAFC
:End
:If K=44:Then
:EffEcr
:Disp "TELEPORTATION:"
:Disp " "
:Input "LONGITUDE? ",V
:Input "LATITUDE? ",W
:Texte(62-(16@+9),18Z-7,"    "
:10partDéc(V)$Z
:10partDéc(W)$@
:ent(V)$V
:ent(W)$W
:0$A:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End
:If V=1 et W=1 et Z=4 et @=2:Then
:EffDessin
:Horizontale 47
:Texte(0,9,"OFFICE DE CONTROLE DE"
:Texte(7,6,"L'EXECUTION DES MISSIONS"
:If L6(23)=0:Then
:Texte(40,0,"VOUS N'AVEZ PAS DE MISSION"
:Texte(47,30," EN COURS"
:For(K,1,500):End
:End
:If L6(23)>=1:Then
:Texte(40,10,"CONTROLE EN COURS..."
:If L6(23)=1 et L6(24)-L6(29)>=50:66$J
:If L6(23)=2:Then
:66$J
:For(K,1,10)
:For(I,1,10)
:If [J](K,I)>2
:0$J
:End
:End
:End
:If J=66:Then
:Texte(37,20,"MISSION ACCOMPLIE!!"
:Texte(50,0,"PRIME:   50000 DEKES"
:50000+L6(14)$L6(14)
:50000+L6(11)$L6(11)
:0$L6(23)
:Pause
:Else
:Texte(47,10,"MISSION NON ACHEVEE"
:Pause
:End
:End
:1$@
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:End



 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:23   Citer 

Pour avoir les lettres minuscules (annul), tapez [Var][5] et cherchez dans le cas du a et du n.Pour le u, faites [2nde][7], pour le l, faites [1].

prgmZVENDRE


Code


:Lbl 89
:If K=/=105:Goto 0
:If G=1
:Menu("VENDRE","ARMES OFF.",A,"ARMES DEF.",B,"KILLER",C,"TELEPORTEUR",D
:If G=2
:Menu("ETRE PAYE EN","ARGENT",E,"PTS DE VIE",F,"PTS D'ATTAQUE",G,"PTS DE DEF.",H,"PRECISION",I
:If G=3:Then
:Lbl 55
:EffEcr
:Output(7,1,"COMBIEN VOULEZ  VOUS EN VENDRE?"
:Input D
:D$L6(22)
:If L6(22)>L6(L6(20)):Then     oui c'est normal les 2 L6
:EffEcr
:Output(1,1,"VOUS N'EN  AVEZ PAS ASSEZ":End
:If L6(22)>L6(L6(20)):Goto 55
:EffEcr
:4617$C
:End
:If G=4:Goto 3
:Goto 0
:Lbl A
:5$L6(20)
:Texte(15,5,"ARMES ATT.          "
:Goto 0
:Lbl B
:6$L6(20)
:Texte(15,5,"ARMES DEF.          "
:Goto 0
:Lbl C
:10$L6(20)
:Texte(15,5,"KILLERS             "
:Goto 0
:Lbl D
:9$L6(20)
:Texte(15,5,"TELEPORTEUR"
:Goto 0
:Lbl E
:11$L6(21)
:Texte(15,50,"ARGENT                  "
:Goto 0
:Lbl F
:1$L6(21)
:Texte(15,50,"PTS DE VIE                  "
:Goto 0
:Lbl G
:2$L6(21)
:Texte(15,50,"PTS ATT.                  "
:Goto 0
:Lbl H
:3$L6(21)
:Texte(15,50,"PTS DEF.                  "
:Goto 0
:Lbl I
:If L6(19)=100:Then
:EffEcr
:Output(1,1,"VOUS NE POUVEZ  PLUS AUGMENTER  VOTRE PRECISION."
:For(L,1,300):End
:End
:If L6(19)=100:Goto 89
:19$L6(21)
:Texte(15,50,"PRECISION"
:Goto 0
:Lbl 3
:Texte(50,25," 30 espaces "
:Texte(40,0,"UN TYPE CHERCHE A ACHETER"
:Texte(47,0,"VOTRE MISE POUR"
:If L6(21)=11:Then
:entAléat(50,1500)*L6(22)$D
:Texte(47,54,D," DEKES"
:End
:If L6(21)=3 ou L6(21)=2:Then
:entAléat(1,10)*L6(22)$D
:Texte(74,54,D," POINTS"
:End
:If L6(21)=1:Then
:entAléat(10,80)*L6(22)$D
:Texte(74,54,D," POINTS"
:End
:If L6(21)=19:Then
:entAléat(1,20)/10*L6(22)$D
:Texte(74,54,D," °/."     oui c'est un pourcent
:End
:Pt-Off(25,10)
:Texte(57,0,"POUR ACCEPTER:  annul"
:Lbl 0
:If K=45:Then
:L6(L6(20))-L6(22)$L6(L6(20))
:L6(L6(21))+D$L6(L6(21))
:If L6(19)>100:100$L6(19)
:If L6(20)=5 et L6(7)>L6(5):L6(5)$L6(7)
:If L6(20)=6 et L6(8)>L6(6):L6(6)$L6(8)
:If L6(20)=9 et L6(12)>L6(9):L6(9)$L6(12)
:If L6(20)=10 et L6(13)>L6(10):L6(13)$L6(10)
:EffDessin
:Texte(30,10,"TRANSACTION EFFECTUEE"
:For(C,1,100):End
:4617$C
:0$L6(20)
:0$L6(21)
:0$L6(22)
:End



 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:27   Citer 

Dans les premières lignes du prog HERSSAHE, il n'y a pas de:


Citer

If K=24 et ((V>1) ou (V=1 et Z>1)):Then
:Texte(62-(16@+9),18Z-7," "
:Z-1$Z
:End



prgmZMAISON



Code


:If entAléat(0,15)=2:L6(25)+1$L6(25)
:Lbl 0
:EffDessin
:Ligne(0,62,20,54
:Ligne(94,62,74,54
:Ligne(20,54,74,54
:Ligne(20,8,0,0
:Ligne(20,8,20,54
:Ligne(20,8,74,8
:Ligne(74,8,79,5
:Ligne(74,8,74,54
:Ligne(15,5,15,22
:Ligne(3,25,15,22
:Ligne(3,25,3,2
:Ligne(40,23,50,23
:Ligne(50,14,50,23
:Ligne(50,14,40,14
:Ligne(40,23,40,14
:Ligne(42,21,48,21
:Ligne(45,14,45,6
:Texte(28,3,"SHOP"
:Texte(23,26,"BOITE AUX"
:Texte(31,41,"LETTRES"
:Texte(41,43,L6(25)
:Ligne(42,21,48,21
:Ligne(80,2,80,26
:Ligne(93,23,80,26
:Ligne(93,23,93,0
:Ligne(80,2,93,0
:Ligne(87,24,86,1
:Ligne(80,26,86,28
:Ligne(94,27,86,28
:Pt-On(94,24
:Pt-On(88,29
:Pt-On(84,15
:Pt-On(90,14
:Texte(18,66,"ARMOIRE"
:Lbl 1
:codeTouche$K
:If K=34 ou (K>=24 et K=<26):EffDessin
:If K=34:Goto 2
:If K=24:Goto 3
:If K=25:Goto 4
:If K=26:Goto 5
:Goto 1
:Lbl 3
:prgmZSHOP
:Goto 0
:Lbl 4
:Ligne(5,57,37,57
:Ligne(37,39,37,57
:Ligne(37,39,5,39
:Ligne(5,57,5,39
:Ligne(5,57,20,48
:Ligne(37,57,20,48
:Texte(31,0,"VOUS AVEZ ",L6(25)," LETTRES"
:If L6(25)>0:Texte(50,50,"SUIVANTE  >"
:codeTouche$K
:If K=34:Goto 0
:If K=26 et L6(25)>0:Then
:EffDessin
:entAléat(1,2)$L
:If L=1 et L6(23)=1:entAléat(2,2)$L   oui je sais, laissez, c'est pour si un jour je fais une version plus avancée...

:If L=2 et L6(23)=2:entAléat(1,1)$L   idem
:If L=1:Then
:EffDessin
:L6(24)$L6(29)
:1$L6(23)
:Texte(0,15,"CHER MONSIEUR:"
:Texte(6,0,"EN TANT QUE PRESIDENT DES"
:Texte(12,0,"MONDES HERSSAHE ET EN"
:Texte(18,0,"ECHANGE DE L'UTILISATION"
:Texte(24,0,"QUE VOUS FAITES DE MES SHOP"
:Texte(30,0,"PRIVES:JE VOUS DONNE POUR"
:Texte(36,0,"MISSION DE TUER 50 BANDITS"
:Texte(42,0,"QUI EUX NE LES UTILISENT"
:Texte(48,0,"PAS. FORTE RECOMPENSE."
:Texte(54,29,"LE PRESIDENT"
:Cercle(85,6,7
:Cercle(85,6,5
:Ligne(87,6,89,6
:Ligne(81,6,83,6
:Ligne(84,8,86,8
:Pt-On(86,7
:Pt-On(84,7
:Pt-On(85,9
:Pause
:L6(25)-1$L6(25)
:EffDessin
:End
:If L=2:Then
:EffDessin
:2$L6(23)
:Texte(0,15,"CHER MONSIEUR:"
:Texte(6,0,"EN TANT QUE PROPRIETAIRE"
:Texte(12,0,"DES MONDES HERSSAHE:JE"
:Texte(18,0,"PENSE QUE VOUS ETES LE SEUL"
:Texte(24,0,"ETRE SENSE DE CE MONDE ET JE"
:Texte(30,0,"VOUS DONNE POUR MISSION DE"
:Texte(36,0,"VIDER LA CARTE DE TOUT LES"
:Texte(42,0,"IGNORANTS QUI Y PULLULENT.
:Texte(48,0,"MERCI ET FORTE RECOMPENSE."
:Texte(54,29,"LE PRESIDENT"
:Cercle(85,6,7
:Cercle(85,6,5
:Ligne(87,6,89,6
:Ligne(81,6,83,6
:Ligne(84,8,86,8
:Pt-On(86,7
:Pt-On(84,7
:Pt-On(85,9
:Pause
:L6(25)-1$L6(25)
:EffDessin
:End
:End
:Goto 4
:Lbl 5
:Texte(0,0,"VOUS POSSEDEZ"
:Texte(7,7,"DANS CE PLACARD:"
:Texte(23,10,"-  ",L6(11)-L6(14)," DEKES/",L6(11)
:Texte(30,10,"-  ",L6(5)-L6(7)," ARMES OFF./ ",L6(5)
:Texte(37,10,"-  ",L6(6)-L6(8)," ARMES DEF./ ",L6(6)
:codeTouche$K
:If K=24:Goto 0
:Texte(45,0,"POUR PRENDRE DES OBJETS,"
:Texte(53,0,"TAPEZ+, POUR EN POSER-"
:If K=85:Then
:Menu("DEPOSER","ARMES ATTAQUE",51,"ARMES DEFENSE",52,"TELEPORTEUR",53,"KILLER",54,"ARGENT",55
:Lbl 51
:7$J
:Goto 56
:Lbl 52
:8$J
:Goto 56
:Lbl 53
:12$J
:Goto 56
:Lbl 54
:13$J
:Goto 56
:Lbl 55
:14$J
:Lbl 56
:EffDessin
:Texte(0,0,"VOUS EN AVEZ ACTUELLEMENT "
:Texte(7,10,L6(J)," SUR VOUS"
:For(K,1,300):End
:Lbl 57
:EffEcr
:Input "COMBIEN VOULEZ VOUS EN POSER?",K
:If K>L6(J):Goto 57
:L6(J)-K$L6(J)
:EffDessin
:End
:If K=95:Then
:Menu("PRENDRE","ARMES ATTAQUE",5A,"ARMES DEFENSE",5B,"TELEPORTEUR",5C,"KILLER",5D,"ARGENT",5E
:Lbl 5A:7$J:Goto 5F
:Lbl 5B:9$J:Goto 5F
:Lbl 5C:12$J:Goto 5F
:Lbl 5D:13$J:Goto 5F
:Lbl 5E:14$J
:Lbl 5F
:EffDessin
:Texte(0,0,"VOUS EN AVEZ ACTUELLEMENT "
:If J<10:Texte(7,20,L6(J-2)-L6(J)
:If J>10:Texte(7,20,L6(J-3)-L6(J)
:Texte(15,0,"DANS CE PLACARD"
:For(K,1,500):End
:Lbl 5G
:EffEcr
:Input "COMBIEN VOULEZ VOUS EN PRENDRE?",K
:If (K>L6(J-2) et J<10), ou (K>L6(J-3) et J>10):Goto 5G
:L6(J)+K$L6(J)
:EffDessin
:End
:Goto 5
:Lbl 2
:EffDessin
:RappelImage 1
:prgmZTERSAFC
:1$A:1$@
 



bon, et y reste ZSHOP que j'ai déjà recopié 3 fois mais que ma saleté d'ordi qui plante ne me permet pas d'envoyer sans mettre qu'il ne peuut pas afficher la page web.
Donc, attendez encore un peu, ainsi que les versions en 83p.

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 16 Fév 2010, 17:29   Citer 

oupss boulette, le petit prog qui n'a pas de nom, il s'appelle prgmZTERSACR

 Adresse email Haut de page Bas de page 
 
azertyuiop
Invité
Posté le : Mer 17 Fév 2010, 12:07   Citer 

Bonjour, alors tout d'abord un grand bravo pour avoir eu le courage de faire un tel programme ! Mais pourrais-tu faire un screen de ce programme afin d'en avoir un aperçu ?

  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 17 Fév 2010, 13:41   Citer 

Euh... j'ai quelques problèmes de connexion donc je peux pas. (demande à titozzz,il a l'air de savoir faire)

 Adresse email Haut de page Bas de page 
 
titozzz



Autorisation : Membre
Nb de messages : 177
Inscrit le : Mer 27 Jan 2010, 18:55
Posté le : Mer 17 Fév 2010, 14:09   Citer 

Pas de prob

EDIT:http://www.mediafire.com/download.php?q0imfgnzimn
Voilou

----------------------
Le temps passe et les œufs durent ....
)=======> Concours de Skin (Virtual TI) <=======(
 Adresse email Haut de page Bas de page 
 
valrom



Autorisation : Membre
Nb de messages : 38
Inscrit le : Mar 11 Jan 2011, 22:09
Posté le : Mer 17 Fév 2010, 16:16   Citer 

eeuuhh...

le petit bout de prgm que t'as dit qu'il y avait pas, ça veut dire qu'il faut l'enlever ?

 Adresse email Haut de page Bas de page 
 
titozzz



Autorisation : Membre
Nb de messages : 177
Inscrit le : Mer 27 Jan 2010, 18:55
Posté le : Mer 17 Fév 2010, 17:26   Citer 

oui
ahh.gif

----------------------
Le temps passe et les œufs durent ....
)=======> Concours de Skin (Virtual TI) <=======(
 Adresse email Haut de page Bas de page 
 
azertyuiop
Invité
Posté le : Mer 17 Fév 2010, 18:28   Citer 

Bonjour Titozzz, je viens de voir le sreen que tu as posté, et le jeu est plutôt rapide pour le genre. De plus, tu as une erreur domaine apparement, et au moment de l'erreur, peux tu me dire combien vaut :
62-(16[theta]+14);
18Z-9
Afin d'essayer de localiser le probleme !

  Haut de page Bas de page 
 
titozzz



Autorisation : Membre
Nb de messages : 177
Inscrit le : Mer 27 Jan 2010, 18:55
Posté le : Mer 17 Fév 2010, 18:36   Citer 

Je Dois arreter la mais tout ce que le peux te dire, c'est que je ne peux pas me diriger pendant un combat et que si j'essaie ca fais le beug aperçu

Je te joint mes 83P pas terminés
télécharge Virtual Ti prend la rom 83 et test les si tu peut

http://www.mediafire.com/download.php?yyyytmvvj4g
http://www.mediafire.com/download.php?tmoggtmiyzy
http://www.mediafire.com/download.php?gmthzdnmtzy
http://www.mediafire.com/download.php?tm0mddjlmzz
http://www.mediafire.com/download.php?dnzmzvmmvlk
http://www.mediafire.com/download.php?j1mthycn0yl
http://www.mediafire.com/download.php?2ynkyzdmy0l
http://www.mediafire.com/download.php?entzy2rzujo

PS: rentre pas dans les maisons godgrace.gif

----------------------
Le temps passe et les œufs durent ....
)=======> Concours de Skin (Virtual TI) <=======(
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Lun 22 Fév 2010, 19:16   Citer 

prgmZSHOP

les ¤ sont des carrés de 9 pixels.

Code

:Lbl 0
:0$K
:0$C
:EffDessin
:Texte(0,0,"EN VENTE ICI:"
:Horizontale 54
:Texte(20,0,"EPEES, HACHES, ARCS"
:Texte(27,0,"BOUCLIERS, ARMURERIE"
:Texte(34,0,"SORTILEGES"
:Texte(41,0,"TELEPORTEURS
:Texte(48,0,"VENDRE"
:Texte(17,89,"¤
:Texte(24,89,"¤
:Texte(31,89,"¤
:Texte(38,89,"¤
:Texte(45,89,"¤
:Lbl 1
:codeTouche$K
:If K=34 ou K=25:C$D
:If K=34:C-7$C
:If K=25:C+7$C
:If C<13:41$C
:If C>41:13$C
:If K=26:Goto 2
:Pt-Off(90,D
:Pt-On(90,C
:If K=105 et C=13:Then
:EffDessin
:Horizontale 30
:Texte(33,0,"ANCIENNES TRANSACTIONS: "
:0$C
:If L6(20)>0
:entAléat(2,4)$C
:3$F
:If C=4:Then
:For(C,1,10)
:Texte(50,30,"VENDU!"
:For(D,1,30):End
:Texte(50,30,"  27 espaces  "
:For(D,1,30):End
:End
:Texte(50,25,"¤  VENDU!"
:4$F
:End
:If C=/=11 et C>0
:Texte(50,15,"PAS ENCORE VENDU"
:Texte(5,5,"¤  VENDRE..."
:Texte(5,50,"¤  ETRE PAYE..."
:Texte(24,82,"¤  OK"
:1$G
:Lbl 26
:codeTouche$K
:If K=25:4617$C
:If K=24:G-1$G
:If K=26:G+1$G
:If G=0:F$G
:If G=F+1:1$G
:Pt-Off(6,53
:Pt-Off(51,53
:Pt-Off(83,34
:Pt-Off(26,8
:If G=1:Pt-On(6,53
:If G=2:Pt-On(51,53
:If G=3:Pt-On(83,34
:If G=4:Pt-On(26,8
:prgmZVENDRE
:If C=4617:Goto 27
:Goto 26
:Lbl 27
:If C=4617:Goto 0
:End
:If K=105 et C=41:Then
:EffDessin
:Texte(0,0,"ARME:"
:Texte(0,75,"PRIX:"
:Texte(20,0,"HACHE, SABRE, MASSUE"
:Texte(20,75,"300 D."
:300$B
:For(D,1,1900):End
:End
:If K=105 et C=34:Then
:EffDessin
:Texte(0,0,"ARME:"
:Texte(0,75,"PRIX:"
:Texte(20,0,"BOUCLIER,CASQUE,OU"
:Texte(27,0,"AUTRE PIECE D'ARMURE"
:Texte(27,75,"525;99 D."
:525.99$B
:For(D,1,1900):End
:End
:If K=105 et C=27:Then
:EffDessin
:Texte(19,0,"GO"
:Texte(26,0,"ECARTELEUR"
:Texte(33,0,"KILLER"
:Texte(40,0,"PUISSANCIO-REDUCTOR"
:Texte(47,0,"PRECISIO-REDUCTOR"
:41$C
:Texte(17,89,"¤
:Texte(24,89,"¤
:Texte(31,89,"¤
:Texte(38,89,"¤
:Texte(45,89,"¤
:Lbl 17
:codeTouche$K
:If K=34 ou K=25:C$D
:If K=34:C-7$C
:If K=25:C+7$C
:If C<13:41$C
:If C>41:13$C
:If K=24:Goto 0
:Pt-Off(90,D
:Pt-On(90,C
:If K=105 et C=13:Then
:EffDessin
:Texte(0,0,"SORT:"
:Texte(0,75,"PRIX:"
:Texte(13,0,"PRECISIO-"
:Texte(20,0,"REDUCTOR"
:Texte(20,75,"400 D."
:400$B
:For(D,1,1900):End
:End
:If K=105 et C=41:Then
:EffDessin
:Texte(0,0,"SORT:"
:Texte(0,75,"PRIX:"
:Texte(20,0,"GO"
:Texte(20,75,"900 D."
:900$B
:For(D,1,1900):End
:End
:If K=105 et C=34:Then
:EffDessin
:Texte(0,0,"SORT:"
:Texte(0,75,"PRIX:"
:Texte(20,0,"ECARTELEUR"
:Texte(20,75,"200 D."
:200$B
:For(D,1,1900):End
:End
:If K=105 et C=27:Then
:EffDessin
:Texte(0,0,"SORT:"
:Texte(0,75,"PRIX:"
:Texte(20,0,"BOOST-KILLER"
:Texte(20,65,"500.5 D."
:500.5$B
:For(D,1,1900):End
:End
:If K=105 et C=20:Then
:EffDessin
:Texte(0,0,"SORT:"
:Texte(0,75,"PRIX:"
:Texte(13,0,"PUISSANCIO-"
:Texte(20,0,"REDUCTOR"
:Texte(20,71,"450.5 D."
:450.5$B
:For(D,1,1900):End
:End
:If K=105:Goto 18
:Goto 17
:Lbl 18
:41$C
:End
:If K=105 et C=20:Then
:EffDessin
:Texte(0,0,"OBJET:"
:Texte(0,75,"PRIX:"
:Texte(20,0,"TELEPORTEUR MONDIAL"
:Texte(20,75,"1617 D."
:1617$B
:For(D,1,1900):End
:End
:If K=105:Then
:Menu("ACHETER?","OUI",A,"NON";0)
:Lbl A
:EffEcr
:Output(1,1,"   EN COMBIEN   D'EXEMPLAIRES LE DESIREZ VOUS?"
:Input D
:EffEcr
:Output(2,1,"SHOP"
:Output(2,6,V
:Output(2,9,W
:Output(4,1,D
:Output(4,3,"ARTICLES"
:Output(5,1,"TVA: 19,6 '/."
:Output(7,1,"TOTAL TTC:"
:Output(7,12,BD
:If BD>L6(14):Then
:EffDessin



 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1, , ,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink