Français   Le jeu de Marienbad.

Règle du jeu:

Vous disposez de quatre rangées d'allumettes contenant respectivement 1, 3, 5 et 7 unités. Chacun des deux participants joue à tour de rôle et enlève le nombre d'allumettes désiré sur une même ligne. (Il peut même éliminer toute une rangée). Le perdant est celui qui prend la dernière allumette.

Comment jouer:

Lorsque c'est votre tour de jouer vous déplacez la tortue avec les flèches Haut et Bas afin de vous positionner sur la ligne voulue. Ensuite vous éliminez successivement le nombre d'allumettes voulu avec la flèche Gauche (ou alors avec Delete ou Backspace). Une fois votre choix  déterminé, pressez Entrée. L'ordinateur prend alors la main.

PS: Il est possible de gagner, ne désespérez pas!

Astuce

# Commande principale: demarrer
pour demarrer
ve vt ct accueil 0
attends 60
ve fcfg 7 fcc 0 tg 90 ftc 3 fcc 0
ligne 1 1 3 5 7
ligne 2 1 3 5 7
ligne 3 1 3 5 7
ligne 4 1 3 5 7
donne "alea hasard 4
si :alea = 0 [ligne 1 1 3 5 7 oter 1 0 1 3 5 7]
coupdehasard 1 3 5 7
fin

pour coupdehasard :a :b :c :d
donne "l (1 + hasard 4)
si egal? (item :l ph ph ph :a :b :c :d) 0 [coupdehasard :a :b :c :d]
oter :l 1 + hasard (item :l ph ph ph :a :b :c :d) :a :b :c :d
fin

pour accueil :n
ct
si :n > 16 [stop]
lc tg 90 av 30 td 90 av 100
fcc hasard 8 etiquette [Dr. Alliag]
attends 10
lc tg 90 av 20 td 90 re 100
fcc hasard 8 etiquette [M A R I E N B A D]
attends 10
td 90 av 50 tg 90
accueil :n + 1
fin

pour allumette
bc td 90 av 40 re 80 av 40 tg 90 lc re 40
fin

pour debutligne :l
lc fpos liste ((:l * -40) +40) ((:l * -100)+200)
fin

pour finligne :l :a :b :c :d
donne "n item :l ph ph ph :a :b :c :d
lc fpos liste ((:l * -40) +80 + (:n * 40)) ((:l * -100)+200)
fin

pour ligne :l :a :b :c :d
debutligne :l
si :l = 1 [repete :a [allumette] ]
si :l = 2 [repete :b [allumette] ]
si :l = 3 [repete :c [allumette] ]
si :l = 4 [repete :d [allumette] ]
re 20
fin

