Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Une sorte de fall
thegeek34 le 02/05/2015 à 08:36
Et salut je vous présente aujourd'hui un fall que FullyZing a réalisé :
Code
0->S:3->V:11->X:80->F:1->Y:1->G
Lbl 0
ClrHome
Disp "SCORE:"
Disp ""
Disp "VIES:"
1->Z
For(P,1,8)
Output(Z,7,")")
Z+1->Z:End
Lbl 2
randInt(8,16->Z
S+1->S
G+1->G
If G=10:Then
0->G:V+1->V
F-10->F
End
Output(2,1,S)
Output(4,2,V)
Lbl 1
Output(8,X,"==")
Output(Y,Z,"*")
For(Q,1,F)
End
Y+1->Y
Output(Y-1,Z," ")
If Y=8:Goto 3
getKey->T
If T [différent de] 0
Output(8,X," ") <== 2 espaces
If T=24:X-1->X
If T=26:X+1->X
If T=24 et X=7:16->X
If T=26 et X=16:8->X
Goto 1
Lbl 3
1->Y
If X=Z or X+1=Z:Goto 2
Lbl 4
Output(4,11,"PERDU")
Pause
V-1->V
If V=-1:Then
Output(3,11,"Game")
Output(4.11,"Over")
Pause:Stop
End
S-1->S
Goto 0
Ce jeu est une copie améliorée de celui de FulliZing
Mingerton le 02/05/2015 à 22:00
Quelques améliorations :
Code
DelVar S3->V:11->X:80->F:1->Y:1->G
Repeat V=-1
ClrHome
Disp "SCORE:","","VIES:
For(Z,1,8
Output(Z,7,"
End
Lbl 2
randInt(8,16->Z
S+1->S
G+1->G
If G=10:Then
F-G->F
DelVar GV+1->V
End
Output(2,1,S
Output(4,2,V
Lbl 1
Output(8,X,"==
Output(Y,Z,"*
For(Q,1,F
End
Y+1->Y
Output(Y-1,Z,"
If Y=8:Goto 3
getKey->T
If T
Output(8,X,"
X-(T=24)+(T=26->X
X+9(X<8)-9(X>16->X
Goto 1
Lbl 3
1->Y
If X=Z or X+1=Z:Goto 2
Lbl 4
Output(4,11,"PERDU
Pause
V-1->V
S-1->S
End
Output(3,11,"Game
Output(4,11,"Over
thegeek34 le 02/05/2015 à 22:01
D'accord merciMingerton le 02/05/2015 à 22:02
Il doit y avoir d'autres trucs à faire, mais j'ai l'esprit un peu trop embrûmé pour chercher correctement là
thegeek34 le 02/05/2015 à 22:43
oui j'imagine le topo discret au lit laMingerton le 03/05/2015 à 01:50
T'imagines bien
Le code m'a l'air bien sinon, à moins de changer totalement le principe on devrait pas aller vraiment plus bas. Si il y a quelque chose à faire j'éditerai mon message précédent de toute manière
thegeek34 le 03/05/2015 à 07:26
D'accord mrcSpouki35 le 25/05/2015 à 18:47
Bonjour ou bonsoir ,
J'ai une ti-82 non stat et je trouve pas la fonction RandInt( j'aimerai savoir si elle existe et si elle existe pas peut on la suprimer ou changer ?
Merci
Mingerton le 26/05/2015 à 18:02
Cette fonction n'existe pas sur la 82n mais on peut tenter de la remplacer. Par exemple, pour un nombre aléatoire entre 8 et 16, comme dans le code :
Pour expliquer ce qui s'est passé :
- On démarre le comptage à 8 : 8+...
- rand : un nombre réel aléatoire compris entre 0 et 1
- rand8 : parce qu'il y a 8 unités d'écart entre la début et la fin du comptage.
- round(...,0 : on arrondit pour avoir un nombre naturel.
m@thieu41 le 26/05/2015 à 19:18
Tu n'as pas un tirage equiprobable ainsi.
Il vaut mieux utiliser int/partEnt:
A+int((B-A+1)rand
Pour Un nombre aléatoire entre A et B (inclus).spouki35 le 26/05/2015 à 20:43
Merci beaucoup
Mingerton le 26/05/2015 à 20:55
Ah oui, en effet. Je pensais pas qu'un arrondi changerait la répartition comme ca. Tant mieux puisqu'on gagne 2 octets
Spouki35 le 09/06/2015 à 21:55
Cela ne fonctionne pas
Avez vous d'autre solution ou alors j'ai mal compris :/
Merci
m@thieu41 le 10/06/2015 à 09:14
Qu'est ce qui ne fonctionne pas ? Il y a une erreur ? Résultat non convaincant ?Spouki35 le 10/06/2015 à 18:20
J'ai une ti-82 non stats et je n'arrive pas a faire la commande Randint( vu qu'elle n'existe pas , des solution on été dite mais soit je les comprend pas soit elle marche pas
Merci de votre réponseMingerton le 11/06/2015 à 20:34
RandInt(A,B) choisit un entier aléatoire entre A et B. Su TI-82, A+int((B-A+1)rand a le même effet. A adapter avec les variables correctes selon le contexte.m@thieu41 le 13/06/2015 à 17:10
Explique nous ce que tu entends par "ne marche pas". Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
