Subversion Repositories Kolibri OS

Rev

Rev 5305 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5305 Rev 5311
Line 47... Line 47...
47
function randomize.puzzle
47
function randomize.puzzle
48
  locals q, n
48
  locals q, n
49
  alias p=r0, x=r1
49
  alias p=r0, x=r1
50
  . q=puzzle, n=(MAP.W*MAP.H)
50
  . q=puzzle, n=(MAP.W*MAP.H)
51
  loop n
51
  loop n
-
 
52
    get x=get.random
52
    . x=ROTATE.L, p=q, (u32) *p=x, q+4
53
    . p=q, (u32) *p=x, q+4
53
  endl
54
  endl
54
endf
55
endf
Line 55... Line 56...
55
 
56
 
56
function reset.game
57
function reset.game