Subversion Repositories Kolibri OS

Rev

Rev 552 | Rev 2677 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 552 Rev 2062
Line 20... Line 20...
20 
 
 20 
 
Line 21... Line 21...
21 
;******************************************************************************
 21 
;******************************************************************************
22 
 
 22 
 
23 
 
 23 
 
24 
include 'lang.inc'
 24 
include 'lang.inc'
25 
include '..\..\..\macros.inc'
 25 
include '../../../macros.inc'
Line 401... Line 401...
401 
    je   close_app
 401 
    je   close_app
402 
    jmp  stillm
 402 
    jmp  stillm
Line 403... Line 403...
403 
 
 403 
 
404 
draw_logowindow:
 404 
draw_logowindow:
- 
 
 405 
    call draw_window
- 
 
 406 
    mcall 9,proc_info,-1
- 
 
 407 
    test [proc_info+process_information.wnd_state], 0x04
- 
 
 408 
    jz   @f
- 
 
 409 
    ret
405 
    call draw_window
 410 
  @@:
406 
    setimg 5,21,canvas
 411 
    setimg 5,21,canvas
407 
    drawlbut 300,300,60,14,'START',2,0x990000,cl_Black
 412 
    drawlbut 300,300,60,14,'START',2,0x990000,cl_Black
408 
    drawlbut 300,320,60,14,'HELP',3,0x990000,cl_Black
 413 
    drawlbut 300,320,60,14,'HELP',3,0x990000,cl_Black
409 
    drawlbut 300,340,60,14,'EXIT',4,0x990000,cl_Black
 414 
    drawlbut 300,340,60,14,'EXIT',4,0x990000,cl_Black
Line 441... Line 446...
441 
    je   main_menu
 446 
    je   main_menu
442 
    jmp  stillh
 447 
    jmp  stillh
Line 443... Line 448...
443 
 
 448 
 
444 
draw_helpwindow:
 449 
draw_helpwindow:
- 
 
 450 
    call draw_window
- 
 
 451 
    mcall 9,proc_info,-1
- 
 
 452 
    test [proc_info+process_information.wnd_state], 0x04
445 
    call draw_window
 453 
    jnz  stillh
Line 446... Line 454...
446 
    setimg 5,21,canvas
 454 
    setimg 5,21,canvas
Line 447... Line 455...
447 
 
 455 
 
Line 522... Line 530...
522 
still:
 530 
still:
523 
;    scevent red,key,button ;for full speed
 531 
;    scevent red,key,button ;for full speed
Line 524... Line 532...
524 
 
 532 
 
525 
    timeevent 1,no_event,red,key,button
 533 
    timeevent 1,no_event,red,key,button
- 
 
 534 
no_event:
- 
 
 535 
    mcall 9,proc_info,-1
- 
 
 536 
    test [proc_info+process_information.wnd_state], 0x04
526 
no_event:
 537 
    jnz  still
Line 527... Line 538...
527 
    setimg 5,21,canvas
 538 
    setimg 5,21,canvas
528 
 
 539 
 
Line 1048... Line 1059...
1048 
    mov [num8],0
 1059 
    mov [num8],0
1049 
    jmp start_game
 1060 
    jmp start_game
Line 1050... Line 1061...
1050 
 
 1061 
 
1051 
draw_gowindow:
 1062 
draw_gowindow:
- 
 
 1063 
    startwd
- 
 
 1064 
    call draw_window
- 
 
 1065 
    mcall 9,proc_info,-1
- 
 
 1066 
    test [proc_info+process_information.wnd_state], 0x04
- 
 
 1067 
    jz   @f
- 
 
 1068 
    ret
1052 
    startwd
 1069 
  @@:
1053 
    drawfbox 170,160,300,120,cl_Grey
 1070 
    drawfbox 170,160,300,120,cl_Grey
1054 
    drawlbut 180,260,80,14,'(X) EXIT',4,0x990000,cl_Black
 1071 
    drawlbut 180,260,80,14,'(X) EXIT',4,0x990000,cl_Black
1055 
    drawlbut 280,260,80,14,'',5,0x990000,cl_Black
 1072 
    drawlbut 280,260,80,14,'',5,0x990000,cl_Black
Line 1116... Line 1133...
1116 
    mov [num8],0
 1133 
    mov [num8],0
1117 
    jmp start_game
 1134 
    jmp start_game
Line 1118... Line 1135...
1118 
 
 1135 
 
1119 
draw_scorewindow:
 1136 
draw_scorewindow:
- 
 
 1137 
    call draw_window
- 
 
 1138 
    mcall 9,proc_info,-1
- 
 
 1139 
    test [proc_info+process_information.wnd_state], 0x04
- 
 
 1140 
    jz   @f
- 
 
 1141 
    ret
1120 
    call draw_window
 1142 
  @@:
1121 
    startwd
 1143 
    startwd
1122 
    drawfbox 170,130,300,190,cl_Grey
 1144 
    drawfbox 170,130,300,190,cl_Grey
1123 
    drawlbut 180,300,80,14,'(X) EXIT',4,0x990000,cl_Black
 1145 
    drawlbut 180,300,80,14,'(X) EXIT',4,0x990000,cl_Black
1124 
    drawlbut 280,300,80,14,'',5,0x990000,cl_Black
 1146 
    drawlbut 280,300,80,14,'',5,0x990000,cl_Black
Line 1317... Line 1339...
1317 
canvas_x:
 1339 
canvas_x:
1318 
 rd 1
 1340 
 rd 1
1319 
canvas_y:
 1341 
canvas_y:
1320 
 rd 1
 1342 
 rd 1
1321 
rb (640*440*3)+2000
 1343 
rb (640*440*3)+2000
- 
 
 1344 
 
- 
 
 1345 
proc_info:
- 
 
 1346 
rb 1024
1322 
I_END:
 1347 
I_END: