Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1806 yogev_ezra 1 
include "celltype.inc"
2 
 
3 
macro Header name, game_type, x, y
4 
{
5 
    db game_type,x,y
6 
  local ..label
7 
    db ..label-$-1
8 
    db name
9 
  ..label:
10 
}
11 
 
12 
macro C cell,cnt
13 
{
14 
    if cnt eq
15 
        db (cell shl 4)
16 
    else
17 
        db (cell shl 4)+cnt-1
18 
    end if
19 
}
20 
 
21 
 
22 
Header 'Sokonex test', sSokonex, 6, 6
23 
 
24 
; # Wall; + Connector; * Player; B Block
25 
 
26 
; ######
27 
; #  + #
28 
; #    #
29 
; # ++ #
30 
; #*   #
31 
; ######
32 
 
33 
C tWall,7
34 
 
35 
C tEmpty,2
36 
C tConnect
37 
C tEmpty
38 
 
39 
C tWall,2
40 
C tEmpty,4
41 
C tWall,2
42 
C tEmpty
43 
 
44 
C tConnect,2
45 
C tEmpty
46 
C tWall,2
47 
C tPlayer
48 
 
49 
C tEmpty,3
50 
C tWall,7
51 
 
52 
EndConf
53 
 
54 
Header 'Just push!', sSokoban, 9, 8
55 
 
56 
;   #####
57 
; ###   ###
58 
; #  @@@  #
59 
; #  # #  #
60 
; ## #B# ##
61 
; # B * B #
62 
; #   #   #
63 
; #########
64 
 
65 
C tEmpty,2
66 
C tWall,5
67 
C tEmpty,2
68 
 
69 
C tWall,3
70 
C tEmpty,3
71 
C tWall,4
72 
C tEmpty,2
73 
C tPlace,3
74 
C tEmpty,2
75 
C tWall,2
76 
C tEmpty,2
77 
 
78 
C tWall
79 
C tEmpty
80 
C tWall
81 
C tEmpty,2
82 
C tWall,3
83 
C tEmpty
84 
C tWall
85 
C tBlock
86 
C tWall
87 
C tEmpty
88 
C tWall,3
89 
C tEmpty
90 
C tBlock
91 
C tEmpty
92 
C tPlayer
93 
C tEmpty
94 
C tBlock
95 
C tEmpty
96 
C tWall,2
97 
C tEmpty,3
98 
C tWall
99 
C tEmpty,3
100 
C tWall,10
101 
 
102 
EndConf