pour precurseur :l :a :b :c :d
si :l = 0 [donne "l 4 ligne 4 :a :b :c :d precurseur :l :a :b :c :d]
si :l = 5 [donne "l 1 ligne 1 :a :b :c :d precurseur :l :a :b :c :d]
si et :l = 1 :a = 0 [precurseur 2 :a :b :c :d]
si et :l = 2 :b = 0 [precurseur 3 :a :b :c :d]
si et :l = 3 :c = 0 [precurseur 4 :a :b :c :d]
si et :l = 4 :d = 0 [precurseur 1 :a :b :c :d]
curseur :l :a :b :c :d
fin

pour curseur :l :a :b :c :d
finligne :l :a :b :c :d
donne "curs liscar
si ou :curs =-38 :curs=-224 [donne "l :l - 1 monter :l :a :b :c :d ligne :l :a :b :c :d] #haut
si ou (ou (ou :curs = -127 :curs=-8 ) :curs = -37 ) :curs = -226 [enlever :l :a :b :c :d] # gauche ou delete
si ou :curs = -40 :curs=-225 [donne "l :l +1 descendre :l :a :b :c :d ligne :l :a :b :c :d] #bas
curseur :l :a :b :c :d
fin

pour monter :l :a :b :c :d
si :l = 0 [monter 4 :a :b :c :d]
si et :l = 1 :a = 0 [monter 4 :a :b :c :d]
si et :l = 2 :b = 0 [monter 1 :a :b :c :d]
si et :l = 3 :c = 0 [monter 2 :a :b :c :d]
si et :l = 4 :d = 0 [monter 3 :a :b :c :d]
curseur :l :a :b :c :d
fin

pour descendre :l :a :b :c :d
si :l = 5 [descendre 1 :a :b :c :d]
si et :l = 1 :a = 0 [descendre 2 :a :b :c :d]
si et :l = 2 :b = 0 [descendre 3 :a :b :c :d]
si et :l = 3 :c = 0 [descendre 4 :a :b :c :d]
si et :l = 4 :d = 0 [descendre 1 :a :b :c :d]
curseur :l :a :b :c :d
fin

pour enlever :l :a :b :c :d
donne "n item :l ph ph ph :a :b :c :d
si :n = 0 [tampon :l :a :b :c :d]
debutligne :l
gomme
si :l = 1 [lc re (:a - 1) * 40 bc allumette donne "a :a - 1]
si :l = 2 [lc re (:b - 1) * 40 bc allumette donne "b :b - 1]
si :l = 3 [lc re (:c - 1) * 40 allumette donne "c :c - 1]
si :l = 4 [lc re (:d - 1) * 40 allumette donne "d :d - 1]
tampon :l :a :b :c :d
fin

pour tampon :l :a :b :c :d
donne "curs liscar
si :curs =10 [reponse :l :a :b :c :d]
si ou ou ou :curs=-37 :curs=-226 :curs=-127 :curs=-8 [enlever :l :a :b :c :d]
tampon :l :a :b :c :d
fin

pour reponse :l :a :b :c :d
fcc 0
donne "v ph ph ph :a :b :c :d
si :v = ph ph ph 1 3 5 6 [donne "alea hasard 2 si :alea = 0 [oter 2 1 :a :b :c :d] [oter 1 1 :a :b :c :d]]
si :v = ph ph ph 1 3 5 5 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 1 3 5 4 [oter 2 3 :a :b :c :d]
si :v = ph ph ph 1 3 5 3 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 3 5 2 [oter 3 5 :a :b :c :d]
si :v = ph ph ph 1 3 5 1 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 3 5 0 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 3 4 7 [donne "alea hasard 2 si :alea = 0 [oter 2 1 :a :b :c :d] [oter 1 1 :a :b :c :d]]
si :v = ph ph ph 1 3 4 6 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 3 4 5 [oter 2 3 :a :b :c :d]
si :v = ph ph ph 1 3 4 4 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 1 3 4 3 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 3 4 2 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 3 4 1 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 3 4 0 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 3 3 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 1 3 3 6 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 3 3 5 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 3 3 4 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 3 3 3 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 3 3 2 [donne "alea hasard 3 si :alea = 0 [oter 3 3 :a :b :c :d] si :alea = 1 [oter 2 3 :a :b :c :d] [oter 4 1 :a :b :c :d]]
si :v = ph ph ph 1 3 3 1 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 3 3 0 [donne "alea hasard 2 si :alea = 0 [oter 3 1 :a :b :c :d] [oter 2 1 :a :b :c :d]]
si :v = ph ph ph 1 3 2 7 [oter 4 7 :a :b :c :d]
si :v = ph ph ph 1 3 2 6 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 1 3 2 5 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 3 2 4 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 3 2 3 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 3 2 2 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 3 2 1 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 3 2 0 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 3 1 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 3 1 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 3 1 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 3 1 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 3 1 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 3 1 2 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 3 1 1 [oter 2 3 :a :b :c :d]
si :v = ph ph ph 1 3 1 0 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 1 3 0 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 3 0 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 3 0 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 3 0 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 3 0 3 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 3 0 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 3 0 1 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 1 3 0 0 [oter 2 3 :a :b :c :d] #victoire
si :v = ph ph ph 1 2 5 7 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 2 5 6 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 2 5 5 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 1 2 5 4 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 1 2 5 3 [oter 3 5 :a :b :c :d]
si :v = ph ph ph 1 2 5 2 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 2 5 1 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 2 5 0 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 2 4 7 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 2 4 6 [oter 1 1 :a :b :c :d]
si :v = ph ph ph 1 2 4 5 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 1 2 4 4 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 1 2 4 3 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 2 4 2 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 2 4 1 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 2 4 0 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 2 3 7 [oter 4 7 :a :b :c :d]
si :v = ph ph ph 1 2 3 6 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 1 2 3 5 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 2 3 4 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 2 3 3 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 2 3 2 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 2 3 1 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 2 3 0 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 2 2 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 1 2 2 6 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 2 2 5 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 2 2 4 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 2 2 3 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 2 2 2 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 2 2 1 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 2 2 0 [oter 1 1 :a :b :c :d]
si :v = ph ph ph 1 2 1 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 2 1 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 2 1 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 2 1 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 2 1 3 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 2 1 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 2 1 1 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 1 2 1 0 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 1 2 0 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 2 0 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 2 0 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 2 0 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 2 0 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 2 0 2 [oter 1 1 :a :b :c :d]
si :v = ph ph ph 1 2 0 1 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 1 2 0 0 [oter 2 2 :a :b :c :d] #victoire
si :v = ph ph ph 1 1 5 7 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 1 5 6 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 1 5 5 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 1 5 4 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 1 5 3 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 1 5 2 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 1 5 1 [oter 3 5 :a :b :c :d]
si :v = ph ph ph 1 1 5 0 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 1 4 7 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 1 4 6 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 1 4 5 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 1 4 4 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 1 4 3 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 1 4 2 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 1 4 1 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 1 4 0 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 1 3 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 1 3 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 1 3 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 1 3 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 1 3 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 1 3 2 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 1 3 1 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 1 3 0 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 1 2 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 1 2 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 1 2 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 1 2 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 1 2 3 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 1 2 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 1 2 1 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 1 2 0 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 1 1 7 [oter 4 7 :a :b :c :d]
si :v = ph ph ph 1 1 1 6 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 1 1 1 5 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 1 1 4 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 1 1 3 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 1 1 2 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 1 1 1 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 1 1 0 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 1 0 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 1 1 0 6 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 1 0 5 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 1 0 4 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 1 0 3 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 1 0 2 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 1 0 1 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 1 0 0 [oter 2 1 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 5 7 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 0 5 6 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 0 5 5 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 0 5 4 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 0 5 3 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 0 5 2 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 0 5 1 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 0 5 0 [oter 3 5 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 4 7 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 0 4 6 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 0 4 5 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 0 4 4 [oter 1 1 :a :b :c :d]
si :v = ph ph ph 1 0 4 3 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 0 4 2 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 0 4 1 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 0 4 0 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 1 0 3 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 0 3 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 0 3 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 0 3 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 0 3 3 [donne "alea hasard 3 si :alea = 0 [oter 1 1 :a :b :c :d] si :alea = 1 [oter 4 1 :a :b :c :d] [oter 3 1 :a :b :c :d]]
si :v = ph ph ph 1 0 3 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 0 3 1 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 1 0 3 0 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 1 0 2 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 0 2 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 0 2 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 0 2 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 0 2 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 0 2 2 [oter 1 1 :a :b :c :d]
si :v = ph ph ph 1 0 2 1 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 1 0 2 0 [oter 3 2 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 1 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 1 0 1 6 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 1 0 1 5 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 1 0 1 4 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 1 0 1 3 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 1 0 1 2 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 1 0 1 1 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 1 0 1 0 [oter 3 1 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 7 [oter 4 7 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 6 [oter 4 6 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 5 [oter 4 5 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 4 [oter 4 4 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 3 [oter 4 3 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 2 [oter 4 2 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 1 [oter 4 1 :a :b :c :d] #victoire
si :v = ph ph ph 1 0 0 0 [bravo oter 1 1 :a :b :c :d] #defaite
si :v = ph ph ph 0 3 5 7 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 3 5 6 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 3 5 5 [oter 2 3 :a :b :c :d]
si :v = ph ph ph 0 3 5 4 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 0 3 5 3 [oter 3 5 :a :b :c :d]
si :v = ph ph ph 0 3 5 2 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 0 3 5 1 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 0 3 5 0 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 3 4 7 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 3 4 6 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 3 4 5 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 0 3 4 4 [oter 2 3 :a :b :c :d]
si :v = ph ph ph 0 3 4 3 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 0 3 4 2 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 0 3 4 1 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 3 4 0 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 3 3 7 [oter 4 7 :a :b :c :d]
si :v = ph ph ph 0 3 3 6 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 0 3 3 5 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 3 3 4 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 3 3 3 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 3 3 2 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 3 3 1 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 3 3 0 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 3 2 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 0 3 2 6 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 3 2 5 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 3 2 4 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 3 2 3 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 3 2 2 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 3 2 1 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 3 2 0 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 3 1 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 3 1 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 3 1 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 3 1 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 3 1 3 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 3 1 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 3 1 1 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 0 3 1 0 [oter 2 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 3 0 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 3 0 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 3 0 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 3 0 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 3 0 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 3 0 2 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 3 0 1 [oter 2 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 3 0 0 [oter 2 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 2 5 7 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 2 5 6 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 2 5 5 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 0 2 5 4 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 2 5 3 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 0 2 5 2 [oter 3 5 :a :b :c :d]
si :v = ph ph ph 0 2 5 1 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 2 5 0 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 0 2 4 7 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 2 4 6 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 2 4 5 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 2 4 4 [oter 2 2 :a :b :c :d]
si :v = ph ph ph 0 2 4 3 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 0 2 4 2 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 0 2 4 1 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 2 4 0 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 2 3 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 0 2 3 6 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 2 3 5 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 2 3 4 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 2 3 3 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 2 3 2 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 2 3 1 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 2 3 0 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 2 2 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 0 2 2 5 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 2 2 4 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 2 2 3 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 2 2 2 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 2 2 1 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 2 2 0 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 2 1 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 2 1 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 2 1 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 2 1 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 2 1 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 2 1 2 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 2 1 1 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 2 1 0 [oter 2 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 2 0 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 2 0 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 2 0 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 2 0 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 2 0 3 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 2 0 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 2 0 1 [oter 2 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 2 0 0 [oter 2 1 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 5 7 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 1 5 6 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 1 5 5 [donne "alea hasard 2 si :alea = 0 [oter 4 1 :a :b :c :d] [oter 3 1 :a :b :c :d]]
si :v = ph ph ph 0 1 5 4 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 1 5 3 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 0 1 5 2 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 1 5 1 [oter 3 4 :a :b :c :d]
si :v = ph ph ph 0 1 5 0 [oter 3 5 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 4 7 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 1 4 6 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 1 4 5 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 1 4 4 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 1 4 3 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 1 4 2 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 1 4 1 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 0 1 4 0 [oter 3 4 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 3 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 1 3 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 1 3 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 1 3 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 1 3 3 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 1 3 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 1 3 1 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 1 3 0 [oter 3 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 2 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 1 2 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 1 2 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 1 2 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 1 2 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 1 2 2 [oter 2 1 :a :b :c :d]
si :v = ph ph ph 0 1 2 1 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 1 2 0 [oter 3 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 1 7 [oter 4 6 :a :b :c :d]
si :v = ph ph ph 0 1 1 6 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 1 1 5 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 1 1 4 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 1 1 3 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 1 1 2 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 1 1 1 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 1 1 0 [oter 3 1 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 7 [oter 4 7 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 6 [oter 4 6 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 5 [oter 4 5 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 4 [oter 4 4 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 3 [oter 4 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 2 [oter 4 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 1 [oter 4 1 :a :b :c :d] #victoire
si :v = ph ph ph 0 1 0 0 [bravo oter 2 1 :a :b :c :d] #defaite
si :v = ph ph ph 0 0 5 7 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 0 5 6 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 0 5 5 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 0 5 4 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 0 5 3 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 0 5 2 [oter 3 3 :a :b :c :d]
si :v = ph ph ph 0 0 5 1 [oter 3 5 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 5 0 [oter 3 4 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 4 7 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 0 4 6 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 0 4 5 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 0 4 4 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 0 4 3 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 0 4 2 [oter 3 2 :a :b :c :d]
si :v = ph ph ph 0 0 4 1 [oter 3 4 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 4 0 [oter 3 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 3 7 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 0 3 6 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 0 3 5 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 0 3 4 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 0 3 3 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 0 3 2 [oter 3 1 :a :b :c :d]
si :v = ph ph ph 0 0 3 1 [oter 3 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 3 0 [oter 3 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 2 7 [oter 4 5 :a :b :c :d]
si :v = ph ph ph 0 0 2 6 [oter 4 4 :a :b :c :d]
si :v = ph ph ph 0 0 2 5 [oter 4 3 :a :b :c :d]
si :v = ph ph ph 0 0 2 4 [oter 4 2 :a :b :c :d]
si :v = ph ph ph 0 0 2 3 [oter 4 1 :a :b :c :d]
si :v = ph ph ph 0 0 2 2 [jolicoup coupdehasard :a :b :c :d]
si :v = ph ph ph 0 0 2 1 [oter 3 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 2 0 [oter 3 1 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 7 [oter 4 7 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 6 [oter 4 6 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 5 [oter 4 5 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 4 [oter 4 4 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 3 [oter 4 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 2 [oter 4 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 1 [oter 4 1 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 1 0 [bravo oter 3 1 :a :b :c :d] #defaite
si :v = ph ph ph 0 0 0 7 [oter 4 6 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 0 6 [oter 4 5 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 0 5 [oter 4 4 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 0 4 [oter 4 3 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 0 3 [oter 4 2 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 0 2 [oter 4 1 :a :b :c :d] #victoire
si :v = ph ph ph 0 0 0 1 [bravo oter 4 1 :a :b :c :d] #defaite
fin

pour jolicoup
ct fcc 0 lc re 100 td 90 etiquette [Joli coup !] attends 60 gomme etiquette [Joli coup !] tg 90
fin

pour oter :l :x :a :b :c :d
ct
finligne :l :a :b :c :d
si :x = 0 [jouer :l :a :b :c :d] [fcc 1 lc re 100 td 90 etiquette [Dr. Alliag joue...] tg 90]
debutligne :l
si :l = 1 [lc re (:a - 1) * 40 repete :x [allumette av 80]]
si :l = 2 [lc re (:b - 1) * 40 repete :x [allumette av 80]]
si :l = 3 [lc re (:c - 1) * 40 repete :x [allumette av 80]]
si :l = 4 [lc re (:d - 1) * 40 repete :x [allumette av 80]]
attends 200
finligne :l :a :b :c :d
gomme lc re 100 td 90 etiquette [Dr. Alliag joue...] tg 90
debutligne :l
si :l = 1 [lc re (:a - 1) * 40 repete :x [allumette av 80] donne "a :a - :x]
si :l = 2 [lc re (:b - 1) * 40 repete :x [allumette av 80] donne "b :b - :x]
si :l = 3 [lc re (:c - 1) * 40 repete :x [allumette av 80] donne "c :c - :x]
si :l = 4 [lc re (:d - 1) * 40 repete :x [allumette av 80] donne "d :d - :x]
tampon2 :l :a :b :c :d
jouer :l :a :b :c :d
fin

pour tampon2 :l :a :b :c :d
donne "s (:a + :b) + (:c + :d)
si :s = 0 [lc re 100 td 90 fcc 1 etiquette [... et s'incline devant vous.] attends 120 demarrer]
si :s = 1 [lc re 100 td 90 fcc 1 etiquette [... et gagne.] attends 120 demarrer]
si :l = 0 [donne "l 4 ligne 4 :a :b :c :d]
si :l = 5 [donne "l 1 ligne 1 :a :b :c :d]
si et :l = 1 :a = 0 [donne "l 2 tampon2 2 :a :b :c :d]
si et :l = 2 :b = 0 [donne "l 3 tampon2 3 :a :b :c :d]
si et :l = 3 :c = 0 [donne "l 4 tampon2 4 :a :b :c :d]
si et :l = 4 :d = 0 [donne "l 1 tampon2 1 :a :b :c :d]
fin

pour jouer :l :a :b :c :d
finligne :l :a :b :c :d
ct re 100 td 90 fcc 4 etiquette [A vous de jouer.] attends 60 gomme etiquette [A vous de jouer.] tg 90
fcc 0 mt
precurseur :l :a :b :c :d
fin

pour bravo
ct fcc 0 lc re 100 td 90 etiquette [Bravo !] attends 60 gomme etiquette [Bravo !] tg 90
fin

Tester le programme maintenant.

Procédure à exécuter:
demarrer


Si le programme ne s'ouvre pas :

1. Téléchargez le programme Marienbad.

2. Lancez l'interface Xlogo.

3. Dans l'interface Xlogo (menu Fichier/Ouvrir), ouvrez le programme Marienbad que vous avez téléchargé.

4. La page du programme s'ouvre alors. Il ne vous reste qu'à valider le programme en cliquant sur la première icône, en haut à gauche : valider