Rev 485 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 485 | Rev 2674 | ||
---|---|---|---|
Line 40... | Line 40... | ||
40 | 40 | ||
Line 41... | Line 41... | ||
41 | still: |
41 | still: |
Line -... | Line 42... | ||
- | 42 | ||
- | 43 | scevent red,key,button |
|
- | 44 | ||
- | 45 | ;mcall 48, 4 ;get skin width |
|
- | 46 | ;sub [skin_h], 16 |
|
42 | 47 | ;div eax, 2 |
|
43 | scevent red,key,button |
48 | ;mov [skin_h], eax |
Line 44... | Line 49... | ||
44 | 49 | ||
45 | outcount dword [scoreb],300,8,cl_Blue,5*65536 |
50 | outcount dword [scoreb],300,8,cl_Blue,5*65536 |
Line 290... | Line 295... | ||
290 | noclose: |
295 | noclose: |
291 | jmp still |
296 | jmp still |
Line 292... | Line 297... | ||
292 | 297 | ||
293 | - | ||
294 | draw_window: |
298 | |
295 | startwd |
299 | draw_window: |
296 | window 0,0,640+8,480+24,window_Skinned |
300 | mcall 12,1 ;start window redraw |
297 | label 12,8,'PONG: USE ARROW KEYS SCORE',cl_White+font_Big |
301 | mcall 0, <10, 640+8>, <10, 480+24>, 0x14000000,, wtitle |
Line 298... | Line 302... | ||
298 | endwd |
302 | mcall 12,2 ;end window redraw |
- | 303 | ret |
|
- | 304 | ||
- | 305 | ||
299 | ret |
306 | ; DATA AREA |
300 | 307 | wtitle db 'PONG: USE ARROW KEYS SCORE:',0 |
|
Line 301... | Line 308... | ||
301 | 308 | ;skin_h dd 25 |
|
302 | ; DATA AREA |
309 |