Subversion Repositories Kolibri OS

Rev

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

Rev 2066 Rev 2683
Line 1... Line -...
1
VERSION equ 'ARCANOID II v. 0.30'
-
 
2
;               by jj
1
;               by jj
3
;        (jacek jerzy malinowski)
2
;        (jacek jerzy malinowski)
4
;
3
;
5
;   contact: 4nic8@casiocalc.org
4
;   contact: 4nic8@casiocalc.org
6
;----------------------------------------
5
;----------------------------------------
7
;   Compile with FASM for Menuet
-
 
8
;----------------------------------------
-
 
Line 9... Line 6...
9
 
6
 
10
include 'lang.inc'
7
include 'lang.inc'
11
include '../../../macros.inc'
8
include '../../../macros.inc'
12
include 'ascl.inc'
9
include 'ascl.inc'
Line 415... Line 412...
415
intro:  ; INTRO    ;
412
intro:  ; INTRO    ;
416
    cmp  [is_rolled_up], 1
413
    cmp  [is_rolled_up], 1
417
    jne  @f
414
    jne  @f
418
    ret
415
    ret
419
  @@:
416
  @@:
420
    label 140,200,VERSION,0x100000FF
417
    label 146,200,'ARCANOID II  v0.30',0x100000FF
421
    label 120,220,'by jj (jacek jerzy malinowski)',0x050505
418
    label 120,220,'by jj (jacek jerzy malinowski)',0x050505
422
    label 100,240,'press SPACE to start a new game',0x10FF0800
419
    label 100,240,'press SPACE to start a new game',0x10FF0800
423
    label 15,240,'F1 + delay',0xFFA8FF
420
    label 15,240,'F1 + delay',0xFFA8FF
424
    label 15,260,'F2 + delay',0xFFA8FF
421
    label 15,260,'F2 + delay',0xFFA8FF
425
    delay 10
422
    delay 10
Line 800... Line 797...
800
;   *********************************************
797
;   *********************************************
Line 801... Line 798...
801
 
798
 
Line 802... Line 799...
802
 
799
 
-
 
800
draw_window:
-
 
801
 
Line 803... Line -...
803
draw_window:
-
 
804
 
-
 
805
    startwd
802
    mcall 12,1
806
 
803
    mcall 0,<100,X_SIZE+8>,<100,Y_SIZE+21>,0x14ffffff, , VERSION
Line 807... Line 804...
807
    window 100,100,X_SIZE+8,Y_SIZE+21,0x04ffffff
804
 
808
    label 8,8,VERSION,cl_White+font_Big
805
	
809
    label 200,8,'LIVES:',0x10ddeeff
806
	label 200,8,'LIVES:',0x10ffffff
810
    outcount dword [lives],250,8,0x10ddeeff,65536
807
    outcount dword [lives],250,8,0x10ffffff,65536
Line 811... Line 808...
811
 
808
 
Line 812... Line 809...
812
    cmp [is_rolled_up], 1
809
    cmp [is_rolled_up], 1
Line 813... Line 810...
813
    je  @f
810
    je  @f
814
    call fast_gfx
811
    call fast_gfx
815
  @@:
812
  @@:
Line -... Line 813...
-
 
813
 
-
 
814
    mcall 12,2
816
 
815
 
Line 817... Line 816...
817
    endwd
816
    ret
818
 
817
 
819
    ret
818
;-----------;####################