forked from KolibriOS/kolibrios
4daae89053
updated sysfunc.txt
*programs
new icons and logo for CPUID and ICON
added new version of @ICON and ICONMNGR
fixes in iconedit and calendar from DedOK
new algoritm of fill background in pic4
all apps (fasm-writen only) rewriten to use common macros.inc for easy recompile in fastcall mode (there is a bug in https; run need rewrite to use common macros.inc)
small fixes in build_all.bat script
git-svn-id: svn://kolibrios.org@485 a494cfbc-eb01-0410-851d-a64ba20cac60
671 lines
12 KiB
NASM
671 lines
12 KiB
NASM
;
|
|
; 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: |