Subversion Repositories Kolibri OS

Rev

Rev 1566 | Rev 1760 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1566 Rev 1677
Line 10... Line 10...
10
include '../../../proc32.inc'
10
include '../../../proc32.inc'
11
include '../../../macros.inc'
11
include '../../../macros.inc'
12
include '../../../system/launch/trunk/mem.inc'
12
include '../../../system/launch/trunk/mem.inc'
13
include '../../../develop/libraries/libs-dev/.test/dll.inc'
13
include '../../../develop/libraries/libs-dev/.test/dll.inc'
14
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
14
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
15
;include '../../../system/board/trunk/debug.inc'
15
include '../../../system/board/trunk/debug.inc'
Line 16... Line 16...
16
 
16
 
Line -... Line 17...
-
 
17
;;===Define_chapter============================================================================================================
-
 
18
 
-
 
19
WINDOW_MODE_WINDOWED        equ     0
17
;;===Define_chapter============================================================================================================
20
WINDOW_MODE_FULLSCREEN      equ     1
18
 
21
 
Line 19... Line 22...
19
GRID_WIDTH                  equ     28
22
GRID_WIDTH                  equ     28
Line 27... Line 30...
27
DOWN                        equ     1
30
DOWN                        equ     1
28
UP                          equ     2
31
UP                          equ     2
29
RIGHT                       equ     3
32
RIGHT                       equ     3
Line 30... Line 33...
30
 
33
 
31
struct  LEVEL
34
struct  LEVEL
32
    field                   db      GRID_WIDTH*GRID_HEIGHT  dup (?)
35
    field                   db      4*GRID_HEIGHT  dup (?)
33
    snake_dots              db      6   dup (?)
36
    snake_dots              db      6   dup (?)
34
    snake_direction         dd      ?
37
    snake_direction         dd      ?
35
    snake_direction_next    dd      ?
38
    snake_direction_next    dd      ?
-
 
39
    number_of_stones        dd      ?
36
    number_of_stones        dd      ?
40
    name                    dd      ?
Line 37... Line 41...
37
ends
41
ends
38
 
42
 
Line 39... Line 43...
39
CLASSIC_MODE                equ     0
43
CLASSIC_MODE                equ     0
40
LEVELS_MODE                 equ     1
44
LEVELS_MODE                 equ     1
Line 41... Line 45...
41
 
45
 
42
CLASSIC_MODE_FIRST_LEVEL    equ     0
46
CLASSIC_MODE_FIRST_LEVEL    equ     0
43
LEVELS_MODE_FIRST_LEVEL     equ     1
47
LEVELS_MODE_FIRST_LEVEL     equ     1
Line 44... Line 48...
44
 
48
 
45
EAT_TO_END_LEVEL            equ     12
49
EAT_TO_END_LEVEL            equ     7
-
 
50
PAUSE_BETWEEN_LEVELS        equ     200
-
 
51
PAUSE_WHILE_DRAWING_SPLASH  equ     3
Line 46... Line 52...
46
PAUSE_BETWEEN_LEVELS        equ     250
52
 
Line 47... Line 53...
47
PAUSE_WHILE_DRAWING_SPLASH  equ     4
53
CHAMPION_NAME_LENGTH        equ     15
Line 57... Line 63...
57
    or   eax, eax
63
    or   eax, eax
58
    jnz  Exit
64
    jnz  Exit
Line 59... Line 65...
59
    
65
    
Line 60... Line 66...
60
align 4
66
align 4
61
 
-
 
62
    mov  eax, cur_dir_path
-
 
63
  @@:
67
 
64
    cmp  byte[eax], 0
68
    mov  edi, cur_dir_path
65
     jz  @f
69
    mov  al,  0
66
    inc  eax
-
 
67
     jmp @b
70
    mov  ecx, 4096
Line 68... Line 71...
68
  @@:
71
    repne scasb
69
    mov  dword[eax],    '.ini'
72
    mov  dword[edi-1],    '.ini'
70
 
73
 
-
 
74
      invoke  ini.get_int, cur_dir_path, aPreferences, aSpeed, 80
-
 
75
    neg  eax
-
 
76
    add  [time_wait_limit],    eax
-
 
77
    mov  ebx, [time_wait_limit]
-
 
78
    mov  [time_wait_limit_const],  ebx
-
 
79
    sub  ebx, 4
-
 
80
    mov  eax, 200
71
      invoke  ini.get_int, cur_dir_path, aPreferences, aSpeed, 80
81
    div  bl
-
 
82
    mov  byte[speed_up_counter],    al
-
 
83
    mov  byte[speed_up_counter+1],  al
-
 
84
      invoke  ini.get_str, cur_dir_path, aPreferences, aTheme, aTheme_name, 31, aTheme_name
-
 
85
      invoke  ini.get_int, cur_dir_path, aPreferences, aSmart_reverse, 0
-
 
86
    mov  [smart_reverse],   eax
-
 
87
      invoke  ini.get_int, cur_dir_path, aPreferences, aShow_lives_style, 2
-
 
88
    mov  [show_lives_style],    eax
-
 
89
      invoke  ini.get_int, cur_dir_path, aPreferences, aDraw_level_name_in_window_title, 1
-
 
90
    mov  [draw_level_name_in_window_title], eax
-
 
91
      invoke  ini.get_str, cur_dir_path, aPreferences, aSeparating_symbol, separating_symbol, 3, default_separating_symbol
-
 
92
 
-
 
93
      invoke  ini.get_shortcut, cur_dir_path, aShortcuts, aMove_left, 0x23, 0
-
 
94
    mov  [shortcut_move_left],  al
-
 
95
      invoke  ini.get_shortcut, cur_dir_path, aShortcuts, aMove_down, 0x24, 0
-
 
96
    mov  [shortcut_move_down],  al
-
 
97
      invoke  ini.get_shortcut, cur_dir_path, aShortcuts, aMove_up, 0x25, 0
-
 
98
    mov  [shortcut_move_up],    al
-
 
99
      invoke  ini.get_shortcut, cur_dir_path, aShortcuts, aMove_right, 0x26, 0
-
 
100
    mov  [shortcut_move_right], al
-
 
101
      invoke  ini.get_shortcut, cur_dir_path, aShortcuts, aReverse, 0x0F, 0
-
 
102
    mov  [shortcut_reverse], al
-
 
103
      invoke  ini.get_shortcut, cur_dir_path, aShortcuts, aIncrease, 0x16, 0
Line 72... Line 104...
72
    neg  eax
104
    mov  [shortcut_increase],   al
73
    add  [time_wait_limit],    eax
105
      invoke  ini.get_shortcut, cur_dir_path, aShortcuts, aDecrease, 0x17, 0
74
      invoke  ini.get_str, cur_dir_path, aPreferences, aTheme, aTheme_name, 31, aTheme_name
106
    mov  [shortcut_decrease],   al
75
 
107
 
76
      invoke  ini.get_int, cur_dir_path, aTheme_name, aDecorations, 2
108
      invoke  ini.get_int, cur_dir_path, aTheme_name, aDecorations, 3
77
    mov  [decorations], eax
109
    mov  [decorations], eax
78
      invoke  ini.get_color, cur_dir_path, aTheme_name, aBackground_color, 0x000000
110
      invoke  ini.get_color, cur_dir_path, aTheme_name, aBackground_color, 0x000000
79
    or   [background_color],    eax
111
    or   [background_color],    eax
80
    or   [window_style],    eax
112
    or   [window_style_windowed],   eax
81
      invoke  ini.get_color, cur_dir_path, aTheme_name, aDecorations_color, 0xAAAA00
113
      invoke  ini.get_color, cur_dir_path, aTheme_name, aDecorations_color, 0xAAAA00
82
    or   [decorations_color],  eax
114
    or   [decorations_color],  eax
-
 
115
      invoke  ini.get_color, cur_dir_path, aTheme_name, aSnake_color, 0x1111ff
-
 
116
    or   [snake_color], eax
83
      invoke  ini.get_color, cur_dir_path, aTheme_name, aSnake_color, 0x1111ff
117
      invoke  ini.get_color, cur_dir_path, aTheme_name, aSnake_head_color, 0x6B6Bff
84
    or   [snake_color], eax
118
    or   [snake_head_color], eax
85
      invoke  ini.get_color, cur_dir_path, aTheme_name, aSnake_head_color, 0x6B6Bff
119
      invoke  ini.get_color, cur_dir_path, aTheme_name, aLives_in_head_number_color, 0xff8800
86
    or   [snake_head_color], eax
120
    or   [lives_in_head_number_color],  eax
87
      invoke  ini.get_color, cur_dir_path, aTheme_name, aSnake_picture_color, 0x4488ff
121
      invoke  ini.get_color, cur_dir_path, aTheme_name, aSnake_picture_color, 0x4488ff
Line 150... Line 184...
150
    mov  [edit1.text_color],    eax
184
    mov  [edit1.text_color],    eax
Line 151... Line 185...
151
 
185
 
152
      mcall     37,4,cursor_data,2                  ; load empty cursor (for "hiding" cursor while level_mode)
186
      mcall     37,4,cursor_data,2                  ; load empty cursor (for "hiding" cursor while level_mode)
Line -... Line 187...
-
 
187
    mov  [cursor_handle],   eax
-
 
188
 
-
 
189
    mov  eax, WINDOW_MODE_WINDOWED
153
    mov  [cursor_handle],   eax
190
      call      Set_window_mode
-
 
191
      mcall     0,0,0,0x51000000                    ; create empty window. Set_geometry will set all parameters
Line 154... Line 192...
154
 
192
      call      Set_geometry.by_hotkey
155
      call      Set_geometry
193
      mcall     71,1,window_title
156
 
194
 
157
include 'first_menu.asm'            ; First menu body and functions
195
include 'first_menu.asm'            ; First menu body and functions
Line 202... Line 240...
202
 
240
 
203
 
241
 
Line -... Line 242...
-
 
242
Set_geometry:
-
 
243
    ;;===Set_geometry==========================================================================================================
-
 
244
 
-
 
245
    cmp  [resized_by_hotkey],   1
-
 
246
     je  .by_hotkey
-
 
247
 
-
 
248
    test [proc_info.wnd_state], 0x01
-
 
249
     jnz .by_hotkey
-
 
250
 
-
 
251
      mcall     9,proc_info,-1
-
 
252
    mov  eax, [proc_info.box.width]
-
 
253
    cmp  eax, [window_width]
-
 
254
     jne @f
-
 
255
    mov  eax, [proc_info.box.height]
-
 
256
    cmp  eax, [window_height]
-
 
257
     jne @f
-
 
258
     jmp .quit
-
 
259
  @@:
-
 
260
    mov  eax, [proc_info.box.width]
-
 
261
    mov  [window_width],    eax
-
 
262
    mov  eax, [proc_info.box.height]
-
 
263
    mov  [window_height],   eax
-
 
264
 
-
 
265
  .by_mouse:                                    ; or any other kind of resizing. for example, double click on window title
-
 
266
 
-
 
267
    test [proc_info.wnd_state], 0x01
-
 
268
     jnz .by_hotkey
-
 
269
    
-
 
270
 
-
 
271
    cmp  [window_width],    250
-
 
272
     jnl @f
-
 
273
    mov  [window_width],    250
-
 
274
  @@:
-
 
275
    cmp  [window_height],   150
-
 
276
     jnl @f
-
 
277
    mov  [window_height],   150
-
 
278
  @@:
-
 
279
 
-
 
280
      mcall     48,4
-
 
281
    mov  ecx, [window_height]
-
 
282
    sub  ecx, eax
-
 
283
    sub  ecx, 5
-
 
284
    sub  ecx, [g_e]
-
 
285
    sub  ecx, [g_e]
-
 
286
    sub  ecx, 25+30
-
 
287
    mov  esi, ecx
-
 
288
 
-
 
289
    mov  eax, [window_width]
-
 
290
    sub  eax, 5+5
-
 
291
    sub  eax, [g_e]
-
 
292
    sub  eax, [g_e]
-
 
293
    sub  eax, [g_s]
-
 
294
    sub  eax, [g_s]
-
 
295
    mov  edi, eax
-
 
296
 
-
 
297
    mov  dx,  0
-
 
298
    div  cx
-
 
299
    cmp  ax,  2
-
 
300
     jl  .fit_to_width
-
 
301
 
-
 
302
  .fit_to_height:
-
 
303
    mov  eax, esi
-
 
304
    mov  ebx, GRID_HEIGHT
-
 
305
    div  bl
-
 
306
    cmp  al,  MIN_SQUARE_SIDE_LENGTH
-
 
307
     jnl @f
-
 
308
    mov  al,  MIN_SQUARE_SIDE_LENGTH
-
 
309
  @@:
-
 
310
    dec al
-
 
311
    mov byte[square_side_length],   al
-
 
312
     jmp .by_hotkey
-
 
313
 
-
 
314
  .fit_to_width:
-
 
315
    mov  eax, edi
-
 
316
    mov  ebx, GRID_WIDTH
-
 
317
    div  bl
-
 
318
    cmp  al,  MIN_SQUARE_SIDE_LENGTH
-
 
319
     jnl @f
-
 
320
    mov  al,  MIN_SQUARE_SIDE_LENGTH
-
 
321
  @@:
-
 
322
    dec al
-
 
323
    mov byte[square_side_length],   al
-
 
324
     jmp .by_hotkey
-
 
325
 
-
 
326
;     jmp .done
-
 
327
 
-
 
