A prendre ou à laisser {fonky-ti} (forum)

Forum

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

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

A prendre ou à laisser {fonky-ti}

Stupid le 08/12/2007 à 18:01

Ce jeu que je trouve competement nul mais que j'ia quand meme fait avec des graphismes assez évolués

voici un programme necessaire pour que ce jeu marche,le programme Z :

:ClrHome
:ClrDraw
:AxesOff
:62üYmax
:94üXmax
:0üYmin
:0üXmin
:FonctOff
:CoordRect
:CoordOff
:LblOff
:ExpOff
:GraphOff

Mais vous pouvez également mettre à la place à programme qui redefinit le graph pour l'adapter à un jeu

ü:sto
Á:Theta
ø:pas égàl à

pour savoir à quelle liste ça correspond vu que y'a un bug c'est soit télechargé ti graph link 83, soit vous copiez coller le code n'importe ou pour connaitre al bonne liste

L:L1
L‚:L2
Lƒ:L3

Durée de recopiage:
Habitué:1h05-1h30,Novice:2h-3h

Taille:
1600 octets+468 octets de listes

Code



:prgmZ

:Output(2,6,"BOITES

:Output(4,1,"A PRENDRE OU

:Output(5,8,"A LAISSER

:Output(6,1,"****************

:Output(3,1,"****************

:Output(7,1,"SANS ARTHUR,HIHA

:Output(8,1,"A FONKY-TI GAME

:Pause

:ClrHome

:0ü (  ) L

:0ü (  ) E

:0ü (  ) F

:0ü (  ) S

:0ü (  ) B

:0ü (  ) N

:seq(0,A,1,16ü (  ) L

:Lü (  ) Lƒ

:0ü (  ) L(17

:{.01,1,5,10,50,100,500,1000,5000,7500,10^4,25000,50000,75000,10^5,250000}ü (  ) L‚

:Line(16,62,16,7

:Line(68,62,68,7

:0ü (  ) Á

:For(A,0,78,78

:For(C,0,7

:If A>0

:Then

:If C>1

:4ü (  ) B

:If C>5

:8ü (  ) B

:End

:If A>0

:8ü (  ) Á

:Text(C7,0+A-B,L‚(C+1+Á

:End

:End

:0ü (  ) M

:For(Á,9,54,11

:For(Z,20,61,17

:M+1ü (  ) M

:Line(Z,Á,Z+10,Á

:Line(Z,Á,Z,Á+8

:Line(Z,Á+8,Z+10,Á+8

:Line(Z+10,Á,Z+10,Á+8

:4ü (  ) C

:If M>9

:2ü (  ) C

:Text(Á-7,Z+C,M

:End

:End

:Horizontal 6

:1ü (  ) M

:Lbl(B

:L‚(Mü (  ) G

:Lbl X

:intrand(1,16ü (  ) Á

:If L‚(Á)ø0

:Goto X

:Gü (  ) L(Á

:M+1ü (  ) M

:If Mø17

:Goto B

:19ü (  ) Á

:52ü (  ) Z

:Lbl G

:getKeyü (  ) C

:If C

:Then

:Line(Á,Z,Á+11,Z,0

:Line(Á,Z,Á,Z+9,0

:End

:(Á-2)/17ü (  ) U

:(62-Z-10)/11ü (  ) V

:U+V3ü (  ) W

:If C=24

:Á-17ü (  ) Á

:If C=26

:Á+17ü (  ) Á

:If C=25

:Z+11ü (  ) Z

:If C=34

:Z-11ü (  ) Z

:If Á=2

:53ü (  ) Á

:If Á=70

:19ü (  ) Á

:If Z=63

:8ü (  ) Z

:If Z=ú (  ) 3

:52ü (  ) Z

:Line(Á,Z,Á+11,Z

:Line(Á,Z,Á,Z+9

:If Cø105 ou 0<Lƒ(W

:Goto G

:If F=1

:Then

:Text(62-Z-8,Á+3,16

:0ü (  ) F

:1ü (  ) E

:L(Wü (  ) G

:L(16ü (  ) H

:Gü (  ) L(16

:Hü (  ) L(W

:Text(57,77,W

:Wü (  ) S

:Goto P

:End

:L+1ü (  ) L

:Text(57,0,"BOITE

:If WøS

:Text(57,22,W

:If W=S

:Text(57,22,16

:4ü (  ) J

:If W÷ (  ) 9 and WøS

:0ü (  ) J

:Text(57,27+J,": ...

:For(A,1,75L+LÓ

:End

:For(B,Á,Á+11

:Line(B,Z,B,Z+Á

:End

:1ü (  ) Lƒ(W

:ú (  ) 8ü (  ) R

:For(A,0,70,70

:R+8ü (  ) R

:For(B,0,7

:If L(W)=L‚(B+R+1

:Then

:If A=0

:Then

:For(K,16,0,ú (  ) 1

:Line(K,62-B7-5,K,62-B7-1

:End

:End

:If A>0

:Then

:For(K,68,94

:Line(K,62-B7-5,K,62-B7-1

:End

:End

:Text(57,38+J,L(W

:End

:End

:End

:If L=6 or L=13 and E=0 and N=0

:Then

:For(A,1,700

:End

:Text(57,0,"ECHANGE:

:Text(57,30,"1:OUI,2:NON

:While Cø92 and Cø93

:getKeyü (  ) C

:End

:If C=92

:Then

:1ü (  ) F

:Text(57,30,"AVEC LA BOITE

:Goto G

:End

:End

:Lbl P

:For(A,1,700

:End

:For(A,0,5

:Line(0,A,94,A,0

:End

:If (L=8 or L=12 or L=14) and N=0

:Then

:0ü (  ) P

:0ü (  ) Q

:For(O,1,16

:If 0=Lƒ(O

:Then

:P+L(Oü (  ) P

:Q+1ü (  ) Q

:End

:End

:round(((19/20)P/10)/Q,0ü (  ) P

:Text(57,0,"OFFRE:

:If P=0

:0.001ü (  ) P

:Text(57,24,P10

:Text(57,56,"OUI:1,NON:2

:While Cø92 and Cø93

:getkeyü (  ) C

:End

:For(A,0,5,

:Line(0,A,94,A,0

:End

:If C=93

:Goto G

:If C=92

:Then

:P10ü (  ) L(17

:1ü (  ) N

:End

:End

:If Lø15

:Goto G

:Line(Á,Z,Á+11,Z,0

:Line(Á,Z,Á,Z+9,0

:Text(57,0,"TU GAGNES

:Text(57,35,L(16+N

:If N=1

:Then

:For(Á,1,1300

:End

:Text(57,0,"AU LIEU DE     

:Text(57,36,L(16

:End

:Text(57,68,"(C)2007

vibra le 08/12/2007 à 18:41

Et il faut faire quoi ?

Sangohan38 le 08/12/2007 à 18:58

Je suppose qu'il faut faire comme le jeu à la télé c'est à dire choisir une boite et voir, ensuite voir combien on vien de perdre, réfléchir à l'offre du banquier et enfin, finir par choisir une boite.

Je trouve ce jeu totalement nul à la Tv.

Sangohan38

Egoutagny le 08/12/2007 à 18:59

donc sur calto ça risque d'être encore plus nul...

unknow le 08/12/2007 à 21:30

non je vous jure je l'ai il est bien fait et ya mme le banquier aussi!!

Stupid le 09/12/2007 à 14:04

moi aussi je le trouve pérave mais bon c'était pour le geste...aux gens à qui je l'ai montré ou envoyés ça a plus qu'aux filles (enfin celles qui ont compris le jeu^^) et aussi à unknow

coc5 le 09/12/2007 à 14:16

Ce serait bien de mettre autre chose juste que le code non retouché (en plus on ne peut pas distinguer les listes, les caractères de Word ne passent pas). Un lien par exemple ?

Sangohan38 le 09/12/2007 à 16:41

Il à expliquer à quelles touches correspondait les symboles.

Sangohan38

coc5 le 09/12/2007 à 16:49

Sauf que pour moi toutes les listes ont un carré noir à la place du signe carré ou autre...

Stupid le 09/12/2007 à 16:53

suffit de copier dans word...

ratuss le 22/01/2008 à 17:03

il y a un bug :

:{.01,1,5,10,50,100,500,1000,5000,7500,10^4,25000,50000,75000,10^5,250000}üL2

...

:Lbl X
:intrand(1,16ütheta
:If L2 (theta) different de 0
:Goto X

il y a une boucle infinie

sinon j'ai tésté le prog, voila ce que j'obtient (si je saute la boucle) :

quelqu'un peut il m'expliquer le principe du jeu ? :p

Image manquante

c'est la qu'on se dit qu'au final personne ne teste les jeux (depuis que je fait la liste des jeux je n'arrete pas de corriger plein de bugs etc etc, or apparemment personne n'à l'air de se plaindre...)

Stupid le 22/01/2008 à 20:08

oua il est tout buggé le jeu^^

ben c'est le jeu d'arthur avec les boites, ou tout ce que tu as à faire c'est ouvrir des boites, y'a meme le jeu sur odri à 20€ alors que le jeu c'est limite juste un entaleat(1,22)...

Stupid le 22/01/2008 à 20:09

:For(A,0,5
:Line(0,A,94,A,0
:End

j'vais oublié le 0 à la fin déjà un bug de cvorrigé

ratuss le 22/01/2008 à 20:13

Et c'est quoi le truc échanger alors ?

Stupid le 22/01/2008 à 20:14

le reste faudra que je compare avec ma version sur ma calto

ratuss le 22/01/2008 à 20:31

ok bah je t'enverrais le 83p pour que tu le testes stp

(sinon je lui mets combien sur 5 parce qu'à vrai dire je pige rien au jeu)

Stupid le 22/01/2008 à 20:32

pour moi il vaut 3
le jeu n'a aucun intret mais pour la beauté du geste e tpour les graphismes il vaut 3

ratuss le 22/01/2008 à 20:57

ok je lui ais mis 3

ratuss le 23/01/2008 à 20:00

Code

:Lbl X

:intrand(1,16->theta

:If L2(theta)=/=0

:Goto X

tu veux pas verifier cette ligne svp ?

Stupid le 23/01/2008 à 21:21

selon mon code c'est l1 pas l2

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

Forum

A prendre ou à laisser {fonky-ti}

Flux RSS

Abonnement à la newsletter