| /programs/games/pong3/trunk/ascl.inc |
|---|
| 386,19 → 386,6 |
| 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 |
| { |
| mov ebx,arg1*65536+arg3 |
| 410,25 → 397,6 |
| 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 |
| ; (SYNTAX) LABEL Xstart,Ystart,'Text',Color |
| ; (SAMPLE) LABEL 10,12,'Hello World!',cl_Green+font_Big |
| /programs/games/pong3/trunk/pong3.asm |
|---|
| 42,6 → 42,11 |
| 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 [scorea],350,8,cl_Red,5*65536 |
| 292,14 → 297,16 |
| draw_window: |
| startwd |
| window 0,0,640+8,480+24,window_Skinned |
| label 12,8,'PONG: USE ARROW KEYS SCORE',cl_White+font_Big |
| endwd |
| mcall 12,1 ;start window redraw |
| mcall 0, <10, 640+8>, <10, 480+24>, 0x14000000,, wtitle |
| mcall 12,2 ;end window redraw |
| ret |
| ; DATA AREA |
| wtitle db 'PONG: USE ARROW KEYS SCORE:',0 |
| ;skin_h dd 25 |
| xt dd 100 |
| yt dd 100 |