WebSVN – Kolibri OS – Diff – /programs/games/Dungeons/Dungeons.asm


;    Copyright (C) 2014 Anton_K
;
;    This program is free software: you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation, either version 2 of the License, or
;    (at your option) any later version.
;
;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;    GNU General Public License for more details.
;
;    You should have received a copy of the GNU General Public License
;    along with this program. If not, see .
 
format binary as 'kex'
 
__DEBUG__       = 1             ; 0 - disable debug output / 1 - enable debug output
__DEBUG_LEVEL__ = DEBUG_FINE    ; DEBUG_FINE - all debug messages / DEBUG_INFO - info and errors / DEBUG_ERR - only errors
 
DEBUG_FINE      = 0
DEBUG_INFO      = 1
DEBUG_ERR       = 2
 
include '../../macros.inc'
purge   mov, add, sub
 
; ================================= Header =================================== ;
MEOS_APP_START
store dword StartupPath at $ - 4
 
; ================================ Includes ================================== ;
include '../../debug-fdo.inc'
include '../../proc32.inc'
include '../../dll.inc'
 
include 'AKODE/AKODE.inc'
include 'datadef.inc'
 
; =============================== Entry point ================================ ;
CODE
        DEBUGF  DEBUG_INFO, 'Started\n'
 
        mcall   68, 11                          ; initialize heap
        test    eax, eax
        jz      .exit_fail_heap_init
 
        stdcall dll.Load, @IMPORT               ; load libraries
        test    eax, eax
        jnz     .exit_fail_load_libs
 
        mcall   40, MAIN_EVENT_MASK             ; used events
        mcall   66, 1, 1                        ; use scancodes
 
        stdcall draw_window
 
        mcall   9, ThreadInfoBuffer, -1         ; get real window size
        mov     eax, [ebx + process_information.client_box.width]
        inc     eax
        mov     [MainWindowWidth], eax
        mov     edx, [ebx + process_information.client_box.height]
        inc     edx
        mov     [MainWindowHeight], edx
        DEBUGF  DEBUG_FINE, 'Window width: %u\nWindow height: %u\n', eax, edx
 
        mov     ecx, eax
        shl     ecx, 2
        imul    ecx, edx                        ; ecx = width * 4 * height
 
        sub     edx, HUD_PANEL_HEIGHT
        mov     [WorldViewHeight], edx
 
if FSAA
        shl     eax, FSAA
        shl     edx, FSAA
end if
 
        stdcall akode.init, eax, edx, FIELD_OF_VIEW, BLOCK_BASE_SIZE, BLOCK_HEIGHT
        test    eax, eax
        jz      .exit_fail_akode_init
 
        stdcall akode.set_movement_speed, MOVEMENT_SPEED, 90
 
        mcall   68, 12                          ; alloc ecx bytes for image buffer
        test    eax, eax
        jz      .exit_fail_alloc
 
        mov     [ImageBufferPtr], eax
        push    eax
 
        stdcall set_startup_path
 
        stdcall load_hud_images
        test    eax, eax
        jnz     @f
        DEBUGF  DEBUG_ERR, 'Failed to load HUD images\n'
        jmp     .exit_fail_load_hud
 
@@:
        cld
        xor     eax, eax
        mov     edi, PressedKeys
        mov     ecx, 128 * 2
        rep     stosd
 
        mov     edi, Inventory
        mov     ecx, INVENTORY_SIZE * 2
        rep     stosd
 
        stdcall akode.set_callbacks, level_load_callback, action_callback
 
        stdcall akode.load_level, levels.level1
 
if FULLSCREEN
        stdcall hide_cursor
        push    eax
end if
 
        stdcall main_loop
 
if FULLSCREEN
        pop     ecx
        test    ecx, ecx
        jz      @f
        mcall   37, 6                           ; delete cursor
@@:
end if
 
.exit_fail_load_hud:
        stdcall free_hud_images
 
        pop     ecx
        mcall   68, 13                          ; free image buffer
 
        jmp     .exit
 
.exit_fail_heap_init:
        DEBUGF  DEBUG_ERR, 'Heap initialization failed\n'
        jmp     .exit
 
.exit_fail_load_libs:
        DEBUGF  DEBUG_ERR, 'Failed to load libraries\n'
        jmp     .exit
 
.exit_fail_akode_init:
        DEBUGF  DEBUG_ERR, 'AKODE initialization failed\n'
        jmp     .exit
 
.exit_fail_alloc:
        DEBUGF  DEBUG_ERR, 'Memory allocation for image buffer failed\n'
        ;jmp     .exit
 
.exit:
        stdcall akode.cleanup
        DEBUGF  DEBUG_INFO, 'Exiting\n'
 
        xor     eax, eax
        dec     eax
        mcall                                   ; kill this thread
 
; ============================================================================ ;
proc set_startup_path
        cld
        mov     esi, StartupPath
        mov     ecx, esi
 
@@:
        lodsb
        test    al, al
        jnz     @b
 
        sub     esi, 2
        std
 
@@:
        lodsb
        cmp     al, '/'
        jne     @b
 
        mov     [esi + 1], byte 0
 
        mcall   30, 1                           ; set current directory
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
; < eax = 0 - fail                                                             ;
; ============================================================================ ;
proc load_hud_images
        mov     ebx, [MainWindowWidth]
        mov     ecx, [MainWindowHeight]
        xor     edx, edx
 
        stdcall akode.load_and_scale_image, LevelLoadingImageFile, ebx, ecx, edx
        test    eax, eax
        jz      .exit
 
        mov     [LevelLoadingImagePtr], eax
 
        stdcall akode.load_and_scale_image, DeathImageFile, ebx, ecx, edx
        test    eax, eax
        jz      .exit
 
        mov     [DeathImagePtr], eax
 
        stdcall akode.load_and_scale_image, EndImageFile, ebx, ecx, edx
        test    eax, eax
        jz      .exit
 
        mov     [EndImagePtr], eax
 
        stdcall akode.load_and_scale_image, HudPanelImageFile, ebx, HUD_PANEL_HEIGHT, edx
        test    eax, eax
        jz      .exit
 
        mov     [HudPanelImagePtr], eax
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc free_hud_images
        xor     edx, edx
        mov     ebx, 13
 
        mov     ecx, [LevelLoadingImagePtr]
        test    ecx, ecx
        jz      @f
        mcall   68                              ; free
        mov     [LevelLoadingImagePtr], edx
@@:
        mov     ecx, [HudPanelImagePtr]
        test    ecx, ecx
        jz      @f
        mcall   68
        mov     [HudPanelImagePtr], edx
@@:
        mov     ecx, [DeathImagePtr]
        test    ecx, ecx
        jz      @f
        mcall   68
        mov     [DeathImagePtr], edx
@@:
        mov     ecx, [EndImagePtr]
        test    ecx, ecx
        jz      @f
        mcall   68
        mov     [EndImagePtr], edx
@@:
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
; < eax = cursor handle / 0 - fail                                             ;
; ============================================================================ ;
proc hide_cursor
        mcall   68, 12, 32 * 32 * 4
        test    eax, eax
        jz      .exit
 
        mov     edi, eax
        xor     ebx, ebx
        shr     ecx, 2
@@:     mov     [eax], ebx
        add     eax, 4
        loop    @b
 
        mcall   37, 4, edi, 2                   ; load cursor
        mov     ecx, eax
        inc     ebx
        mcall   37                              ; set cursor
 
        xchg    edi, ecx
 
        mcall   68, 13
 
        mov     eax, edi
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc draw_image uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height
        mov     ebx, [image_ptr]
        mpack   ecx, [width], [height]
        mpack   edx, [x], [y]
        mov     esi, 32
        xor     edi, edi
        xchg    edi, ebp
        mcall   65
        mov     ebp, edi
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc draw_image_to_buffer uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height
        cld
        mov     esi, [image_ptr]
        mov     edi, [ImageBufferPtr]
        mov     ebx, [MainWindowWidth]
        mov     eax, [y]
        mul     ebx
        add     eax, [x]
        lea     edi, [edi + eax * 4]
 
        sub     ebx, [width]
        shl     ebx, 2
        mov     edx, [height]
 
@@:
        mov     ecx, [width]
        rep     movsd
        add     edi, ebx
 
        sub     edx, 1
        jnz     @b
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc draw_image_with_transparency_to_buffer uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height
        mov     esi, [image_ptr]
        mov     edi, [ImageBufferPtr]
        mov     ebx, [MainWindowWidth]
        mov     eax, [y]
        mul     ebx
        add     eax, [x]
        lea     edi, [edi + eax * 4]
 
        sub     ebx, [width]
        shl     ebx, 2
        mov     edx, [height]
 
.y_draw_loop:
        mov     ecx, [width]
 
.x_draw_loop:
        mov     eax, [esi]
        cmp     eax, 0FF00FFh
        je      @f
        mov     [edi], eax
@@:
        add     esi, 4
        add     edi, 4
 
        sub     ecx, 1
        jnz     .x_draw_loop
 
        add     edi, ebx
 
        sub     edx, 1
        jnz     .y_draw_loop
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc draw_window
        mcall   12, 1                           ; start drawing
 
if FULLSCREEN
        mov     ebx, 0FFFFh
        mov     ecx, 0FFFFh
else
        mcall   48, 4                           ; eax - skin height
 
        mpack   ebx, MAIN_WINDOW_X, MAIN_WINDOW_WIDTH + 9
        mpack   ecx, MAIN_WINDOW_Y, MAIN_WINDOW_HEIGHT + 4
        add     ecx, eax
end if
        mov     edx, MAIN_WINDOW_STYLE
        mov     esi, MAIN_WINDOW_STYLE2
        mov     edi, MAIN_WINDOW_TITLE
        xor     eax, eax
        mcall                                   ; draw window
 
        mcall   12, 2                           ; end drawing
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc draw_world
        mov     ebx, [ImageBufferPtr]
        ;test    ebx, ebx
        ;jz      @f
 
        stdcall akode.render
        stdcall akode.get_image, ebx, FSAA
 
        mpack   ecx, [MainWindowWidth], [WorldViewHeight]
        xor     edx, edx
        mov     esi, 32
        xor     edi, edi
        xchg    edi, ebp
        mcall   65
        mov     ebp, edi
 
;@@:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc draw_hud
        mov     eax, [HudPanelNeedsRedraw]
        test    eax, eax
        jz      .exit
 
        xor     eax, eax
        mov     [HudPanelNeedsRedraw], eax
 
        stdcall draw_image_to_buffer, [HudPanelImagePtr], eax, [WorldViewHeight], [MainWindowWidth], HUD_PANEL_HEIGHT
 
        mov     esi, Inventory + 4
        mov     ebx, INVENTORY_Y
        add     ebx, [WorldViewHeight]
        mov     edx, 2
 
.y_inventory_loop:
        mov     eax, INVENTORY_X
        mov     ecx, INVENTORY_SIZE / 2
 
.x_inventory_loop:
        mov     edi, [esi]
        add     esi, 8
        test    edi, edi
        jz      @f
        stdcall draw_image_with_transparency_to_buffer, edi, eax, ebx, OBJECT_IMAGE_WIDTH, OBJECT_IMAGE_HEIGHT
 
@@:
        add     eax, OBJECT_IMAGE_WIDTH + INVENTORY_PADDING_X
 
        sub     ecx, 1
        jnz     .x_inventory_loop
 
        add     ebx, OBJECT_IMAGE_HEIGHT + INVENTORY_PADDING_Y
 
        sub     edx, 1
        jnz     .y_inventory_loop
 
        mpack   ecx, [MainWindowWidth], HUD_PANEL_HEIGHT
        mov     edx, [WorldViewHeight]
        mov     ebx, [ImageBufferPtr]
        mov     eax, [MainWindowWidth]
        imul    eax, edx
        lea     ebx, [ebx + eax * 4]
        mov     esi, 32
        xor     edi, edi
        xchg    edi, ebp
        mcall   65
        mov     ebp, edi
 
        jmp     draw_game_message
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc draw_game_message
        mov     esi, [GameMessage]
        test    esi, esi
        jz      .exit
 
        mpack   ebx, GAME_MESSAGE_X, GAME_MESSAGE_Y
        add     ebx, [WorldViewHeight]
        mov     ecx, GAME_MESSAGE_COLOR or (80h shl 24)
 
.draw_strings_loop:
        mov     edx, esi
 
@@:
        mov     al, [esi]
        add     esi, 1
 
        test    al, al
        jz      .draw_last_string
        cmp     al, 0Ah
        jne     @b
 
        mov     [esi - 1], byte 0
 
        mcall   4
 
        mov     [esi - 1], byte 0Ah
        add     ebx, 10
        jmp     .draw_strings_loop
 
.draw_last_string:
        mcall   4
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc main_loop
        locals
                frame_count     dd 0
                last_timestamp  dd 0
        endl
 
