15 puzzle game: Difference between revisions

[https://easyprog.online/ide/run.html?code=len%20f%5B%5D%2016%0A0Asubr%20initvars%0Atime0%23%20%0Asubr3D%20time%0Adone%20%3D%200%0A.%0Afunc%20draw%20.%20.%0Acolor%20353%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%20242%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%20797%0Atext%20h%0A.%0A.%0A.%0Asubr0Afunc%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.%0Atime0%23%20%3D%20time%0Afin%20%3D%200%0Atextsize%2012%0Acall%20draw%0A.%0Aon0Afunc%20mouse_down20move_tile%0Aif%20fin20.%20%3D%201%0Acall%20init%0Aelse.%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%0Afin0Adone%20%3D%201%0Afor%20i%20range%2015%0Aif%20f%5Bi%5D%20%3E%20f%5Bi%20%2B%201%5D%0Afin0Adone%20%3D%200%0A.%0A.%0Aif%20fin20done%20%3D%201%0Acolor%2024220131%0Amove%200%200%0Arect%20100%201002050%0Atextsize%2010%0Acolor%20797%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]