sdongles/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

arcanii: rolled_up fix

Browse Source 
git-svn-id: svn://kolibrios.org@2066 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Ivan Baravy 2011-08-18 19:43:56 +00:00
parent b1151ec51a
commit c879ab9258
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
programs/games/arcanii/trunk/arcanii.asm
View File

@ -8,7 +8,7 @@ VERSION equ 'ARCANOID II v. 0.30'
;----------------------------------------
include 'lang.inc'
include '..\..\..\macros.inc'
include '../../../macros.inc'
include 'ascl.inc'
include 'ascgl.inc'
include 'asjc.inc'
@ -46,6 +46,11 @@ START: ; start of execution
call draw_window
still:
cmp [is_rolled_up], 1
jne @f
jmp .no_game
@@:
if_e dword [level],0,.no_intro
call intro
jmp .no_game
@ -77,6 +82,12 @@ still:
jmp still
red: ; redraw
mov [is_rolled_up], 0
mcall 9,proc_info,-1
test [proc_info+process_information.wnd_state], 0x04
jz @f
mov [is_rolled_up], 1
@@:
call draw_window
jmp still
@ -402,6 +413,10 @@ ret
;___________________
intro: ; INTRO ;
cmp [is_rolled_up], 1
jne @f
ret
@@:
label 140,200,VERSION,0x100000FF
label 120,220,'by jj (jacek jerzy malinowski)',0x050505
label 100,240,'press SPACE to start a new game',0x10FF0800
@ -412,6 +427,10 @@ ret
;___________________
level_info:
cmp [is_rolled_up], 1
jne @f
ret
@@:
label 170,230,'L E V E L',0x100000FF
outcount [level],195,250,0x100000FF,2*65536
label 100,270,'press SPACE to start the level',0x10FF0800
@ -790,7 +809,10 @@ draw_window:
label 200,8,'LIVES:',0x10ddeeff
outcount dword [lives],250,8,0x10ddeeff,65536
cmp [is_rolled_up], 1
je @f
call fast_gfx
@@:
endwd
@ -800,6 +822,8 @@ draw_window:
; DATA AREA ;####################
;-----------;####################
is_rolled_up dd 0
lives dd 5
mode dd 0
l_end dd 0 ; if 1 the level is over
@ -917,6 +941,7 @@ screen_img:
dd Y_SIZE
screen:
rb X_SIZE*Y_SIZE*3
proc_info:
rb 1024
I_END: