Autorisation : Membre
Nb de messages : 101
Inscrit le : Ven 11 Nov 2005, 20:16
Posté le : Sam 19 Nov 2005, 21:47
Donc voilà c'est un petit jeu de pêche assez simple pour les amateur de peche.
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 meme un mode pour tricher donc si vous êtes sympa lol... je vous le filerai.
Le programme s'appelle "Fish"
mais en attendant voici le code :
ù cest la fleche quand on clique sur "sto"
>= c'est plus grand ou egale
<= c'est plus petit ou egale
Code
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 ca 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 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
Donc voila c'estait le code du jeu "fish" créé par Scale.
Autorisation : Administrateur
Nb de messages : 792
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Sam 19 Nov 2005, 22:57
Non, parce que si tu ne les avais pas fait de ta main, tu ne pourrais pas les mettre sur le forum, cela est interdit !
Ce qui me fais me poser des questions, c'est ton exceptionnelle productivité en ce moment !
Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Jeu 07 Jui 2007, 15:07
sto est juste au dessus de la touche on !!!
Cette touche est indiquée par une fleche allant de la gauche a la droite
comme celle la " -> " ok
bonne continuation dans le monde de la programmation !! si t'as un problème
n'hésite pas a le ou les poster sur le forum tu recevra une réponse a coup surs !!!
a+
---------------------- BIENVENUE DANS LE MONDE DE LA PROGRAMMATION