|
|
|
=={{header|Easyprog.online}}==
[https://easyprog.online/ide/run.html?code=len%20f%5B%5D%2016%0Asubr%20initvars%0Atime0%23%20%3D%20time%0Adone%20%3D%200%0A.%0Afunc%20draw%20.%20.%0Acolor%2035320777%0Amove%200%200%0Arect%20100%20100%0Afor%20i%20range%2016%0Ax%20%3D%20i%20mod%204%20%2A%2024%20%2B%203%0Ay%20%3D%20i%20/%204%20%2A%2024%20%2B%203%0Acolor%2024220222%0Amove%20x%20y%0Arect%2022%2022%0Ah%20%3D%20f%5Bi%5D%0Aif%20h%20%3C%2010%0Amove%20x%20%2B%206%20y%20%2B%205%0Aelse%0Amove%20x%20%2B%204%20y%20%2B%205%0A.%0Aif%20h%20%3C%2016%0Acolor%2079720888%0Atext%20h%0A.%0A.%0A.%0Afunc%20init%20.%20.%0Acall%20initvars%0Afor%20i%20range%2016%0Af%5Bi%5D%20%3D%20i%20%2B%201%0A.%0Afor%20i%20%3D%2014%20downto%201%0Ar%20%3D%20random%20%28i%20%2B%201%29%0Aswap%20f%5Br%5D%20f%5Bi%5D%0A.%0Ainv%20%3D%200%0Afor%20i%20range%2015%0Afor%20j%20range%20i%0Aif%20f%5Bj%5D%20%3E%20f%5Bi%5D%0Ainv%20%2B%3D%201%0A.%0A.%0A.%0Aif%20inv%20mod%202%20%3C%3E%200%0Aswap%20f%5B0%5D%20f%5B1%5D%0A.%0Atextsize%2012%0Acall%20draw%0A.%0Afunc%20move_tile%20.%20.%0Ac%20%3D%20round%20%28mouse_x%20/%2025%20-%200.5%29%0Ar%20%3D%20round%20%28mouse_y%20/%2025%20-%200.5%29%0Ai%20%3D%20r%20%2A%204%20%2B%20c%0Aif%20c%20%3E%200%20and%20f%5Bi%20-%201%5D%20%3D%2016%0Aswap%20f%5Bi%5D%20f%5Bi%20-%201%5D%0Aelif%20r%20%3E%200%20and%20f%5Bi%20-%204%5D%20%3D%2016%0Aswap%20f%5Bi%5D%20f%5Bi%20-%204%5D%0Aelif%20r%20%3C%203%20and%20f%5Bi%20%2B%204%5D%20%3D%2016%0Aswap%20f%5Bi%5D%20f%5Bi%20%2B%204%5D%0Aelif%20c%20%3C%203%20and%20f%5Bi%20%2B%201%5D%20%3D%2016%0Aswap%20f%5Bi%5D%20f%5Bi%20%2B%201%5D%0A.%0Acall%20draw%0Adone%20%3D%201%0Afor%20i%20range%2015%0Aif%20f%5Bi%5D%20%3E%20f%5Bi%20%2B%201%5D%0Adone%20%3D%200%0A.%0A.%0Aif%20done%20%3D%201%0Acolor%2013120333%0Amove%200%200%0Arect%20100%2050%0Atextsize%2010%0Acolor%2079720888%0Amove%205%2010%0Atext%20%22Well%20done%21%22%0Amove%205%2025%0Atext%20%22Time%3A%20%22%20%26%20round%20%28time%20-%20time0%23%29%0A.%0A.%0Aon%20mouse_down%0Aif%20done%20%3D%201%0Acall%20init%0Aelse%0Acall%20move_tile%0A.%0A.%0Acall%20init Run it]
<lang easyprog.online>len f[] 16
.
func draw . .
color 353777
move 0 0
rect 100 100
x = i mod 4 * 24 + 3
y = i / 4 * 24 + 3
color 242222
move x y
rect 22 22
.
if h < 16
color 797888
text h
.
.
if done = 1
color 131333
move 0 0
rect 100 50
textsize 10
color 797888
move 5 10
text "Well done!"
|