.main_loop:
        mcall   26, 9                           ; get timestamp
        mov     ebx, eax
        sub     ebx, [last_timestamp]
        cmp     ebx, 100
        jb      @f
 
        mov     [last_timestamp], eax
        imul    eax, [frame_count], 100
        xor     edx, edx
        mov     [frame_count], edx
        div     ebx                             ; eax - fps
 
        DEBUGF  DEBUG_FINE, 'FPS: %u\n', eax
 
@@:
        mcall   11                              ; check events
 
        test    eax, eax
        jz      .idle
 
        dec     eax
        jz      .redraw
 
        dec     eax
        jz      .key
 
        dec     eax
        jz      .button
 
        sub     eax, 3
        jz      .mouse
 
        jmp     .idle
 
.redraw:
        stdcall draw_window
        mov     [HudPanelNeedsRedraw], 1
 
.idle:
        mov     eax, [GameStatus]
        test    eax, eax
        jnz     @f
 
        stdcall akode.process
 
        mov     eax, [GameStatus]
        test    eax, eax
        jnz     @f
 
        stdcall draw_hud
        stdcall draw_world
 
        add     [frame_count], 1
        jmp     .main_loop
 
@@:     cmp     eax, GAME_STATUS.LEVEL_LOAD_FAILED
        jne     @f
        jmp     .exit
 
@@:     cmp     eax, GAME_STATUS.DEAD
        jne     @f
        stdcall draw_image, [DeathImagePtr], 0, 0, [MainWindowWidth], [MainWindowHeight]
        jmp     .main_loop
 
@@:     cmp     eax, GAME_STATUS.END
        jne     @f
        stdcall draw_image, [EndImagePtr], 0, 0, [MainWindowWidth], [MainWindowHeight]
@@:
        jmp     .main_loop
 
.key:
        stdcall get_key
        test    eax, eax
        jz      .idle
 
        cmp     eax, 001h                       ; Esc
        je      .exit
 
        cmp     eax, 039h                       ; Space
        je      .space_pressed
        cmp     eax, 002h                       ; 1
        jb      @f
        cmp     eax, 00Bh                       ; 0
        ja      @f
 
        ; 0..9 pressed
        sub     eax, 002h
        mov     eax, dword [Inventory + eax * 8]
        test    eax, eax
        jz      @f
        shl     eax, 16
        push    eax
 
        stdcall check_key, 02Ah                 ; left Shift
        test    eax, eax
        jnz     .shift_pressed
 
        stdcall check_key, 036h                 ; right Shift
        test    eax, eax
        jnz     .shift_pressed
 
        pop     eax
        or      eax, ACTION.USE_OBJECT
        stdcall akode.action, eax
        jmp     @f
 
.shift_pressed:
        pop     eax
        or      eax, ACTION.LOOK_AT_OBJECT
        stdcall akode.action, eax
        jmp     @f
 
.space_pressed:
        stdcall check_key, 02Ah                 ; left Shift
        test    eax, eax
        jnz     .shift_pressed2
 
        stdcall check_key, 036h                 ; right Shift
        test    eax, eax
        jnz     .shift_pressed2
 
        stdcall akode.action, ACTION.DO_SOMETHING
        jmp     @f
 
.shift_pressed2:
        stdcall akode.action, ACTION.LOOK_AROUND
 
@@:
        xor     esi, esi
        dec     esi
 
        stdcall check_key, 0E048h               ; ^
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.NORTH
        jmp     .set_moving_direction
 
@@:     stdcall check_key, 0E050h               ; v
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.SOUTH
        jmp     .set_moving_direction
 
@@:     stdcall check_key, 011h                 ; W
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.NORTH
        jmp     .set_moving_direction
 
@@:     stdcall check_key, 01Fh                 ; S
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.SOUTH
        ;jmp     .set_moving_direction
 
@@:
 
.set_moving_direction:
        test    esi, esi
        js      @f
        stdcall akode.start_moving, esi
        jmp     .turn
 
@@:
        stdcall akode.stop_moving
 
.turn:
        xor     esi, esi
        dec     esi
 
        stdcall check_key, 0E04Bh               ; <-
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.WEST
        jmp     .set_turning_direction
 
@@:     stdcall check_key, 0E04Dh               ; ->
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.EAST
        jmp     .set_turning_direction
 
@@:     stdcall check_key, 01Eh                 ; A
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.WEST
        jmp     .set_turning_direction
 
@@:     stdcall check_key, 020h                 ; D
        test    eax, eax
        jz      @f
        mov     esi, AKODE_DIRECTION.EAST
        ;jmp     .set_turning_direction
 
@@:
 
.set_turning_direction:
        test    esi, esi
        js      @f
        stdcall akode.start_turning, esi
        jmp     .key
 
@@:
        stdcall akode.stop_turning
        jmp     .key
 
.mouse:
 
        jmp     .idle
 
.button:
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
; < eax = key scancode (1 byte)                                                ;
; ============================================================================ ;
macro wait_for_scancode
{
        local   .wait
 
.wait:
        mcall   2
        test    al, al
        jnz     .wait
 
        shr     eax, 8
}
 
; ============================================================================ ;
; < eax = key scancode / 0 - no keys                                           ;
; ============================================================================ ;
proc get_key
        mcall   2                               ; get key scancode
 
        test    al, al
        jz      @f
        xor     eax, eax
        jmp     .exit
 
@@:
        shr     eax, 8
 
        cmp     eax, 0E1h
        jne     @f
 
        wait_for_scancode
        wait_for_scancode
 
        xor     eax, eax
        jmp     .exit
 
@@:
        xor     ebx, ebx
        mov     ecx, eax
 
        cmp     eax, 0E0h
        jne     @f
 
 
        wait_for_scancode
 
        mov     ecx, eax
        or      eax, 0E000h
        mov     ebx, 128
 
@@:
        test    ecx, 80h
        jnz     .key_up
 
        ; key down
        add     ebx, ecx
        lea     ebx, [PressedKeys + ebx * 4]
 
        mov     edx, [ebx]
        test    edx, edx
        jz      @f
 
        xor     eax, eax
        jmp     .exit
 
@@:
        inc     edx
        mov     [ebx], edx
        jmp     .exit
 
.key_up:
        and     ecx, 7Fh
        add     ebx, ecx
        xor     edx, edx
        mov     [PressedKeys + ebx * 4], edx
 
.exit:
        ;DEBUGF  DEBUG_FINE, 'get_key: %x\n', eax:4
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
; < eax = 1 - key pressed / 0 - not pressed                                    ;
; ============================================================================ ;
proc check_key scancode
        mov     eax, [scancode]
        mov     ecx, eax
        shr     eax, 8
        and     ecx, 7Fh
        xor     ebx, ebx
 
        cmp     eax, 0E0h
        jne     @f
        mov     ebx, 128
 
@@:
        add     ebx, ecx
        mov     eax, [PressedKeys + ebx * 4]
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc level_load_callback uses eax ebx ecx, load_action, action_result
        mov     eax, [load_action]
        mov     ebx, [action_result]
        xor     ecx, ecx
 
        cmp     eax, AKODE_LEVEL_LOAD.START
        jne     @f
        stdcall draw_image, [LevelLoadingImagePtr], ecx, ecx, [MainWindowWidth], [MainWindowHeight]
 
        cmp     ebx, -1
        je      .level_load_failed
 
        mov     [GameMessage], ebx
        inc     ecx
        mov     [HudPanelNeedsRedraw], ecx
        jmp     .exit
 
@@:     cmp     eax, AKODE_LEVEL_LOAD.END
        jne     @f
        DEBUGF  DEBUG_INFO, 'Level load result: %u\n', ebx
 
        test    ebx, ebx
        jnz     .exit
 
.level_load_failed:
        DEBUGF  DEBUG_ERR, 'Failed to load level\n'
        mov     [GameStatus], GAME_STATUS.LEVEL_LOAD_FAILED
        ;jmp     .exit
 
@@:
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc action_callback action, cell_x, cell_y, action_result
        m2m     [GameMessage], [action_result]
        mov     [HudPanelNeedsRedraw], 1
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc add_object_to_inventory uses eax ecx edi, object_id, object_image_ptr
        mov     edi, Inventory
        mov     ecx, INVENTORY_SIZE
 
.inventory_loop:
        mov     eax, [edi]
        test    eax, eax
        jnz     @f
 
        mov     eax, [object_id]
        mov     [edi], eax
        mov     eax, [object_image_ptr]
        mov     [edi + 4], eax
        mov     [HudPanelNeedsRedraw], ecx
        jmp     .exit
 
@@:
        add     edi, 8
 
        sub     ecx, 1
        jnz     .inventory_loop
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc remove_object_from_inventory uses eax ecx esi, object_id
        mov     eax, [object_id]
        mov     esi, Inventory
        mov     ecx, INVENTORY_SIZE
 
.inventory_loop:
        cmp     [esi], eax
        jne     @f
 
        xor     eax, eax
        mov     [esi], eax
        mov     [esi + 4], eax
        mov     [HudPanelNeedsRedraw], ecx
        jmp     .exit
 
@@:
        add     esi, 8
 
        sub     ecx, 1
        jnz     .inventory_loop
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
; < eax = pointer to image data / 0 - fail                                     ;
; ============================================================================ ;
proc load_object_image image_path_ptr
        stdcall akode.load_and_scale_image, [image_path_ptr], OBJECT_IMAGE_WIDTH, OBJECT_IMAGE_HEIGHT, 0
 
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc free_object_image uses eax ebx ecx, image_ptr
        mov     ecx, [image_ptr]
        test    ecx, ecx
        jz      .exit
 
        mcall   68, 13
 
.exit:
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc player_death
        mov     [GameStatus], GAME_STATUS.DEAD
        ret
endp
; ============================================================================ ;
 
; ============================================================================ ;
proc game_over
        mov     [GameStatus], GAME_STATUS.END
        ret
endp
; ============================================================================ ;
 
; ============================ Initialized data ============================== ;
DATA
        include 'data.inc'
 
        ; for debug-fdo
        include_debug_strings
 
        align 4
        @IMPORT:
        include 'import.inc'
 
; =========================== Uninitialized data ============================= ;
UDATA
        include 'udata.inc'
 
; ================================= The End ================================== ;
MEOS_APP_END
>

