WebSVN – Kolibri OS – Diff – /programs/games/soko/trunk/SOKO.ASM

 ; Game uses its own format of levelset files *.LEV
 ;   with simple run-length compression
+; COMPILE WITH FASM
-; COMPILE WITH FASM
+format binary as ""
 include '../../../macros.inc'    ; decrease code size (optional)
 include 'CELLTYPE.INC'  ; object identifiers
 ;include 'debug.inc'
 ;lang equ ru             ; russian interface; english if undefined
 include 'lang.inc'
-CUR_DIR equ '/sys/games/' ; change it to appropriate path
+CUR_DIR equ '/sys/games/'       ; change it to appropriate path
-SKIN_SIZE equ 11520         ; size of skin file (16x240)
+SKIN_SIZE       = 11520         ; size of skin file (16x240)
 ; field dimensions
-FLD_LEFT equ 43
+FLD_LEFT        = 43
-FLD_LEFT2 equ FLD_LEFT shl 16
+FLD_LEFT2       = FLD_LEFT shl 16
-FLD_TOP equ 40
+FLD_TOP         = 40
-FLD_TOP2 equ FLD_TOP shl 16
+FLD_TOP2        = FLD_TOP shl 16
-IMG_SIZE equ 16 shl 16+16
+IMG_SIZE        = 16 shl 16+16
-SHIFT equ (16 shl 16)
+SHIFT           = (16 shl 16)
-WND_COLOR equ 0x03aabbcc
+WND_COLOR       = 0x00aabbcc
 ; level list dimensions
-LEVLIST_XY equ FLD_TOP shl 16+45
+LEVLIST_XY      = FLD_TOP shl 16+45
-LEVLIST_SPACING equ 10
+LEVLIST_SPACING = 10
-LEVWND_X equ 320
+LEVWND_X        = 320
-LEVWND_Y equ 200
+LEVWND_Y        = 200
 ; input line dimensions
-INP_X equ 10 shl 16+300
+INP_X           = 10 shl 16+300
-INP_Y equ 160 shl 16+16
+INP_Y           = 160 shl 16+16
-INP_XY equ 15 shl 16+164
+INP_XY          = 15 shl 16+164
 ; load button dimensions
-LOAD_X equ 130 shl 16+65
+LOAD_X          = 130 shl 16+65
-LOAD_Y equ 180 shl 16+14
+LOAD_Y          = 180 shl 16+14
-LOAD_XY equ 135 shl 16+184
+LOAD_XY         = 135 shl 16+184
-CHOOSE_XY equ 40 shl 16+148
+CHOOSE_XY       = 40 shl 16+148
   dd     0x7fff0
   dd     0x0
   dd     0x0
 START:
-    mov  eax,58         ; load skin image-it is in RAW 16x240 BGR
+    mov  eax,70         ; load skin image-it is in RAW 16x240 BGR
     mov  ebx,file_info  ; IrfanView recommended
     int  0x40
     test ebx,ebx
 ;    jmp load_level
     mov  dword[cnf_level],level_start
     xor  eax,eax
     mov  [levpage],eax
     mov  word[ll_num],'00'   ; reset some counters
   read_cnf:
-    mov  eax,58
+    mov  eax,70
     mov  ebx,file_info
     int  0x40
     test ebx,ebx        ; load standard levels SOKO-?.LEV instead of custom
     jz   nxt_cnf
     add  dword[cnf_level],ebx
     movzx edx,[player]
     inc  ch
     call valid_move
     cmp  byte[winmode],WM_WINNER
     jne  no_winner
-    mov  ecx,0x20ac0000
+    mov  ecx,0x00ac0000
     mov  edx,win_msg
     mov  esi,win_msg_end-win_msg   ; print victory congratulations
   print_msg:
     mov  ebx,WIN_XY
     mov  eax,4
     mov  eax,0
     mov  ebx,150*65536
     add  ebx,[wnd_width]
     mov  ecx,50*65536
     add  ecx,[wnd_height]
-    mov  edx,WND_COLOR
+    mov  edx,0x13000000 + WND_COLOR
-    mov  esi,0x805080d0
-    mov  edi,0x005080d0
+    mov  esi,0x005080d0
-    int  0x40
-    mov  eax,4
-    mov  ebx,8*65536+8
-    mov  ecx,0x10ddeeff
-    mov  edx,zagolovok
+    mov  edi,zagolovok
-    mov  esi,zag_konets-zagolovok
     int  0x40
     cmp  byte[workmode],WM_READSET
     mov  edx,3
     mov  esi,WND_COLOR
     int  0x40
     mov  eax,4
-    mov  ecx,0x20107a30
+    mov  ecx,0x00107a30
     mov  ebx,LOAD_XY
     mov  edx,load_char
     mov  esi,loadlen-load_char
     int  0x40
     mov  ebx,LEVLIST_XY
-    mov  edi,0x204e00e7
+    mov  edi,0x004e00e7
     xor  esi,esi
     mov  ecx,10
   ll_cycle:
     je   no_cl_destroy
     cmp  al,tHole
     je   no_cl_destroy
     cmp  al,tPlayer
     jne  cl_exit
-    mov  ecx,0x20ac0000
+    mov  ecx,0x00ac0000
     mov  edx,lose_msg
     mov  esi,lose_msg_end-lose_msg  ; print loose message
     mov  byte[winmode],WM_LOSE
     mov  ebx,WIN_XY
     mov  eax,4
 else
      db "You're paralized! Game over..."
 end if
 lose_msg_end:
-zagolovok:               ; áâà®ª  § £®«®¢ª
-if lang eq ru
-     db   ' '
-else
+zagolovok:
-     db   'SOKOBAN FOR'
+     db   'Sokoban', 0
-end if
-     db   ' MENUET'
 zag_konets:              ; ¨ ¥ñ ª®¥æ
 pic_map:
     db 0xf,9,0,0,1,1,5,6
 inp_pos    dd inp_end-fn_input
 entered    dd 0
 file_info:
-           dd 0
+           dd 0                 ; subfunction - read
-           dd 0
+           dd 0, 0              ; file offset
-           dd 0x100
-cnf_level  dd strip
+           dd 0x20000           ; number of bytes to read
-           dd workarea
+cnf_level  dd strip             ; data buffer
-file_name  db CUR_DIR
+file_name  db CUR_DIR           ; Filename
 path_end   db 'SKIN.'
-wnd_width dd ?
+wnd_width       dd ?
-color  db ?
+color           db ?
-colcount db ?
+colcount        db ?
-levelcount dd ?
+levelcount      dd ?
-checkcount db ?
+checkcount      db ?
-checkpoint:
+checkpoint      rw 256
-    times 256 dw ?
-levelmap:
-    times 1024 dd ?
+levelmap        rd 1024
-strip rb SKIN_SIZE
+strip           rb SKIN_SIZE
 workarea:

Subversion Repositories Kolibri OS

(root)/programs/games/soko/trunk/SOKO.ASM @ 7134 – Rev 1935 → 6184