Juguemos a [[Piedra, Papel, Tijera!->PPT]] Piedra, papel, tijera
1, 2, 3...
\
\(set: _compararMano to (macro: num-type _m1, num-type _m2, [
(if: _m1 is _m2)[
(output-data: 0)
](else-if:(_m1+1)%3 is _m2)[
(output-data: 1)
](else:)[
(output-data: -1)
]
]))
\
\(set: _jugar to (macro: num-type _m, [
(set: $manoJugada to _m)
(set: $manoContraria to (random:0,2))
(show:?resultado)(hide:?Juego)
(rerun:?resultado)
(output-data: "")
]))
\
|Juego>[(link-rerun:"Piedra")[(_jugar: 0)], (link-rerun:"Papel")[(_jugar: 1)], (link-rerun:"Tijera")[(_jugar: 2)]]
|resultado)[Elegiste (nth:$manoJugada + 1, "Piedra", "Papel", "Tijera")
Yo elegí (nth:$manoContraria + 1, "Piedra", "Papel", "Tijera")
\(nth: (_compararMano: $manoJugada, $manoContraria) + 2, "Ganaste tú", "Empatamos", "Gané yo!")
(link-rerun:"Volver a jugar")[(hide:?resultado)(show:?Juego)]]