Rev 5480	Rev 5492
1	; Copyright (C) 2014 Anton_K	1	; Copyright (C) 2014 Anton_K
2	;	2	;
3	; This program is free software: you can redistribute it and/or modify	3	; This program is free software: you can redistribute it and/or modify
4	; it under the terms of the GNU General Public License as published by	4	; it under the terms of the GNU General Public License as published by
5	; the Free Software Foundation, either version 2 of the License, or	5	; the Free Software Foundation, either version 2 of the License, or
6	; (at your option) any later version.	6	; (at your option) any later version.
7	;	7	;
8	; This program is distributed in the hope that it will be useful,	8	; This program is distributed in the hope that it will be useful,
9	; but WITHOUT ANY WARRANTY; without even the implied warranty of	9	; but WITHOUT ANY WARRANTY; without even the implied warranty of
10	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	10	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11	; GNU General Public License for more details.	11	; GNU General Public License for more details.
12	;	12	;
13	; You should have received a copy of the GNU General Public License	13	; You should have received a copy of the GNU General Public License
14	; along with this program. If not, see .	14	; along with this program. If not, see .
15		15
16	format binary as 'kex'	16	format binary as 'kex'
17		17
18	__DEBUG__ = 1 ; 0 - disable debug output / 1 - enable debug output	18	__DEBUG__ = 1 ; 0 - disable debug output / 1 - enable debug output
19	__DEBUG_LEVEL__ = DEBUG_FINE ; DEBUG_FINE - all debug messages / DEBUG_INFO - info and errors / DEBUG_ERR - only errors	19	__DEBUG_LEVEL__ = DEBUG_FINE ; DEBUG_FINE - all debug messages / DEBUG_INFO - info and errors / DEBUG_ERR - only errors
20		20
21	DEBUG_FINE = 0	21	DEBUG_FINE = 0
22	DEBUG_INFO = 1	22	DEBUG_INFO = 1
23	DEBUG_ERR = 2	23	DEBUG_ERR = 2
24		24
25	include '../../macros.inc'	25	include '../../macros.inc'
26	purge mov, add, sub	26	purge mov, add, sub
27		27
28	; ================================= Header =================================== ;	28	; ================================= Header =================================== ;
29	MEOS_APP_START	29	MEOS_APP_START
30	store dword StartupPath at $ - 4	30	store dword StartupPath at $ - 4
31		31
32	; ================================ Includes ================================== ;	32	; ================================ Includes ================================== ;
33	include '../../debug-fdo.inc'	33	include '../../debug-fdo.inc'
34	include '../../proc32.inc'	34	include '../../proc32.inc'
35	include '../../dll.inc'	35	include '../../dll.inc'
36		36
37	include 'AKODE/AKODE.inc'	37	include 'AKODE/AKODE.inc'
38	include 'datadef.inc'	38	include 'datadef.inc'
39		39
40	; =============================== Entry point ================================ ;	40	; =============================== Entry point ================================ ;
41	CODE	41	CODE
42	DEBUGF DEBUG_INFO, 'Started\n'	42	DEBUGF DEBUG_INFO, 'Started\n'
43		43
44	mcall 68, 11 ; initialize heap	44	mcall 68, 11 ; initialize heap
45	test eax, eax	45	test eax, eax
46	jz .exit_fail_heap_init	46	jz .exit_fail_heap_init
47		47
48	stdcall dll.Load, @IMPORT ; load libraries	48	stdcall dll.Load, @IMPORT ; load libraries
49	test eax, eax	49	test eax, eax
50	jnz .exit_fail_load_libs	50	jnz .exit_fail_load_libs
51		51
52	mcall 40, MAIN_EVENT_MASK ; used events	52	mcall 40, MAIN_EVENT_MASK ; used events
53	mcall 66, 1, 1 ; use scancodes	53	mcall 66, 1, 1 ; use scancodes
54		54
55	stdcall draw_window	55	stdcall draw_window
56		56
57	mcall 9, ThreadInfoBuffer, -1 ; get real window size	57	mcall 9, ThreadInfoBuffer, -1 ; get real window size
58	mov eax, [ebx + process_information.client_box.width]	58	mov eax, [ebx + process_information.client_box.width]
59	inc eax	59	inc eax
60	mov [MainWindowWidth], eax	60	mov [MainWindowWidth], eax
61	mov edx, [ebx + process_information.client_box.height]	61	mov edx, [ebx + process_information.client_box.height]
62	inc edx	62	inc edx
63	mov [MainWindowHeight], edx	63	mov [MainWindowHeight], edx
64	DEBUGF DEBUG_FINE, 'Window width: %u\nWindow height: %u\n', eax, edx	64	DEBUGF DEBUG_FINE, 'Window width: %u\nWindow height: %u\n', eax, edx
65		65
66	mov ecx, eax	66	mov ecx, eax
67	shl ecx, 2	67	shl ecx, 2
68	imul ecx, edx ; ecx = width * 4 * height	68	imul ecx, edx ; ecx = width * 4 * height
69		69
70	sub edx, HUD_PANEL_HEIGHT	70	sub edx, HUD_PANEL_HEIGHT
71	mov [WorldViewHeight], edx	71	mov [WorldViewHeight], edx
72		72
73	if FSAA	73	if FSAA
74	shl eax, FSAA	74	shl eax, FSAA
75	shl edx, FSAA	75	shl edx, FSAA
76	end if	76	end if
77		77
78	stdcall akode.init, eax, edx, FIELD_OF_VIEW, BLOCK_BASE_SIZE, BLOCK_HEIGHT	78	stdcall akode.init, eax, edx, FIELD_OF_VIEW, BLOCK_BASE_SIZE, BLOCK_HEIGHT
79	test eax, eax	79	test eax, eax
80	jz .exit_fail_akode_init	80	jz .exit_fail_akode_init
81		81
82	stdcall akode.set_movement_speed, MOVEMENT_SPEED, 90	82	stdcall akode.set_movement_speed, MOVEMENT_SPEED, 90
83		83
84	mcall 68, 12 ; alloc ecx bytes for image buffer	84	mcall 68, 12 ; alloc ecx bytes for image buffer
85	test eax, eax	85	test eax, eax
86	jz .exit_fail_alloc	86	jz .exit_fail_alloc
87		87
88	mov [ImageBufferPtr], eax	88	mov [ImageBufferPtr], eax
89	push eax	89	push eax
90		90
91	stdcall set_startup_path	91	stdcall set_startup_path
92		92
93	stdcall load_hud_images	93	stdcall load_hud_images
94	test eax, eax	94	test eax, eax
95	jnz @f	95	jnz @f
96	DEBUGF DEBUG_ERR, 'Failed to load HUD images\n'	96	DEBUGF DEBUG_ERR, 'Failed to load HUD images\n'
97	jmp .exit_fail_load_hud	97	jmp .exit_fail_load_hud
98		98
99	@@:	99	@@:
100	cld	100	cld
101	xor eax, eax	101	xor eax, eax
102	mov edi, PressedKeys	102	mov edi, PressedKeys
103	mov ecx, 128 * 2	103	mov ecx, 128 * 2
104	rep stosd	104	rep stosd
105		105
106	mov edi, Inventory	106	mov edi, Inventory
107	mov ecx, INVENTORY_SIZE * 2	107	mov ecx, INVENTORY_SIZE * 2
108	rep stosd	108	rep stosd
109		109
110	stdcall akode.set_callbacks, level_load_callback, action_callback	110	stdcall akode.set_callbacks, level_load_callback, action_callback
111		111
112	stdcall akode.load_level, levels.level1	112	stdcall akode.load_level, levels.level1
113		113
114	if FULLSCREEN	114	if FULLSCREEN
115	stdcall hide_cursor	115	stdcall hide_cursor
116	push eax	116	push eax
117	end if	117	end if
118		118
119	stdcall main_loop	119	stdcall main_loop
120		120
121	if FULLSCREEN	121	if FULLSCREEN
122	pop ecx	122	pop ecx
123	test ecx, ecx	123	test ecx, ecx
124	jz @f	124	jz @f
125	mcall 37, 6 ; delete cursor	125	mcall 37, 6 ; delete cursor
126	@@:	126	@@:
127	end if	127	end if
128		128
129	.exit_fail_load_hud:	129	.exit_fail_load_hud:
130	stdcall free_hud_images	130	stdcall free_hud_images
131		131
132	pop ecx	132	pop ecx
133	mcall 68, 13 ; free image buffer	133	mcall 68, 13 ; free image buffer
134		134
135	jmp .exit	135	jmp .exit
136		136
137	.exit_fail_heap_init:	137	.exit_fail_heap_init:
138	DEBUGF DEBUG_ERR, 'Heap initialization failed\n'	138	DEBUGF DEBUG_ERR, 'Heap initialization failed\n'
139	jmp .exit	139	jmp .exit
140		140
141	.exit_fail_load_libs:	141	.exit_fail_load_libs:
142	DEBUGF DEBUG_ERR, 'Failed to load libraries\n'	142	DEBUGF DEBUG_ERR, 'Failed to load libraries\n'
143	jmp .exit	143	jmp .exit
144		144
145	.exit_fail_akode_init:	145	.exit_fail_akode_init:
146	DEBUGF DEBUG_ERR, 'AKODE initialization failed\n'	146	DEBUGF DEBUG_ERR, 'AKODE initialization failed\n'
147	jmp .exit	147	jmp .exit
148		148
149	.exit_fail_alloc:	149	.exit_fail_alloc:
150	DEBUGF DEBUG_ERR, 'Memory allocation for image buffer failed\n'	150	DEBUGF DEBUG_ERR, 'Memory allocation for image buffer failed\n'
151	;jmp .exit	151	;jmp .exit
152		152
153	.exit:	153	.exit:
154	stdcall akode.cleanup	154	stdcall akode.cleanup
155	DEBUGF DEBUG_INFO, 'Exiting\n'	155	DEBUGF DEBUG_INFO, 'Exiting\n'
156		156
157	xor eax, eax	157	xor eax, eax
158	dec eax	158	dec eax
159	mcall ; kill this thread	159	mcall ; kill this thread
160		160
161	; ============================================================================ ;	161	; ============================================================================ ;
162	proc set_startup_path	162	proc set_startup_path
163	cld	163	cld
164	mov esi, StartupPath	164	mov esi, StartupPath
165	mov ecx, esi	165	mov ecx, esi
166		166
167	@@:	167	@@:
168	lodsb	168	lodsb
169	test al, al	169	test al, al
170	jnz @b	170	jnz @b
171		171
172	sub esi, 2	172	sub esi, 2
173	std	173	std
174		174
175	@@:	175	@@:
176	lodsb	176	lodsb
177	cmp al, '/'	177	cmp al, '/'
178	jne @b	178	jne @b
179		179
180	mov [esi + 1], byte 0	180	mov [esi + 1], byte 0
181		181
182	mcall 30, 1 ; set current directory	182	mcall 30, 1 ; set current directory
183		183
184	ret	184	ret
185	endp	185	endp
186	; ============================================================================ ;	186	; ============================================================================ ;
187		187
188	; ============================================================================ ;	188	; ============================================================================ ;
189	; < eax = 0 - fail ;	189	; < eax = 0 - fail ;
190	; ============================================================================ ;	190	; ============================================================================ ;
191	proc load_hud_images	191	proc load_hud_images
192	mov ebx, [MainWindowWidth]	192	mov ebx, [MainWindowWidth]
193	mov ecx, [MainWindowHeight]	193	mov ecx, [MainWindowHeight]
194	xor edx, edx	194	xor edx, edx
195		195
196	stdcall akode.load_and_scale_image, LevelLoadingImageFile, ebx, ecx, edx	196	stdcall akode.load_and_scale_image, LevelLoadingImageFile, ebx, ecx, edx
197	test eax, eax	197	test eax, eax
198	jz .exit	198	jz .exit
199		199
200	mov [LevelLoadingImagePtr], eax	200	mov [LevelLoadingImagePtr], eax
201		201
202	stdcall akode.load_and_scale_image, DeathImageFile, ebx, ecx, edx	202	stdcall akode.load_and_scale_image, DeathImageFile, ebx, ecx, edx
203	test eax, eax	203	test eax, eax
204	jz .exit	204	jz .exit
205		205
206	mov [DeathImagePtr], eax	206	mov [DeathImagePtr], eax
207		207
208	stdcall akode.load_and_scale_image, EndImageFile, ebx, ecx, edx	208	stdcall akode.load_and_scale_image, EndImageFile, ebx, ecx, edx
209	test eax, eax	209	test eax, eax
210	jz .exit	210	jz .exit
211		211
212	mov [EndImagePtr], eax	212	mov [EndImagePtr], eax
213		213
214	stdcall akode.load_and_scale_image, HudPanelImageFile, ebx, HUD_PANEL_HEIGHT, edx	214	stdcall akode.load_and_scale_image, HudPanelImageFile, ebx, HUD_PANEL_HEIGHT, edx
215	test eax, eax	215	test eax, eax
216	jz .exit	216	jz .exit
217		217
218	mov [HudPanelImagePtr], eax	218	mov [HudPanelImagePtr], eax
219		219
220	.exit:	220	.exit:
221	ret	221	ret
222	endp	222	endp
223	; ============================================================================ ;	223	; ============================================================================ ;
224		224
225	; ============================================================================ ;	225	; ============================================================================ ;
226	proc free_hud_images	226	proc free_hud_images
227	xor edx, edx	227	xor edx, edx
228	mov ebx, 13	228	mov ebx, 13
229		229
230	mov ecx, [LevelLoadingImagePtr]	230	mov ecx, [LevelLoadingImagePtr]
231	test ecx, ecx	231	test ecx, ecx
232	jz @f	232	jz @f
233	mcall 68 ; free	233	mcall 68 ; free
234	mov [LevelLoadingImagePtr], edx	234	mov [LevelLoadingImagePtr], edx
235	@@:	235	@@:
236	mov ecx, [HudPanelImagePtr]	236	mov ecx, [HudPanelImagePtr]
237	test ecx, ecx	237	test ecx, ecx
238	jz @f	238	jz @f
239	mcall 68	239	mcall 68
240	mov [HudPanelImagePtr], edx	240	mov [HudPanelImagePtr], edx
241	@@:	241	@@:
242	mov ecx, [DeathImagePtr]	242	mov ecx, [DeathImagePtr]
243	test ecx, ecx	243	test ecx, ecx
244	jz @f	244	jz @f
245	mcall 68	245	mcall 68
246	mov [DeathImagePtr], edx	246	mov [DeathImagePtr], edx
247	@@:	247	@@:
248	mov ecx, [EndImagePtr]	248	mov ecx, [EndImagePtr]
249	test ecx, ecx	249	test ecx, ecx
250	jz @f	250	jz @f
251	mcall 68	251	mcall 68
252	mov [EndImagePtr], edx	252	mov [EndImagePtr], edx
253	@@:	253	@@:
254		254
255	ret	255	ret
256	endp	256	endp
257	; ============================================================================ ;	257	; ============================================================================ ;
258		258
259	; ============================================================================ ;	259	; ============================================================================ ;
260	; < eax = cursor handle / 0 - fail ;	260	; < eax = cursor handle / 0 - fail ;
261	; ============================================================================ ;	261	; ============================================================================ ;
262	proc hide_cursor	262	proc hide_cursor
263	mcall 68, 12, 32 * 32 * 4	263	mcall 68, 12, 32 * 32 * 4
264	test eax, eax	264	test eax, eax
265	jz .exit	265	jz .exit
266		266
267	mov edi, eax	267	mov edi, eax
268	xor ebx, ebx	268	xor ebx, ebx
269	shr ecx, 2	269	shr ecx, 2
270	@@: mov [eax], ebx	270	@@: mov [eax], ebx
271	add eax, 4	271	add eax, 4
272	loop @b	272	loop @b
273		273
274	mcall 37, 4, edi, 2 ; load cursor	274	mcall 37, 4, edi, 2 ; load cursor
275	mov ecx, eax	275	mov ecx, eax
276	inc ebx	276	inc ebx
277	mcall 37 ; set cursor	277	mcall 37 ; set cursor
278		278
279	xchg edi, ecx	279	xchg edi, ecx
280		280
281	mcall 68, 13	281	mcall 68, 13
282		282
283	mov eax, edi	283	mov eax, edi
284		284
285	.exit:	285	.exit:
286	ret	286	ret
287	endp	287	endp
288	; ============================================================================ ;	288	; ============================================================================ ;
289		289
290	; ============================================================================ ;	290	; ============================================================================ ;
291	proc draw_image uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height	291	proc draw_image uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height
292	mov ebx, [image_ptr]	292	mov ebx, [image_ptr]
293	mpack ecx, [width], [height]	293	mpack ecx, [width], [height]
294	mpack edx, [x], [y]	294	mpack edx, [x], [y]
295	mov esi, 32	295	mov esi, 32
296	xor edi, edi	296	xor edi, edi
297	xchg edi, ebp	297	xchg edi, ebp
298	mcall 65	298	mcall 65
299	mov ebp, edi	299	mov ebp, edi
300		300
301	ret	301	ret
302	endp	302	endp
303	; ============================================================================ ;	303	; ============================================================================ ;
304		304
305	; ============================================================================ ;	305	; ============================================================================ ;
306	proc draw_image_to_buffer uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height	306	proc draw_image_to_buffer uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height
307	cld	307	cld
308	mov esi, [image_ptr]	308	mov esi, [image_ptr]
309	mov edi, [ImageBufferPtr]	309	mov edi, [ImageBufferPtr]
310	mov ebx, [MainWindowWidth]	310	mov ebx, [MainWindowWidth]
311	mov eax, [y]	311	mov eax, [y]
312	mul ebx	312	mul ebx
313	add eax, [x]	313	add eax, [x]
314	lea edi, [edi + eax * 4]	314	lea edi, [edi + eax * 4]
315		315
316	sub ebx, [width]	316	sub ebx, [width]
317	shl ebx, 2	317	shl ebx, 2
318	mov edx, [height]	318	mov edx, [height]
319		319
320	@@:	320	@@:
321	mov ecx, [width]	321	mov ecx, [width]
322	rep movsd	322	rep movsd
323	add edi, ebx	323	add edi, ebx
324		324
325	sub edx, 1	325	sub edx, 1
326	jnz @b	326	jnz @b
327		327
328	ret	328	ret
329	endp	329	endp
330	; ============================================================================ ;	330	; ============================================================================ ;
331		331
332	; ============================================================================ ;	332	; ============================================================================ ;
333	proc draw_image_with_transparency_to_buffer uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height	333	proc draw_image_with_transparency_to_buffer uses eax ebx ecx edx esi edi, image_ptr, x, y, width, height
334	mov esi, [image_ptr]	334	mov esi, [image_ptr]
335	mov edi, [ImageBufferPtr]	335	mov edi, [ImageBufferPtr]
336	mov ebx, [MainWindowWidth]	336	mov ebx, [MainWindowWidth]
337	mov eax, [y]	337	mov eax, [y]
338	mul ebx	338	mul ebx
339	add eax, [x]	339	add eax, [x]
340	lea edi, [edi + eax * 4]	340	lea edi, [edi + eax * 4]
341		341
342	sub ebx, [width]	342	sub ebx, [width]
343	shl ebx, 2	343	shl ebx, 2
344	mov edx, [height]	344	mov edx, [height]
345		345
346	.y_draw_loop:	346	.y_draw_loop:
347	mov ecx, [width]	347	mov ecx, [width]
348		348
349	.x_draw_loop:	349	.x_draw_loop:
350	mov eax, [esi]	350	mov eax, [esi]
351	cmp eax, 0FF00FFh	351	cmp eax, 0FF00FFh
352	je @f	352	je @f
353	mov [edi], eax	353	mov [edi], eax
354	@@:	354	@@:
355	add esi, 4	355	add esi, 4
356	add edi, 4	356	add edi, 4
357		357
358	sub ecx, 1	358	sub ecx, 1
359	jnz .x_draw_loop	359	jnz .x_draw_loop
360		360
361	add edi, ebx	361	add edi, ebx
362		362
363	sub edx, 1	363	sub edx, 1
364	jnz .y_draw_loop	364	jnz .y_draw_loop
365		365
366	ret	366	ret
367	endp	367	endp
368	; ============================================================================ ;	368	; ============================================================================ ;
369		369
370	; ============================================================================ ;	370	; ============================================================================ ;
371	proc draw_window	371	proc draw_window
372	mcall 12, 1 ; start drawing	372	mcall 12, 1 ; start drawing
373		373
374	if FULLSCREEN	374	if FULLSCREEN
375	mov ebx, 0FFFFh	375	mov ebx, 0FFFFh
376	mov ecx, 0FFFFh	376	mov ecx, 0FFFFh
377	else	377	else
378	mcall 48, 4 ; eax - skin height	378	mcall 48, 4 ; eax - skin height
379		379
380	mpack ebx, MAIN_WINDOW_X, MAIN_WINDOW_WIDTH + 9	380	mpack ebx, MAIN_WINDOW_X, MAIN_WINDOW_WIDTH + 9
381	mpack ecx, MAIN_WINDOW_Y, MAIN_WINDOW_HEIGHT + 4	381	mpack ecx, MAIN_WINDOW_Y, MAIN_WINDOW_HEIGHT + 4
382	add ecx, eax	382	add ecx, eax
383	end if	383	end if
384	mov edx, MAIN_WINDOW_STYLE	384	mov edx, MAIN_WINDOW_STYLE
385	mov esi, MAIN_WINDOW_STYLE2	385	mov esi, MAIN_WINDOW_STYLE2
386	mov edi, MAIN_WINDOW_TITLE	386	mov edi, MAIN_WINDOW_TITLE
387	xor eax, eax	387	xor eax, eax
388	mcall ; draw window	388	mcall ; draw window
389		389
390	mcall 12, 2 ; end drawing	390	mcall 12, 2 ; end drawing
391		391
392	ret	392	ret
393	endp	393	endp
394	; ============================================================================ ;	394	; ============================================================================ ;
395		395
396	; ============================================================================ ;	396	; ============================================================================ ;
397	proc draw_world	397	proc draw_world
398	mov ebx, [ImageBufferPtr]	398	mov ebx, [ImageBufferPtr]
399	;test ebx, ebx	399	;test ebx, ebx
400	;jz @f	400	;jz @f
401		401
402	stdcall akode.render	402	stdcall akode.render
403	stdcall akode.get_image, ebx, FSAA	403	stdcall akode.get_image, ebx, FSAA
404		404
405	mpack ecx, [MainWindowWidth], [WorldViewHeight]	405	mpack ecx, [MainWindowWidth], [WorldViewHeight]
406	xor edx, edx	406	xor edx, edx
407	mov esi, 32	407	mov esi, 32
408	xor edi, edi	408	xor edi, edi
409	xchg edi, ebp	409	xchg edi, ebp
410	mcall 65	410	mcall 65
411	mov ebp, edi	411	mov ebp, edi
412		412
413	;@@:	413	;@@:
414	ret	414	ret
415	endp	415	endp
416	; ============================================================================ ;	416	; ============================================================================ ;
417		417
418	; ============================================================================ ;	418	; ============================================================================ ;
419	proc draw_hud	419	proc draw_hud
420	mov eax, [HudPanelNeedsRedraw]	420	mov eax, [HudPanelNeedsRedraw]
421	test eax, eax	421	test eax, eax
422	jz .exit	422	jz .exit
423		423
424	xor eax, eax	424	xor eax, eax
425	mov [HudPanelNeedsRedraw], eax	425	mov [HudPanelNeedsRedraw], eax
426		426
427	stdcall draw_image_to_buffer, [HudPanelImagePtr], eax, [WorldViewHeight], [MainWindowWidth], HUD_PANEL_HEIGHT	427	stdcall draw_image_to_buffer, [HudPanelImagePtr], eax, [WorldViewHeight], [MainWindowWidth], HUD_PANEL_HEIGHT
428		428
429	mov esi, Inventory + 4	429	mov esi, Inventory + 4
430	mov ebx, INVENTORY_Y	430	mov ebx, INVENTORY_Y
431	add ebx, [WorldViewHeight]	431	add ebx, [WorldViewHeight]
432	mov edx, 2	432	mov edx, 2
433		433
434	.y_inventory_loop:	434	.y_inventory_loop:
435	mov eax, INVENTORY_X	435	mov eax, INVENTORY_X
436	mov ecx, INVENTORY_SIZE / 2	436	mov ecx, INVENTORY_SIZE / 2
437		437
438	.x_inventory_loop:	438	.x_inventory_loop:
439	mov edi, [esi]	439	mov edi, [esi]
440	add esi, 8	440	add esi, 8
441	test edi, edi	441	test edi, edi
442	jz @f	442	jz @f
443	stdcall draw_image_with_transparency_to_buffer, edi, eax, ebx, OBJECT_IMAGE_WIDTH, OBJECT_IMAGE_HEIGHT	443	stdcall draw_image_with_transparency_to_buffer, edi, eax, ebx, OBJECT_IMAGE_WIDTH, OBJECT_IMAGE_HEIGHT
444		444
445	@@:	445	@@:
446	add eax, OBJECT_IMAGE_WIDTH + INVENTORY_PADDING_X	446	add eax, OBJECT_IMAGE_WIDTH + INVENTORY_PADDING_X
447		447
448	sub ecx, 1	448	sub ecx, 1
449	jnz .x_inventory_loop	449	jnz .x_inventory_loop
450		450
451	add ebx, OBJECT_IMAGE_HEIGHT + INVENTORY_PADDING_Y	451	add ebx, OBJECT_IMAGE_HEIGHT + INVENTORY_PADDING_Y
452		452
453	sub edx, 1	453	sub edx, 1
454	jnz .y_inventory_loop	454	jnz .y_inventory_loop
455		455
456	mpack ecx, [MainWindowWidth], HUD_PANEL_HEIGHT	456	mpack ecx, [MainWindowWidth], HUD_PANEL_HEIGHT
457	mov edx, [WorldViewHeight]	457	mov edx, [WorldViewHeight]
458	mov ebx, [ImageBufferPtr]	458	mov ebx, [ImageBufferPtr]
459	mov eax, [MainWindowWidth]	459	mov eax, [MainWindowWidth]
460	imul eax, edx	460	imul eax, edx
461	lea ebx, [ebx + eax * 4]	461	lea ebx, [ebx + eax * 4]
462	mov esi, 32	462	mov esi, 32
463	xor edi, edi	463	xor edi, edi
464	xchg edi, ebp	464	xchg edi, ebp
465	mcall 65	465	mcall 65
466	mov ebp, edi	466	mov ebp, edi
467		467
468	jmp draw_game_message	468	jmp draw_game_message
469		469
470	.exit:	470	.exit:
471	ret	471	ret
472	endp	472	endp
473	; ============================================================================ ;	473	; ============================================================================ ;
474		474
475	; ============================================================================ ;	475	; ============================================================================ ;
476	proc draw_game_message	476	proc draw_game_message
477	mov esi, [GameMessage]	477	mov esi, [GameMessage]
478	test esi, esi	478	test esi, esi
479	jz .exit	479	jz .exit
480		480
481	mpack ebx, GAME_MESSAGE_X, GAME_MESSAGE_Y	481	mpack ebx, GAME_MESSAGE_X, GAME_MESSAGE_Y
482	add ebx, [WorldViewHeight]	482	add ebx, [WorldViewHeight]
483	mov ecx, GAME_MESSAGE_COLOR or (80h shl 24)	483	mov ecx, GAME_MESSAGE_COLOR or (80h shl 24)
484		484
485	.draw_strings_loop:	485	.draw_strings_loop:
486	mov edx, esi	486	mov edx, esi
487		487
488	@@:	488	@@:
489	mov al, [esi]	489	mov al, [esi]
490	add esi, 1	490	add esi, 1
491		491
492	test al, al	492	test al, al
493	jz .draw_last_string	493	jz .draw_last_string
494	cmp al, 0Ah	494	cmp al, 0Ah
495	jne @b	495	jne @b
496		496
497	mov [esi - 1], byte 0	497	mov [esi - 1], byte 0
498		498
499	mcall 4	499	mcall 4
500		500

Subversion Repositories Kolibri OS

(root)/programs/games/Dungeons/Dungeons.asm – Rev 5480 → 5492