; Version française
if not definedp "lib [frsetup]
pour init :&c
lc
nettoie fcap 90 ct
donne "justes []
donne "posjuste [-364 17]
juste :&C
end
pour juste :&c
queue "justes :&c
fpos :posjuste
donne "posfaux pos
afcarte :&c
donne "posjuste pos
end
pour fausse :&c
lc fpos :posfaux
fy coory - 20
donne "posfaux pos
afcarte :&c
end
pour afcarte :&c
crayon.fcouleur sisinon membre? dernier :&c [c a ][[255 0 0]][[0 0 0]]
ffont :arial
etiquette sd :&c
av 15
ffont :symb
etiquette car chose dernier :&c
av 30
end
pour joue :&c
sisinon règle [juste :&c][fausse :&c]
end
pour précédente
ra dernier :justes
end
pour carte
ra :&c
end
pour valeur :& [:val sd :&]
si :val = "A [ra 1]
si :val = "R [ra 13]
si :val = "D[ra 12]
si :val = "V[ra 111]
ra :val
end
pour genre :&
ra dernier :&
end
pour coul :&
ra sisinon membre? genre :& [p t] ["n]["r]
end
pour règle1
ra non (coul précédente )= coul carte
end
pour règle2
ra sisinon "n = coul précédente [1 = reste valeur carte 2] ~
[0 = reste valeur carte 2 ]
end
pour &genre
si boutonradio.val "btrp [ra "p]
si boutonradio.val "btrt [ra "t]
si boutonradio.val "btrco [ra "c]
si boutonradio.val "btrca [ra "a]
end
pour val
si boutonradio.val "btA[ra "A]
si boutonradio.val "btR[ra "R]
si boutonradio.val "btD[ra "D]
si boutonradio.val "btV[ra "V]
si boutonradio.val "bt10 [ra 10]
si boutonradio.val "bt9 [ra 9]
si boutonradio.val "bt8 [ra 8]
si boutonradio.val "bt7 [ra 7]
si boutonradio.val "bt6 [ra 6]
si boutonradio.val "bt5 [ra 5]
si boutonradio.val "bt4 [ra 4]
si boutonradio.val "bt3 [ra 3]
si boutonradio.val "bt2 [ra 2]
bouton.crée "Ecran [Rejouer] [Rejouer] -297 54 76 21 [Rejouer]
end
pour initinter
groupe.cree "Ecran [grgenre] -375 84 135 21
boutonradio.cree "Ecran [grgenre] [btrt] [T] -345 84 28 21
boutonradio.cree "Ecran [grgenre] [btrco] [Co ] -315 84 38 21
boutonradio.cree "Ecran [grgenre] [btrca] [Ca ] -275 84 38 21
boutonradio.cree "Ecran [grgenre] [btrp] [P] -375 84 28 21
groupe.cree "Ecran [grval] -218 83 307 21
boutonradio.cree "Ecran [grval] [btA] [A] -218 84 28 21
boutonradio.cree "Ecran [grval] [btR] [R] -188 84 28 21
boutonradio.cree "Ecran [grval] [btD] [D] -158 84 28 21
boutonradio.cree "Ecran [grval] [btV] [V] -128 84 28 21
boutonradio.cree "Ecran [grval] [bt10] [10] -98 84 38 21
boutonradio.cree "Ecran [grval] [bt9] [9] -58 84 28 21
boutonradio.cree "Ecran [grval] [bt8] [8] -28 84 28 21
boutonradio.cree "Ecran [grval] [bt7] [7] 2 84 28 21
boutonradio.cree "Ecran [grval] [bt6] [6] 32 84 28 21
boutonradio.cree "Ecran [grval] [bt5] [5] 62 84 28 21
boutonradio.cree "Ecran [grval] [bt4] [4] 92 84 28 21
boutonradio.cree "Ecran [grval] [bt3] [3] 122 84 28 21
boutonradio.cree "Ecran [grval] [bt2] [2] 152 84 28 21
bouton.cree "Ecran [btj] [OK] -373 56 62 25 [joue mot val &genre]
bouton.crée "Ecran [rejouer] [Rejouer] -301 53 84 18 [rejouer]
end
pour debut
initinter
rejouer
fpos [-363 181] ffont :arial
etiquette [Cochez une carte et appuyez OK]
end
pour rejouer
nettoie
definis "règle texte tire [règle1 règle2]
init mot tire [A R D V 10 9 8 7 6 5 4 3 2] tire [P T C A]
end
to règle
ra non ( coul précédente ) = coul carte
end
donne "a 168
donne "arial [[|Arial|] -24 0 0 400 0 0 0 0 3 2 1 34]
donne "c 169
donne "ca 168
donne "co 169
donne "d 12
donne "justes [|DT|]
donne "p 170
donne "posfaux [-364 17]
donne "posjuste [-319 17]
donne "startup [|debut|]
donne "symb [[|Symbol|] -24 0 0 400 0 0 0 2 3 2 1 18]
donne "v 11
donne "t 167
