;***************************************************************************** ; Rusty Earth - for Kolibri OS ; Copyright (c) 2014, Marat Zakiyanov aka Mario79, aka Mario ; All rights reserved. ; ; Redistribution and use in source and binary forms, with or without ; modification, are permitted provided that the following conditions are met: ; * Redistributions of source code must retain the above copyright ; notice, this list of conditions and the following disclaimer. ; * Redistributions in binary form must reproduce the above copyright ; notice, this list of conditions and the following disclaimer in the ; documentation and/or other materials provided with the distribution. ; * Neither the name of the nor the ; names of its contributors may be used to endorse or promote products ; derived from this software without specific prior written permission. ; ; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE ; DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;***************************************************************************** use32 org 0x0 db 'MENUET01' dd 0x01 dd START dd IM_END dd I_END dd stacktop dd 0x0 dd path ;----------------------------------------------------------------------------- include 'lang.inc' include '../../macros.inc' include '../../proc32.inc' ;define __DEBUG__ 1 ;define __DEBUG_LEVEL__ 1 ;include '../../debug-fdo.inc' include '../../develop/libraries/box_lib/load_lib.mac' ;include '../../develop/libraries/box_lib/trunk/box_lib.mac' @use_library ;--------------------------------------------------------------------- FONT_SIZE_X = 32 FONT_REAL_SIZE_X = 32 FONT_SIZE_Y = 32 ;--------------------------------------------------------------------- LEVEL_MAP_SIZE_X = 10 LEVEL_MAP_SIZE_Y = 10 SPRITE_SIZE_X = 64 SPRITE_SIZE_Y = 64 ;----------------------------------------------------------------------------- ROUTE_UP = 1 ROUTE_DOWN = 2 ROUTE_LEFT = 3 ROUTE_RIGHT = 4 ;----------------------------------------------------------------------------- OBJECT_DEATH = 1 OBJECT_SKELETON = 2 OBJECT_IFRIT = 3 OBJECT_BARRET = 4 OBJECT_FINAL_MONSTER = 14 OBJECT_PROTAGONIST = 15 OBJECT_RED_BRICK = 16 OBJECT_WHITE_BRICK = 17 RED_BRICK_CRASH_1 = 0x80 RED_BRICK_CRASH_2 = 0x81 ;----------------------------------------------------------------------------- BASE_SMALL_ROCK = 0 BASE_GRASS = 1 BASE_LAVA = 2 BASE_WATER = 3 ;----------------------------------------------------------------------------- TARGET_RANGE = 3 ;----------------------------------------------------------------------------- START: mcall 68,11 mcall 66,1,1 mcall 40,0x7 ;27 ;-------------------------------------- load_libraries l_libs_start,end_l_libs test eax,eax jnz button.exit ;-------------------------------------- ; unpack deflate mov eax,[unpack_DeflateUnpack2] mov [deflate_unpack],eax ;-------------------------------------- call load_and_convert_all_icons call load_all_sound_files mov eax,[background_music] mov [wav_for_test],eax mov ebx,eax add ebx,1024 mov [wav_for_test_end],ebx call test_wav_file mov [music_flag],1 mcall 51,1,snd_background_music_thread_start,snd_background_music_thread_stack mov [sounds_flag],1 mcall 51,1,snd_kick_action_thread_start,snd_kick_action_thread_stack ;--------------------------------------------------------------------- menu_still: jmp main_menu_start ;--------------------------------------------------------------------- start_level_0: mov eax,[stone_kick_sound] mov [sounds_sample],eax mov [death_of_protagonist],0 mov [protagonist_route],2 mov [protagonist_position.x],4 mov [protagonist_position.y],4 mov esi,map_level_0 call map_level_to_plan_level call generate_objects_id call copy_plan_level_to_plan_level_old ;--------------------------------------------------------------------- red: call draw_window ;--------------------------------------------------------------------- still: ; mcall 10 mcall 23,1 cmp eax,1 je red cmp eax,2 je key cmp eax,3 je button call actions_for_all_cell call show_tiles call harvest_of_death call show_tiles_one_iteration cmp [death_of_protagonist],1 je death_of_protagonist_start mov eax,[protagonist_position.y] imul eax,LEVEL_MAP_SIZE_X*4 mov ebx,[protagonist_position.x] shl ebx,2 add eax,ebx add eax,plan_level mov eax,[eax] cmp ah,OBJECT_PROTAGONIST jne death_of_protagonist_start jmp still ;--------------------------------------------------------------------- button: mcall 17 cmp ah,1 jne still ;-------------------------------------- .exit: mov eax,[N_error] ; DEBUGF 1, "N_error: %d\n",eax test eax,eax jz @f mcall 51,1,thread_start,thread_stack ;-------------------------------------- @@: mov [music_flag],2 mov [sounds_flag],2 mcall -1 ;--------------------------------------------------------------------- draw_window: mcall 12,1 mcall 48,4 mov ecx,100 shl 16 + 644 add cx,ax mcall 0,<100,649>,,0x74AABBCC,,title ; mcall 13,<0,640>,<0,640>,0xff0000 mov [draw_all_level],1 ; call show_tiles call show_tiles_one_iteration mov [draw_all_level],0 ; mcall 4,<3,8>,0,message,message.size mcall 12,2 ret ;--------------------------------------------------------------------- memory_free_error: mov [N_error],3 jmp button.exit ;--------------------------------------------------------------------- memory_get_error: mov [N_error],4 jmp button.exit ;----------------------------------------------------------------------------- include 'key.inc' include 'show_tiles.inc' include 'show_base.inc' include 'show_object.inc' include 'death_protagonist.inc' include 'load.inc' include 'icon_convert.inc' include 'error_window.inc' include 'actions.inc' include 'actions_npc.inc' include 'actions_protagonist.inc' include 'actions_white_bricks.inc' include 'random.inc' include 'snd_api.inc' include 'sound.inc' include 'menu.inc' include 'font.inc' ;--------------------------------------------------------------------- if lang eq ru include 'localization_rus.inc' else include 'localization_eng.inc' end if ;--------------------------------------------------------------------- include 'i_data.inc' include 'levels.inc' ;--------------------------------------------------------------------- IM_END: ;--------------------------------------------------------------------- ;include_debug_strings ;--------------------------------------------------------------------- include 'u_data.inc' ;--------------------------------------------------------------------- I_END: