| 0,0 → 1,671 |
|---|
| ; |
| ; Hunter. Version 1.1. |
| ; The game application for MeOS game compo 05.03.2005 - 12.03.2005 |
| ; |
| ; Author: Trans |
| ; Date: 07.03.2005 - 08.03.2005 |
| ; Modification: 08.05.2007 |
| ; Compiler: FASM |
| ; Target: MenuetOS game |
| ; |
| |
| include '..\..\..\macros.inc' |
| |
| use32 |
| |
| org 0x0 |
| |
| db 'MENUET01' ; 8 byte id |
| dd 0x01 ; header version |
| dd START ; start of code |
| dd I_END ; size of image |
| dd end_memory ;0x180000 ; memory for app |
| dd start_stack ; esp |
| dd 0x0 , 0x0 ; I_Param , I_Icon |
| |
| START: ; start of execution |
| mov eax,40 |
| mov ebx,00100111b |
| mcall |
| |
| mov eax,26 |
| mov ebx,9 |
| mcall |
| mov [second_count],eax |
| |
| call init_object |
| |
| call draw_window |
| |
| still: |
| |
| ; mov eax,23 ; wait here for event |
| ; mov ebx,10 |
| ; mcall |
| |
| mov eax,05 |
| mov ebx,5 |
| mcall |
| mov eax,11 |
| mcall |
| |
| push eax |
| mov eax,26 |
| mov ebx,9 |
| mcall |
| mov ebx,eax |
| sub eax,[second_count] |
| cmp ax,100 |
| jb still_continue_00 |
| inc dword [time_count] |
| mov [second_count],ebx |
| xor edx,edx |
| mov eax,ebx |
| mov ebx,30 |
| div ebx |
| cmp dl,0 |
| jnz still_loc_01 |
| call change_objects_speed |
| still_loc_01: |
| xor eax,eax |
| mov esi,forward_list |
| mov ecx,4 |
| still_loc_00: |
| cmp eax,dword [esi] |
| jnz still_continue_00 |
| add esi,4 |
| loop still_loc_00 |
| ; call set_current_objects_list |
| call init_object |
| still_continue_00: |
| pop eax |
| |
| call movie_objects |
| |
| cmp eax,1 ; redraw request ? |
| je red |
| cmp eax,2 ; key in buffer ? |
| je key |
| cmp eax,3 ; button in buffer ? |
| je button |
| cmp eax,6 ; mouse ? |
| je mouse |
| |
| call draw_frame |
| |
| jmp still |
| |
| red: ; redraw |
| call draw_window |
| jmp still |
| |
| key: ; key |
| mov eax,2 ; just read it and ignore |
| mcall |
| cmp al,0 |
| jnz still |
| cmp byte [menu_flag],0 |
| jnz still |
| cmp ah,' ' |
| jnz key_loc_00 |
| inc byte [pause_flag] |
| call draw_frame |
| call pause_game |
| key_loc_00: |
| jmp still |
| |
| button: ; button |
| mov eax,17 ; get id |
| mcall |
| |
| cmp ah,1 ; button id=1 ? |
| jne noclose |
| |
| inc byte [game_over_flag] |
| call game_over_draw |
| |
| mov eax,-1 ; close this program |
| mcall |
| noclose: |
| |
| jmp still |
| |
| |
| mouse: ; mouse |
| mov eax,37 ; get coordinate |
| xor ebx,ebx |
| inc ebx |
| mcall |
| |
| cmp ax,20 |
| jae mouse_loc_00 |
| mov ax,20 |
| mouse_loc_00: |
| sub ax,20 |
| shr ax,1 |
| ror eax,16 |
| shr ax,1 |
| push ax |
| ror eax,16 |
| mov dword [mouse_coord],eax |
| pop ax |
| cmp ax,110 |
| ja mouse_loc_03 |
| mov byte [gun_angle],0 |
| jmp mouse_loc_05 |
| mouse_loc_03: |
| cmp ax,210 |
| ja mouse_loc_04 |
| mov byte [gun_angle],1 |
| jmp mouse_loc_05 |
| mouse_loc_04: |
| mov byte [gun_angle],2 |
| mouse_loc_05: |
| |
| mov eax,37 |
| xor ebx,ebx |
| mov bl,2 |
| mcall |
| |
| cmp ax,1 |
| jnz not_left_button |
| call left_button_down |
| not_left_button: |
| call draw_frame |
| jmp still |
| |
| |
| |
| |
| ; ********************************************* |
| ; ******* WINDOW DEFINITIONS AND DRAW ******** |
| ; ********************************************* |
| |
| |
| draw_window: |
| |
| |
| mov eax,12 ; function 12:tell os about windowdraw |
| mov ebx,1 ; 1, start of draw |
| mcall |
| |
| ; DRAW WINDOW |
| mov eax,0 ; function 0 : define and draw window |
| mov ebx,100*65536+640 ; [x start] *65536 + [x size] |
| mov ecx,100*65536+420 ; [y start] *65536 + [y size] |
| mov edx,0x13ffffff ; color of work area RRGGBB,8->color gl |
| mov edi,title ; WINDOW LABEL |
| mcall |
| |
| call draw_frame |
| |
| mov eax,12 ; function 12:tell os about windowdraw |
| mov ebx,2 ; 2, end of draw |
| mcall |
| |
| ret |
| |
| ;-------------Subprograms------------------------ |
| |
| ; |
| ; In: |
| ; Out: |
| draw_frame: |
| cmp byte [menu_flag],0 |
| jz df_loc_00 |
| call draw_menu |
| retn |
| df_loc_00: |
| call draw_backside |
| mov esi,buf_oblako |
| mov eax,0*65536+0 |
| call draw_pict |
| mov eax,190*65536+23 |
| call draw_pict_scale_div_2 |
| mov esi,buf_sun |
| mov eax,256*65536+0 |
| call draw_pict |
| mov esi,buf_rock |
| mov eax,47*65536+83 |
| call draw_pict_scale_div_2 |
| mov eax,0*65536+70 |
| call draw_pict |
| |
| call draw_objects |
| |
| mov esi,buf_kust02 |
| mov eax,256*65536+127 |
| call draw_pict |
| mov esi,buf_kust01 |
| mov eax,0*65536+127 |
| call draw_pict |
| mov esi,buf_time |
| mov eax,5*65536+180 |
| call draw_pict |
| mov esi,buf_shots |
| mov eax,200*65536+180 |
| call draw_pict |
| mov esi,buf_lives |
| mov eax,5*65536+5 |
| call draw_pict |
| mov eax,56*65536+3 |
| call draw_lives |
| call draw_promakh |
| ; call draw_hole |
| cmp byte [gun_angle],0 |
| jnz df_loc_01 |
| mov esi,buf_gun02 |
| mov eax,120*65536+151 |
| call draw_pict |
| cmp byte [fire_flag],0 |
| jz df_loc_03 |
| mov esi,buf_fire02 |
| mov eax,108*65536+131 |
| call draw_pict |
| dec byte [fire_flag] |
| jmp df_loc_03 |
| df_loc_01: |
| cmp byte [gun_angle],2 |
| jnz df_loc_02 |
| mov esi,buf_gun01 |
| mov eax,140*65536+151 |
| call draw_pict |
| cmp byte [fire_flag],0 |
| jz df_loc_03 |
| mov esi,buf_fire01 |
| mov eax,167*65536+128 |
| call draw_pict |
| dec byte [fire_flag] |
| jmp df_loc_03 |
| df_loc_02: |
| mov esi,buf_gun00 |
| mov eax,140*65536+144 |
| call draw_pict |
| cmp byte [fire_flag],0 |
| jz df_loc_03 |
| mov esi,buf_fire00 |
| mov eax,135*65536+124 |
| call draw_pict |
| dec byte [fire_flag] |
| df_loc_03: |
| ; mov esi,buf_star |
| ; mov eax,300*65536+180 |
| ; call draw_pict |
| mov esi,buf_score |
| mov eax,120*65536+5 |
| call draw_pict |
| mov eax,260*65536+180 |
| mov ebx,[shots_count] |
| call number_print |
| mov eax,175*65536+3 |
| mov ebx,[score_count] |
| call number_print |
| mov eax,60*65536+180 |
| mov ebx,[time_count] |
| call number_print |
| call draw_mushka |
| cmp byte [pause_flag],0 |
| jz df_loc_04 |
| mov esi,buf_pause |
| mov eax,90*65536+80 |
| call draw_pict |
| df_loc_04: |
| cmp byte [game_over_flag],0 |
| jz df_loc_05 |
| mov esi,buf_gameover |
| mov eax,[game_over_coord] |
| call draw_pict |
| df_loc_05: |
| |
| call buffer_scale_on_2 |
| ; call smooth_filter |
| mov eax,07 |
| mov ebx,buffer02 |
| mov ecx,640*65536+400 |
| mov edx,0*65536+20 |
| mcall |
| retn |
| |
| |
| ; |
| ; In: |
| ; Out: |
| draw_menu: |
| call clear_buffer |
| mov esi,buf_start |
| mov eax,60*65536+50 |
| call draw_pict |
| mov esi,buf_exit |
| mov eax,86*65536+120 |
| call draw_pict |
| call draw_mushka |
| call buffer_scale_on_2 |
| mov eax,07 |
| mov ebx,buffer02 |
| mov ecx,640*65536+400 |
| mov edx,0*65536+20 |
| mcall |
| retn |
| |
| |
| |
| ; |
| ; In: |
| ; Out: |
| pause_game: |
| mov eax,40 |
| mov ebx,00000111b |
| mcall |
| |
| pause_game_00: |
| mov eax,10 ; wait here for event |
| mcall |
| |
| cmp eax,1 ; redraw request ? |
| je pg_red |
| cmp eax,2 ; key in buffer ? |
| je pg_key |
| cmp eax,3 ; button in buffer ? |
| je pg_button |
| jmp pause_game_00 |
| |
| pg_red: ; redraw |
| call draw_window |
| jmp pause_game_00 |
| |
| pg_key: ; key |
| mov eax,2 ; just read it and ignore |
| mcall |
| cmp al,0 |
| jnz pause_game_00 |
| cmp ah,' ' |
| jnz pgk_loc_00 |
| dec byte [pause_flag] |
| call draw_frame |
| mov eax,40 |
| mov ebx,00100111b |
| mcall |
| retn |
| pgk_loc_00: |
| jmp pause_game_00 |
| |
| pg_button: ; button |
| mov eax,17 ; get id |
| mcall |
| cmp ah,1 ; button id=1 ? |
| jne pg_noclose |
| mov eax,-1 ; close this program |
| mcall |
| pg_noclose: |
| jmp pause_game |
| retn |
| |
| ; |
| ; In: |
| ; Out: |
| left_button_down: |
| cmp byte [menu_flag],0 |
| jz lbd_loc_00 |
| call check_menu |
| retn |
| lbd_loc_00: |
| inc dword [shots_count] |
| inc byte [fire_flag] |
| ; mov eax,[mouse_coord] |
| ; mov [current_hole],eax |
| call check_kill_object |
| cmp byte [promakh_count],5 |
| jnz lbd_loc_01 |
| mov byte [promakh_count],0 |
| dec byte [lives_count] |
| jnz lbd_loc_01 |
| call draw_frame |
| mov byte [game_over_flag],1 |
| call game_over_draw |
| dec byte [game_over_flag] |
| inc byte [menu_flag] |
| lbd_loc_01: |
| retn |
| |
| ; |
| ; In: |
| ; Out: |
| check_menu: |
| push eax |
| mov eax,[mouse_coord] |
| cmp ax,50 |
| jb cm_loc_00 |
| cmp ax,90 |
| ja cm_loc_00 |
| shr eax,16 |
| cmp ax,60 |
| jb cm_loc_00 |
| cmp ax,260 |
| ja cm_loc_00 |
| dec byte [menu_flag] |
| xor eax,eax |
| mov [score_count],eax |
| mov [shots_count],eax |
| mov [time_count],eax |
| mov [current_hole],eax |
| mov [current_hole+4],eax |
| mov [gun_angle],al |
| mov [stars_count],al |
| mov [promakh_count],al |
| mov byte [lives_count],3 |
| ; call set_current_objects_list |
| call init_object |
| pop eax |
| retn |
| cm_loc_00: |
| mov eax,[mouse_coord] |
| cmp ax,120 |
| jb cm_loc_01 |
| cmp ax,160 |
| ja cm_loc_01 |
| shr eax,16 |
| cmp ax,86 |
| jb cm_loc_01 |
| cmp ax,234 |
| ja cm_loc_01 |
| mov eax,-1 |
| mcall |
| cm_loc_01: |
| pop eax |
| retn |
| |
| |
| ; |
| ; |
| ; |
| game_over_draw: |
| pusha |
| mov dword [game_over_coord],42*65536+0 |
| mov ecx,15 |
| god_loc_00: |
| push ecx |
| call draw_frame |
| add word [game_over_coord],5 |
| mov eax,05 |
| mov ebx,3 |
| mcall |
| pop ecx |
| loop god_loc_00 |
| ; mov eax,7 |
| mov edx,0*65536+20 |
| mov ebx,buffer02 |
| mov ecx,3 |
| god_loc_01: |
| push ecx |
| mov eax,7 |
| mov ecx,640*65536+400 |
| mcall |
| push ebx |
| mov eax,05 |
| mov ebx,5 |
| mcall |
| pop ebx |
| sub ebx,640*3*5 |
| pop ecx |
| loop god_loc_01 |
| mov ecx,4 |
| god_loc_02: |
| push ecx |
| mov eax,7 |
| mov ecx,640*65536+400 |
| mcall |
| push ebx |
| mov eax,5 |
| mov ebx,5 |
| mcall |
| pop ebx |
| add ebx,640*3*5 |
| pop ecx |
| loop god_loc_02 |
| mov eax,5 |
| mov ebx,200 |
| mcall |
| popa |
| retn |
| |
| include 'picture.inc' |
| include 'math.inc' |
| include 'object.inc' |
| ;----------------Data---------------------------- |
| |
| mouse_coord dd 144*65536+84 |
| pause_flag db 0 ; 0/1 - active/pause |
| menu_flag db 1 ; 0/1 - game/menu |
| lives_count db 3 |
| stars_count db 0 ; 3 Stars = 1 Heart |
| shots_count dd 0 |
| time_count dd 0 |
| score_count dd 0 |
| second_count dd 0 |
| game_over_coord dd 0 |
| gun_angle db 0 ; 0/1/2 - left/vertical/right |
| game_over_flag db 0 ; 0/1 - continuing/end game |
| promakh_count db 0 |
| fire_flag db 0 ; 0/1 - no fire/fire from gun |
| current_hole dd 0,0,0,0,0,0 |
| forward_list db 0,0,0,0,0,0,0,0 |
| back_list db 0,0,0,0,0,0,0,0 |
| present_objects_list: |
| dd buf_glass, buf_net, buf_glaz, buf_plane00 |
| dd buf_heart02, buf_plane01, buf_net, buf_glaz |
| |
| title db 'HUNTER 1.2 Trans, 2005',0 |
| |
| buf_start: |
| include 'inc\start.inc' |
| buf_exit: |
| include 'inc\exit.inc' |
| buf_gameover: |
| include 'inc\gameover.inc' |
| buf_pause: |
| include 'inc\pause.inc' |
| buf_gun00: |
| include 'inc\gun00.inc' |
| buf_gun01: |
| include 'inc\gun01.inc' |
| buf_gun02: |
| include 'inc\gun02.inc' |
| buf_heart: |
| include 'inc\heart.inc' |
| buf_star: |
| include 'inc\star.inc' |
| buf_lives: |
| include 'inc\lives.inc' |
| buf_score: |
| include 'inc\score.inc' |
| buf_shots: |
| include 'inc\shots.inc' |
| buf_time: |
| include 'inc\time.inc' |
| buf_numbers: |
| ;include 'inc\numbers.inc' |
| buf_num0: |
| include 'inc\num0.inc' |
| buf_num1: |
| include 'inc\num1.inc' |
| buf_num2: |
| include 'inc\num2.inc' |
| buf_num3: |
| include 'inc\num3.inc' |
| buf_num4: |
| include 'inc\num4.inc' |
| buf_num5: |
| include 'inc\num5.inc' |
| buf_num6: |
| include 'inc\num6.inc' |
| buf_num7: |
| include 'inc\num7.inc' |
| buf_num8: |
| include 'inc\num8.inc' |
| buf_num9: |
| include 'inc\num9.inc' |
| buf_plus: |
| include 'inc\plus.inc' |
| buf_minus: |
| include 'inc\minus.inc' |
| buf_sun: |
| include 'inc\sun.inc' |
| buf_oblako: |
| include 'inc\oblako.inc' |
| buf_mushka: |
| include 'inc\mushka.inc' |
| buf_kust01: |
| include 'inc\kust01.inc' |
| buf_kust02: |
| include 'inc\kust02.inc' |
| buf_glass: |
| include 'inc\glass.inc' |
| buf_glaz: |
| include 'inc\glaz.inc' |
| buf_net: |
| include 'inc\net.inc' |
| buf_plane00: |
| include 'inc\plane00.inc' |
| buf_plane01: |
| include 'inc\plane01.inc' |
| buf_heart02: |
| include 'inc\heart02.inc' |
| buf_rock: |
| include 'inc\rock.inc' |
| buf_fire00: |
| include 'inc\fire00.inc' |
| buf_fire01: |
| include 'inc\fire01.inc' |
| buf_fire02: |
| include 'inc\fire02.inc' |
| buf_hole: |
| include 'inc\hole.inc' |
| |
| I_END: |
| |
| end_stack: |
| org $+1000h |
| start_stack: |
| |
| org $+64 ; For stack protect |
| |
| movieng_objects: |
| ; For one object - 16 bytes structure: |
| ; dd ; +00 Pointer to object OR 0 - if empty structure |
| ; dd ; +04 Current object coordinate X*65536+Y |
| ; db ; +08 Speed - Maximum 16 (???) |
| ; db ; +09 Amplitude |
| ; db ; +0A Direction 0/1 - right/left |
| ; db ; +0B Object Cost |
| ; dd ; +0C Reserve |
| ; |
| org $+16*16 |
| |
| buffer00: |
| org $+320*201*3 |
| buffer01: |
| org $+100*201*3 |
| buffer02: |
| org $+640*401*3 |
| org $+640*40*3 |
| end_memory: |