Age of History arrive sur vos calto (forum)

Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 15841
Réponses : 100
Type : discussion
Etat : réponses autorisées

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

Age of History arrive sur vos calto - Page 1 / 3

scalt le 15/04/2006 à 16:43

et voilà, enfin fini le prgm, dit moi ske vous en pensez.

explosivetnt tu peu le prendre lol !!!

Code

Age of history : 2778 de Ram



----------------------------------------------



clrdraw

clrhome

output(1,1,"****************"

output(8,1,"****************"

output(4,2,"age of history"

output(6,5,"by scale"

pause



lbl 1

Menu("-age of history-","jouer",2,"aide",3,"quitter",4,"reset",99



lbl 99

clrhome

0->K

0->G

0->P

0->M

0->O

0->F

500->H

0->A

0->B

0->C

0->D

0->I

0->J

0->L

pause

output(1,1,"sauvegarde"

output(2,1,"effacer"

pause :goto 1



lbl 3

clrdraw

clrhome

Menu("menu aide","armurie",26,"caserne",27,"bataille",28)



lbl 28

output(1,1,"plus tu as de pv"

output(2,1,"et plus tu as de"

output(3,1,"chance de gagner"

pause :goto 1



lbl 27

clrdraw

clrhome

output(1,1,"pour faire

output(2,1,"un soldat

output(3,1,"il faut :"

output(5,1,"1 homme

output(6,1,"1 epee

output(7,1,"1 bouclier

output(8,1,"1 armure

pause :goto 1



lbl 26

clrdraw

clrhome

output(1,1,"pour construire

output(3,1,"1 epee :10 fer

output(4,1,"bouclier :10 bois

output(5,1,"armure :5 fer et

output(6,1,"10 bois

pause :goto 1



lbl 4

clrhome

output(4,4,"a bientot

pause

stop



lbl 2

clrhome

clrdraw

menu("-age of history-","armurie",5,"montagne",6,"caserne",7,"entrepot",8,"bataille",9,"objectif",29,"quitter",1)



lbl 29

clrdraw

clrhome

output(1,1,"niveau 1 :

output(2,1,"50 victoire"

output(4,1,"tu a    victoire"

output(4,6,G

if G >=50

then:goto 30

end

pause :goto 1



lbl 30

clrhome

clrdraw

output(1,1,"****************"

output(8,1,"****************"

output(4,1,"felicitation tu"

output(5,1,"a fini le niveau"

pause :goto 1



lbl 9

clrhome

clrdraw

if K <= 0

Then:goto 2

end

1+K->P

1+M->O

output(1,1,K

output(1,5,"soldats

output(2,1,M

output(2,5,"pv

output(3,1,"----------------"

output(4,1,P

output(4,5,"ennemis

output(5,1,O

output(5,5,"pv

pause

clrhome

output(1,1,"tu attaques

pause

randint(1,10)->F

clrhome

output(1,1,"-    pv"

output(1,3,F

pause

O-F->O

if O>0

then:goto 25

end



lbl 25

clrhome

output(1,1,"ils attaquent

pause

randint(1,10)->F

clrhome

output(1,3,F

output(1,1,"-    pv

pause

M-F->M

if M<=0

then:goto 24

end

if M>0

then:goto 9

end



lbl 23

clrhome

H+500->H

K-2->K

1+A->A

G+1->G

output(4,2,"tu as gagner"

pasue :goto 2



lbl 24

clrhome

output(4,1,"tu as perdu!

K-K->K

pause :goto 2



lbl 7

clrhome

clrdraw

Menu("caserne","armer",16,"entrainer",17,"retour",2)



lbl 17

clrhome

clrdraw

if K<0

then:0->K

end

if M<0

then:0->M

end

output(1,1,K

output(1,5,"soldats

output(2,1,M

output(2,8,"pv

output(4,1,A

output(4,4,"hommes

pause

Menu("choix :","combat",22,"retour",2)



lbl 22

clrdraw

clrhome

If M<=0

then:0->M

end

if K<=0

then:goto 2

end

H-50->H

randint(1,2)->F

if F=1

then:M+0.5->M

clrhome

output(1,1,"+ 0.5 pv

end

if F=2

then:M+1->M

clrhome

output(1,1,"+ 1 pv

end

pause :goto 2



lbl 16

input "homme :",F

if F>A

then:goto 2

end

if F=1

then:L+1->L

goto 18

end

if L=/=1

then: goto 19

end



lbl 18

clrhome

clrdraw

input "armure :",F

if F>B

then:goto 2

end

if F=1

then:L+1->L

goto 20

end

if F=/=1

then: goto 19

end



lbl 20

clrdraw

clrhome

input "epee :",F

if F>C

then:goto 2

end

if F=1

then:L+1->L

goto 21

end

if F=/=1

then:goto 19

end



lbl 21

clrhome

clrdraw

input "bouclier",F

if F>D

then:goto 2

end

if F=1

then:clrhome

output(1,1,"+ 1 soldat

1+K->K

A-1->A

B-1->B

C-1->C

D-1->D

pause :goto 2

end

if F=/=1

then:goto 19

end



lbl 19

Clrhome

output(1,2,"une erreur est

output(2,5,"survenue"

pause :goto 2



lbl 6

clrhome

Menu("chercher","bois",10,"fer",11



lbl 10

if H<20

then:goto 2

end

H-20->H

randint(1,10)->F

output(1,1,F

output(1,4,"Bois en plus"

F+J->J

pause :goto 2



lbl 11

if H<20

then:goto 2

end

H-20->H

randint(1,10)->F

output(1,1,F

output(1,4,"fer en plus"

F+I->I

pause :goto 2



lbl 8

clrdraw

clrhome

text(1,1,"ton entrepot :"

text(8,1,B

text(8,30,"armures"

text(16,1,C

text(16,30,"epees"

text(24,1,D

text(24,30,"boucliers"

text(32,1,I

text(32,30,"unites de fer"

text(40,1,J

text(40,30,"unites de bois"

text(48,1,H

text(48,30,"F"

pause :goto 2



lbl 5

clrhome

menu("construire :","epee",12,"bouclier",13,"armure",14,"retour",2)



lbl 14

cldraw

clrhome

intput "fer :",F

if F>I

then:goto 2

end

if F=5

then:goto 15

end

if F=/=5

then:goto 2

end



lbl 15

cldraw

clrhome

intput "bois :",F

if F>J

then:goto 2

end

if F=10

then:output(3,1,"+ 1 armure"

I-5->I

J-10->J

1+B->B

pause :goto 2

end



if F=/=10

then:goto 2

end





lbl 13

clrhome

input "bois :",F

if F>J

then:output(3,1,"+ 1 bouclier"

J-10->J

1+D->D

pause :goto 2

end

if F=/=10

then:goto 2

end



lbl 12

clrhome

clrdraw

input "fer :",F

if F>I

then:goto 2

end

if F=10

then:output(3,1,"1 epee fabrique"

I-10->I

C+1->C

pause :goto 2

end

if F=/=10

then:goto 2

end

ratuss le 15/04/2006 à 18:49

Peut tu mettre un lien vers un fichier .82p ?? SVP

Tu n'as qu'a uploader ton fichier : http://web.archive.org/web/200[...]fr:80/index.php

scalt le 15/04/2006 à 19:44

jpeu le faire juste avec le fichier txt, mais j'ai rien pour le metre en .82p

dsl

ratuss le 16/04/2006 à 08:53

Je pensais que tu avais un cable, je ferais un lien pour les autres si tu veux, mais il faudra que je change certains symboles, donc je le mettrait peu-être pas aujourd'hui

.

Tu l'as tout recopié à la main ??

scalt le 16/04/2006 à 10:31

ok ce serai sympa pour eux ^^, et je l'ai recopié entierement a la main, ett c'était bien chiant

ratuss le 16/04/2006 à 10:37

Au pire fais comme Sangohan, t'achete un cable sur un site d'enchère... (d'ailleurs toi qui as une ti 84 + y me semble, t'avais pas un cable livré avec??, parce que moi si!

)

scalt le 16/04/2006 à 13:09

ah ben c cool que t'n parle paske si jen é recu un mais j'arrvie pas a le faire marché, alors si tu pouvé maidé se seré cool

ratuss le 16/04/2006 à 20:03

Hélas moi j'utilise pas ce cable mais un cable USB que j'avais déja

. L'autre cable j'arrive pas à le faire marcher comme toi

scalt le 17/04/2006 à 09:31

aie donc j'en couclut ke le cable kil fournisse c de la merde...

ben tant pis alors, je continuerai a taper tout a la main

ratuss le 17/04/2006 à 09:34

Quoi t'es fou, si t'as un cable faut absolument que tu puisse t'en servir, tu verra comment c'est avantageux!

ratuss le 17/04/2006 à 15:23

Lbl XX ???

Ca ne marche pas pour les ti 82, remplace par Lbl10 par Lbl A, lbl11 par lblB ect..., en plus tu economisera qq octets

Sangohan38 le 17/04/2006 à 18:53

C'est vrai que tu adore économiser des octets ...
Pour le cable achète le! Je l'ai payer 14,49 euros donc si tu fait beaucoups de gros programme te gène pas.
P.S: C'est chiant à taper 12000 octets ...

ratuss le 18/04/2006 à 07:06

Le prob c'est qu'il a deja un cable

, mais qu'il arrive pas a s'en servir

...

Sangohan38 le 18/04/2006 à 07:14

Le pauvre.

scalt le 18/04/2006 à 12:32

lol oué effectivement c'est tres embetant...

ratuss le 18/04/2006 à 18:28

T'as regardé dans le manuel Scalt ??

scalt le 18/04/2006 à 19:30

regardé quoi ?, comment i fonctionne ?

ratuss le 18/04/2006 à 20:27

Bah oui evidemment

scalt le 19/04/2006 à 18:30

lol ben pas vraiment, mé jvoi pas comment i pourré expliké mon probleme ...

ratuss le 19/04/2006 à 18:49

Ben si y donne un cable, faut quand même qui donne une notice pour savoir comment s'en servir!

, Sur le CD y doit y avoir qqchose y me semble.

scalt le 19/04/2006 à 19:19

ui mé nn lol enfin je c pas c bizarre

Dark TI le 20/04/2006 à 16:46

Pour les labels lettres, ca ne change rien si on met "KK" au lieu de "K" parce que j'ai d'autre prog (jeu

) qui garde les valeurs des labels donc si je pouvais utiliser d'autres labels ca serait parfait.
PS : Pardonnez mon explication

Sangohan38 le 20/04/2006 à 17:55

Et ben t'utilise plusieurs programmes:
Par ex, pour mon jeu MAFIA, j'ai utiliser 36 label et si il m'en faut plus, je met "MENU SUIVANT" et ce label amène à un autre programme.

craminou le 20/04/2006 à 20:27

vs savez vs pouvez ossi utiliser label A, B ou C au lieu de 1'2 ou 3.. ché pa si vs le savé mé bon , sa fé 26 de + ...

scalt le 20/04/2006 à 20:57

on peu en economiser encore o cas ou, en faisant 01,02,03 ... enfin jcroi mdr

Dark TI le 20/04/2006 à 21:19

Dans un label, on peut mettre jusqu'a 2 caracteres (enfin je crois

pour les lettres j'ai essaye et ca marche

)
Donc on peut faire jusqu'a X labels,
X= 99 (pour les chiffres peut etre...) + 26(pour l'alphabet normal)+26(pour A...)+26(pour B...) [et ainsi de suite jusqu'a] +26 (pour Z...)= {ce qui nous donne de tete} 801 labels je crois plus besoin de plusieurs programmes...

Et voila en exclusivité numérique ma demonstration

PS : Je sais je suis trop fort

craminou le 20/04/2006 à 21:26

bien pensé!!par contre ratuss m'a parler de liste donc peut etre que sa en permet encore plus ...mai je pense pas que se soit necessaire...

Dark TI le 20/04/2006 à 21:42

A oui les listes je n'y avais pas pense parce que je n'ai rien compris a ces foutus listes

ratuss le 20/04/2006 à 21:46

Quelqu'un qui a la ti 82 stats pourrais t'il me confirmer que l'on peut mettre 2 caractères pour les lbl

-> Sinon pour les ti 82 il n'y a que 37 labels possibles (il y a le symbole theta), on ne peut mettre qu'un seul caractère, et comme l'a dit très justement Sangohan38:

Sangohan38 a écrit :

Et ben t'utilise plusieurs programmes:
Par ex, pour mon jeu MAFIA, j'ai utiliser 36 label et si il m'en faut plus, je met "MENU SUIVANT" et ce label amène à un autre programme.

Sinon pour toi Scalt : https://www.yaronet.com/topics[...]i-avec-la-84-se

craminou le 20/04/2006 à 21:53

confiramtion . et on peut meme faire des mélange chiffres lettre ( j'ai essayer)

Dark TI le 20/04/2006 à 21:56

Moi je te confirme qu' avec la TI 82 stats (que j'ai...

) on peut mettre 2 caracteres dans les labels
Avec les propos de Craminou, ma théorie tombe a l'eau il y en a plus de 801 labels

craminou le 20/04/2006 à 22:00

on risque pas de tomber a cours .. tu en a que 37 ratuss?? tu a quoi comme calculett?

ratuss le 20/04/2006 à 22:00

Ok, en tout cas essayé d'employé un maximum les lbl à un caractère, pensez au pauvres ti 82

scalt le 21/04/2006 à 14:12

Citation

Sinon pour toi Scalt : https://www.yaronet.com/topics[...]i-avec-la-84-se happy.gif

Merci Ratuss sa fé plaiz' jvé voir alors pour une nouvelle version de Ti connecte et jesper ke c'est sa le probleme, sinon

...

scalt le 24/04/2006 à 18:00

alors, quelqu'un a deja essaié age of history ??

Sangohan38 le 24/04/2006 à 18:11

J'ai pas essayer.

ratuss le 24/04/2006 à 18:39

Moi j'ai essayé, un peu difficile la prise en main si tu veux mon avis, mais sinon le jeux à l'air pas mal.

.
=> T'inquiete pas je n'ai pas oublié que je devais faire un .82p, mais il faut pour cela que je change certains truc

. Je peux pas te donné de date précise, ca dépendra surtout du tps libre que j'ai

...

scalt le 24/04/2006 à 18:50

ah mais t pas obligé, et keske tu veu dire par la prise en main est un peu dificile ??

ratuss le 25/04/2006 à 08:40

C'est un peu chaud pour tout comprendre, quand est ce qu'on peut faire des combats, ect...
Par exemple quand tu dois construire 1 epee tu dois mettre 10 alors que le plus logique serai de mettre 1...

scalt le 25/04/2006 à 10:45

moué mé faut alors ossi revoir les unites de fers que tu raporte de la montagne...

En tout cas, si quelqu'un a un probleme avec le jeu qui n'hesite pas a me demander de l'aide.

ratuss le 25/04/2006 à 13:08

Ok merci, c'est sypa

explosivetnt le 13/05/2006 à 17:57

merci beaucoup je le recopie.

scalt le 13/05/2006 à 19:59

ok lol ...

explosivetnt le 15/05/2006 à 12:59

j'ai fini de le recopier hier et j'ai rencontrer quelque problemes à l'execution, tout dabord des erreur de syntaxe de ma part que j'ai vite corrigé puis un probleme à la création de bouclier, j'essayer de créer un bouclier et ca me faisait une épée.voila la correction

Code

lbl 13

clrhome

input "bois :",F

if F>J

then:Goto 2

end

if f=10

then:output(3,1,"+ 1 bouclier"

J-10->J

1+D->D

pause :goto 2

end

if F=/=10

then:goto 2

end

ensuite il y a un petit probleme, comment on crée un homme car on part avec 0 homme au départ et impossible de trouver comment en "faire" un,si ce n'est en rentrant la valeur en dehors du programme!
j'ai donc suprimmé le renvoie au goto 2 si la valeurs des hommes était égale à 0.
apres, je ne sait pas pourquoi, mais les ennemis ont toujours 1 soldats et PV de plus que nous et même si on leur enleve plus de PV q'eux.
j'ai donc modifié et il ont le meme nombres de soldats et PV que nous avec + ou - 5 soldats/PV (avec randint).
mais il s'avere que j'ai encore quelque problemes, et quand je les aurait tous résolu, je copierait ton code d'origine et mettrait les modifs à effectuer.
surtout que la je suis à la bourre pour aller en cour.(des rimes en plus

)
++

ratuss le 15/05/2006 à 17:29

Bonjour, juste une question, je suppose que t'as une ti 82 stat ?

scalt le 15/05/2006 à 20:44

oké jvoi a peu pres tout, deja c'est normal ke les ennemis on un soldats en + et un pv en + c t pour ke se soi un peu plus dur. ensuite pour gagner des hommes fo faire un bataille mé o debut fo mettre une valeur a la variable, ensuite le pb ac les bouclier fo lire l'aide, jcroi kil fo 10 de bois et 5 de fer pour en faire un . voilà ++

explosivetnt le 16/05/2006 à 10:33

quand tu met reset il y a une initialisation des variables, faudrait penser à y mettre une variable pour les hommes.
pour les bouclier, il fo 10 de bois et g arranger ca sur ma TI 82stats.

scalt le 16/05/2006 à 18:26

ok ben c toi ki vois !!

explosivetnt le 17/05/2006 à 16:29

Sinon, c'est un tres bon jeux de gestion, des que j'aurrai regler tout les petit problemes, je le difuse aux 90% de ma classe qui ont une TI82 stats, ca c'est passé comme ca pour le jeux de course.
++

scalt le 17/05/2006 à 16:37

ouaou lol et ben merci a toi !!

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

Forum

Age of History arrive sur vos calto - Page 1 / 3

Flux RSS

Abonnement à la newsletter