Subversion Repositories Kolibri OS

Rev

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

Rev 551 Rev 2066
Line 6... Line 6...
6 
;----------------------------------------
 6 
;----------------------------------------
7 
;   Compile with FASM for Menuet
 7 
;   Compile with FASM for Menuet
8 
;----------------------------------------
 8 
;----------------------------------------
Line 9... Line 9...
9 
 
 9 
 
10 
include 'lang.inc'
 10 
include 'lang.inc'
11 
include '..\..\..\macros.inc'
 11 
include '../../../macros.inc'
12 
include 'ascl.inc'
 12 
include 'ascl.inc'
13 
include 'ascgl.inc'
 13 
include 'ascgl.inc'
Line 14... Line 14...
14 
include 'asjc.inc'
 14 
include 'asjc.inc'
Line 44... Line 44...
44 
    getimg img_bmp,0,70,40,20,img_brick4
 44 
    getimg img_bmp,0,70,40,20,img_brick4
Line 45... Line 45...
45 
 
 45 
 
Line 46... Line 46...
46 
    call draw_window
 46 
    call draw_window
- 
 
 47 
 
- 
 
 48 
still:
- 
 
 49 
    cmp  [is_rolled_up], 1
- 
 
 50 
    jne  @f
- 
 
 51 
    jmp  .no_game
47 
 
 52 
  @@:
48 
still:
 53 
 
49 
    if_e dword [level],0,.no_intro
 54 
    if_e dword [level],0,.no_intro
50 
       call intro
 55 
       call intro
Line 75... Line 80...
75 
    je   button
 80 
    je   button
Line 76... Line 81...
76 
 
 81 
 
Line 77... Line 82...
77 
    jmp  still
 82 
    jmp  still
- 
 
 83 
 
- 
 
 84 
  red:                          ; redraw
- 
 
 85 
    mov  [is_rolled_up], 0
- 
 
 86 
    mcall 9,proc_info,-1
- 
 
 87 
    test [proc_info+process_information.wnd_state], 0x04
- 
 
 88 
    jz   @f
78 
 
 89 
    mov  [is_rolled_up], 1
79 
  red:                          ; redraw
 90 
  @@:
Line 80... Line 91...
80 
    call draw_window
 91 
    call draw_window
81 
    jmp  still
 92 
    jmp  still
Line 400... Line 411...
400 
    pop_abc
 411 
    pop_abc
401 
ret
 412 
ret
Line 402... Line 413...
402 
 
 413 
 
403 
;___________________
 414 
;___________________
- 
 
 415 
intro:  ; INTRO    ;
- 
 
 416 
    cmp  [is_rolled_up], 1
- 
 
 417 
    jne  @f
- 
 
 418 
    ret
404 
intro:  ; INTRO    ;
 419 
  @@:
405 
    label 140,200,VERSION,0x100000FF
 420 
    label 140,200,VERSION,0x100000FF
406 
    label 120,220,'by jj (jacek jerzy malinowski)',0x050505
 421 
    label 120,220,'by jj (jacek jerzy malinowski)',0x050505
407 
    label 100,240,'press SPACE to start a new game',0x10FF0800
 422 
    label 100,240,'press SPACE to start a new game',0x10FF0800
408 
    label 15,240,'F1 + delay',0xFFA8FF
 423 
    label 15,240,'F1 + delay',0xFFA8FF
409 
    label 15,260,'F2 + delay',0xFFA8FF
 424 
    label 15,260,'F2 + delay',0xFFA8FF
410 
    delay 10
 425 
    delay 10
Line 411... Line 426...
411 
ret
 426 
ret
412 
 
 427 
 
- 
 
 428 
;___________________
- 
 
 429 
level_info:
- 
 
 430 
    cmp  [is_rolled_up], 1
- 
 
 431 
    jne  @f
413 
;___________________
 432 
    ret
414 
level_info:
 433 
  @@:
415 
    label 170,230,'L E V E L',0x100000FF
 434 
    label 170,230,'L E V E L',0x100000FF
416 
    outcount [level],195,250,0x100000FF,2*65536
 435 
    outcount [level],195,250,0x100000FF,2*65536
417 
    label 100,270,'press SPACE to start the level',0x10FF0800
 436 
    label 100,270,'press SPACE to start the level',0x10FF0800
Line 788... Line 807...
788 
    window 100,100,X_SIZE+8,Y_SIZE+21,0x04ffffff
 807 
    window 100,100,X_SIZE+8,Y_SIZE+21,0x04ffffff
789 
    label 8,8,VERSION,cl_White+font_Big
 808 
    label 8,8,VERSION,cl_White+font_Big
790 
    label 200,8,'LIVES:',0x10ddeeff
 809 
    label 200,8,'LIVES:',0x10ddeeff
791 
    outcount dword [lives],250,8,0x10ddeeff,65536
 810 
    outcount dword [lives],250,8,0x10ddeeff,65536
Line -... Line 811...
- 
 
 811 
 
- 
 
 812 
    cmp [is_rolled_up], 1
792 
 
 813 
    je  @f
- 
 
 814 
    call fast_gfx
Line 793... Line 815...
793 
    call fast_gfx
 815 
  @@:
Line 794... Line 816...
794 
 
 816 
 
Line 795... Line 817...
795 
    endwd
 817 
    endwd
796 
 
 818 
 
797 
    ret
 819 
    ret
Line -... Line 820...
- 
 
 820 
 
- 
 
 821 
;-----------;####################
798 
 
 822 
; DATA AREA ;####################
799 
;-----------;####################
 823 
;-----------;####################
800 
; DATA AREA ;####################
 824 
 
801 
;-----------;####################
 825 
is_rolled_up dd 0
802 
 
 826 
 
Line 915... Line 939...
915 
screen_img:
 939 
screen_img:
916 
    dd X_SIZE
 940 
    dd X_SIZE
917 
    dd Y_SIZE
 941 
    dd Y_SIZE
918 
screen:
 942 
screen:
919 
    rb X_SIZE*Y_SIZE*3
 943 
    rb X_SIZE*Y_SIZE*3
920 
 
 944 
proc_info:
- 
 
 945 
    rb 1024
921 
I_END:
 946 
I_END: