Machine a sous

Machine a sous
Donc voilà le 1er jeux que je mes, c'est un machine a sous.


Nom : machine a sous
Créateur : moi, donc scale
Trouvée sur : mon blog
Version : 1.0
Taille : 468 Ram
compatibilité : Ti 82 83 84


lbl 1
clrhome
For(x,1,16,1)
output(1,x,"*"
output(8,x,"*"
end
For(x,1,8,1)
output(x,1,"*"
output(x,16,"*"
end
output(4,5,"by scale")
pause: goto 2

lbl 2
clrhome
output(1,1,"somme :"
output(1,9,t
if t <=0
then:goto 3
end
pause
clrhome
t-1ùt
output(1,1,"****************")
output(8,1,"****************")
output(5,4,"["
output(5,6,"]"
output(5,7,"["
output(5,9,"]"
output(5,10,"["
output(5,12,"]"
pause
randint(0,9)ùf
randint(0,9)ùw
randint(0,9)ùv
output(5,5,f
output(5,8,w
output(5,11,v
if f=w and f=v and v=w
then:output(7,1,"gagner !"
t+10ùt
end
if f=/w and f=/v and w=/v
then :output(7,1,"perdu !"
end
pause: goto 2

lbl 3
clrhome
output(1,1,"tu n'as plus de"
output(2,1,"sous !"
10ùt
pause: goto 1

Les signes problematique

<= signifie plus petit ou egale
=/ signifie pas egale, différent de
ù signifie la fleche de la touche STO


Proposition de tibo :

la aussi change :

if f=w and f=v and v=w
then:output(7,1,"gagner !"
t+10ùt
end
if f=/w and f=/v and w=/v
then :output(7,1,"perdu !"
end

par :

if f=w and f=v and v=w
then:output(7,1,"gagner !"
t+10ùt
else
output(7,1,"perdu !"
end

C'est une bonne solution, maintenant a vous de voir se que vous prennez, en tout cas merci a lui :)
[ Ajouter un commentaire ] [ 1 commentaire ]

# Posté le jeudi 23 février 2006 13:16

Modifié le samedi 19 janvier 2008 08:23

Dog

Dog
Le second jeu est dog

Nom : Dog
Créateur : Scale
Trouvée sur : mon blog
Version : 1.0
Taille : je l'ai plus sur ma calto, mais je crois
qu'il fait entre 2 000 et 3 000 Ram
compatibilité : Ti 82 83 84


Un jeu type tamagogi mais sur calto, où il faut nourir soigné son chien etc...
je crois que pour metre le jeu a zero les valeur des variables sont :

50ùS
0ùT
0ùQ
0ùP
0ùW
0ùV
0ùR
0ùU

Maintenant si vous avez les bonnes ( car sa fait longtemps que je n'ai plus le programme) faites le moi savoir, merci

Code :

clrdraw
clarhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
output(4,5,"by scale")
pause
clrhome
For(X,1,16,1)
output(1,X,"*")
output(8,X'"*")
end
for(X,1,8,1)
output(X'1,"*")
output(X,16,"*"
end
output(3,5,"tamagogi")
output(5,7,"dog")
pause:goto 1

lbl 1
clrdraw
clrhome
if S<=0
then:goto Y
end
for(X,1,16,1)
output(7,X,"*")
end
if V>10
then:10ùV
end
randint(1,20)ùM
if M<=18
then:W+0ùW
end
if M=19
then:W-0.2
end
if M=20
then:W-0.5
end
if W<=(-)0.1
then :0ùW
end
randint(1,15)ùN
if N<=13
then:V+0ùV
end
if N=15
then:V-1ùV
end
if V=14
then:V-1ùV
end
output(1,1,S
output(1,7,"F")
output(2,5,"^^^^^")
output(3,4,"< ° ° >"
output(4,5,"( = )"
output(5,6,"(-)(-)(-)"<==== c'est lé moins entre parenthèses
output(6,7,"U"
output(1,16,"1"
output(8,1,"vie"
output(8,5,V
output(8,7,"/10"
output(8,11,W
output(8,14,"/Kg"
if V=0
then:goto 16
end
if W>=10
then:goto 15
end
pause
Menu("dog"'"nourir",2,"abreuver",3,"soigner",4,"stock",5,"marcher",6,"chasse",7,"retour",1)

lbl 15
clrhome
clrdraw
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
output(4,1,"bravo tu as gagner !!!"
pause
stop

lbl 16
clrdraw
clrhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
output(4,1,"ton chien est mort malade")
pause
output(6,1,"remise a 0"
50ùS
0ùT
0ùQ
0ùP
0ùW
0ùV
0ùR
0ùU
pause:goto 1

lbl 4
clrdraw
clrhome
input"utiliser",O
dsip O
if O=0
then:goto 1
end
if O>Q
then:goto X
end
Q-OùQ
if Q<=(-)1
then:goto X
end
pause: goto U

lbl U
clrdraw
clrhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
output(5,1,"ton chien est soigne")
V+7ùV
pause:goto 1

lbl 3
clrdraw
clrhome
input "utiliser",O
disp O
output(3,1,"litre bu")
if O=0
then:goto 1
end
if O>R
then:goto X
end
R-OùR
if R<=(-)1
then:goto X
end
pause :goto W

lbl W
clrdraw
clrhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
output(4,3,"ton chien est hidrate"
W+0.1ùW
pause :goto 1

lbl 2
clrdraw
clrhome
input "utiliser",O
disp O
if O>T
then:goto X
end
if O=0
then: goto 1
end
output(3,1,"viande prit")
T-OùT
if T-1
then:W+0.2ùW
end
if T<=(-)1
then:goto X
end
pause:goto 1

lbl X
clrdraw
clrhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
output(4,6,"error")
0ùT
0ùR
0ùQ
pause:goto 1

lbl 5
clrdraw
clrhome
if T<=(-)1
then:0ùT
end
output(1,1,"ton stock :")
output(2,1," viande")
output(2,1,T
if T>2
then:output(2,10,"s")
end
output(3,1," litre d'eau"
output(3,1,R
output(4,1," soignetout"
output(4,1,Q
output(5,1,P
output(5,3,"niveau d'arme"
pause:goto 1

lbl P
goto 1

lbl 7
clrdraw
clrhome
Menu("chasser ?","oui",13,"non",P

lbl 13
clrhome
clrdraw
s-3ùs
For(X,1,16,1)
output(1,X,"*")
output(8,X'"*")
end
if P=0
then:goto Z
end
output(2,1,"tu chasse dans la foret :")
pause
randint(1,4)ùL
if L=1
then:T+1ùT
end
if L=2
then:T+2ùT
end
if L=3
then:T+3ùT
end
if L=4
then:T+4ùT
end
if P=1
then:T+0ùT
end
if P=2
then:T+1ùT
end
if P=3
then:T+2ùT
end
if P=4
then:T+3ùT
end
if p=5
then:T+4ùT
end
if L>5
then:T+54ùT
end
pause
output(5,1,"tu as bete"
output(5,7,L
if L>1
then:output(5,14,"s")
pause
goto 14

lbl 14
clrhome
clrdraw
Menu("vendre ?","oui",A,"non",B)

lbl B
clrhome
clrdraw
disp T
output(1,1,"bete en stock")
if T>1
then:output(1,5,"s")
pause:goto 1

lbl A
clrdraw
clrhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
T*2ùT
S+TùS
output(4,1,"tu as F")
output(4,7,S
0ùT
pause:goto 1

lbl 6
clrdraw
clrhome
For(X,1,16,1)
output(1,X,"*")
output(8,X'"*")
end
output("marcher :"
pause
Menu("acheter ?","viande",9,"eau",10,"medicaments",11,"arme",12,"retour",1)

lbl 9
clrdraw
clrhome
input "combien d'unite?,T
disp "tu as achete"
disp T
output(5,1,"piece de viande")
S-2*TùS
pause:goto 1

lbl 10
clrdraw
clrhome
input "combien d'unite?,R
disp "tu as achete"
disp R
output(5,1,"litre d'eau")
S-RùS
pause:goto 1

lbl 11
clrdraw
clrhome
input "combien d'unite?,Q
disp "tu as achete"
disp Q
output(5,1,"soignetout")
S-5*QùS
pause:goto 1

lbl 12
clrdraw
clrhome
input "arme niveau ?,P
output(3,1,"tu as"
output(4,1,"comme niveau d'arme")
if P=1
then:(3,7,"1")
S-25ùS
end
if P=2
then:output(3,7,"2"
S-50ùS
end
if P=3
then:output(3,7,"3")
S-75ùS
end
if P=4
then:output(3,7,"4"
S-140ùS
end
if P=5
tehn:output(3,7,"5")
S-200ùS
end
if P>5
then:goto Z
end
pause:goto 1

lbl Z
clrhome
clrdraw
output(4,5,"error")
0ùP
pause:goto 1

lbl Y
clrdraw
clrhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(8,1,"*/*/*/*/*/*/*/*/")
output(4,1,"tu n'a plus de sous")
pause
output(7,1,"remise a 0")
50ùS
0ùU
0ùT
0ùW
0ùV
0ùR
0ùP
0ùQ
pause:goto 1


Les signes problematiques sont les mêmes que ceux d'en haut.
[ Ajouter un commentaire ] [ 8 commentaires ]

# Posté le jeudi 23 février 2006 13:26

Modifié le samedi 19 janvier 2008 08:28

Fish

Fish
Le 3eme jeu c'est fish

Nom : Fish
Créateur : Scale
Trouvée sur : mon blog
Version : 1.0
Taille : je l'ai plus sur ma calto, mais je crois
qu'il fait entre 1 000 et 2 000 Ram
compatibilité : Ti 82 83 84

Le but du jeu :

Donc voilà c'est un petit jeu de pêche assez simple pour les amateurs de pêche.
Le but est d'atteindre un objectif qui est de pêcher 500 thons, 10 rais , 6 requins et le "NAVARIK": c'est tout simple et il y a même un mode pour tricher donc si vous lachez un max de com's je vous le donnerais.


clrhome
clrdraw
for(X,1,8,1)
output(X,1,"°")
output(X,16,"°")
end
for(X,1,16,1)
output(1,X,"°")
output(8,X,"°")
end
output(4,5,"By Scale")
output(6,7,"Fish")
pause
lbl 1
clrhome
clrdraw
output(5,4,"-------")
output(5,11,"/")
output(4,12,"/")
output(3,13,"/")
output(3,4,"(-)(-)(-)(-)(-)(-)(-)(-)(-)")<======c'est le moin à coté du "."
output(3,3,"!"=
output(4,3,"!")
output(5,3,"!")
output(4,5,"° ° °")
output(2,6,"T T")
output(5,1,"^^")
output(5,13,"^^^^")
output(6,5,"(")
output(7,9,")")
output(8,2,")")
output(8,12,"(")
output(6,14,")")
pause
Menue("fish","pecher",2,"stock",3,"objectif",4,"quitter",6)

lbl 2
clrdraw
clrhome
output(tu peches !")
randint(1,100)ùC
if C=1
then:D+1ùD
end
if C=2
then:G+1ùG
end
if C=3
then:F+1ùF
end
if C>4
then:E+1ùE
end
pause:goto 8

lbl 8
clrdraw
clrhome
if C=2
then:output(2,5,"navarik")
end
if C=1
then,:output(2,2,"+ 1 requin")
end
if C=3
then:output(2,2,"+ 1 rai")
end
if C>4
then:output(2,2,"+ 1 thon")
end
pause:goto 1

lbl 3
clrdraw
clrhome
output(ton stock :")
output(3,4,"requin")
output(3,1,D
if D>1
then:output(3,10,"s")
end
output(4,4,"rai")
output'4,1,F
if F>1
then:output(4,7,"s")
end
output(5,5,"thon")
output(5,1,E
if E>1
then:output(5,9,"s")
end
if G=0
then:output(6,1,"navarik non pecher")
end
if G>=1
then:output6,1,"tu as navarik")
end
if G>=1 and D>=6 and E>=500 and F>=10
then:goto 5
end
pause:goto 1

lbl 5
clrhome
clrdraw
for(X,1,16,1)
output(1,X,"°")
output(8,X,"°")
end
output(2,1,"bravo tu as reussi ton objetcif !")
pause
Menue("fish","quitter",6,"remettre a 0",7)

lbl 6
clrhome
clrdraw
output(4,2,"a bientot"
pause
stop

lbl 7
clrhome
clrdraw
output(1,1,"remise a 0 en cours")
0ùD
0ùF
0ùE
0ùG
pause
output(8,1,"jeu a 0")
pause:goto 1

lbl 4
clrhome
clrdraw
output(1,1,"ton objectif estsimple : pecher 6 requinsblanc, 10 rais, 500 thons et capturer navarik bonne chance")<===== respecter l'orthographe que j'ai mit, c'est normal qu'il y est des mots attachés.
pause:goto 1


Signes problematiques

>= signifie plus grand ou egale
et le reste c la même chose que les autres
[ Ajouter un commentaire ] [ 3 commentaires ]

# Posté le jeudi 23 février 2006 13:40

Modifié le samedi 19 janvier 2008 08:25

Soccer

Soccer
Donc voilà, le jeu soccer est enfin en ligne sur mon blog.


Petite description :

Donc le but de ce jeu est bien évidemment de marquer des buts sur pénalty, mais vous avez different choix tel que, le mode solo , le mode 2 joueurs et même faire des coupes tel que la champion's league, la coupe du monde, et quelque championnat, tout cela en insérant les meilleurs équipes de football.


Taille du jeu :4781
Graphisme :168
mode solo :1459
TOTAL : 6408 Ram utilisé

Créé sur Ti 84 +

Voici le code

lbl 1
Clrhome
output(1,1,"*/*/*/*/*/*/*/*/")
output(1,8,"*/*/*/*/*/*/*/*/")
output(6,5,"by scale")
output(4,6,"soccer")
pause:goto 2

lbl 2
clrhome
menu("soccer :"1 joueur",3,"2 joueurs",4,"coupe",5,"quitter",6)

lbl 56
clrhome
output(1,1,"joueur 1 gagne"
output(2,1,"avec 10 points"
output(4,1,"et joueur 2 a :"
output(5,1,T
output(5,3,"points"
0->T
0->S
pause :goto 2

lbl 57
clrhome
output(1,1,"joueur 2 gagne"
output(2,1,"avec 10 points"
output(4,1,"et joueur 1 a :"
output(5,1,S
output(5,3,"points"
0->T
0->S
pause :goto 2

lbl 4
clrhome
output(1,1,"2 joueurs :"
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
69!
output(4,1,"c'est parti !!"
pause :goto 0

lbl 0
clrhome
output(1,1,"joueur 1"
output(3,1,"gooo !!!"
output(8,1,"points :"
output(8,10,S
pause
clrhome
prgmBUT <===A faire plus tard
output(5,8,"M"
output(8,8,"O"
pause
menu("ou tirer ?","gauche",30,"milieu",31,"droit",32)

lbl 32
randint(1,3)->F
if F=1
then:goto 39
end
if F=2
then:goto 40
end
if F=3
then:goto 41
end

lbl 31
randint(1,3)->F
if F=1
then:goto 36
end
if F=2
then:goto 37
end
if F=3
then:goto 38
end

lbl 30
randint(1,3)->F
if F=1
then:goto 33
end
if F=2
then:goto 34
end
if F=3
then:goto 35
end

lbl 33
clrhome
prgmBUT
output(4,5,"O"
output(5,5,"M"
output(8,1,"pas de bol"
pause :goto 42

lbl 34
clrhome
prgmBUT
output(4,5,"O"
output(5,8,"M"
output(8,1,"jolie !!!"
S+1->S
if F=10
then:goto 56
end
pause :goto 42


lbl 35
clrhome
prgmBUT
output(4,5,"O"
output(5,12,"M"
output(8,1,"quelle frappe !!"
S+1->S
if F=10
then:goto 56
end
pause :goto 42

lbl 36
clrhome
prgmBUT
output(4,8,"O"
output(5,5,"M"
output(8,1,"bravo"
S+1->S
if F=10
then:goto 56
end
pause :goto 42

lbl 37
clrhome
prgmBUT
output(4,8,"O"
output(5,8,"M"
output(8,1,"arret !!"
pause :goto 42

lbl 38
clrhome
prgmBUT
output(4,8,"O"
output(5,12,"M"
output(8,1,"yes dedans !!"
S+1->S
if F=10
then:goto 56
end
pause :goto 42

lbl 39
clrhome
prgmBUT
output(4,12,"O"
output(5,5,"M"
output(8,1,"superbe but !"
S+1->S
if F=10
then:goto 56
end
pause :goto 42

lbl 40
clrhome
prgmBUT
output(4,12,"O"
output(5,8,"M"
output(8,1,"ouiiii !!"
S+1->S
if F=10
then:goto 56
end
pause :goto 42
4139
clrhome
prgmBUT
output(4,12,"O"
output(5,12,"M"
output(8,1,"ohhh !!"
pause :goto 42


lbl 42
clrhome
output(1,1,"joueur 2"
output(3,1,"gooo !!!"
output(8,1,"points :"
output(8,10,T
pause :goto 43

lbl 43
clrhome
prgmBUT
output(8,8,"O"
output(5,8,"M"
pause
menu("ou tirer ?","gauche",44,"milieu",45,"droit",46)

lbl 44
randint(1,3)->F
if F=1
then:goto 47
end
if F=2
then:goto 48
end
if F=3
then:goto49
end

lbl 45
randint(1,3)->F
if F=1
then:goto 50
end
if F=2
then:goto 51
end
if F=3
then:goto 52
end


lbl 46
randint(1,3)->F
if F=1
then:goto 53
end
if F=2
then:goto 54
end
if F=3
then:goto 55
end

lbl 47
clrhome
prgmBUT
output(4,5,"O"
output(5,5,"M"
output(8,1,"domage...
pause :goto 0

lbl 48
clrhome
prgmBUT
output(4,5,"O"
output(5,8,"M"
output(8,1,"goaaall !!
T+1->T
If T=10
then:goto 57
end
pause :goto 0

lbl 49
clrhome
prgmBUT
output(4,5,"O"
output(5,12,"M"
output(8,1,"dedans, cool !
T+1->T
If T=10
then:goto 57
end
pause :goto 0

lbl 50
clrhome
prgmBUT
output(4,8,"O"
output(5,5,"M"
output(8,1,"encore un !
T+1->T
If T=10
then:goto 57
end
pause :goto 0

lbl 51
clrhome
prgmBUT
output(4,8,"O"
output(5,8,"M"
output(8,1,"raté...
pause :goto 0

lbl 52
clrhome
prgmBUT
output(4,8,"O"
output(5,12,"M"
output(8,1,"quel beau but !
T+1->T
If T=10
then:goto 57
end
pause :goto 0

lbl 53
clrhome
prgmBUT
output(4,12,"O"
output(5,5,"M"
output(8,1,"jolie !!
T+1->T
If T=10
then:goto 57
end
pause :goto 0

lbl 54
clrhome
prgmBUT
output(4,12,"O"
output(5,8,"M"
output(8,1,"buuuttt !!
T+1->T
If T=10
then:goto 57
end
pause :goto 0

lbl 55
clrhome
prgmBUT
output(4,12,"O"
output(5,12,"M"
output(8,1,"arret...
pause :goto 0

lbl 5
clrhome
menu("menu coupe","champions lig",7,"mondiale",8,"uefa",99,"francaise",98,"europe",97,"espagnole",96)

lbl 98
menu("francaise","psg",9,"lyon",9,"marseille",9,"lille",9,"nantes",9,"strasbourg",9,"metz",9)

lbl 97
menu("europe","france",9,"italie",9,"allemagne",9,"espagne",9,"angleterre",9,"grece",9,"irlande",9)

lbl 96
menu("espagnole","real madrid",9,"barcelone",9,"betis seville",9,"valence",9,"corogne",9,"ossassounag",9,"real majorque",9)

lbl 99
menu("uefa","strasbourg",9,"bale",9,"rome",9,"monaco",9,"belgrad",9,"vienne",9,"moscou",9)

lbl 7
menu("champions ligue","chelsea",9,"real madrid",9,"monaco",9,"juventus",9,"bayern M",9,"olympiakos",9,"lyon",9)

lbl 8
menu("mondiale","france",9,"italie",9,"togo",9,"japon",9,"argentine",9,"maroc",9,"bresil",9)

lbl 9
clrhome
0->U
output(1,1,"coupe :
output(4,1,"1er tour
pause :goto 11

lbl 11
clrhome
prgmBUT
output(5,8,"M
output(8,8,"O
pause
menu("ou tirer ?","gauche",12,"milieu",13,"droit",14)

lbl 14
randint(1,3)->F
if F=1
then:goto 20
end
if F=2
then:goto 21
end
if F=3
then:goto 22
end

lbl 13
randint(1,3)->F
if F=1
then:goto 17
end
if F=2
then:goto 18
end
if F=3
then:goto 19
end

lbl 12
randint(1,3)->F
if F=1
then:goto 10
end
if F=2
then:goto 15
end
if F=3
then:goto 16
end

lbl 20
clrhome
prgmBUT
output(4,12,"O
output(5,5,"M
output(8,1,"Buuut !
U+1->U
pause
if U=1
then:goto 23
end
if U=2
then:goto 24
end
if U=3
then:goto 25
end
if U=4
then:goto 26
end
if U=5
then:goto 27
end
if U=6
then:goto 28
end
if U=7
then:goto 29
end

lbl 21
clrhome
prgmBUT
output(4,12,"O
output(5,8,"M
output(8,1,"Buuut !
U+1->U
pause
if U=1
then:goto 23
end
if U=2
then:goto 24
end
if U=3
then:goto 25
end
if U=4
then:goto 26
end
if U=5
then:goto 27
end
if U=6
then:goto 28
end
if U=7
then:goto 29
end

lbl 22
clrhome
prgmBUT
output(4,12,"o
output(5,12,"M
output(8,1,"oh ! arret !
pause :goto 2

lbl 17
clrhome
prgmBUT
output(4,8,"O
output(5,5,"M
output(8,1,"Buuuut !
U+1->U
pause
if U=1
then:goto 23
end
if U=2
then:goto 24
end
if U=3
then:goto 25
end
if U=4
then:goto 26
end
if U=5
then:goto 27
end
if U=6
then:goto 28
end
if U=7
then:goto 29
end

lbl 18
clrhome
prgmBUT
output(4,8,"O
output(5,8,"M
output(8,1,"oh ! arret !
pause :goto2

lbl 19
clrhome
prgmBUT
output(4,8,"O
output(5,12,"M
output(8,1,"Buuuttt !!!
U+1->U
pause
if U=1
then:goto 23
end
if U=2
then:goto 24
end
if U=3
then:goto 25
end
if U=4
then:goto 26
end
if U=5
then:goto 27
end
if U=6
then:goto 28
end
if U=7
then:goto 29
end

lbl 10
clrhome
prgmBUT
output(4,5,"O
output(5,5,"M
output(8,1,"arret...
pause :goto 2

lbl 15
clrhome
prgmBUT
output(4,5,"O
output(5,8,"M
output(8,1,"Buuut !
U+1->U
pause
if U=1
then:goto 23
end
if U=2
then:goto 24
end
if U=3
then:goto 25
end
if U=4
then:goto 26
end
if U=5
then:goto 27
end
if U=6
then:goto 28
end
if U=7
then:goto 29
end

lbl 16
clrhome
prgmBUT
output(4,5,"O
output(5,12,"M
output(8,1,"goooall !!
U+1->U
pause
if U=1
then:goto 23
end
if U=2
then:goto 24
end
if U=3
then:goto 25
end
if U=4
then:goto 26
end
if U=5
then:goto 27
end
if U=6
then:goto 28
end
if U=7
then:goto 29
end

lbl 6
clrhome
output(5,5,"soccer
pause :stop

lbl 23
clrhome
output(1,1,"coupe :
output(4,1,"2eme tour
pause :goto 11

lbl 24
clrhome
output(1,1,"coupe :
output(4,1,"3eme tour
pause :goto 11

lbl 25
clrhome
output(1,1,"coupe :
output(4,1,"8eme de finale
pause :goto 11

lbl 26
clrhome
output(1,1,"coupe :
output(4,1,"quart de finale
pause :goto 11

lbl 27
clrhome
output(1,1,"coupe :
output(4,1,"demin finale
pause :goto 11

lbl 28
clrhome
output(1,1,"coupe :
output(4,1,"finale
pause :goto 11

lbl 3
prgmFoot
(il a été créé dans la partie "pour débutant")

lbl 29
clrhome
output(4,4,"vous etes
output(6,4,"champions
pause
clrhome
output(1,1,"toutes mes
output(2,1,"felicitations
pause :goto 1


Et voilà, le programme soccer est fini, si vous avez un beug, n'hesitez pas à me le signaler !!






http://informatik.skyblog.com
[ Ajouter un commentaire ] [ Aucun commentaire ]

# Posté le jeudi 02 mars 2006 15:14

Modifié le mercredi 04 juillet 2007 08:34

Le prochain jeu ==> Bowling

Le prochain jeu ==> Bowling
Je vous propose de mettre un des 2 jeux que j'ai créé sur ce blog, mais c'est a vous de me le dire, le jeux qui aura le plus de vote sera mit en ligne, alors a vos clavier.( VOUS POUVEZ TOUJOURS VOTEZ !!)


Jeu N° 1

- Bowling
- V.1.0
- Taille 1215 Ram
- pour ti 84,83,82
- Créateur Scale

Jeu N° 2

- Dog 2
- V.2.1
- Taille 7020 Ram
- pour ti 84,83,82
- Créateur Scale

_________________________________________

Les votes

Dog 2 : 0 vote
Bowling : 2 votes

_________________________________________


Le voila le fameux jeu, dite moi se que vous en pensez.


Nom : Bowling
Créateur : Scale
Trouvée sur : mon blog
Version : 1.0
Taille : 1275 Ram
compatibilité : Ti 82 83 84


lbl 1
clrhome
output(5,5,"bowling")
output(8,1,"oooooooooooooooo"
output(1,1,"oooooooooooooooo"
pause: goto 2

lbl 2
clrhome
Menu("-bowling-","jouer",3,"score",10,"quitter",6)

lbl 3
output(1,8,"/ 8 8
output(2,7,"/ 8
output(3,6,"/ 8 8
output(4,5,"/ 8
output(5,4,"/
output(6,3,"/
output(7,2,"/
output(8,1,"/
output(8,7,"/
pause
clrhome
input "puissance (1-4)",F
if F>4
then:goto 23
end
if F<1
then: goto 23
end
randint(2,4)->G
F*G->F
clrhome
output(1,8,"/ 8 8
output(2,7,"/ 8
output(3,6,"/ 8 8
output(4,5,"/ 8
output(5,4,"/
output(6,3,"/
output(7,2,"/
output(8,1,"/
output(8,7,"O
if F=2
then:output(8,7," "
output(3,10," "
output(8,5,"une quille"
@+5->@
pause :goto 2
end
if F=3
then:output(8,7," "
output(4,12," "
output(3,14," "
output(2,12," "
output(1,14," "
output(8,4,"4 quilles"
@+25->@
pause :goto 2
end
if F=4
then:output(8,7," "
output(3,10," "
output(2,12," "
output(1,14," "
output(8,6,"3 quilles"
@+15->@
pause :goto 2
end
if F=6
then:output(8,7," "
output(1,10," "
output(2,12," "
output(1,14," "
output(8,5,"3 quilles"
@+15->@
pause :goto 2
end
if F=8
then:output(8,7," "
output(1,10," "
output(2,12," "
output(1,14," "
output(3,10," "
output(3,14," "
output(4,12," "
output(8,5,"strike"
@+50->@
pause :goto 2
end
if F=9
then:output(8,7," "
output(3,10," "
output(4,12," "
output(8,5,"3 quilles"
@+15->@
pause :goto 2
end
if F=12
then:output(8,7," "
output(8,5,"rate"
@-10->@
pause :goto 2
end
if F=16
then :output(8,7," "
output(2,12," "
output(1,14," "
output(3,10," "
output(8,5,"3 quilles"
@+15->@
pause :goto 2
end
If F=/=2 or F=/=3 or F=/=4 or F=/=6 or F=/=8 or F=/=9 or F=/=12 or F=/=16
then:clrhome
output(1,1,"impossible"
pause :goto 2
end

lbl 23
clrhome
output(1,1,"entre 1 et 4 !"
pause :goto 2

lbl 10
clrhome
output(1,1,@
output(1,9,"pts"
pause :goto 2

lbl 6
clrhome
output(4,5,"by scale"
pause :clrhome
stop


@ est le signe rond avec un trait au milieu, [ALPHA] + [3]

__________________________________________
[ Ajouter un commentaire ] [ 5 commentaires ]

# Posté le vendredi 03 mars 2006 11:56

Modifié le samedi 19 janvier 2008 08:32