328
  .by_hotkey:
204
Set_geometry:
329
      mcall     9,proc_info,-1
205
    ;;===Set_geometry==========================================================================================================
330
    mov  [resized_by_hotkey],   0
206
 
331
 
Line 207... Line 332...
207
    mov  eax, [square_side_length]
332
    mov  eax, [square_side_length]
Line 213... Line 338...
213
    mov  ebx, eax
338
    mov  ebx, eax
214
    shr  ebx, 1
339
    shr  ebx, 1
215
    add  eax, ebx
340
    add  eax, ebx
216
    mov  [g_e], eax
341
    mov  [g_e], eax
Line 217... Line -...
217
 
-
 
218
    mov  eax, [g_s]
-
 
219
    add  eax, [g_e]
-
 
220
    mov  [gbxm1],   eax
-
 
221
 
-
 
222
    mov  eax, [g_e]
-
 
223
    add  eax, 25
-
 
224
    mov  [gbym1],   eax
-
 
225
 
342
 
226
    mov  edx, GRID_WIDTH
343
    mov  edx, GRID_WIDTH
227
    mov  eax, [g_s]
344
    mov  eax, [g_s]
228
    mul  dx
345
    mul  dx
Line 229... Line 346...
229
    mov  [gw_mul_gs],   eax
346
    mov  [gw_mul_gs],   eax
230
 
347
 
231
    mov  edx, GRID_HEIGHT
348
    mov  edx, GRID_HEIGHT
232
    mov  eax, [g_s]
349
    mov  eax, [g_s]
Line 233... Line 350...
233
    mul  dx
350
    mul  dx
-
 
351
    mov  [gh_mul_gs],   eax
234
    mov  [gh_mul_gs],   eax
352
 
-
 
353
    mov  eax, [gw_mul_gs]
-
 
354
    add  eax, [g_s]
-
 
355
    add  eax, [g_s]
-
 
356
    add  eax, [g_e]
-
 
357
    add  eax, [g_e]
-
 
358
    add  eax, 5*2                                   ; skin width
235
 
359
    mov  esi, eax
Line -... Line 360...
-
 
360
    test [proc_info.wnd_state], 0x01
-
 
361
    cmovnz  eax, [proc_info.box.width]
-
 
362
    mov  [window_width],    eax
-
 
363
 
-
 
364
    sub  eax, [gw_mul_gs]
-
 
365
    sub  eax, 5*2
236
    mov  eax, [gbxm1]
366
    shr  eax, 1
237
    add  eax, [gw_mul_gs]
367
    mov  [gbxm1],   eax
-
 
368
 
-
 
369
      mcall     48,4                                ; get skin header height
-
 
370
    mov  ebx, eax
-
 
371
    add  eax, [gh_mul_gs]
-
 
372
    add  eax, [g_e]
-
 
373
    add  eax, 25
-
 
374
    add  eax, [g_e]
-
 
375
    add  eax, 30
-
 
376
    add  eax, 5                                      ; skin height (bottom part)
-
 
377
    mov  edi, eax
-
 
378
    test [proc_info.wnd_state], 0x01
-
 
379
    cmovnz  eax, [proc_info.box.height]
-
 
380
    mov  [window_height],   eax
-
 
381
 
-
 
382
    sub  eax, [gh_mul_gs]
-
 
383
    sub  eax, ebx
238
    mov  [gbxm1_plus_gw_mul_gs],    eax
384
    sub  eax, 5
Line 239... Line 385...
239
 
385
    sub  eax, 5
240
    mov  eax, [gbym1]
386
    
241
    add  eax, [gh_mul_gs]
387
    shr  eax, 1
242
    mov  [gbym1_plus_gh_mul_gs],    eax
388
    mov  [gbym1],   eax
Line 254... Line 400...
254
    mov  eax, [gbym1]
400
    mov  eax, [gbym1]
255
    shl  eax, 16
401
    shl  eax, 16
256
    add  eax, [gbym1]
402
    add  eax, [gbym1]
257
    mov  [gbym1_shl16_gbym1],   eax
403
    mov  [gbym1_shl16_gbym1],   eax
Line -... Line 404...
-
 
404
 
-
 
405
    mov  eax, [gbxm1]
-
 
406
    add  eax, [gw_mul_gs]
Line 258... Line -...
258
 
-
 
259
 
407
    mov  [gbxm1_plus_gw_mul_gs],    eax
260
    mov  eax, [gw_mul_gs]
-
 
261
    add  eax, [gbxm1]
-
 
262
    add  eax, [gbxm1]
-
 
263
    add  eax, 5*2                                   ; skin width
-
 
264
    mov  [window_width],    eax
-
 
265
 
408
 
266
      mcall     48,4                                ; get skin header height
-
 
267
    add  eax, [gh_mul_gs]
-
 
268
    add  eax, [gbym1]
-
 
269
    add  eax, [g_e]
-
 
270
    add  eax, 30
409
    mov  eax, [gbym1]
Line 271... Line 410...
271
    add  eax, 5                                      ; skin height (bottom part)
410
    add  eax, [gh_mul_gs]
272
    mov  [window_height],   eax
411
    mov  [gbym1_plus_gh_mul_gs],    eax
273
 
412
 
274
      mcall     48, 5
413
      mcall     48, 5
275
    mov  dx,  ax
414
    mov  dx,  ax
276
    shr  eax, 16
415
    shr  eax, 16
277
    sub  dx,  ax
416
    sub  dx,  ax
278
    cmp  dx, word[window_width]                     ; does window fit to work area width?
417
    cmp  dx,  si                                    ; does window fit to work area width?
279
     jnl @f
418
     jnl @f
Line 280... Line 419...
280
    dec  [square_side_length]
419
    dec  [square_side_length]
281
     jmp Set_geometry
420
     jmp Set_geometry.by_hotkey
282
  @@:
421
  @@:
283
 
422
 
284
    mov  cx,  bx
423
    mov  cx,  bx
285
    shr  ebx, 16
424
    shr  ebx, 16
286
    sub  cx,  bx
425
    sub  cx,  bx
287
    cmp  cx, word[window_height]                     ; does window fit to work area height?
426
    cmp  cx,  di                                    ; does window fit to work area height?
Line 288... Line 427...
288
     jnl @f
427
     jnl @f
289
    dec  [square_side_length]
428
    dec  [square_side_length]
290
     jmp Set_geometry
429
     jmp Set_geometry.by_hotkey
291
  @@:
430
  @@:
292
 
431
 
293
    sub  dx,  word[window_width]
432
    sub  dx,  si
Line 360... Line 499...
360
    add  ecx,  [g_s]
499
    add  ecx,  [g_s]
361
    add  ecx,  [g_s]
500
    add  ecx,  [g_s]
Line 362... Line 501...
362
    
501
    
Line -... Line 502...
-
 
502
    mov  [button_y_bottom], ecx
-
 
503
 
Line -... Line 504...
-
 
504
  .done:
363
    mov  [button_y_bottom], ecx
505
      mcall     67,[wp_x],[wp_y],[window_width],[window_height]
Line 364... Line 506...
364
 
506
 
Line 365... Line 507...
365
 
507
  .quit:
366
    ret
508
    ret
Line 367... Line 509...
367
 
509
 
368
    ;;---Set_geometry------------------------------------------------------------------------------------------------------
510
    ;;---Set_geometry------------------------------------------------------------------------------------------------------
369
 
-
 
Line 370... Line 511...
370
 
511
 
Line 371... Line 512...
371
Increase_geometry:
512
 
Line 384... Line 525...
384
    ;;===Decrease_geometry=================================================================================================
525
    ;;===Decrease_geometry=================================================================================================
Line 385... Line 526...
385
 
526
 
386
    cmp  [square_side_length],  MIN_SQUARE_SIDE_LENGTH
527
    cmp  [square_side_length],  MIN_SQUARE_SIDE_LENGTH
387
     je  @f
528
     je  @f
388
    dec  [square_side_length]
529
    dec  [square_side_length]
389
      call      Set_geometry
-
 
Line 390... Line 530...
390
      mcall     67,[wp_x],[wp_y],[window_width],[window_height]
530
    mov  [resized_by_hotkey],   1
391
 
531
 
Line 392... Line 532...
392
  @@:
532
  @@:
Line 919... Line 1059...
919
    add  cl,  ch
1059
    add  cl,  ch
920
    mov  bh,  ch
1060
    mov  bh,  ch
Line 921... Line 1061...
921
 
1061
 
922
  .draw:
1062
  .draw:
-
 
1063
    mov  bl,  ah
Line 923... Line 1064...
923
    mov  bl,  ah
1064
    mov  di,  7
924
    
1065
    
925
  .loop:
1066
  .loop:
926
    cmp  byte[esi], 0
1067
    bt  word[esi],  di
927
     jz  @f
1068
     jnc @f
928
    push eax ebx ecx esi
1069
    push eax ebx ecx esi edi
Line 929... Line 1070...
929
      call      Draw_square
1070
      call      Draw_square
-
 
1071
    pop  edi esi ecx ebx eax
-
 
1072
    
-
 
1073
  @@:
930
    pop  esi ecx ebx eax
1074
    dec  di
-
 
1075
     jns @f
931
    
1076
    mov  di,  7
932
  @@:
1077
    inc  esi
933
    inc  esi
1078
  @@:
Line 934... Line 1079...
934
    inc  bl
1079
    inc  bl
-
 
1080
    cmp  bl,  al
-
 
1081
     jne .loop
-
 
1082
    
-
 
1083
    inc  bh
935
    cmp  bl,  al
1084
    cmp  di,  7
936
     jne .loop
1085
     jz  @f
-
 
1086
    inc  esi
937
    
1087
  @@:
Line 938... Line 1088...
938
    inc  bh
1088
    cmp  bh,  cl
Line 949... Line 1099...
949
    ;;           al =   x coord
1099
    ;;           al =   x coord
950
    ;;           ah =   y coord
1100
    ;;           ah =   y coord
951
    ;;           cl =   value to draw
1101
    ;;           cl =   value to draw
952
    ;;
1102
    ;;
Line 953... Line -...
953
 
-
 
954
    push eax ebx edx
-
 
955
 
1103
 
956
    and  eax, 0x0000ffff
1104
    and  eax, 0x0000ffff
957
    xor  bx,  bx
1105
    xor  bx,  bx
958
    mov  bl,  al
1106
    mov  bl,  al
959
    shr  ax,  8
1107
    shr  ax,  8
960
    mov  dx,  GRID_WIDTH
1108
    mov  dx,  GRID_WIDTH
961
    mul  dx
1109
    mul  dx
962
    add  ax,  bx
1110
    add  ax,  bx
963
    mov  edx, field_map
1111
    mov  edi, field_map
964
    add  edx, eax
1112
    add  edi, eax
965
    mov  [edx], cl
-
 
966
    
-
 
Line 967... Line 1113...
967
    pop edx ebx eax
1113
    mov  [edi], cl
Line 968... Line 1114...
968
 
1114
 
Line 969... Line 1115...
969
    ret
1115
    ret
970
 
1116
 
971
    ;;---Draw_on_map-----------------------------------------------------------------------------------------------------------
1117
    ;;---Draw_on_map-------------------------------------------------------------------------------------------------------
972
 
1118
 
973
 
1119
 
974
Get_from_map:
1120
Get_from_map:
975
    ;;===Get_from_map==========================================================================================================
1121
    ;;===Get_from_map======================================================================================================
Line 1009... Line 1155...
1009
    mov  eax, [cur_level_number]
1155
    mov  eax, [cur_level_number]
1010
    mov  edx, stage_00
1156
    mov  edx, stage_00
1011
  @@:
1157
  @@:
1012
    test al,  al
1158
    test al,  al
1013
     jz  @f
1159
     jz  @f
1014
    add  edx, 410
1160
    add  edx, stage_01-stage_00
1015
    dec  al
1161
    dec  al
1016
     jmp @b
1162
     jmp @b
1017
  @@:
1163
  @@:
Line -... Line 1164...
-
 
1164
 
-
 
1165
    mov  esi, window_title_with_lives
-
 
1166
    mov  edi, window_title+5
-
 
1167
 
-
 
1168
  .lives_in_title:
-
 
1169
    cmp  [play_mode],   LEVELS_MODE
-
 
1170
     jne .level_name_in_title
-
 
1171
    test [show_lives_style],    1
-
 
1172
     jz  .level_name_in_title
-
 
1173
    mov  [edi], byte ' '
-
 
1174
    mov  al,  byte[separating_symbol]
-
 
1175
    mov  [edi+1], byte al
-
 
1176
    mov  [edi+2], byte ' '
-
 
1177
    add  edi, 3
-
 
1178
    mov  eax, [lives]
-
 
1179
    add  al,  0x30
-
 
1180
    mov  [window_title_with_lives],   al
-
 
1181
    mov  ecx, 10
-
 
1182
    rep  movsb
-
 
1183
    dec  edi
-
 
1184
 
-
 
1185
  .level_name_in_title:
-
 
1186
    cmp  [draw_level_name_in_window_title], 1
-
 
1187
     jne @f
-
 
1188
    mov  [edi], byte ' '
-
 
1189
    mov  al,  byte[separating_symbol]
-
 
1190
    mov  [edi+1], byte al
-
 
1191
    mov  [edi+2], byte ' '
-
 
1192
    add  edi, 3
-
 
1193
    mov  esi, edx
-
 
1194
    add  esi, LEVEL.name
-
 
1195
    mov  esi, [esi]
-
 
1196
    mov  ecx, 16
-
 
1197
    rep  movsd
-
 
1198
 
-
 
1199
  @@:
-
 
1200
      mcall     71,1,window_title
1018
  
1201
 
Line 1019... Line 1202...
1019
    mov  [cur_level],   edx
1202
    mov  [cur_level],   edx
1020
 
1203
 
1021
    mov  esi, edx
1204
    mov  esi, edx
-
 
1205
    add  esi, LEVEL.field
1022
    add  esi, LEVEL.field
1206
    mov  edi, field_map
-
 
1207
    mov  ecx, 2
-
 
1208
    mov  ah,  GRID_HEIGHT
-
 
1209
  .begin:
-
 
1210
    mov  ebx, 7
-
 
1211
    mov  al,  GRID_WIDTH
-
 
1212
  .loop:
-
 
1213
    bt   [esi], ebx
-
 
1214
     jnc @f
-
 
1215
    mov  byte[edi], cl
-
 
1216
     jmp .skip
-
 
1217
  @@:
-
 
1218
    mov  byte[edi], 0
-
 
1219
  .skip:
-
 
1220
    dec  ebx
-
 
1221
     jns @f
-
 
1222
    mov  ebx, 7
-
 
1223
    inc  esi
-
 
1224
  @@:
-
 
1225
    inc  edi
1023
    mov  edi, field_map
1226
    dec  al
-
 
1227
     jnz .loop
-
 
1228
    inc  esi
-
 
1229
    dec  ah
Line 1024... Line 1230...
1024
    mov  ecx, GRID_WIDTH*GRID_HEIGHT/4
1230
     jnz .begin
1025
    rep  movsd
1231
 
1026
 
1232
 
1027
    mov  esi, edx
1233
    mov  esi, edx
Line 1097... Line 1303...
1097
    ret
1303
    ret
Line 1098... Line 1304...
1098
 
1304
 
Line -... Line 1305...
-
 
1305
    ;;---Show_cursor-----------------------------------------------------------------------------------------------------------
-
 
1306
 
-
 
1307
 
-
 
1308
Set_window_mode:
-
 
1309
    ;;===Set_window_mode=======================================================================================================
-
 
1310
 
-
 
1311
    test al,  al
-
 
1312
     jnz .fullscreen
-
 
1313
    mov  eax, [window_style_windowed]
-
 
1314
     jmp .quit
-
 
1315
 
-
 
1316
  .fullscreen:
-
 
1317
    mov  eax, [window_style_fullscreen]
-
 
1318
 
-
 
1319
  .quit:
1099
    ;;---Show_cursor-----------------------------------------------------------------------------------------------------------
1320
    mov [window_style], eax
-
 
1321
    ret
-
 
1322
 
-
 
1323
;;---Some_functions------------------------------------------------------------------------------------------------------------
-
 
1324
 
-
 
1325
 
-
 
1326
Reverse_snake:
-
 
1327
    ;;===Reverse_snake=========================================================================================================
-
 
1328
 
-
 
1329
    cmp  [snake_direction], LEFT
-
 
1330
     jne @f
-
 
1331
    mov  [snake_direction_next],    RIGHT
-
 
1332
     jmp .quit
-
 
1333
  @@:
-
 
1334
    cmp  [snake_direction], RIGHT
-
 
1335
     jne @f
-
 
1336
    mov  [snake_direction_next],    LEFT
-
 
1337
     jmp .quit
-
 
1338
  @@:
-
 
1339
    cmp  [snake_direction], UP
-
 
1340
     jne @f
-
 
1341
    mov  [snake_direction_next],    DOWN
-
 
1342
     jmp .quit
-
 
1343
  @@:
-
 
1344
   cmp  [snake_direction], DOWN
-
 
1345
     jne @f
-
 
1346
    mov  [snake_direction_next],    UP
-
 
1347
;     jmp .quit
-
 
1348
  @@:
-
 
1349
 
-
 
1350
  .quit:
Line 1100... Line 1351...
1100
 
1351
    ret
Line 1101... Line 1352...
1101
 
1352
 
-
 
1353
    ;;---Reverse_snake---------------------------------------------------------------------------------------------------------
-
 
1354
 
-
 
1355
 
1102
;;---Some_functions-------------------------------------------------------------------------------------------------------------
1356
;;===Variables==================================================================================================================
1103
 
1357
 
1104
 
1358
window_title                db      'Snake',64+15 dup (0)
1105
;;===Variables==================================================================================================================
1359
window_title_with_lives     db      '_ live(s)',0
-
 
1360
default_separating_symbol   db      '|',0
Line 1106... Line 1361...
1106
 
1361
window_style_windowed       dd      0x33000000              ; scalable skinned window
-
 
1362
window_style_fullscreen     dd      0x00000000
-
 
1363
time_before_waiting         dd      0x0
Line 1107... Line 1364...
1107
window_title                db      'Snake',0
1364
time_to_wait                dd      0x0
1108
window_style                dd      0x34000000
-
 
1109
time_before_waiting         dd      0x0
1365
time_wait_limit             dd      101
1110
time_to_wait                dd      0x0
-
 
Line 1111... Line 1366...
1111
time_wait_limit             dd      101
1366
time_wait_limit_const       dd      0x0
1112
 
1367
 
1113
play_mode                   dd      0x0
-
 
1114
 
1368
play_mode                   dd      0x0
1115
square_side_length          dd      19
1369
lives                       dd      START_LIVES
1116
 
-
 
1117
gbxm1                       dd      30
1370
acceleration_mask           dd      0x0
1118
gbym1                       dd      30
1371
 
1119
 
1372
resized_by_hotkey           dd      0x0
1120
szZ string_score            ,'SCORE : '
1373
fullscreen                  dd      0x0
1121
szZ string_hi_score         ,'HI-SCORE : '
1374
 
Line 1143... Line 1396...
1143
 
1396
 
Line 1144... Line 1397...
1144
is_new_record               dd      0
1397
is_new_record               dd      0
Line 1145... Line 1398...
1145
 
1398
 
1146
action                      dd      0
1399
action                      dd      0
1147
 
1400
 
1148
picture_first_menu_snake    db      1,1,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,1,1,\
1401
picture_first_menu_snake    db      0xf4,0x99,0x2f,\
1149
                                    1,0,0,0,0,1,1,0,1,0,1,0,0,1,0,1,0,1,0,0,1,0,0,1,\
1402
                                    0x86,0xa5,0x49,\
1150
                                    1,1,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,0,0,1,1,1,1,\
-
 
1151
                                    0,0,0,1,0,1,0,1,1,0,1,1,1,1,0,1,0,1,0,0,1,0,0,0,\
1403
                                    0xf5,0xa5,0x8f,\
1152
                                    1,1,1,1,0,1,0,0,1,0,1,0,0,1,0,1,0,0,1,0,1,1,1,1
1404
                                    0x15,0xbd,0x48,\
1153
                                    
1405
                                    0xf4,0xa5,0x2f
1154
 
1406
 
1155
picture_first_menu_version  db      1,1,1,1,0,0,0,1,1,1,1,\
1407
picture_first_menu_version  db      0xf1,0xe0,\
1156
                                    1,0,0,1,0,0,0,1,0,0,0,\
1408
                                    0x90,0x20,\
1157
                                    1,0,0,1,0,0,0,1,1,1,1,\
1409
                                    0x90,0x20,\
1158
                                    1,0,0,1,0,0,0,0,0,0,1,\
1410
                                    0x90,0x20,\
1159
                                    1,1,1,1,0,1,0,1,1,1,1
1411
                                    0xf4,0x20
1160
 
1412
 
1161
picture_pause               db      1,1,1,0,0,0,1,1,0,0,1,0,0,1,0,1,1,1,1,0,1,1,1,1,\
1413
picture_pause               db      11100011b,00100101b,11101111b,\
1162
                                    1,0,0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,0,0,0,1,0,0,0,\
1414
                                    10010100b,10100101b,00001000b,\
1163
                                    1,0,0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,0,0,0,1,0,0,0,\
1415
                                    10010100b,10100101b,00001000b,\
1164
                                    1,1,1,0,0,1,1,1,1,0,1,0,0,1,0,1,1,1,1,0,1,1,1,1,\
1416
                                    11100111b,10100101b,11101111b,\
1165
                                    1,0,0,0,0,1,0,0,1,0,1,0,0,1,0,0,0,0,1,0,1,0,0,0,\
1417
                                    10000100b,10100100b,00101000b,\
1166
                                    1,0,0,0,0,1,0,0,1,0,0,1,1,0,0,1,1,1,1,0,1,1,1,1
1418
                                    10000100b,10011001b,11101111b
1167
 
1419
 
1168
picture_game_over           db      0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1420
picture_game_over           db      00110000b,00000000b,00000000b,00000000b,\
1169
                                    0,1,0,0,1,0,0,1,1,1,0,0,1,0,0,0,1,0,1,1,1,1,0,0,0,0,\
1421
                                    01001001b,11001000b,10111100b,00000000b,\
1170
                                    1,0,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,0,0,0,\
1422
                                    10000010b,00101101b,10100000b,00000000b,\
1171
                                    1,0,0,1,1,0,1,0,0,0,1,0,1,0,1,0,1,0,1,1,1,0,0,0,0,0,\
1423
                                    10011010b,00101010b,10111000b,00000000b,\
1172
                                    1,0,0,0,1,0,1,1,1,1,1,0,1,0,0,0,1,0,1,0,0,0,0,0,0,0,\
1424
                                    10001011b,11101000b,10100000b,00000000b,\
1173
                                    0,1,1,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,1,0,0,0,0,\
1425
                                    01110010b,00101000b,10111100b,00000000b,\
1174
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1426
                                    00000000b,00000000b,00000000b,00000000b,\
1175
                                    0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1427
                                    00000111b,00000000b,00000000b,00000000b,\
1176
                                    0,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,1,0,1,1,1,1,0,\
1428
                                    00001000b,10100010b,11110111b,10000000b,\
1177
                                    0,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,1,0,0,0,1,\
1429
                                    00001000b,10100010b,10000100b,01000000b,\
1178
                                    0,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,0,0,1,0,0,0,1,\
1430
                                    00001000b,10100010b,11100100b,01000000b,\
1179
                                    0,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,0,0,1,1,1,1,0,\
1431
                                    00001000b,10010100b,10000111b,10000000b,\
1180
                                    0,0,0,0,0,1,1,1,0,0,0,0,1,0,0,0,1,1,1,1,0,1,0,0,0,1
1432
                                    00000111b,00001000b,11110100b,01000000b
1181
 
1433
 
1182
picture_you_win             db      1,0,0,0,1,0,0,1,1,1,0,0,1,0,0,0,1,\
1434
picture_you_win             db      10001001b,11001000b,10000000b,\
1183
                                    1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,\
1435
                                    10001010b,00101000b,10000000b,\
1184
                                    0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,\
1436
                                    01010010b,00101000b,10000000b,\
1185
                                    0,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,\
1437
                                    00100010b,00101000b,10000000b,\
1186
                                    0,0,1,0,0,0,0,1,1,1,0,0,0,1,1,1,0,\
1438
                                    00100001b,11000111b,00000000b,\
1187
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1439
                                    00000000b,00000000b,00000000b,\
1188
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1440
                                    00000000b,00000000b,00000000b,\
1189
                                    0,1,0,0,0,1,0,0,1,0,0,1,0,0,0,1,0,\
1441
                                    01000100b,10010001b,00000000b,\
1190
                                    0,1,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,\
1442
                                    01010100b,10011001b,00000000b,\
1191
                                    0,1,0,1,0,1,0,0,1,0,0,1,0,1,0,1,0,\
1443
                                    01010100b,10010101b,00000000b,\
1192
                                    0,1,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,\
1444
                                    01010100b,10010011b,00000000b,\
1193
                                    0,0,1,0,1,0,0,0,1,0,0,1,0,0,0,1,0
1445
                                    00101000b,10010001b,00000000b
1194
 
1446
 
1195
picture_level               db      1,0,0,0,0,1,1,1,1,0,1,0,0,1,0,1,1,1,1,0,1,0,0,0,\
1447
picture_level               db      10000111b,10100101b,11101000b,\
1196
                                    1,0,0,0,0,1,0,0,0,0,1,0,0,1,0,1,0,0,0,0,1,0,0,0,\
1448
                                    10000100b,00100101b,00001000b,\
1197
                                    1,0,0,0,0,1,1,1,0,0,1,0,0,1,0,1,1,1,0,0,1,0,0,0,\
1449
                                    10000111b,00100101b,11001000b,\
1198
                                    1,0,0,0,0,1,0,0,0,0,1,0,1,0,0,1,0,0,0,0,1,0,0,0,\
1450
                                    10000100b,00101001b,00001000b,\
1199
                                    1,1,1,1,0,1,1,1,1,0,1,1,0,0,0,1,1,1,1,0,1,1,1,1
-
 
1200
 
-
 
1201
digits_font                 db      1,1,1,1,\
-
 
1202
                                    1,0,0,1,\
-
 
1203
                                    1,0,0,1,\
-
 
1204
                                    1,0,0,1,\
-
 
1205
                                    1,1,1,1,\
-
 
1206
                                    \
-
 
1207
                                    0,0,1,0,\
-
 
1208
                                    0,1,1,0,\
-
 
1209
                                    0,0,1,0,\
-
 
1210
                                    0,0,1,0,\
-
 
1211
                                    0,0,1,0,\
1451
                                    11110111b,10110001b,11101111b
1212
                                    \
-
 
1213
                                    1,1,1,1,\
1452
 
1214
                                    0,0,0,1,\
-
 
1215
                                    1,1,1,1,\
-
 
1216
                                    1,0,0,0,\
-
 
1217
                                    1,1,1,1,\
-
 
1218
                                    \
-
 
1219
                                    1,1,1,1,\
-
 
1220
                                    0,0,0,1,\
-
 
1221
                                    0,1,1,1,\
-
 
1222
                                    0,0,0,1,\
-
 
1223
                                    1,1,1,1,\
-
 
1224
                                    \
-
 
1225
                                    1,0,0,1,\
-
 
1226
                                    1,0,0,1,\
-
 
1227
                                    1,1,1,1,\
-
 
1228
                                    0,0,0,1,\
-
 
1229
                                    0,0,0,1,\
1453
digits_font                 db      0xf0,0x90,0x90,0x90,0xf0,\
1230
                                    \
-
 
1231
                                    1,1,1,1,\
1454
                                    0x20,0x60,0x20,0x20,0x20,\
1232
                                    1,0,0,0,\
-
 
1233
                                    1,1,1,1,\
-
 
1234
                                    0,0,0,1,\
-
 
1235
                                    1,1,1,1,\
-
 
1236
                                    \
-
 
1237
                                    1,1,1,1,\
-
 
1238
                                    1,0,0,0,\
-
 
1239
                                    1,1,1,1,\
-
 
1240
                                    1,0,0,1,\
-
 
1241
                                    1,1,1,1,\
1455
                                    0xf0,0x10,0xf0,0x80,0xf0,\
1242
                                    \
1456
                                    0xf0,0x10,0x70,0x10,0xf0,\
1243
                                    1,1,1,1,\
1457
                                    0x90,0x90,0xf0,0x10,0x10,\
1244
                                    0,0,0,1,\
1458
                                    0xf0,0x80,0xf0,0x10,0xf0,\
1245
                                    0,0,0,1,\
-
 
1246
                                    0,0,0,1,\
-
 
1247
                                    0,0,0,1,\
-
 
1248
                                    \
-
 
1249
                                    1,1,1,1,\
-
 
1250
                                    1,0,0,1,\
-
 
1251
                                    1,1,1,1,\
-
 
1252
                                    1,0,0,1,\
-
 
1253
                                    1,1,1,1,\
-
 
1254
                                    \
-
 
1255
                                    1,1,1,1,\
1459
                                    0xf0,0x80,0xf0,0x90,0xf0,\
1256
                                    1,0,0,1,\
-
 
Line 1257... Line 1460...
1257
                                    1,1,1,1,\
1460
                                    0xf0,0x10,0x10,0x10,0x10,\
1258
                                    0,0,0,1,\
1461
                                    0xf0,0x90,0xf0,0x90,0xf0,\
1259
                                    1,1,1,1
1462
                                    0xf0,0x90,0xf0,0x10,0xf0
1260
 
1463
 
1261
stage_00:
1464
stage_00:
1262
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1465
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1263
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1466
                                    00000000b,00000000b,00000000b,00000000b,\
1264
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1467
                                    00000000b,00000000b,00000000b,00000000b,\
1265
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1468
                                    00000000b,00000000b,00000000b,00000000b,\
1266
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1469
                                    00000000b,00000000b,00000000b,00000000b,\
1267
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1470
                                    00000000b,00000000b,00000000b,00000000b,\
1268
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1471
                                    00000000b,00000000b,00000000b,00000000b,\
1269
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1472
                                    00000000b,00000000b,00000000b,00000000b,\
1270
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1473
                                    00000000b,00000000b,00000000b,00000000b,\
1271
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1474
                                    00000000b,00000000b,00000000b,00000000b,\
Line 1272... Line 1475...
1272
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1475
                                    00000000b,00000000b,00000000b,00000000b,\
1273
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1476
                                    00000000b,00000000b,00000000b,00000000b,\
1274
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1477
                                    00000000b,00000000b,00000000b,00000000b,\
1275
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1478
                                    00000000b,00000000b,00000000b,00000000b
-
 
1479
 
Line 1276... Line 1480...
1276
 
1480
.snake_dots                 db      3,3, 4,3, 5,3
1277
.snake_dots                 db      3,3, 4,3, 5,3
1481
.snake_direction            dd      RIGHT
1278
.snake_direction            dd      RIGHT
1482
.snake_direction_next       dd      RIGHT
1279
.snake_direction_next       dd      RIGHT
1483
.number_of_stones           dd      0
1280
.number_of_stones           dd      0
1484
.name                       dd      stage_00_name
1281
 
1485
 
1282
stage_01:
1486
stage_01:
1283
.field                      db      2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,\
1487
.field                      db      11111000b,00000000b,00000001b,11110000b,\
1284
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1488
                                    10000000b,00000000b,00000000b,00010000b,\
1285
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1489
                                    10000000b,00000000b,00000000b,00010000b,\
1286
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1490
                                    10000000b,00000000b,00000000b,00010000b,\
1287
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1491
                                    10000000b,00000000b,00000000b,00010000b,\
1288
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1492
                                    00000000b,00000000b,00000000b,00000000b,\
1289
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1493
                                    00000000b,00000000b,00000000b,00000000b,\
1290
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1494
                                    00000000b,00000000b,00000000b,00000000b,\
Line 1291... Line 1495...
1291
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1495
                                    00000000b,00000000b,00000000b,00000000b,\
1292
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1496
                                    10000000b,00000000b,00000000b,00010000b,\
1293
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1497
                                    10000000b,00000000b,00000000b,00010000b,\
1294
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1498
                                    10000000b,00000000b,00000000b,00010000b,\
-
 
1499
                                    10000000b,00000000b,00000000b,00010000b,\
Line 1295... Line 1500...
1295
                                    2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,\
1500
                                    11111000b,00000000b,00000001b,11110000b
1296
                                    2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2
1501
 
1297
 
1502
.snake_dots                 db      3,3, 4,3, 5,3
1298
.snake_dots                 db      3,3, 4,3, 5,3
1503
.snake_direction            dd      RIGHT
1299
.snake_direction            dd      RIGHT
1504
.snake_direction_next       dd      RIGHT
1300
.snake_direction_next       dd      RIGHT
1505
.number_of_stones           dd      36
1301
.number_of_stones           dd      36
1506
.name                       dd      stage_01_name
1302
 
1507
 
1303
stage_02:
1508
stage_02:
1304
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1509
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1305
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1510
                                    00000000b,00000000b,00000000b,00000000b,\
1306
                                    0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,\
1511
                                    00011111b,11000000b,00111111b,10000000b,\
1307
                                    0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,\
1512
                                    00010000b,00000000b,00000000b,10000000b,\
1308
                                    0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,\
1513
                                    00010000b,00000000b,00000000b,10000000b,\
1309
                                    0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,\
1514
                                    00010000b,00000000b,00000000b,10000000b,\
Line 1310... Line 1515...
1310
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1515
                                    00000000b,00000000b,00000000b,00000000b,\
1311
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1516
                                    00000000b,00000000b,00000000b,00000000b,\
1312
                                    0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,\
1517
                                    00010000b,00000000b,00000000b,10000000b,\
1313
                                    0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,\
1518
                                    00010000b,00000000b,00000000b,10000000b,\
-
 
1519
                                    00010000b,00000000b,00000000b,10000000b,\
Line 1314... Line 1520...
1314
                                    0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,\
1520
                                    00011111b,11000000b,00111111b,10000000b,\
1315
                                    0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,\
1521
                                    00000000b,00000000b,00000000b,00000000b,\
1316
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1522
                                    00000000b,00000000b,00000000b,00000000b
1317
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1523
 
1318
 
1524
.snake_dots                 db      7,5, 8,5, 9,5
1319
.snake_dots                 db      7,5, 8,5, 9,5
1525
.snake_direction            dd      RIGHT
1320
.snake_direction            dd      RIGHT
1526
.snake_direction_next       dd      RIGHT
1321
.snake_direction_next       dd      RIGHT
1527
.number_of_stones           dd      40
1322
.number_of_stones           dd      40
1528
.name                       dd      stage_02_name
1323
 
1529
 
1324
stage_03:
1530
stage_03:
1325
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1531
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1326
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1532
                                    00000000b,00000000b,00000000b,00000000b,\
1327
                                    0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,\
1533
                                    00000000b,00001001b,00000000b,00000000b,\
1328
                                    0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,\
1534
                                    00000000b,00001001b,00000000b,00000000b,\
Line 1329... Line 1535...
1329
                                    0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,\
1535
                                    00000000b,00001001b,00000000b,00000000b,\
1330
                                    0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,2,2,2,2,2,2,2,2,2,0,0,0,0,\
1536
                                    00001111b,11111001b,11111111b,00000000b,\
1331
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1537
                                    00000000b,00000000b,00000000b,00000000b,\
1332
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1538
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1539
                                    00001111b,11111001b,11111111b,00000000b,\
Line 1333... Line 1540...
1333
                                    0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,2,2,2,2,2,2,2,2,2,0,0,0,0,\
1540
                                    00000000b,00001001b,00000000b,00000000b,\
1334
                                    0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,\
1541
                                    00000000b,00001001b,00000000b,00000000b,\
1335
                                    0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,\
1542
                                    00000000b,00001001b,00000000b,00000000b,\
1336
                                    0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,\
1543
                                    00000000b,00000000b,00000000b,00000000b,\
1337
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1544
                                    00000000b,00000000b,00000000b,00000000b
1338
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1545
 
1339
 
1546
.snake_dots                 db      23,0, 22,0, 21,0
1340
.snake_dots                 db      23,0, 22,0, 21,0
1547
.snake_direction            dd      LEFT
1341
.snake_direction            dd      LEFT
1548
.snake_direction_next       dd      LEFT
1342
.snake_direction_next       dd      LEFT
1549
.number_of_stones           dd      48
1343
.number_of_stones           dd      44
1550
.name                       dd      stage_03_name
1344
 
1551
 
1345
stage_04:
1552
stage_04:
1346
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1553
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1347
                                    0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,\
1554
                                    00000000b,00100000b,01000000b,00000000b,\
Line 1348... Line 1555...
1348
                                    0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,\
1555
                                    00000010b,00100000b,01000100b,00000000b,\
1349
                                    0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,\
1556
                                    00000010b,00000000b,00000100b,00000000b,\
1350
                                    0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,\
1557
                                    00010000b,00100000b,01000000b,10000000b,\
1351
                                    0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,\
1558
                                    00000010b,00100000b,01000100b,00000000b,\
-
 
1559
                                    00010010b,00000000b,00000100b,10000000b,\
Line 1352... Line 1560...
1352
                                    0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,\
1560
                                    00010010b,00000000b,00000100b,10000000b,\
1353
                                    0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,0,0,0,\
1561
                                    00000010b,00100000b,01000000b,00000000b,\
1354
                                    0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,\
1562
                                    00010000b,00100000b,01000000b,10000000b,\
1355
                                    0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,\
1563
                                    00000010b,00000000b,00000100b,00000000b,\
1356
                                    0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,\
1564
                                    00000010b,00100000b,01000100b,00000000b,\
1357
                                    0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,2,0,0,0,2,0,0,0,0,0,0,\
1565
                                    00000000b,00100000b,01000000b,00000000b,\
1358
                                    0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,\
1566
                                    00000000b,00000000b,00000000b,00000000b
1359
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1567
 
1360
 
1568
.snake_dots                 db      19,6, 19,7, 19,8
1361
.snake_dots                 db      19,6, 19,7, 19,8
1569
.snake_napravlenie          dd      DOWN
1362
.snake_napravlenie          dd      DOWN
1570
.snake_napravlenie_next     dd      DOWN
1363
.snake_napravlenie_next     dd      DOWN
1571
.number_of_stones           dd      39
1364
.number_of_stones           dd      40
1572
.name                       dd      stage_04_name
1365
 
1573
 
1366
stage_05:
1574
stage_05:
Line 1367... Line 1575...
1367
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1575
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1368
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1576
                                    00000000b,00000000b,00000000b,00000000b,\
1369
                                    0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,\
1577
                                    00000001b,11111111b,11111000b,00000000b,\
1370
                                    0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,\
1578
                                    00000001b,11111111b,11111000b,00000000b,\
-
 
1579
                                    00000000b,00000000b,00000000b,00000000b,\
Line 1371... Line 1580...
1371
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1580
                                    00000000b,00000000b,00000000b,00000000b,\
1372
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1581
                                    00000111b,11111111b,11111110b,00000000b,\
1373
                                    0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,\
1582
                                    00000111b,11111111b,11111110b,00000000b,\
1374
                                    0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,\
1583
                                    00000000b,00000000b,00000000b,00000000b,\
1375
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1584
                                    00000000b,00000000b,00000000b,00000000b,\
1376
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1585
                                    00111111b,11111111b,11111111b,11000000b,\
1377
                                    0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,\
1586
                                    00111111b,11111111b,11111111b,11000000b,\
1378
                                    0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,\
1587
                                    00000000b,00000000b,00000000b,00000000b,\
1379
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1588
                                    00000000b,00000000b,00000000b,00000000b
1380
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1589
 
1381
 
1590
.snake_dots                 db      0,0, 0,1, 1,1
1382
.snake_dots                 db      0,0, 0,1, 1,1
1591
.snake_direction            dd      RIGHT
1383
.snake_direction            dd      RIGHT
1592
.snake_direction_next       dd      RIGHT
1384
.snake_direction_next       dd      RIGHT
1593
.number_of_stones           dd      112
1385
.number_of_stones           dd      112
1594
.name                       dd      stage_05_name
Line 1386... Line 1595...
1386
 
1595
 
1387
stage_06:
1596
stage_06:
1388
.field                      db      0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1597
.field                      db      00000001b,10000000b,00000000b,00000000b,\
1389
                                    0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,\
1598
                                    00000001b,11111111b,11111000b,00000000b,\
-
 
1599
                                    00000001b,11111111b,11111000b,00000000b,\
Line 1390... Line 1600...
1390
                                    0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,\
1600
                                    00000000b,00000000b,00011000b,00000000b,\
1391
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,\
1601
                                    00000000b,00000000b,00011000b,00000000b,\
1392
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,\
1602
                                    00011111b,11111111b,11111000b,00000000b,\
1393
                                    0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,\
1603
                                    00011111b,11111111b,11111000b,00000000b,\
1394
                                    0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,\
1604
                                    00011000b,00000000b,00000000b,00000000b,\
1395
                                    0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1605
                                    00011000b,00000000b,00000000b,00000000b,\
1396
                                    0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1606
                                    00011111b,11111111b,11111111b,11100000b,\
1397
                                    0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,\
1607
                                    00011111b,11111111b,11111111b,11100000b,\
1398
                                    0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,\
1608
                                    00000000b,00000000b,00000000b,01100000b,\
1399
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,\
1609
                                    00000000b,00000000b,00000000b,01100000b,\
1400
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,\
1610
                                    00000000b,00000000b,00000000b,01100000b
1401
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0
1611
 
1402
 
1612
.snake_dots                 db      0,0, 0,1, 1,1
1403
.snake_dots                 db      0,0, 0,1, 1,1
1613
.snake_direction            dd      RIGHT
1404
.snake_direction            dd      RIGHT
1614
.snake_direction_next       dd      RIGHT
Line 1405... Line 1615...
1405
.snake_direction_next       dd      RIGHT
1615
.number_of_stones           dd      128
1406
.number_of_stones           dd      128
1616
.name                       dd      stage_06_name
1407
 
1617
 
1408
stage_07:
1618
stage_07:
-
 
1619
.field                      db      00000000b,00000000b,00000000b,00000000b,\
Line 1409... Line 1620...
1409
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1620
                                    00000000b,00000000b,00000000b,00000000b,\
1410
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1621
                                    00000000b,00000000b,00000000b,00000000b,\
1411
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1622
                                    00000011b,11111111b,11111100b,00000000b,\
1412
                                    0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,\
1623
                                    00000000b,00000000b,00000100b,00000000b,\
1413
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,\
1624
                                    00000011b,11111111b,11110100b,00000000b,\
1414
                                    0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,0,0,0,0,0,0,\
1625
                                    00000010b,00000000b,00010100b,00000000b,\
1415
                                    0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,2,0,2,0,0,0,0,0,0,\
1626
                                    00000010b,11111111b,11010100b,00000000b,\
1416
                                    0,0,0,0,0,0,2,0,2,2,2,2,2,2,2,2,2,2,0,2,0,2,0,0,0,0,0,0,\
1627
                                    00000010b,00000000b,00010100b,00000000b,\
1417
                                    0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,2,0,2,0,0,0,0,0,0,\
1628
                                    00000010b,11111111b,11110100b,00000000b,\
1418
                                    0,0,0,0,0,0,2,0,2,2,2,2,2,2,2,2,2,2,2,2,0,2,0,0,0,0,0,0,\
1629
                                    00000010b,00000000b,00000100b,00000000b,\
1419
                                    0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,\
1630
                                    00000011b,11111111b,11111100b,00000000b,\
1420
                                    0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,\
1631
                                    00000000b,00000000b,00000000b,00000000b,\
1421
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1632
                                    00000000b,00000000b,00000000b,00000000b
1422
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1633
 
1423
 
1634
.snake_dots                 db      8,1, 9,1, 10,1
Line 1424... Line 1635...
1424
.snake_dots                 db      8,1, 9,1, 10,1
1635
.snake_direction            dd      RIGHT
1425
.snake_direction            dd      RIGHT
1636
.snake_direction_next       dd      RIGHT
1426
.snake_direction_next       dd      RIGHT
1637
.number_of_stones           dd      83
1427
.number_of_stones           dd      83
1638
.name                       dd      stage_07_name
-
 
1639
 
Line 1428... Line 1640...
1428
 
1640
stage_08:
1429
stage_08:
1641
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1430
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1642
                                    00000000b,00000000b,00000000b,00000000b,\
1431
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1643
                                    00000000b,00000000b,00010000b,00000000b,\
1432
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,\
1644
                                    00001001b,00000001b,00000000b,00000000b,\
1433
                                    0,0,0,0,2,0,0,2,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,\
1645
                                    00000001b,01001001b,00000101b,00000000b,\
1434
                                    0,0,0,0,0,0,0,2,0,2,0,0,2,0,0,2,0,0,0,0,0,2,0,2,0,0,0,0,\
1646
                                    00000000b,01000000b,00000100b,00000000b,\
1435
                                    0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,\
1647
                                    00001111b,00000000b,11100000b,00000000b,\
1436
                                    0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,\
1648
                                    00000000b,00000000b,00001000b,10000000b,\
1437
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,2,0,0,0,\
1649
                                    00000111b,00100000b,10000010b,10000000b,\
1438
                                    0,0,0,0,0,2,2,2,0,0,2,0,0,0,0,0,2,0,0,0,0,0,2,0,2,0,0,0,\
1650
                                    00010000b,00000000b,00000010b,00000000b,\
1439
                                    0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,\
1651
                                    00010000b,11000000b,01110010b,00000000b,\
1440
                                    0,0,0,2,0,0,0,0,2,2,0,0,0,0,0,0,0,2,2,2,0,0,2,0,0,0,0,0,\
1652
                                    00010010b,00000000b,00000010b,00000000b,\
1441
                                    0,0,0,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,\
1653
                                    00000000b,00000000b,00000000b,00000000b,\
1442
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1654
                                    00000000b,00000000b,00000000b,00000000b
Line 1443... Line 1655...
1443
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1655
 
1444
 
1656
.snake_dots                 db      0,0, 1,0, 2,0
1445
.snake_dots                 db      0,0, 1,0, 2,0
1657
.snake_direction            dd      RIGHT
1446
.snake_direction            dd      RIGHT
1658
.snake_direction_next       dd      RIGHT
-
 
1659
.number_of_stones           dd      40
Line 1447... Line 1660...
1447
.snake_direction_next       dd      RIGHT
1660
.name                       dd      stage_08_name
1448
.number_of_stones           dd      40
1661
 
1449
 
1662
stage_09:
1450
stage_09:
1663
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1451
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1664
                                    00000000b,00000000b,00000000b,00000000b,\
1452
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1665
                                    00000000b,00000000b,00000000b,00000000b,\
1453
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1666
                                    00000000b,00000000b,00000000b,00000000b,\
1454
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1667
                                    00111101b,00100110b,01001011b,11000000b,\
1455
                                    0,0,1,1,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,1,1,0,0,\
1668
                                    00100001b,10101001b,01010010b,00000000b,\
1456
                                    0,0,1,0,0,0,0,1,1,0,1,0,1,0,0,1,0,1,0,1,0,0,1,0,0,0,0,0,\
1669
                                    00111101b,01100001b,01100011b,10000000b,\
1457
                                    0,0,1,1,1,1,0,1,0,1,1,0,0,0,0,1,0,1,1,0,0,0,1,1,1,0,0,0,\
1670
                                    00000101b,01100111b,01010010b,00000000b,\
1458
                                    0,0,0,0,0,1,0,1,0,1,1,0,0,1,1,1,0,1,0,1,0,0,1,0,0,0,0,0,\
1671
                                    00111101b,00100001b,01001011b,11000000b,\
1459
                                    0,0,1,1,1,1,0,1,0,0,1,0,0,0,0,1,0,1,0,0,1,0,1,1,1,1,0,0,\
1672
                                    00000000b,00000000b,00000000b,00000000b,\
1460
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1673
                                    00000000b,00000000b,00000000b,00000000b,\
1461
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1674
                                    00000000b,00000000b,00000000b,00000000b,\
Line 1462... Line 1675...
1462
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1675
                                    00000000b,00000000b,00000000b,00000000b,\
1463
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1676
                                    00000000b,00000000b,00000000b,00000000b
1464
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1677
 
1465
 
1678
.snake_dots                 db      12,6, 12,7, 12,8
-
 
1679
.snake_direction            dd      DOWN
Line 1466... Line 1680...
1466
.snake_dots                 db      12,6, 12,7, 12,8
1680
.snake_direction_next       dd      DOWN
1467
.snake_direction            dd      DOWN
1681
.number_of_stones           dd      59
1468
.snake_direction_next       dd      DOWN
1682
.name                       dd      stage_09_name
1469
.number_of_stones           dd      59
1683
 
1470
 
1684
stage_10:
1471
stage_10:
1685
.field                      db      11101110b,11101110b,11101110b,11100000b,\
1472
.field                      db      2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1686
                                    11101110b,11101110b,11101110b,11100000b,\
1473
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1687
                                    11101110b,11101110b,11101110b,11100000b,\
1474
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1688
                                    00000000b,00000000b,00000000b,00000000b,\
1475
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1689
                                    11101110b,11101110b,11101110b,11100000b,\
1476
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1690
                                    11101110b,11101110b,11101110b,11100000b,\
1477
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1691
                                    11101110b,11101110b,11101110b,11100000b,\
1478
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1692
                                    00000000b,00000000b,00000000b,00000000b,\
1479
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1693
                                    11101110b,11101110b,11101110b,11100000b,\
1480
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1694
                                    11101110b,11101110b,11101110b,11100000b,\
Line 1481... Line 1695...
1481
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1695
                                    11101110b,11101110b,11101110b,11100000b,\
1482
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1696
                                    00000000b,00000000b,00000000b,00000000b,\
1483
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1697
                                    11101110b,11101110b,11101110b,11100000b,\
1484
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,\
1698
                                    11101110b,11101110b,11101110b,11100000b
-
 
1699
 
Line 1485... Line 1700...
1485
                                    2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0,2,2,2,0
1700
.snake_dots                 db      3,2, 3,3, 4,3
1486
 
1701
.snake_direction            dd      RIGHT
1487
.snake_dots                 db      3,2, 3,3, 4,3
1702
.snake_direction_next       dd      RIGHT
1488
.snake_direction            dd      RIGHT
1703
.number_of_stones           dd      231
1489
.snake_direction_next       dd      RIGHT
1704
.name                       dd      stage_10_name
1490
.number_of_stones           dd      231
1705
 
1491
 
1706
stage_11:
1492
stage_11:
1707
.field                      db      00000000b,00000000b,00000000b,00000000b,\
1493
.field                      db      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1708
                                    00000000b,00000000b,00000000b,00000000b,\
1494
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1709
                                    00000000b,00000000b,00000000b,00000000b,\
1495
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1710
                                    00000111b,00000111b,00000111b,00000000b,\
1496
                                    0,0,0,0,0,2,2,2,0,0,0,0,0,2,2,2,0,0,0,0,0,2,2,2,0,0,0,0,\
1711
                                    00001101b,10001101b,10001101b,10000000b,\
1497
                                    0,0,0,0,2,2,0,2,2,0,0,0,2,2,0,2,2,0,0,0,2,2,0,2,2,0,0,0,\
1712
                                    00011000b,11011000b,11011000b,11000000b,\
1498
                                    0,0,0,2,2,0,0,0,2,2,0,2,2,0,0,0,2,2,0,2,2,0,0,0,2,2,0,0,\
1713
                                    00000000b,01000000b,01000000b,01000000b,\
1499
                                    0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,2,0,0,\
1714
                                    00011000b,11011000b,11011000b,11000000b,\
Line 1500... Line 1715...
1500
                                    0,0,0,2,2,0,0,0,2,2,0,2,2,0,0,0,2,2,0,2,2,0,0,0,2,2,0,0,\
1715
                                    00001101b,10001101b,10001101b,10000000b,\
1501
                                    0,0,0,0,2,2,0,2,2,0,0,0,2,2,0,2,2,0,0,0,2,2,0,2,2,0,0,0,\
1716
                                    00000111b,00000111b,00000111b,00000000b,\
1502
                                    0,0,0,0,0,2,2,2,0,0,0,0,0,2,2,2,0,0,0,0,0,2,2,2,0,0,0,0,\
1717
                                    00000000b,00000000b,00000000b,00000000b,\
1503
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
1718
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1719
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1720
                                    00000000b,00000000b,00000000b,00000000b
-
 
1721
 
-
 
1722
.snake_dots                 db      3,12, 4,12, 5,12
-
 
1723
.snake_direction            dd      RIGHT
-
 
1724
.snake_direction_next       dd      RIGHT
-
 
1725
.number_of_stones           dd      69
-
 
1726
.name                       dd      stage_11_name
-
 
1727
 
-
 
1728
stage_12:
-
 
1729
.field                      db      00000000b,00011000b,00001110b,00000000b,\
-
 
1730
                                    01101110b,00010000b,00001010b,01010000b,\
-
 
1731
                                    01001011b,11011001b,11000000b,01110000b,\
