Puzzles em Imagina

Este projecto utiliza uma variável para guardar as imagens dos puzzles. Esta variável é uma imagem com várias fases em que cada fase é um puzzle.

Os puzzles são carregados aleatoriamente no painel p1 em estilo normal e no painel p2 em estilo ajustar.

para novaImagem
fazlocal “im escolhe :puzzles
p1′colocaimagem :im [estilo ajustar]
p2′colocaimagem :im [estilo ajustar]
fim

O imagem do painel é depois cortada de uma forma automatica por um conjunto de tartarugas que fotografam a imagem aos bocados e se apropriam dessas imagens como forma da tartaruga.

para criaPeças
fazlocal “largura elemento 1 p1′tamanho / c1
fazlocal “altura elemento 2 p1′tamanho / c2
p1′eliminaobjecto p1′todas
repete c2 [
fazlocal "c2 contador
repete c1 [
fazlocal "posx arredonda ((:largura * contador) - :largura)
fazlocal "posy arredonda (- (:altura * :c2) + :altura )
p1'novo "peça [caneta lc autoarrastar verdadeiro]
pede últimonome [fixapos frase :posx :posy]
fazlocal “posf pede últimonome [pos]

pede últimonome [fixaforma fotografa
(frase :posf :largura :altura)]
pede últimonome [fixaCoorx Coorx + :largura /2
fixaCoory Coory - :altura / 2
fixaEstadoInicial lista frase CoorX CoorY 0]

]
]
fazlocal “peçasCertas p1′todas
faz “posPeças []
pedeCada :peçasCertas [faz "posPeças põeúltimo pos :posPeças]
fazlocal “peçasTrocadas baralha :peçasCertas
pedeCada :peçasTrocadas [fixapos primeiro :posPeças faz "posPeças semprimeiro :posPeças]
p1′gravaCenário “álbum
p1′limpafundo
fim