Forum

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

Legend - Page 1 / 2

el spectro le 08/12/2006 à 16:23
voila le début du programme
il en restera 4 autres a taper mais avec [second] [sto] ca va asser vite
Code
COMBAT
:15->W
:Effecr
:Output(8,2, "^ "
:Output(7,2, "+"
:Ouput(6,2,"o"
:Output(4,2,V
:Output(3,2,M
:Pause
:Output(8,15,"^"
:Output(7,15,"+"
:Output(6,15,"[teta]"
:Output(4,15,W
:Pause
:Lbl 0
:prgmXP
:Menu("ATTAQUE ?","BRUTAL",B,"MAGIE",F,"SOIN",S
:Lbl B
:Output(7,3, ")----------"
:Output(6,13, "!"
:Pause
:Output(7,3,"           "                                 [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-G->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 : goto 0
:Goto E
:Lbl F
:If M[+ petit ou =]0 :Goto 0
:Output(7,3, ")**********"
:Output(6,13,"*"
:Pause
:M-5->M
:Output(3,2,"   "
:Output(3,2,M
:If M[+ petit ou =]0
:Then
:Output(3,2, "  "
:Output(3,2, "0"
:End
:Output(7,3, "            "                                                   [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-H->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 :Goto Z
:Goto E
:Lbl S
:If M[+ petit ou =]0 :Goto 0
:Output(6,3, "."
:Output(7,3, "."
:Output(8,3, "."
:Pause
:Output(6,3, "+"
:Output(7,3, "+"
:Output(8,3, "+"
:Pause
:Output(6,3, "*"
:Output(7,3, "*"
:Output(8,3, "*"
:Output(4,2, "   "
:Pause
:M-5->M
:V+I->V
:Output(4,2,V
:Output(6,3, " "
:Output(7,3, " "
:Output(8,3, " "
:Output(3,2, "  "
:Output(3,2, M
:If M[+ petit ou =]0
:Then
:Output(3,2, "   "
:Output(3,2, 0
:End
:Pause
:Goto E
:Lbl E
:entaléat(3,5->Y
:Output(7,3, "----------("
:Output(6,4, "!"
:Pause
:Output(7,3, "           "                                       [12 espace ]
:Output(6,4,"  "
:V-Y->V
:Output(4,2, "  "
:Output(4,2,V
:Pause
:If V[+ petit ou =]0 :Goto T
:Goto 0
:Lbl T
:Disp "VOUS AVEZ PERDU"
:Pause
:Effecr
:Stop
:Lbl Z















el spectro le 08/12/2006 à 16:24
Code
COMBAT  A
:20->W
:Effecr
:Output(8,2, "^ "
:Output(7,2, "+"
:Ouput(6,2,"O"
:Output(4,2,V
:Output(3,2,M
:Pause
:Output(8,15,"^"
:Output(7,15,"+"
:Output(6,15,"[teta]"
:Output(4,15,W
:Pause
:Lbl 0
:prgmXP
:Menu("ATTAQUE ?","BRUTAL",B,"MAGIE",F,"SOIN",S
:Lbl B
:Output(7,3, ")----------"
:Output(6,13, "!"
:Pause
:Output(7,3,"           "                                 [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-G->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 : goto 0
:Goto E
:Lbl F
:If M[+ petit ou =]0 :Goto 0
:Output(7,3, ")**********"
:Output(6,13,"*"
:Pause
:M-5->M
:Output(3,2,"   "
:Output(3,2,M
:If M[+ petit ou =]0
:Then
:Output(3,2, "  "
:Output(3,2, "0"
:End
:Output(7,3, "            "                                                   [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-H->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 :Goto Z
:Goto E
:Lbl S
:If M[+ petit ou =]0 :Goto 0
:Output(6,3, "."
:Output(7,3, "."
:Output(8,3, "."
:Pause
:Output(6,3, "+"
:Output(7,3, "+"
:Output(8,3, "+"
:Pause
:Output(6,3, "*"
:Output(7,3, "*"
:Output(8,3, "*"
:Output(4,2, "   "
:Pause
:M-5->M
:V+I->V
:Output(4,2,V
:Output(6,3, " "
:Output(7,3, " "
:Output(8,3, " "
:Output(3,2, "  "
:Output(3,2, M
:If M[+ petit ou =]0
:Then
:Output(3,2, "   "
:Output(3,2, 0
:End
:Pause
:Goto E
:Lbl E
:entaléat(5,8->Y
:Output(7,3, "----------("
:Output(6,4, "!"
:Pause
:Output(7,3, "           "                                       [12 espace ]
:Output(6,4,"  "
:V-Y->V
:Output(4,2, "  "
:Output(4,2,V
:Pause
:If V[+ petit ou =]0 :Goto T
:Goto 0
:Lbl T
:Disp "VOUS AVEZ PERDU"
:Pause
:Effecr
:Stop
:Lbl Z
















el spectro le 08/12/2006 à 16:25
Code
COMBAT  B
:25->W
:Effecr
:Output(8,2, "^ "
:Output(7,2, "+"
:Ouput(6,2,"O"
:Output(4,2,V
:Output(3,2,M
:Pause
:Output(8,15,"^"
:Output(7,15,"+"
:Output(6,15,"[teta]"
:Output(4,15,W
:Pause
:Lbl 0
:prgmXP
:Menu("ATTAQUE ?","BRUTAL",B,"MAGIE",F,"SOIN",S
:Lbl B
:Output(7,3, ")----------"
:Output(6,13, "!"
:Pause
:Output(7,3,"           "                                 [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-G->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 : goto 0
:Goto E
:Lbl F
:If M[+ petit ou =]0 :Goto 0
:Output(7,3, ")**********"
:Output(6,13,"*"
:Pause
:M-5->M
:Output(3,2,"   "
:Output(3,2,M
:If M[+ petit ou =]0
:Then
:Output(3,2, "  "
:Output(3,2, "0"
:End
:Output(7,3, "            "                                                   [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-H->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 :Goto Z
:Goto E
:Lbl S
:If M[+ petit ou =]0 :Goto 0
:Output(6,3, "."
:Output(7,3, "."
:Output(8,3, "."
:Pause
:Output(6,3, "+"
:Output(7,3, "+"
:Output(8,3, "+"
:Pause
:Output(6,3, "*"
:Output(7,3, "*"
:Output(8,3, "*"
:Output(4,2, "   "
:Pause
:M-5->M
:V+I->V
:Output(4,2,V
:Output(6,3, " "
:Output(7,3, " "
:Output(8,3, " "
:Output(3,2, "  "
:Output(3,2, M
:If M[+ petit ou =]0
:Then
:Output(3,2, "   "
:Output(3,2, 0
:End
:Pause
:Goto E
:Lbl E
:entaléat(8,15->Y
:Output(7,3, "----------("
:Output(6,4, "!"
:Pause
:Output(7,3, "           "                                       [12 espace ]
:Output(6,4,"  "
:V-Y->V
:Output(4,2, "  "
:Output(4,2,V
:Pause
:If V[+ petit ou =]0 :Goto T
:Goto 0
:Lbl T
:Disp "VOUS AVEZ PERDU"
:Pause
:Effecr
:Stop
:Lbl Z

















el spectro le 08/12/2006 à 16:26
Code
COMBAT  C
:30->W
:Effecr
:Output(8,2, "^ "
:Output(7,2, "+"
:Ouput(6,2,"O"
:Output(4,2,V
:Output(3,2,M
:Pause
:Output(8,15,"^"
:Output(8,15,"^"
:Output(7,15,"+"
:Output(6,15,"[teta]"
:Output(4,15,W
:Pause
:Lbl 0
:prgmXP
:Menu("ATTAQUE ?","BRUTAL",B,"MAGIE",F,"SOIN",S
:Lbl B
:Output(7,3, ")----------"
:Output(6,13, "!"
:Pause
:Output(7,3,"           "                                 [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-G->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 : goto 0
:Goto E
:Lbl F
:If M[+ petit ou =]0 :Goto 0
:Output(7,3, ")**********"
:Output(6,13,"*"
:Pause
:M-5->M
:Output(3,2,"   "
:Output(3,2,M
:If M[+ petit ou =]0
:Then
:Output(3,2, "  "
:Output(3,2, "0"
:End
:Output(7,3, "            "                                                   [12 espace ]
:Output(6,13," "
:Output(4,15,"  "
:W-H->W
:Output(4,15,W
:Pause
:If W[+ petit ou =]0 :Goto Z
:Goto E
:Lbl S
:If M[+ petit ou =]0 :Goto 0
:Output(6,3, "."
:Output(7,3, "."
:Output(8,3, "."
:Pause
:Output(6,3, "+"
:Output(7,3, "+"
:Output(8,3, "+"
:Pause
:Output(6,3, "*"
:Output(7,3, "*"
:Output(8,3, "*"
:Output(4,2, "   "
:Pause
:M-5->M
:V+I->V
:Output(4,2,V
:Output(6,3, " "
:Output(7,3, " "
:Output(8,3, " "
:Output(3,2, "  "
:Output(3,2, M
:If M[+ petit ou =]0
:Then
:Output(3,2, "   "
:Output(3,2, 0
:End
:Pause
:Goto E
:Lbl E
:entaléat(10,15->Y
:Output(7,3, "----------("
:Output(6,4, "!"
:Pause
:Output(7,3, "           "                                       [12 espace ]
:Output(6,4,"  "
:V-Y->V
:Output(4,2, "  "
:Output(4,2,V
:Pause
:If V[+ petit ou =]0 :Goto T
:Goto 0
:Lbl T
:Disp "VOUS AVEZ PERDU"
:Pause
:Effecr
:Stop
:Lbl Z


















el spectro le 08/12/2006 à 16:27
terminé il prend 10000 octets cry.gif
el spectro le 08/12/2006 à 16:56
Code
COMBAT  D
:300->W
:Effecr
:Output(8,2, "^ "
:Output(7,2, "+/"
:Ouput(6,2,"O"
:Output(6,4,"°"
:Output(4,2,V
:Output(3,2,M
:Pause
:Output(8,10,"-- --"
:Output(7,8,"^ () () ^"
:Output(6,8,"+ ----- +"
:Output(5,8,"+ ----- +"
:Output(4,9,"+ --- +"
:Output(3,11,"(-)"
:Output(2,11,"(0)"
:Output(1,12,"^"
:Pause
:Lbl 0
:prgmXP
:Menu("ATTAQUE ?","BRUTAL",B,"MAGIE",F,"SOIN",S
:Lbl B
:Output(7,3, ")---"
:Output(2,12, "X"
:Pause
:Output(7,4,"    "                                 [4 espace ]
:Output(2,12,"0"
:Output(2,14,"  "                                 [3 espace ]
:W-G->W
:Output(2,14,W
:Pause
:If W[+ petit ou =]0 : goto 0
:Goto E
:Lbl F
:If M[+ petit ou =]0 :Goto 0
:Output(5,5,"/"
:Output(4,6,"/"
:Output(3,7,"/"
:Output(2,8,"*--"
:Output(4,2,"X"
:Pause
:M-5->M
:Output(3,2,"   "
:Output(3,2,M
:If M[+ petit ou =]0
:Then
:Output(3,2, "  "
:Output(3,2, "0"
:End
:Output(5,5, " "                                                   
:Output(4,6, " "     

:Output(3,7, " "                                                                                               
:Output(2,8,"  "
:Output(2,12, "0"                                                   
:Output(2,14, "   "                                                   
:W-H->W
:Output(2,14,W
:Pause
:If W[+ petit ou =]0 :Goto Z
:Goto E
:Lbl S
:If M[+ petit ou =]0 :Goto 0
:Output(6,5, "."
:Output(7,5, "."
:Output(8,5, "."
:Pause
:Output(6,5, "+"
:Output(7,5, "+"
:Output(8,5, "+"
:Pause
:Output(6,5, "*"
:Output(7,5, "*"
:Output(8,5, "*"
:Output(4,2, "   "
:Pause
:M-5->M
:V+I->V
:Output(4,2,V
:Output(6,5, " "
:Output(7,5, " "
:Output(8,5, " "
:Output(3,2, "  "
:Output(3,2, M
:If M[+ petit ou =]0
:Then
:Output(3,2, "   "
:Output(3,2, 0
:End
:Pause
:Goto E
:Lbl E
:entaléat(25,35->Y
:Output(6,5, "--*"
:Output(7,4, "---*"
:Output(8,3, "-----*"
:Pause
:Output(6,4,"   "
:Output(7,4,"    "
:Output(8,3,"     "
:V-Y->V
:Output(4,2, "  "
:Output(4,2,V
:Pause
:If V[+ petit ou =]0 :Goto T
:Goto 0
:Lbl T
:Disp "VOUS AVEZ PERDU"
:Pause
:Effecr
:Stop
:Lbl Z
el spectro le 08/12/2006 à 16:57
je sais il est long mais il n'est pas fini minied.gif
webmaster le 08/12/2006 à 19:35
Peux-tu nous donner des précisions quant à ce programme ?

@+ Le Webmaster beer.gif
unknow le 10/12/2006 à 13:34
je crois que c'est un prog comme celui des magiciens non?
Sangohan38 le 10/12/2006 à 15:19
On dirais que c'est une sorte de Zelda mais sous forme de menu.

Sangohan38
el spectro le 11/12/2006 à 11:15
c'estun jeu sous forme de menu avec de petites animations en fonctions de l'attaque choisie,on peut attaquer,se soigner,et utiliser de la magie.Il y a une barre de mana et une de vie,des ennemis simples puis un boss,le tout avec un système d'éxperience et de niveaux.Ce jeu est entièrement de moi et je me suis pas inspiré du jeu de magicien en création car je ne l'avait pas encore vu.
C'est asser précis ?
shika33 le 11/12/2006 à 12:02
Ah je me suis enfin inscrit car finalement j'aime bien ce forum il est trés utile.
Bref sinon à propos de ce jeu je pense qu'il est bien mais trop long à taper mais je vais éssayer d'acheter un cable, en tout cas ça me tarde de le tester car j'adore les jeux style Zelda. happy.gif
el spectro le 11/12/2006 à 16:44
c'est un jeu sous forme de MENU j'iame bien zelda aussi mais ce jeux n'est pas aussi bien que ca.
mais il est quand même amusant godgrace.gif
Sangohan38 le 11/12/2006 à 17:26
Tant que l'on as pas finis le jeux, c'est amusant mais après, c'est vite lassant.
En tout cas, dès que je peut, je le recopierait.

Sangohan38

PS:Bienvenu shika33
Stupid le 11/12/2006 à 18:00
10000!!j'ai pas assez de place!!!
el spectro le 12/12/2006 à 10:18
fini il prend 10 000 cry.gif
je le racourcirait plus tard lorsque j'aurais le temps(2 ou 3 if de plus)
el spectro le 12/12/2006 à 11:14
la suite
Code
COMBAT  E
:100->W
:Effecr
:Output(8,2, "^ "
:Output(7,2, "+/"
:Ouput(6,2,"O"
:Output(6,4,"°"
:Output(4,2,V
:Output(3,2,M
:Pause
:Output(8,9,"--- ---"
:Output(7,10,"*   *"
:Output(6,10,"*   *"
:Output(5,7,"(.)-----(."
:Output(4,8,"+   +   +"
:Output(3,9,"+ + + +"
:Output(2,11,"(0)"
:Pause
:Lbl 0
:prgmXP
:Menu("ATTAQUE ?","BRUTAL",B,"MAGIE",F,"SOIN",S
:Lbl B
:Output(7,3, ")---"
:Output(2,12, "X"
:Pause
:Output(7,4,"    "                                 [4 espace ]
:Output(2,12,"0"
:Output(2,14,"  "                                 [3 espace ]
:W-G->W
:Output(2,14,W
:Pause
:If W[+ petit ou =]0 : goto 0
:Goto E
:Lbl F
:If M[+ petit ou =]0 :Goto 0
:Output(5,5,"/"
:Output(4,6,"/"
:Output(3,7,"/"
:Output(2,8,"*--"
:Output(4,2,"X"
:Pause
:M-5->M
:Output(3,2,"   "
:Output(3,2,M
:If M[+ petit ou =]0
:Then
:Output(3,2, "  "
:Output(3,2, "0"
:End
:Output(5,5, " "                                                   
:Output(4,6, " "     

:Output(3,7, " "                                                                                               
:Output(2,8,"  "
:Output(2,12, "0"                                                   
:Output(2,14, "   "                                                   
:W-H->W
:Output(2,14,W
:Pause
:If W[+ petit ou =]0 :Goto Z
:Goto E
:Lbl S
:If M[+ petit ou =]0 :Goto 0
:Output(6,5, "."
:Output(7,5, "."
:Output(8,5, "."
:Pause
:Output(6,5, "+"
:Output(7,5, "+"
:Output(8,5, "+"
:Pause
:Output(6,5, "*"
:Output(7,5, "*"
:Output(8,5, "*"
:Output(4,2, "   "
:Pause
:M-5->M
:V+I->V
:Output(4,2,V
:Output(6,5, " "
:Output(7,5, " "
:Output(8,5, " "
:Output(3,2, "  "
:Output(3,2, M
:If M[+ petit ou =]0
:Then
:Output(3,2, "   "
:Output(3,2, 0
:End
:Pause
:Goto E
:Lbl E
:entaléat(25,35->Y
:Output(6,5, "--*"
:Output(7,4, "---*"
:Output(8,3, "-----*"
:Pause
:Output(6,4,"   "
:Output(7,4,"    "
:Output(8,3,"     "
:V-Y->V
:Output(4,2, "  "
:Output(4,2,V
:Pause
:If V[+ petit ou =]0 :Goto T
:Goto 0
:Lbl T
:Disp "VOUS AVEZ PERDU"
:Pause
:Effecr
:Stop
:Lbl Z
el spectro le 12/12/2006 à 11:51
Code
LEGEND

:Lbl M
:Effecr
:Output(4,6, »LEGEND »
:Pause
:Menu(« LEGEND », »JOUER »,J, »AIDE »,A, »PASSWORD »,K, »QUITTER »,Q
:Lbl A
:Disp »PROGRESSEZ », »DANS LES NIVEAUX », »TOU EN », »AUGMENTENT VOS », »CAPACITE »
:Pause
:Effecr
:Disp »BRUTAL », »MAGIE », »SOIN », »VIE »
:Pause
:Goto M
:Lbl J
:Lbl 1
:Effecr
:Output(4,5 »NIVEAU 1 »
:Pause
:Effecr
:150->X
:pgrmSHOP
:30->M
:pgrmCOMBAT
:Pause
:Effecr
:30->M
:pgrmCOMBAT
:Pause
:Effecr
:Lbl 2
Output(4,5, »NIVEAU 5 »
:Pause
:Effecr
:300->X
:pgrmSHOP
:30->M
:pgrmCOMBAT
:Pause
:Effecr
:25->M
:pgrmCOMBAT
:Pause
:Effecr
:20->M
:pgrmCOMBAT
:Pause
:Effecr
:25->M
:pgrmCOMBATA
:Pause
:Effecr
:Lbl 3
:Output(4,5, »NIVEAU 3 »
:Pause
:Effecr
:500->X
:pgrmSHOP
:45->M
:pgrmCOMBATA
:Pause
:Effecr
:40->M
:pgrmCOMBATA
:Pause
:Effecr
:35->M
:pgrmCOMBATA
:Pause
:Effecr
:30->M
:pgrmCOMBATB
:Pause
:Effecr
:40->M
:pgrmCOMBATB
:Pause
:Effecr
:Lbl 5
:Output(4,5, »NIVEAU 5 »
:900->X
:pgrmSHOP
:50->M
:pgrmCOMBATC
:Pause
:Effecr
:45->M
:pgrmCOMBATC
:Pause
:Effecr
:40->M
:pgrmCOMBATC
:Pause
:Effecr
:35->M
:pgrmCOMBATC
:Pause
:Effecr
:30->M
:pgrmCOMBATC
:Pause
:Effecr
Lbl 6
:Effecr
:1200->X
:pgrmSHOP
60->M
:pgrmCOMBATE
:If[teta]=101091
:Then
:1400->X
:pgrmSHOP
:75->M
:pgrmCOMBATD
:GotoM
:LblK
:Prompt[teta]
:If[teta]=101091:Goto1
:GotoM
:LblQ





plus que 2 pgrm!!!!!!
Ishito le 12/12/2006 à 12:39
Salut tout le monde!!! J'ai fini par m'inscrire. En tout cas pour renter ce jeu va faloir être patient parce que un jeu aussi long... ahh.gif
Sangohan38 le 12/12/2006 à 13:14
Les jeux long sont ceux qui se finissent le moins rapidement, et cela prouve que l'auteur c'est investis à fond dans ce prog.

Sangohan38
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.