-
 
1732
                                    01100001b,01000001b,01000000b,00000000b,\
-
 
1733
                                    00000000b,00000000b,00000011b,10000000b,\
-
 
1734
                                    00000000b,00000000b,00000010b,10000000b,\
-
 
1735
                                    01010011b,00001100b,10100110b,00110000b,\
-
 
1736
                                    01110010b,00001000b,11100100b,00010000b,\
-
 
1737
                                    00000011b,00001100b,00000110b,00110000b,\
-
 
1738
                                    00000000b,11100000b,00000000b,00000000b,\
-
 
1739
                                    00010100b,10100000b,00000110b,00000000b,\
-
 
1740
                                    11011100b,00000110b,10100100b,00000000b,\
-
 
1741
                                    01000011b,10000010b,11100110b,10100000b,\
-
 
1742
                                    11000010b,10000110b,00000000b,11100000b
-
 
1743
 
-
 
1744
.snake_dots                 db      27,0, 26,0, 25,0
-
 
1745
.snake_direction            dd      LEFT
-
 
1746
.snake_direction_next       dd      LEFT
-
 
1747
.number_of_stones           dd      110
-
 
1748
.name                       dd      stage_12_name
-
 
1749
 
-
 
1750
stage_13:
-
 
1751
.field                      db      00111000b,00100000b,00000000b,00000000b,\
-
 
1752
                                    01111100b,11110011b,11000011b,10000000b,\
-
 
1753
                                    11111100b,01110011b,10000001b,11000000b,\
-
 
1754
                                    11110000b,00000011b,11000000b,00000000b,\
-
 
1755
                                    00000000b,00000010b,00000000b,00000000b,\
-
 
1756
                                    00000000b,00000010b,00000001b,00000000b,\
-
 
1757
                                    00011110b,00000111b,00000111b,00000000b,\
-
 
1758
                                    00000111b,10001111b,11111110b,00000000b,\
-
 
1759
                                    00000011b,11111111b,11111100b,00000000b,\
-
 
1760
                                    00110001b,11111111b,11111001b,01100000b,\
-
 
1761
                                    00001110b,11101011b,00100111b,10000000b,\
-
 
1762
                                    01111000b,10000011b,10000010b,00000000b,\
-
 
1763
                                    00000011b,11100110b,00011010b,11000000b,\
-
 
1764
                                    00000000b,00000000b,00000000b,00000000b
-
 
1765
 
-
 
1766
.snake_dots                 db      0,5, 0,6, 0,7
-
 
1767
.snake_direction            dd      DOWN
-
 
1768
.snake_direction_next       dd      DOWN
-
 
1769
.number_of_stones           dd      141
-
 
1770
.name                       dd      stage_13_name
-
 
1771
 
-
 
1772
stage_14:
-
 
1773
.field                      db      00000110b,00000000b,00000000b,00000000b,\
-
 
1774
                                    00001000b,00000000b,00011000b,00000000b,\
-
 
1775
                                    00010000b,00000000b,00000100b,00000000b,\
-
 
1776
                                    00100001b,10000000b,11000010b,00000000b,\
-
 
1777
                                    01000010b,01000001b,00100001b,00000000b,\
-
 
1778
                                    10000100b,00000010b,00010000b,10000000b,\
-
 
1779
                                    10001000b,00000100b,00001000b,01000000b,\
-
 
1780
                                    10010000b,00001000b,00000100b,01000000b,\
-
 
1781
                                    01001000b,00010000b,00001000b,10000000b,\
-
 
1782
                                    00100100b,00100000b,00010001b,00000000b,\
-
 
1783
                                    00010010b,01000001b,00100010b,00000000b,\
-
 
1784
                                    00001001b,10000000b,11000100b,00000000b,\
-
 
1785
                                    00000100b,00000000b,00001000b,00000000b,\
-
 
1786
                                    00000000b,00000000b,00110000b,00000000b
-
 
1787
 
-
 
1788
.snake_dots                 db      8,0, 9,0, 10,0
-
 
1789
.snake_direction            dd      RIGHT
-
 
1790
.snake_direction_next       dd      RIGHT
-
 
1791
.number_of_stones           dd      60
-
 
1792
.name                       dd      stage_14_name
-
 
1793
 
-
 
1794
stage_15:
-
 
1795
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1796
                                    00000000b,01110000b,00110000b,00000000b,\
-
 
1797
                                    00000000b,10000000b,00001010b,00000000b,\
-
 
1798
                                    00100001b,00000000b,00110010b,00000000b,\
-
 
1799
                                    00010001b,00111111b,10011100b,00000000b,\
-
 
1800
                                    00001001b,00100000b,11000000b,00000000b,\
-
 
1801
                                    00010000b,00000010b,01000000b,00000000b,\
-
 
1802
                                    00100000b,00000010b,00100001b,10000000b,\
-
 
1803
                                    00010000b,00000010b,00110010b,01000000b,\
-
 
1804
                                    00001000b,01000100b,00011100b,01000000b,\
-
 
1805
                                    00010000b,00111000b,00010000b,01000000b,\
-
 
1806
                                    00100000b,00000000b,00010000b,01000000b,\
-
 
1807
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1808
                                    00000000b,00000000b,00000000b,00000000b
-
 
1809
 
-
 
1810
.snake_dots                 db      13,3, 13,2, 14,2
-
 
1811
.snake_direction            dd      RIGHT
-
 
1812
.snake_direction_next       dd      RIGHT
-
 
1813
.number_of_stones           dd      60
-
 
1814
.name                       dd      stage_15_name
-
 
1815
 
-
 
1816
stage_16:
-
 
1817
.field                      db      00000000b,10000010b,00000000b,00000000b,\
-
 
1818
                                    00000000b,01001010b,10000010b,10100000b,\
-
 
1819
                                    01111111b,11100111b,00000001b,11000000b,\
-
 
1820
                                    00000000b,01000010b,00000000b,10000000b,\
-
 
1821
                                    00000100b,10000000b,01000000b,00000001b,\
-
 
1822
                                    00000100b,00100000b,10000000b,00000010b,\
-
 
1823
                                    11000100b,00010001b,11111000b,00000111b,\
-
 
1824
                                    00010101b,00001000b,10000000b,00000010b,\
-
 
1825
                                    00001110b,00010000b,01000000b,00000001b,\
-
 
1826
                                    00000100b,00100010b,00000000b,10000000b,\
-
 
1827
                                    00000000b,00000010b,00000000b,01000000b,\
-
 
1828
                                    00111111b,11111111b,11111111b,11100000b,\
-
 
1829
                                    00000000b,00000010b,00000000b,01000000b,\
-
 
1830
                                    00000000b,00000010b,00000000b,10000000b
-
 
1831
 
-
 
1832
.snake_dots                 db      11,7, 10,7, 9,7
-
 
1833
.snake_direction            dd      LEFT
-
 
1834
.snake_direction_next       dd      LEFT
-
 
1835
.number_of_stones           dd      96
-
 
1836
.name                       dd      stage_16_name
-
 
1837
 
-
 
1838
stage_17:
-
 
1839
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1840
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1841
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1842
                                    00000111b,10000001b,11100000b,00000000b,\
-
 
1843
                                    00001000b,01000010b,00010000b,00000000b,\
-
 
1844
                                    00010001b,00100100b,01001000b,00000000b,\
-
 
1845
                                    00010001b,00000000b,01001000b,00000000b,\
-
 
1846
                                    00001000b,01000010b,00010000b,00000000b,\
-
 
1847
                                    00000111b,10000001b,11100000b,00000000b,\
-
 
1848
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1849
                                    00000000b,01000000b,00000000b,00000000b,\
-
 
1850
                                    00000000b,00111110b,00000000b,00000000b,\
-
 
1851
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1852
                                    00000000b,00000000b,00000000b,00000000b
-
 
1853
 
-
 
1854
.snake_dots                 db      11,7, 11,8, 12,8
-
 
1855
.snake_direction            dd      RIGHT
-
 
1856
.snake_direction_next       dd      RIGHT
-
 
1857
.number_of_stones           dd      40
-
 
1858
.name                       dd      stage_17_name
-
 
1859
 
-
 
1860
stage_18:
-
 
1861
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1862
                                    01000100b,01000100b,01000100b,01000000b,\
-
 
1863
                                    00101010b,10101010b,10101010b,10100000b,\
-
 
1864
                                    00010001b,00010001b,00010001b,00000000b,\
-
 
1865
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1866
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1867
                                    01000100b,01000100b,01000100b,01000000b,\
-
 
1868
                                    00101010b,10101010b,10101010b,10100000b,\
-
 
1869
                                    00010001b,00010001b,00010001b,00000000b,\
-
 
1870
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1871
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1872
                                    01000100b,01000100b,01000100b,01000000b,\
-
 
1873
                                    00101010b,10101010b,10101010b,10100000b,\
-
 
1874
                                    00010001b,00010001b,00010001b,00000000b
-
 
1875
 
-
 
1876
.snake_dots                 db      2,5, 3,5, 4,5
-
 
1877
.snake_direction            dd      RIGHT
-
 
1878
.snake_direction_next       dd      RIGHT
-
 
1879
.number_of_stones           dd      78
-
 
1880
.name                       dd      stage_18_name
-
 
1881
 
-
 
1882
stage_19:
-
 
1883
.field                      db      01000010b,00100100b,10000101b,00000000b,\
-
 
1884
                                    00010000b,00010000b,00100000b,10000000b,\
-
 
1885
                                    00111001b,00000010b,00010000b,00100000b,\
-
 
1886
                                    01000100b,00001000b,00000010b,00000000b,\
-
 
1887
                                    01010101b,01000000b,01000000b,01000000b,\
-
 
1888
                                    01010100b,00010000b,00001000b,11100000b,\
-
 
1889
                                    00000100b,10001001b,00100001b,00000000b,\
-
 
1890
                                    01111100b,00100000b,00000001b,01010000b,\
-
 
1891
                                    00111001b,00000100b,00010001b,01010000b,\
-
 
1892
                                    00010000b,00000000b,10000001b,00010000b,\
-
 
1893
                                    11010111b,11100000b,00011101b,11110000b,\
-
 
1894
                                    00010000b,01000000b,00100000b,11100000b,\
-
 
1895
                                    00010000b,10000000b,00100000b,01000000b,\
-
 
1896
                                    00000001b,00000000b,00010000b,01000000b
-
 
1897
 
-
 
1898
.snake_dots                 db      27,6, 0,6, 1,6
-
 
1899
.snake_direction            dd      RIGHT
-
 
1900
.snake_direction_next       dd      RIGHT
-
 
1901
.number_of_stones           dd      95
-
 
1902
.name                       dd      stage_19_name
-
 
1903
 
-
 
1904
stage_20:
-
 
1905
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1906
                                    00000000b,00000000b,10001000b,00000000b,\
-
 
1907
                                    00000000b,00011100b,10000100b,00000000b,\
-
 
1908
                                    00000000b,01100100b,10000010b,00000000b,\
-
 
1909
                                    00000011b,10000100b,10000100b,00000000b,\
-
 
1910
                                    00000010b,00000100b,10001000b,00000000b,\
-
 
1911
                                    00000010b,00000100b,10000100b,00000000b,\
-
 
1912
                                    00000010b,00000100b,10000010b,00000000b,\
-
 
1913
                                    00000010b,00111100b,10010010b,00000000b,\
-
 
1914
                                    00011110b,00111100b,10010100b,00000000b,\
-
 
1915
                                    00011110b,00111100b,10001000b,00000000b,\
-
 
1916
                                    00011110b,00000000b,10000000b,00000000b,\
-
 
1917
                                    00000000b,00000000b,10000000b,00000000b,\
-
 
1918
                                    00000000b,00000000b,00000000b,00000000b
-
 
1919
 
-
 
1920
.snake_dots                 db      17,2, 17,3, 17,4
-
 
1921
.snake_direction            dd      DOWN
-
 
1922
.snake_direction_next       dd      DOWN
-
 
1923
.number_of_stones           dd      65
-
 
1924
.name                       dd      stage_20_name
-
 
1925
 
-
 
1926
stage_21:
-
 
1927
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1928
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1929
                                    00000011b,11111111b,11111110b,00000000b,\
-
 
1930
                                    00000001b,01000100b,01000100b,00000000b,\
-
 
1931
                                    00000010b,01000100b,01000100b,00000000b,\
-
 
1932
                                    00001100b,01000100b,01000100b,00000000b,\
-
 
1933
                                    01110000b,01000100b,01000100b,00000000b,\
-
 
1934
                                    01110000b,01000100b,01000100b,00000000b,\
-
 
1935
                                    01110000b,11101110b,11101110b,00000000b,\
-
 
1936
                                    00000000b,11101110b,11101110b,00000000b,\
-
 
1937
                                    00000000b,11101110b,11101110b,00000000b,\
-
 
1938
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1939
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1940
                                    00000000b,00000000b,00000000b,00000000b
-
 
1941
 
-
 
1942
.snake_dots                 db      10,1, 11,1, 12,1
-
 
1943
.snake_direction            dd      RIGHT
-
 
1944
.snake_direction_next       dd      RIGHT
-
 
1945
.number_of_stones           dd      86
-
 
1946
.name                       dd      stage_21_name
-
 
1947
 
-
 
1948
stage_22:
-
 
1949
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1950
                                    00000011b,10000000b,00000000b,00000000b,\
-
 
1951
                                    00000111b,11100000b,00000000b,00000000b,\
-
 
1952
                                    00001111b,11110000b,00000000b,00000000b,\
-
 
1953
                                    00011111b,11100000b,00000000b,00000000b,\
-
 
1954
                                    00011111b,11000011b,00001100b,00110000b,\
-
 
1955
                                    00011111b,10000111b,10011110b,01110000b,\
-
 
1956
                                    00011111b,11000111b,10011110b,01110000b,\
-
 
1957
                                    00011111b,11100011b,00001100b,00110000b,\
-
 
1958
                                    00001111b,11110000b,00000000b,00000000b,\
-
 
1959
                                    00000111b,11100000b,00000000b,00000000b,\
-
 
1960
                                    00000011b,10000000b,00000000b,00000000b,\
-
 
1961
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
1962
                                    00000000b,00000000b,00000000b,00000000b
-
 
1963
 
-
 
1964
.snake_dots                 db      1,7, 1,6, 1,5
-
 
1965
.snake_direction            dd      UP
-
 
1966
.snake_direction_next       dd      UP
-
 
1967
.number_of_stones           dd      104
-
 
1968
.name                       dd      stage_22_name
-
 
1969
 
-
 
1970
stage_23:
-
 
1971
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1972
                                    00100000b,01000101b,00010000b,00100000b,\
-
 
1973
                                    00011010b,00100101b,00100010b,11000000b,\
-
 
1974
                                    00000100b,10101000b,10101001b,00000000b,\
-
 
1975
                                    00000100b,10010010b,01001001b,00000000b,\
-
 
1976
                                    00001011b,00110000b,01100110b,10000000b,\
-
 
1977
                                    00000000b,11001010b,10011000b,00000000b,\
-
 
1978
                                    00000001b,00000111b,00000100b,00000000b,\
-
 
1979
                                    00001110b,01001010b,10010011b,10000000b,\
-
 
1980
                                    00000010b,00110000b,01100010b,00000000b,\
-
 
1981
                                    00000101b,00010010b,01000101b,00000000b,\
-
 
1982
                                    00001001b,00001000b,10000100b,10000000b,\
-
 
1983
                                    00000000b,00001000b,10000000b,00000000b,\
-
 
1984
                                    00000000b,00000000b,00000000b,00000000b
-
 
1985
 
-
 
1986
.snake_dots                 db      15,0, 14,0, 13,0
-
 
1987
.snake_direction            dd      LEFT
-
 
1988
.snake_direction_next       dd      LEFT
-
 
1989
.number_of_stones           dd      85
-
 
1990
.name                       dd      stage_23_name
-
 
1991
 
-
 
1992
stage_24:
-
 
1993
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
1994
                                    00111111b,11111111b,11111111b,10000000b,\
-
 
1995
                                    00100000b,00000000b,00000000b,10000000b,\
-
 
1996
                                    00100011b,11111111b,11111000b,10000000b,\
-
 
1997
                                    00100010b,00000000b,00001000b,10000000b,\
-
 
1998
                                    00100010b,00111111b,10001000b,10000000b,\
-
 
1999
                                    00100010b,00100000b,10001000b,10000000b,\
-
 
2000
                                    00101010b,10101010b,10101010b,10000000b,\
-
 
2001
                                    00001000b,10001110b,00100010b,00000000b,\
-
 
2002
                                    00001000b,10000000b,00100010b,00000000b,\
-
 
2003
                                    00001000b,11111111b,11100010b,00000000b,\
-
 
2004
                                    00001000b,00000000b,00000010b,00000000b,\
-
 
2005
                                    00001111b,11111111b,11111110b,00000000b,\
-
 
2006
                                    00000000b,00000000b,00000000b,00000000b
-
 
2007
 
-
 
2008
.snake_dots                 db      1,0, 0,0, 0,1
-
 
2009
.snake_direction            dd      DOWN
-
 
2010
.snake_direction_next       dd      DOWN
-
 
2011
.number_of_stones           dd      120
-
 
2012
.name                       dd      stage_24_name
-
 
2013
 
-
 
2014
stage_25:
-
 
2015
.field                      db      00000100b,11000000b,00000000b,00000000b,\
-
 
2016
                                    00000011b,10000000b,00110010b,00000000b,\
-
 
2017
                                    10011010b,10000000b,00011100b,00000000b,\
-
 
2018
                                    01110000b,00000000b,00010101b,10010000b,\
-
 
2019
                                    01010000b,00000111b,00000000b,11100000b,\
-
 
2020
                                    00000100b,00000101b,00000000b,10100000b,\
-
 
2021
                                    00000100b,00000100b,00000000b,00000000b,\
-
 
2022
                                    00000011b,11111100b,00011001b,00000000b,\
-
 
2023
                                    00000010b,10010100b,00001110b,00000000b,\
-
 
2024
                                    00000010b,10010100b,00001010b,00000000b,\
-
 
2025
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2026
                                    00000011b,00100001b,10010011b,00100000b,\
-
 
2027
                                    00000001b,11000000b,11100001b,11000000b,\
-
 
2028
                                    00000001b,01000000b,10100001b,01000000b
-
 
2029
 
-
 
2030
.snake_dots                 db      11,2, 12,2, 13,2
-
 
2031
.snake_direction            dd      RIGHT
-
 
2032
.snake_direction_next       dd      RIGHT
-
 
2033
.number_of_stones           dd      88
-
 
2034
.name                       dd      stage_25_name
-
 
2035
 
-
 
2036
stage_26:
-
 
2037
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
2038
                                    00111100b,01001111b,01111010b,01000000b,\
-
 
2039
                                    00100000b,01000001b,00001010b,01000000b,\
-
 
2040
                                    00100100b,01001111b,01111011b,11000000b,\
-
 
2041
                                    00000100b,01001000b,00001000b,01000000b,\
-
 
2042
                                    00111100b,01001111b,01111000b,01000000b,\
-
 
2043
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2044
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2045
                                    00111101b,11101111b,01111011b,11000000b,\
-
 
2046
                                    00100001b,00000001b,00000000b,00000000b,\
-
 
2047
                                    00111101b,11100001b,01111011b,11000000b,\
-
 
2048
                                    00000100b,00000001b,00000000b,01000000b,\
-
 
2049
                                    00111101b,11100001b,01111011b,11000000b,\
-
 
2050
                                    00000000b,00000000b,00000000b,00000000b
-
 
2051
 
-
 
2052
.snake_dots                 db      1,5, 0,5, 0,6
-
 
2053
.snake_direction            dd      DOWN
-
 
2054
.snake_direction_next       dd      DOWN
-
 
2055
.number_of_stones           dd      115
-
 
2056
.name                       dd      stage_26_name
-
 
2057
 
-
 
2058
stage_27:
-
 
2059
.field                      db      00000000b,10000000b,00000000b,01000000b,\
-
 
2060
                                    00000000b,10000000b,01000000b,11100000b,\
-
 
2061
                                    00100011b,11100000b,01000000b,01000000b,\
-
 
2062
                                    01110000b,10000001b,11110000b,00000000b,\
-
 
2063
                                    00100000b,10000000b,01000000b,00000000b,\
-
 
2064
                                    00000000b,00000000b,01000010b,00000000b,\
-
 
2065
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2066
                                    00000010b,00000000b,00000000b,00000000b,\
-
 
2067
                                    00000111b,00000000b,00000000b,10000000b,\
-
 
2068
                                    00000010b,00001000b,00000001b,11000000b,\
-
 
2069
                                    00000000b,00000000b,10000000b,10000000b,\
-
 
2070
                                    00000000b,01000001b,11000000b,00000000b,\
-
 
2071
                                    01000000b,11100000b,10000000b,00000000b,\
-
 
2072
                                    00000000b,01000000b,00000000b,00000000b
-
 
2073
 
-
 
2074
.snake_dots                 db      12,8, 12,7, 12,6
-
 
2075
.snake_direction            dd      UP
-
 
2076
.snake_direction_next       dd      UP
-
 
2077
.number_of_stones           dd      51
-
 
2078
.name                       dd      stage_27_name
-
 
2079
 
-
 
2080
stage_28:
-
 
2081
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
2082
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2083
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2084
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2085
                                    00000100b,00000000b,00000010b,00000000b,\
-
 
2086
                                    00010100b,00000000b,00000010b,10000000b,\
-
 
2087
                                    01010100b,00000000b,00000010b,10100000b,\
-
 
2088
                                    01010101b,11111111b,11111010b,10100000b,\
-
 
2089
                                    01010100b,00000000b,00000010b,10100000b,\
-
 
2090
                                    00010100b,00000000b,00000010b,10000000b,\
-
 
2091
                                    00000100b,00000000b,00000010b,00000000b,\
-
 
2092
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2093
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2094
                                    00000000b,00000000b,00000000b,00000000b
-
 
2095
 
-
 
2096
.snake_dots                 db      13,8, 12,8, 11,8
-
 
2097
.snake_direction            dd      LEFT
-
 
2098
.snake_direction_next       dd      LEFT
-
 
2099
.number_of_stones           dd      44
-
 
2100
.name                       dd      stage_28_name
-
 
2101
 
-
 
2102
stage_29:
-
 
2103
.field                      db      00000000b,01110000b,00000000b,00000000b,\
-
 
2104
                                    00000100b,01000110b,00000001b,10000000b,\
-
 
2105
                                    01001110b,00001100b,01100000b,11000000b,\
-
 
2106
                                    01000000b,00000000b,01100000b,00000000b,\
-
 
2107
                                    01100000b,01111000b,00000001b,10010000b,\
-
 
2108
                                    00000000b,00000010b,10000101b,10110000b,\
-
 
2109
                                    00110000b,00110010b,10001100b,00100000b,\
-
 
2110
                                    00011011b,00110110b,10000100b,00000000b,\
-
 
2111
                                    00000001b,00000000b,10010000b,10000000b,\
-
 
2112
                                    00100001b,00000000b,00111000b,10000000b,\
-
 
2113
                                    00111001b,00110011b,00000011b,10000000b,\
-
 
2114
                                    01111111b,11111111b,00011011b,11010000b,\
-
 
2115
                                    11111111b,11111111b,00011111b,11110000b,\
-
 
2116
                                    11111111b,11111111b,00111111b,11110000b
-
 
2117
 
-
 
2118
.snake_dots                 db      0,0, 1,0, 2,0
-
 
2119
.snake_direction            dd      RIGHT
-
 
2120
.snake_direction_next       dd      RIGHT
-
 
2121
.number_of_stones           dd      151
-
 
2122
.name                       dd      stage_29_name
-
 
2123
 
-
 
2124
stage_30:
-
 
2125
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
2126
                                    00000000b,00000001b,01011100b,00000000b,\
-
 
2127
                                    00000000b,00000001b,11001000b,00000000b,\
-
 
2128
                                    00000100b,00000001b,01001000b,00000000b,\
-
 
2129
                                    00000100b,00000100b,00000000b,00000000b,\
-
 
2130
                                    00000100b,00000100b,00000100b,00000000b,\
-
 
2131
                                    00000100b,00000100b,00000100b,00000000b,\
-
 
2132
                                    00000100b,00000100b,00000100b,00000000b,\
-
 
2133
                                    01111111b,11000100b,11111111b,11100000b,\
-
 
2134
                                    00000100b,00000100b,00000100b,00000000b,\
-
 
2135
                                    00011111b,00111111b,10001110b,00000000b,\
-
 
2136
                                    00000100b,00000100b,00000100b,00000000b,\
-
 
2137
                                    00011111b,00011111b,00011111b,00000000b,\
-
 
2138
                                    11111111b,11111111b,11111111b,11110000b
-
 
2139
 
-
 
2140
.snake_dots                 db      8,2, 9,2, 10,2
-
 
2141
.snake_direction            dd      RIGHT
-
 
2142
.snake_direction_next       dd      RIGHT
-
 
2143
.number_of_stones           dd      109
-
 
2144
.name                       dd      stage_30_name
-
 
2145
 
-
 
2146
stage_31:
-
 
2147
.field                      db      00000101b,00010000b,00000100b,01000000b,\
-
 
2148
                                    01000100b,01010101b,00010100b,01000000b,\
-
 
2149
                                    01000101b,01010101b,01000101b,00010000b,\
-
 
2150
                                    01010000b,00010100b,01000000b,01010000b,\
-
 
2151
                                    00010101b,01000101b,01010100b,01000000b,\
-
 
2152
                                    01000001b,00010000b,01010101b,01000000b,\
-
 
2153
                                    01010101b,00010100b,00000101b,00010000b,\
-
 
2154
                                    00000101b,01010000b,01000101b,01010000b,\
-
 
2155
                                    01010000b,01000100b,00000000b,01010000b,\
-
 
2156
                                    00010101b,00000101b,00010100b,00010000b,\
-
 
2157
                                    01010001b,00010001b,01000001b,01000000b,\
-
 
2158
                                    01000100b,00000101b,01010100b,01010000b,\
-
 
2159
                                    00010001b,01010100b,00010001b,00010000b,\
-
 
2160
                                    00000100b,01000001b,00010001b,00000000b
-
 
2161
 
-
 
2162
.snake_dots                 db      18,8, 17,8, 16,8
-
 
2163
.snake_direction            dd      LEFT
-
 
2164
.snake_direction_next       dd      LEFT
-
 
2165
.number_of_stones           dd      112
-
 
2166
.name                       dd      stage_31_name
-
 
2167
 
-
 
2168
stage_32:
-
 
2169
.field                      db      11111111b,11111111b,11111111b,11110000b,\
-
 
2170
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2171
                                    10010000b,01000001b,00000100b,00010000b,\
-
 
2172
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2173
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2174
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2175
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2176
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2177
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2178
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2179
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2180
                                    10000010b,00001000b,00100000b,10010000b,\
-
 
2181
                                    10010010b,01001001b,00100100b,10010000b,\
-
 
2182
                                    11111111b,11111111b,11111111b,11110000b
-
 
2183
 
-
 
2184
.snake_dots                 db      1,1, 1,2, 1,3
-
 
2185
.snake_direction            dd      DOWN
-
 
2186
.snake_direction_next       dd      DOWN
-
 
2187
.number_of_stones           dd      168
-
 
2188
.name                       dd      stage_32_name
-
 
2189
 
-
 
2190
stage_33:
-
 
2191
.field                      db      00000000b,00000000b,00000000b,00000000b,\
-
 
2192
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2193
                                    01111111b,11001111b,11111111b,11100000b,\
-
 
2194
                                    01000100b,01001000b,01000000b,00100000b,\
-
 
2195
                                    01000100b,01001000b,01000001b,10100000b,\
-
 
2196
                                    01000100b,01001000b,01001101b,10100000b,\
-
 
2197
                                    00000000b,00000000b,00000110b,00000000b,\
-
 
2198
                                    01000100b,01001000b,01000010b,00100000b,\
-
 
2199
                                    01000100b,01001000b,01001111b,00100000b,\
-
 
2200
                                    01000100b,01001000b,01001111b,00100000b,\
-
 
2201
                                    01000100b,01001000b,01000110b,00100000b,\
-
 
2202
                                    01111111b,11001111b,11111111b,11100000b,\
-
 
2203
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2204
                                    00000000b,00000000b,00000000b,00000000b
-
 
2205
 
-
 
2206
.snake_dots                 db      6,6, 7,6, 8,6
-
 
2207
.snake_direction            dd      RIGHT
-
 
2208
.snake_direction_next       dd      RIGHT
-
 
2209
.number_of_stones           dd      109
-
 
2210
.name                       dd      stage_33_name
-
 
2211
 
-
 
2212
stage_34:
-
 
2213
.field                      db      01110000b,00000000b,00000011b,10000000b,\
-
 
2214
                                    00010010b,00010000b,01111100b,00000000b,\
-
 
2215
                                    00011110b,00010000b,00100100b,00000000b,\
-
 
2216
                                    00000100b,00011001b,00100111b,00000000b,\
-
 
2217
                                    00001111b,10001001b,00100000b,00110000b,\
-
 
2218
                                    00000001b,00001011b,00101000b,00100000b,\
-
 
2219
                                    00000001b,00011110b,01111000b,00100000b,\
-
 
2220
                                    00111000b,00000010b,00001100b,10100000b,\
-
 
2221
                                    00001110b,00100010b,00000000b,10100000b,\
-
 
2222
                                    01100011b,11111110b,01000011b,11100000b,\
-
 
2223
                                    00111110b,00100010b,01000000b,10000000b,\
-
 
2224
                                    00000000b,01100011b,11000010b,10000000b,\
-
 
2225
                                    00000000b,01000000b,01100111b,10000000b,\
-
 
2226
                                    00000000b,00000000b,00000010b,00000000b
-
 
2227
 
-
 
2228
.snake_dots                 db      7,0, 8,0, 9,0
-
 
2229
.snake_direction            dd      RIGHT
-
 
2230
.snake_direction_next       dd      RIGHT
-
 
2231
.number_of_stones           dd      113
-
 
2232
.name                       dd      stage_34_name
-
 
2233
 
-
 
2234
stage_35:
-
 
2235
.field                      db      00000100b,00000000b,00001010b,00000000b,\
-
 
2236
                                    00010100b,01000000b,00101010b,00000000b,\
-
 
2237
                                    00010100b,10000010b,00010010b,10000000b,\
-
 
2238
                                    00010001b,00000000b,00010010b,10000000b,\
-
 
2239
                                    00010001b,00000010b,00001010b,10000000b,\
-
 
2240
                                    01010010b,00000010b,00001000b,10100000b,\
-
 
2241
                                    01000100b,00000000b,00001000b,10100000b,\
-
 
2242
                                    01000100b,00000010b,00000100b,10100000b,\
-
 
2243
                                    01001000b,00000010b,00000100b,00100000b,\
-
 
2244
                                    01001000b,00000000b,00000010b,00100000b,\
-
 
2245
                                    00010000b,00000010b,00000010b,00100000b,\
-
 
2246
                                    00110000b,00000010b,00000010b,00100000b,\
-
 
2247
                                    00100000b,00000010b,00000001b,00000000b,\
-
 
2248
                                    00000000b,00000000b,00000000b,00000000b
-
 
2249
 
-
 
2250
.snake_dots                 db      13,11, 13,10, 13,9
-
 
2251
.snake_direction            dd      UP
-
 
2252
.snake_direction_next       dd      UP
-
 
2253
.number_of_stones           dd      66
-
 
2254
.name                       dd      stage_35_name
-
 
2255
 
-
 
2256
stage_36:
-
 
2257
.field                      db      10101110b,10001110b,00110100b,11100000b,\
-
 
2258
                                    11101000b,10001110b,00101010b,10000000b,\
-
 
2259
                                    10101110b,11101000b,00101010b,11100000b,\
-
 
2260
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2261
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2262
                                    00000000b,10110010b,01000100b,00000000b,\
-
 
2263
                                    00000001b,10100101b,01010100b,00000000b,\
-
 
2264
                                    00000001b,10100101b,00101000b,00000000b,\
-
 
2265
                                    00000000b,00000000b,00000000b,00000000b,\
-
 
2266
                                    00010001b,11010101b,11010001b,11000000b,\
-
 
2267
                                    00010001b,11010101b,11010001b,00000000b,\
-
 
2268
                                    00010001b,00010101b,00010000b,10000000b,\
-
 
2269
                                    00011101b,11001001b,11011100b,01000000b,\
-
 
2270
                                    00000000b,00000000b,00000001b,11010000b
-
 
2271
 
-
 
2272
.snake_dots                 db      27,11, 27,10, 27,9
-
 
2273
.snake_direction            dd      UP
-
 
2274
.snake_direction_next       dd      UP
-
 
2275
.number_of_stones           dd      112
-
 
2276
.name                       dd      stage_36_name
-
 
2277
 
-
 
2278
 
-
 
2279
stage_00_name               db      'Classic mode',0
-
 
2280
stage_01_name               db      'Begin',0
-
 
2281
stage_02_name               db      'Frame',0
-
 
2282
stage_03_name               db      'Sight',0
-
 
2283
stage_04_name               db      'Dashed',0
-
 
2284
stage_05_name               db      'Beams',0
-
 
2285
stage_06_name               db      'Pipe',0
-
 
2286
stage_07_name               db      'Labyrinth',0
-
 
2287
stage_08_name               db      'Sea battle',0
Line 1504... Line 2288...
1504
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
2288
stage_09_name               db      'Recursion',0
1505
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\
2289
stage_10_name               db      'Narrow corridors',0
1506
                                    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2290
stage_11_name               db      'CCC',0
1507
 
2291
stage_12_name               db      'Deadlocks',0
-
 
2292
stage_13_name               db      'Boat',0
1508
.snake_dots                 db      3,12, 4,12, 5,12
2293
stage_14_name               db      'Pattern',0
1509
.snake_direction            dd      RIGHT
2294
stage_15_name               db      'Guernica',0
1510
.snake_direction_next       dd      RIGHT
2295
stage_16_name               db      'Goto',0
1511
.number_of_stones           dd      69
2296
stage_17_name               db      'Smiling face',0
1512
 
2297
stage_18_name               db      'Waves',0
Line 1570... Line 2355...
1570
import  libini,\
2355
import  libini,\
1571
    ini.get_str     ,   'ini_get_str'       ,\
2356
    ini.get_str     ,   'ini_get_str'       ,\
1572
    ini.get_int     ,   'ini_get_int'       ,\
2357
    ini.get_int     ,   'ini_get_int'       ,\
1573
    ini.set_str     ,   'ini_set_str'       ,\
2358
    ini.set_str     ,   'ini_set_str'       ,\
1574
    ini.set_int     ,   'ini_set_int'       ,\
2359
    ini.set_int     ,   'ini_set_int'       ,\
1575
    ini.get_color   ,   'ini_get_color'
2360
    ini.get_color   ,   'ini_get_color'     ,\
-
 
2361
    ini.get_shortcut,   'ini_get_shortcut'
Line 1576... Line 2362...
1576
 
2362
 
1577
import  box_lib,\
2363
import  box_lib,\
1578
    edit_box.draw   ,   'edit_box'          ,\
2364
    edit_box.draw   ,   'edit_box'          ,\
1579
    edit_box.key    ,   'edit_box_key'      ,\
2365
    edit_box.key    ,   'edit_box_key'      ,\
Line 1582... Line 2368...
1582
bFirstDraw  db  0
2368
bFirstDraw  db  0
Line 1583... Line 2369...
1583
 
2369
 
1584
aPreferences                db      'Preferences',0
2370
aPreferences                db      'Preferences',0
1585
aSpeed                      db      'Speed',0
2371
aSpeed                      db      'Speed',0
-
 
2372
aTheme                      db      'Theme',0
-
 
2373
aSmart_reverse              db      'Smart_reverse',0
-
 
2374
aShow_lives_style           db      'Show_lives_style',0
-
 
2375
aDraw_level_name_in_window_title db 'Draw_level_name_in_window_title',0
-
 
2376
aSeparating_symbol          db      'Separating_symbol',0
-
 
2377
 
-
 
2378
aShortcuts                  db      'Shortcuts',0
-
 
2379
aMove_left                  db      'Move_left',0
-
 
2380
aMove_down                  db      'Move_down',0
-
 
2381
aMove_up                    db      'Move_up',0
-
 
2382
aMove_right                 db      'Move_right',0
-
 
2383
aReverse                    db      'Reverse',0
-
 
2384
aIncrease                   db      'Increase',0
Line 1586... Line 2385...
1586
aTheme                      db      'Theme',0
2385
aDecrease                   db      'Decrease',0
1587
 
2386
 
1588
aTheme_name                 db      32  dup (0)
2387
aTheme_name                 db      32  dup (0)
1589
aDecorations                db      'Decorations',0
2388
aDecorations                db      'Decorations',0
1590
aBackground_color           db      'Background_color',0
2389
aBackground_color           db      'Background_color',0
1591
aDecorations_color          db      'Decorations_color',0
2390
aDecorations_color          db      'Decorations_color',0
-
 
2391
aSnake_color                db      'Snake_color',0
1592
aSnake_color                db      'Snake_color',0
2392
aSnake_head_color           db      'Snake_head_color',0
1593
aSnake_head_color           db      'Snake_head_color',0
2393
aLives_in_head_number_color db      'Lives_in_head_number_color',0
1594
aSnake_picture_color        db      'Snake_picture_color',0
2394
aSnake_picture_color        db      'Snake_picture_color',0
1595
aVersion_picture_color      db      'Version_picture_color',0
2395
aVersion_picture_color      db      'Version_picture_color',0
1596
aPause_picture_color        db      'Pause_picture_color',0
2396
aPause_picture_color        db      'Pause_picture_color',0
Line 1630... Line 2430...
1630
i_end:
2430
i_end:
1631
hed_end:
2431
hed_end:
1632
rb  256
2432
rb  256
1633
mouse_dd                    rd      1
2433
mouse_dd                    rd      1
Line -... Line 2434...
-
 
2434
 
-
 
2435
window_style                rd      1
1634
 
2436
 
1635
cur_level                   rd      1
2437
cur_level                   rd      1
1636
cur_level_number            rd      1
2438
cur_level_number            rd      1
Line 1637... Line 2439...
1637
hi_level                    rd      1
2439
hi_level                    rd      1
Line 1689... Line 2491...
1689
cur_dir_path                rb      4096
2491
cur_dir_path                rb      4096
1690
@PARAMS                     rb      4096
2492
@PARAMS                     rb      4096
Line 1691... Line 2493...
1691
 
2493
 
Line -... Line 2494...
-
 
2494
field_map                   rb      GRID_WIDTH*GRID_HEIGHT*2
-
 
2495
 
-
 
2496
proc_info                   process_information
-
 
2497
 
-
 
2498
smart_reverse               rd      1
-
 
2499
show_lives_style            rd      1
-
 
2500
draw_level_name_in_window_title rd  1
-
 
2501
separating_symbol           rd      1
-
 
2502
 
-
 
2503
shortcut_move_left          rb      1
-
 
2504
shortcut_move_down          rb      1
-
 
2505
shortcut_move_up            rb      1
-
 
2506
shortcut_move_right         rb      1
-
 
2507
shortcut_reverse            rb      1
-
 
2508
shortcut_increase           rb      1
-
 
2509
shortcut_decrease           rb      1
-
 
2510
 
-
 
2511
square_side_length          rd      1
-
 
2512
 
-
 
2513
gbxm1                       rd      1
-
 
2514
gbym1                       rd      1
1692
field_map                   rb      GRID_WIDTH*GRID_HEIGHT*2
2515
speed_up_counter            rw      1
1693
 
2516
 
1694
rb 4096
2517
rb 4096
1695
stacktop:
2518
stacktop: