XenOn/kolibrios-fun
1
1
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Wiki Activity

pong3: correct window title

Browse Source 
git-svn-id: svn://kolibrios.org@2674 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2012-05-25 07:20:15 +00:00
parent 37ce145294
commit 3be1aed1f6
2 changed files with 11 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
programs/games/pong3/trunk/ascl.inc
View File

@ -386,19 +386,6 @@ macro delay arg1
mcall mcall
} }
; WINDOW - Draw window
; (SYNTAX) WINDOW Xstart,Ystart,'Text',Color
; (SAMPLE) WINDOW 10,10,640+8,480+24,window_Skinned
macro window arg1,arg2,arg3,arg4,arg5
{
mov ebx,arg1*65536+arg3
mov ecx,arg2*65536+arg4
mov edx,arg5
mov eax,0
mcall
}
macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7 macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
{ {
mov ebx,arg1*65536+arg3 mov ebx,arg1*65536+arg3
@ -410,25 +397,6 @@ macro colorwindow arg1,arg2,arg3,arg4,arg5,arg6,arg7
mcall mcall
} }
; STARTWD - Start of window draw
macro startwd
{
mov eax,12
mov ebx,1
mcall
}
; ENDWD - End window draw
macro endwd
{
mov eax,12
mov ebx,2
mcall
}
; LABEL - Put text to frame ; LABEL - Put text to frame
; (SYNTAX) LABEL Xstart,Ystart,'Text',Color ; (SYNTAX) LABEL Xstart,Ystart,'Text',Color
; (SAMPLE) LABEL 10,12,'Hello World!',cl_Green+font_Big ; (SAMPLE) LABEL 10,12,'Hello World!',cl_Green+font_Big

15
programs/games/pong3/trunk/pong3.asm
View File

@ -42,6 +42,11 @@ still:
scevent red,key,button scevent red,key,button
;mcall 48, 4 ;get skin width
;sub [skin_h], 16
;div eax, 2
;mov [skin_h], eax
outcount dword [scoreb],300,8,cl_Blue,5*65536 outcount dword [scoreb],300,8,cl_Blue,5*65536
outcount dword [scorea],350,8,cl_Red,5*65536 outcount dword [scorea],350,8,cl_Red,5*65536
@ -292,14 +297,16 @@ no_sp:
draw_window: draw_window:
startwd mcall 12,1 ;start window redraw
window 0,0,640+8,480+24,window_Skinned mcall 0, <10, 640+8>, <10, 480+24>, 0x14000000,, wtitle
label 12,8,'PONG: USE ARROW KEYS SCORE',cl_White+font_Big mcall 12,2 ;end window redraw
endwd
ret ret
; DATA AREA ; DATA AREA
wtitle db 'PONG: USE ARROW KEYS SCORE:',0
;skin_h dd 25
xt dd 100 xt dd 100
yt dd 100 yt dd 100