Subversion Repositories Kolibri OS

Rev

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