Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 13741
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 / 6

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 !!! godgrace.gif glasses.gif

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://xpprosp12.free.fr/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 crazy.gif 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 beer.gif .

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 laugh.gif
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! godgrace.gif )
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 godgrace.gif
Ratuss le 16/04/2006 à 20:03
Hélas moi j'utilise pas ce cable mais un cable USB que j'avais déja happy.gif . L'autre cable j'arrive pas à le faire marcher comme toi karate.gif
scalt le 17/04/2006 à 09:31
aie donc j'en couclut ke le cable kil fournisse c de la merde... crazy.gif ben tant pis alors, je continuerai a taper tout a la main laugh.gif loupe.gif
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 laugh.gif.
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 happy.gif , mais qu'il arrive pas a s'en servir laugh.gif ...
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 crazy.gif !
scalt le 19/04/2006 à 18:30
lol ben pas vraiment, mé jvoi pas comment i pourré expliké mon probleme ... crazy.gif
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! crazy.gif , Sur le CD y doit y avoir qqchose y me semble. winkle.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.