WebSVN – Kolibri OS – Diff – /programs/games/arcanii/trunk/arcanii.asm


 
;               by jj
;        (jacek jerzy malinowski)
;
;   contact: 4nic8@casiocalc.org
;----------------------------------------
 
 
 
include 'lang.inc'
include '../../../macros.inc'
include 'ascl.inc'
include 'ascgl.inc'
include 'asjc.inc'
 
X_SIZE equ 400
Y_SIZE equ 300
 
MAX_LEVEL equ 5
 
BACK_CL equ 0x00EFEF ; background color
 
;    THE MAIN PROGRAM:
use32
 
               org    0x0
 
               db     'MENUET01'              ; 8 byte id
               dd     0x01                    ; header version
               dd     START                   ; start of code
               dd     I_END                   ; size of image
               dd     0x200000                ; memory for app
               dd     0x7fff0                 ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon
 
START:                          ; start of execution
 
    bmptoimg bmp_file,img_bmp   ; loading ... ;]
    getimg img_bmp,0,0,10,10,img_ball
    getimg img_bmp,20,0,20,10,img_bonus
    getimg img_bmp,0,10,40,20,img_brick1
    getimg img_bmp,0,30,40,20,img_brick2
    getimg img_bmp,0,50,40,20,img_brick3
    getimg img_bmp,0,70,40,20,img_brick4
 
    call draw_window
 
still:
    cmp  [is_rolled_up], 1
    jne  @f
    jmp  .no_game
  @@:
 
    if_e dword [level],0,.no_intro
       call intro
       jmp .no_game
    .no_intro:
 
    if_e dword [mode],2,.end_if1
       call level_info
       jmp .no_game
    .end_if1:
 
    if_e dword [mode],4,.end_if2
       call game_over
       jmp .no_game
    .end_if2:
 
    call fast_gfx ; <-- the main engine
    .no_game:
 
    mov  eax,11
    mcall
 
    cmp  eax,1                  ; redraw request ?
    je   red
    cmp  eax,2                  ; key in buffer ?
    je   key
    cmp  eax,3                  ; button in buffer ?
    je   button
 
    jmp  still
 
  red:                          ; redraw
    mov  [is_rolled_up], 0
    mcall 9,proc_info,-1
    test [proc_info+process_information.wnd_state], 0x04
    jz   @f
    mov  [is_rolled_up], 1
  @@:
    call draw_window
    jmp  still
 
  key:                          ; key
    mov  eax,2                  ; just read it and ignore
    mcall
    cmp  ah,key_Esc ; if Esc ?
    jne  .no_q
      or eax,-1
      mcall
    .no_q:
 
    if_e dword [mode],4,.end_if6
       jmp still
    .end_if6:
 
    cmp  ah,key_Space
    jne  .no_space
      if_e dword [mode],2,.end_if1
         mov dword [mode],0
         jmp .no_space
      .end_if1:
      mov dword [mode],1
      call fast_gfx
    .no_space:
    xor ebx,ebx
    mov bl,ah
    if_e ebx,key_F1,.no_f1
      inc dword [del]
    .no_f1:
    if_e ebx,key_F2,.no_f2
      if_a dword [del],0,.end_if3
         dec dword [del]
      .end_if3:
    .no_f2:
 
 
    jmp  still
 
  button:                       ; button
    mov  eax,17                 ; get id
    mcall
 
    cmp  ah,1                   ; button id=1 ?
    jne  noclose
 
    mov  eax,-1                 ; close this program
    mcall
  noclose:
 
    jmp  still
 
;   *********************************************
;   ******* VIRTUAL SCREEN FUNCTIONS ************
;   *********************************************
 
show_screen:  ; flips the virtual screen to the window
    push_abc
 
    mov  eax,7
    mov  ebx,screen
    mov  ecx,X_SIZE*65536+Y_SIZE
    mov  edx,4*65536+20
    mcall
 
    pop_abc
ret
 
put_bmp_screen: ; eax - y , ebx - x, esi - bmp
    cmp ebx,X_SIZE-5
    jb .ok1
      ret
    .ok1:
    cmp eax,Y_SIZE-5
    jb .ok2
      ret
    .ok2:
 
    push_abc
    xor  ecx,ecx
    xor  edx,edx
    mov  edi,screen
    mov  ecx,3
    mul  ecx  ; xx = 3*y*X_SIZE+3*x
    mov  ecx,X_SIZE
    mul  ecx
    push eax ; #> 1
    mov  eax,ebx
    mov  ecx,3
    mul  ecx
    mov  ebx,eax
    pop  edx ; #< 1
    add  edx,ebx
    add  edi,edx ; sets the pointer to x,y of the screen
 
    mov  cx,[si] ; loops 1
    xor  ebx,ebx
    mov  ax,cx
    mov  dx,3
    mul  dx
    mov  bx,ax
 
    push ebx ;#>4
 
    add  si,4
    mov  ax,[si] ; loops 2
    mov  cx,[si]
    ;shr  ax,2
    mov  dx,3   ; dx = ax *3
    mul  dx
    mov  bx,ax
    add  si,4
 
 
    pop  ebx ;#<4
    .l_y:
       mov ax,cx
       cld
       mov  cx,bx
       rep movs byte [edi],[esi]
       add edi,X_SIZE
       add edi,X_SIZE
       add edi,X_SIZE
       sub edi,ebx
       mov cx,ax
    loop .l_y
 
    pop_abc
ret
 
rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color
    mov edi,ebx
    add ebx,ecx
    cmp ebx,X_SIZE
    jb .ok1
      ret
    .ok1:
    mov ebx,edi
 
    mov edi,eax
    add eax,edx
    cmp eax,Y_SIZE
    jb .ok2
      ret
    .ok2:
    mov eax,edi
    push_abc
    push ecx  ;#>2
    push edx  ;#>3
 
    xor  ecx,ecx
    xor  edx,edx
    mov  edi,screen
    mov  ecx,3
    mul  ecx  ; xx = 3*y*X_SIZE+3*x
    mov  ecx,X_SIZE
    mul  ecx
    push eax ; #> 1
    mov  eax,ebx
    mov  ecx,3
    mul  ecx
    mov  ebx,eax
    pop  edx ; #< 1
    add  edx,ebx
 
    add  edi,edx ; sets the pointer to x,y of the screen
 
    pop ecx ; #<3
    pop edx ; #<4
    mov  eax,esi
    .l_y:
       ;mov ax,cx
       push  ecx
       cld
       mov  ecx,edx
       .l_x:
         ;rep movs byte [edi],[esi]
         mov  word [edi],ax
         push eax
         shr  eax,16
         mov  byte [edi+2],al
         add  edi,3
         pop  eax
       loop .l_x
 
       add edi,X_SIZE
       add edi,X_SIZE
       add edi,X_SIZE
       sub edi,edx
       sub edi,edx
       sub edi,edx
       ;mov cx,ax
       pop  ecx
    loop .l_y
 
    pop_abc
ret
 
grad_rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color, d
    push edi  ;#>0
    mov edi,ebx
    add ebx,ecx
    cmp ebx,X_SIZE
    jb .ok1
      pop edi ;#<0
      ret
    .ok1:
    mov ebx,edi
 
    mov edi,eax
    add eax,edx
    cmp eax,Y_SIZE
    jb .ok2
      pop edi ;#<0
      ret
    .ok2:
    mov eax,edi
 
    pop edi ;#<0
    push_abc
 
    push edi  ;#>5
    push ecx  ;#>2
    push edx  ;#>3
 
    xor  ecx,ecx
    xor  edx,edx
    mov  edi,screen
    mov  ecx,3
    mul  ecx  ; xx = 3*y*X_SIZE+3*x
    mov  ecx,X_SIZE
    mul  ecx
    push eax ; #> 1
    mov  eax,ebx
    mov  ecx,3
    mul  ecx
    mov  ebx,eax
    pop  edx ; #< 1
    add  edx,ebx
 
    add  edi,edx ; sets the pointer to x,y of the screen
 
    pop ecx ; #<3
    pop edx ; #<2
    mov  eax,esi
    pop esi ; #<5
    .l_y:
       ;mov ax,cx
       push  ecx
       cld
       mov  ecx,edx
       .l_x:
         ;rep movs byte [edi],[esi]
         mov  word [edi],ax
         push eax
         shr  eax,16
         mov  byte [edi+2],al
         add  edi,3
         pop  eax
       loop .l_x
 
       add edi,X_SIZE
       add edi,X_SIZE
       add edi,X_SIZE
       sub edi,edx
       sub edi,edx
       sub edi,edx
       add eax,esi
       ;mov cx,ax
       pop  ecx
    loop .l_y
 
    pop_abc
ret
 
 
fill_screen: ; eax - screen color ( 0x00RRGGBB )
    push_abc
    mov  edi,screen
    cld
    mov  ecx,X_SIZE*Y_SIZE
    .lab1:
        mov  [edi],eax
        add  edi,3
    loop .lab1
    pop_abc
ret
 
grad_fill_screen: ; eax - screen color ( 0x00RRGGBB ), ebx - mack
    push_abc
    mov  edi,screen
    cld
    mov  ecx,Y_SIZE
    mov  dl,0
    .lab1:
       push ecx
       mov ecx,X_SIZE
       .lab2:
         mov  [edi],eax
         add  edi,3
       loop .lab2
       mov dh,1  ; dl = 1 - dl
       sub dh,dl
       mov dl,dh
       cmp dl,0
       jne .no_ch  ; if (dl==0)
         add  eax,ebx ; change gradient
       .no_ch:
       pop ecx
    loop .lab1
    pop_abc
ret
 
 
bmp_fill_screen: ; esi - pointer to a backgroung bmp
    push_abc
    mov  edi,screen
    cld
    mov  ecx,X_SIZE*Y_SIZE
      rep movs dword  [edi],[esi]
    pop_abc
ret
 
;___________________
intro:  ; INTRO    ;
    cmp  [is_rolled_up], 1
    jne  @f
    ret
  @@:
    label 146,200,'ARCANOID II  v0.30',0x100000FF
    label 120,220,'by jj (jacek jerzy malinowski)',0x050505
    label 100,240,'press SPACE to start a new game',0x10FF0800
    label 15,240,'F1 + delay',0xFFA8FF
    label 15,260,'F2 + delay',0xFFA8FF
    delay 10
ret
 
;___________________
level_info:
    cmp  [is_rolled_up], 1
    jne  @f
    ret
  @@:
    label 170,230,'L E V E L',0x100000FF
    outcount [level],195,250,0x100000FF,2*65536
    label 100,270,'press SPACE to start the level',0x10FF0800
    delay 10
ret
 
;_________________________
game_over:  ; GAME OVER  ;
    mov  eax,0x00FF00
    mov  ebx,0xFF01
    .g_ok:
    call grad_fill_screen
    call show_screen  ; flips the screen
    label 120,150,'G  A  M  E    O  V  E  R',0x10050505
    label 140,200,'Thanks for playing',0x0FFF800
    delay 20
ret
 
 
;-----------------------------;
; THE MAIN THE GAME'S ENGINE ;
;-----------------------------;
fast_gfx:
    ; the background gradient
    if_e  dword [level],0,.no_0
      mov  eax,0xFF
      mov  ebx,0xFEFF
      jmp .g_ok
    .no_0:
    if_e  dword [level],1,.no_1
      mov  eax,BACK_CL
      mov  ebx,0xFFFF
      jmp .g_ok
    .no_1:
    if_e  dword [level],2,.no_2
      mov  eax,0xFF0000
      mov  ebx,0xFF00FF
      jmp .g_ok
    .no_2:
 
    mov  eax,BACK_CL
    mov  ebx,0xFFFF
    .g_ok:
    call grad_fill_screen
 
    mov  eax,37  ; get mouse position
    mov  ebx,1
    mcall
    shr  eax,16
    mov  [x],eax
    add  eax,[s_x]
    cmp  eax,X_SIZE  ; controls if the pad is in the screen
    jb   .ok
      cmp eax,0x7FFF ; if < 0
      jb  .upper
        mov [x],0
        jmp .ok
      .upper:        ; if > X_SIZE - pad size
      mov dword [x],X_SIZE-1
      mov eax,[s_x]
      sub dword [x],eax
    .ok:
    mov  ebx,[x]
    mov  eax,[y]
    mov  ecx,[s_x]
    mov  edx,15
    mov  esi,0xFF0000
    mov  edi,0xF0000F
    call grad_rect_screen
 
    call draw_level
 
    cmp dword [mode],1
    jne .no_go ; is the game started ?
      mov eax,[v_x]
      add dword [b_x],eax
      mov eax,[v_y]
      add dword [b_y],eax
      jmp .go
    .no_go:
      mov eax,[x] ; b_x = x + x_s/2
      mov ebx,[s_x]
      shr ebx,1
      add eax,ebx
      mov dword [b_x],eax
      mov eax,[y] ; b_y = y - 10
      sub eax,10
      mov dword [b_y],eax
 
      mov dword [v_x],1
      mov dword [v_y],-1
    .go:
    ;TEST WHERE IS THE BALL:
    cmp dword [b_x],0x7FFFFFFF
    jb .b_ok2 ; if out of the screen (left)
      mov dword [b_x],0
      mov eax,0
      sub eax,[v_x]
      mov [v_x],eax
    .b_ok2:
    cmp dword [b_x],X_SIZE-10
    jb .b_ok1 ; if out of the screen (right)
      mov dword [b_x],X_SIZE-11
      mov eax,0
      sub eax,[v_x]
      mov [v_x],eax
    .b_ok1:
    cmp dword [b_y],0x7FFFFFFF
    jb .b_ok3 ; if out of the screen (up)
      mov dword [b_y],0
      mov eax,0
      sub eax,[v_y]
      mov [v_y],eax
    .b_ok3:
    cmp dword [b_y],Y_SIZE-10
    jb .b_ok4 ; if out of the screen (down)
      mov dword [mode],0
      if_e dword [lives],0,.end_if5
         mov dword [mode],4 ; GAME OVER
         jmp still
      .end_if5:
         dec dword [lives]
      .end_else4:
      call draw_window
    .b_ok4:
 
    imgtoimg img_ball,dword [b_x],dword [b_y],screen_img
 
    call show_screen  ; flips the screen
    delay dword [del]
 
    call do_tests ; does all needed tests
ret
;----------------------;
; BALL & BRICKS EVENTS ;
;----------------------;
MAX_SPEED equ 3
do_tests:
    ; BALL <-> PAD
    mov eax,[b_x]
    add eax,10
    cmp eax,[x] ; if (b_x+10)>[pad x]
    jb .skip        ; &&
    mov eax,[b_x]
    mov ebx,[s_x]
    add ebx,[x]
    cmp eax,ebx ; if b_x < x + s_x
    ja .skip     ; &&
    mov eax,[b_y]
    add eax,10
    cmp eax,[y] ; if (b_y+10) > y
    jb .skip
    sub eax,15
    cmp eax,[y] ; if b_y < y+15
    ja .skip
      cmp dword [v_y],0x7FFFFF ; if v_y > 0
      ja .skip
      cmp dword [v_y],MAX_SPEED; speedup:
      ja .skip_s
        inc dword [speed_t]
        cmp dword [speed_t],5
        jb .skip_s
        inc dword [v_y]
        mov dword [speed_t],0
      .skip_s:
      inc dword [speed_t]
      mov eax,0
      sub eax,[v_y]
      mov [v_y],eax
      ;counting v_x:--------
      mov eax,[b_x]
      sub eax,[x]
      sub eax,5
      mov ecx,eax
      if_a eax,100,.end_if3
        mov eax,0
        sub eax,[v_x]
        mov [v_x],eax
        jmp .skip
      .end_if3:
      if_a eax,20,.end_if2
        sub eax,20
        shr eax,2
        mov [v_x],eax
        jmp .skip
      .end_if2:
        mov ebx,20
        sub ebx,ecx
        shr ebx,2
        mov dword [v_x],0
        sub dword [v_x],ebx
    .skip:
 
    ; BALL <-> BRICK
    mov dword [coliz],0
    call colision
    if_e dword [coliz],1,.end_if6
       ;abs dword [v_y]
       ;abs dword [v_x]
       ret
    .end_if6:
    add dword [b_x],10
    call colision
    sub dword [b_x],10
    if_e dword [coliz],1,.end_if7
       ;abs dword [v_y]
       ;abs dword [v_x]
       ch_sign dword [v_x]
       ret
    .end_if7:
    add dword [b_y],10
    call colision
    sub dword [b_y],10
    if_e dword [coliz],1,.end_if8
       ;abs dword [v_y]
       ;abs dword [v_x]
       ;ch_sign dword [v_y]
       ret
    .end_if8:
    add dword [b_x],10
    add dword [b_y],10
    call colision
    sub dword [b_x],10
    sub dword [b_y],10
    if_e dword [coliz],1,.end_if9
       ;abs dword [v_y]
       ;abs dword [v_x]
       ;ch_sign dword [v_x]
       ;ch_sign dword [v_y]
 
       ret
    .end_if9:
 
 
ret
 
colision:
 
    mov  esi,levels
    mov  eax,[level] ; eax = levels*100
    mov  bx,100
    mul  bx
    add  esi,eax
    ;--------------
    xor  edx,edx
    mov  eax,[b_x]
    mov  ebx,40
    div  ebx
    mov  ecx,eax
    push edx ;#>1
 
    xor edx,edx
    mov  eax,[b_y]
    mov  ebx,20
    div  ebx
    push edx ;#>2
    cmp  eax,9 ; out of the bricks board
    ja .ok2
    mov  ebx,10
    mul  ebx
    add  eax,ecx
    add  esi,eax
 
    cmp byte [esi],0 ; 0 - no brick
    je .ok2
      if_ne byte [esi],4,.end_if1
        dec byte [esi]
      .end_if1:
      mov dword [coliz],1
      pop ebx ;#<2
      pop eax ;#<1
      cmp ecx,8 ; x < 5 || x >35 - x inv
      jb  .inv
      cmp ecx,33
      ja  .inv
      jmp .no_inv
      .inv:
        mov eax,0
        sub eax,[v_x]
        mov [v_x],eax
        ;jmp .no_ok
      .no_inv:
      cmp ebx,6 ; if y < 5 || y>15 - y inv
      jb .inv_y
      cmp ebx,14
      ja .inv_y
      jmp .no_ok
        .inv_y:
        mov eax,0
        sub eax,[v_y]
        mov [v_y],eax
      .no_ok:
      jmp .ok
    .ok2:
      pop eax ;#<1
      pop eax ;#<2
    .ok:
 
 
ret
 
;-----------------------------------;
; DRAWS CURRENT LEVEL ON THE SCREEN ;
;-----------------------------------;
draw_level:
    mov  esi,levels
    mov  eax,[level] ; eax = levels*100
    mov  bx,100
    mul  bx
    add  esi,eax
    mov  ecx,10
    mov  eax,0
    mov dword [l_end],1
    .l_y:
      push ecx ;#>1
      mov ebx,0
      mov ecx,10
      .l_x:
        cmp byte [esi],1 ; if 1 ?
        push esi;#>2
        jne .no_1
          mov  esi,img_brick1
          call put_bmp_screen
          mov dword [l_end],0
        .no_1:
        cmp byte [esi],2 ; if 2 ?
        jne .no_2
          mov  esi,img_brick2
          call put_bmp_screen
          mov dword [l_end],0
        .no_2:
        cmp byte [esi],3 ; if 3 ?
        jne .no_3
          mov  esi,img_brick3
          call put_bmp_screen
          mov dword [l_end],0
        .no_3:
        cmp byte [esi],4 ; if 4 ?
        jne .no_4
          mov  esi,img_brick4
          call put_bmp_screen
        .no_4:
 
        add ebx,40
        pop esi ;#<2
        inc esi
      loop .l_x
      add eax,20 ;#<1
      pop  ecx
    loop .l_y
;----------------
; NEXT LEVEL
    if_e dword [l_end],1,.end_if ; all bricks are taken
    if_e dword [mode],1,.end_if
        add dword [level],1
        if_a dword [level],MAX_LEVEL,.end_if2
           mov dword [mode],4 ; game over
           jmp still
        .end_if2:
        call fast_gfx
        mov dword [mode],2
    .end_if:
ret
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
    mcall 12,1
    mcall 0,<100,X_SIZE+8>,<100,Y_SIZE+21>,0x14ffffff, , VERSION
 
 
 
	
	label 200,8,'LIVES:',0x10ffffff
    outcount dword [lives],250,8,0x10ffffff,65536
 
    cmp [is_rolled_up], 1
    je  @f
    call fast_gfx
  @@:
 
    mcall 12,2
 
    ret
 
;-----------;####################
; DATA AREA ;####################
;-----------;####################
 
VERSION db 'ARCANOID II', 0
 
is_rolled_up dd 0
 
 lives dd 5
 mode dd 0
 l_end dd 0 ; if 1 the level is over
; PAD x:
 x   dd 20
 y   dd Y_SIZE-20
; PAD length:
 s_x dd 40
 
; the ball stuff ;-)
 b_x dd 100
 b_y dd 250
 v_y dd 0
 v_x dd 3
 
 speed_t dd 0 ; 1/10 times speedup
 del dd 1 ; delay
 
 coliz dd 0 ; if 1 then colizion with a brick
 
; LEVELS:
level dd 0
levels:
;LEVEL 0:
db 0,0,0,0,0,0,0,0,0,0
db 0,4,0,0,4,4,0,0,0,4
db 4,0,4,0,4,0,4,0,4,0
db 4,0,4,0,4,0,4,0,4,0
db 4,4,4,0,4,4,0,0,4,0
db 4,0,4,0,4,0,4,0,4,0
db 4,0,4,0,4,0,4,0,0,4
db 0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0
 
;LEVEL 1:
db 1,1,1,1,1,1,1,1,1,1
db 0,3,0,0,3,3,0,0,0,3
db 3,0,3,0,3,0,3,0,3,0
db 3,0,3,0,3,0,3,0,3,0
db 3,3,3,0,3,3,0,0,3,0
db 3,0,3,0,3,0,3,0,3,0
db 3,0,3,0,3,0,3,0,0,3
db 2,2,2,2,2,2,2,2,2,2
db 1,1,1,1,1,1,1,1,1,1
db 1,1,1,1,1,1,1,1,1,1
;LEVEL 2:
db 3,3,3,3,0,0,3,3,3,3
db 3,1,1,1,0,0,1,1,1,3
db 3,1,2,1,3,3,1,2,1,3
db 0,1,0,1,3,3,1,0,1,0
db 2,1,2,1,1,1,1,2,1,2
db 0,1,0,1,2,2,1,0,1,0
db 2,1,2,1,1,1,1,2,1,2
db 0,1,0,1,1,1,1,0,1,0
db 0,0,0,1,0,0,1,0,0,0
db 0,0,0,1,0,0,1,0,0,0
;LEVEL 3:
db 1,2,3,1,2,3,1,3,2,1
db 2,3,1,2,3,1,3,3,1,2
db 3,1,2,3,1,2,3,1,2,3
db 1,2,3,1,2,3,1,3,2,1
db 2,3,1,2,3,1,3,3,1,2
db 3,1,2,3,1,2,3,1,2,3
db 1,2,1,2,1,2,1,2,1,2
db 1,0,1,0,1,0,1,0,1,0
db 0,0,3,0,0,0,0,3,0,0
db 0,0,3,0,0,0,0,3,0,0
;LEVEL 4:
db 0,0,0,1,1,1,1,0,0,0
db 0,0,1,2,2,2,2,1,0,0
db 1,1,1,2,2,2,2,1,1,1
db 1,0,1,0,2,2,0,1,0,1
db 0,1,1,2,2,2,2,1,1,0
db 0,0,1,2,2,2,2,1,0,0
db 0,0,1,2,2,2,2,1,0,0
db 0,0,1,2,3,3,2,1,0,0
db 0,0,1,2,2,2,2,1,0,0
db 0,0,0,1,1,1,1,0,0,0
;LEVEL 5:
db 1,1,1,1,1,1,1,1,1,1
db 1,2,0,0,3,2,0,0,2,1
db 1,2,0,0,2,3,0,0,2,1
db 2,2,0,0,3,2,0,0,2,2
db 0,0,0,0,2,3,0,0,0,0
db 0,0,0,1,1,1,1,0,0,0
db 0,0,1,1,0,0,1,1,0,0
db 0,0,1,1,0,0,1,1,0,0
db 2,1,2,1,2,1,2,1,2,1
db 1,2,1,2,1,2,1,2,1,2
 
 
; BITMAPs and IMAGEs
bmp_file:
    file 'arcanii.bmp'
 
img_bmp:
    rb 40*90*3+8
img_brick1:
    rb 40*20*3+8
img_brick2:
    rb 40*20*3+8
img_brick3:
    rb 40*20*3+8
img_brick4:
    rb 40*20*3+8
img_ball:
    rb 10*10*3+8
img_bonus:
    rb 20*10*3+8
 
 
screen_img:
    dd X_SIZE
    dd Y_SIZE
screen:
    rb X_SIZE*Y_SIZE*3
proc_info:
    rb 1024
I_END:
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Rev 2066	Rev 2683
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	;----------------------------------------	-
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'
13	include 'ascgl.inc'	10	include 'ascgl.inc'
14	include 'asjc.inc'	11	include 'asjc.inc'
15		12
16	X_SIZE equ 400	13	X_SIZE equ 400
17	Y_SIZE equ 300	14	Y_SIZE equ 300
18		15
19	MAX_LEVEL equ 5	16	MAX_LEVEL equ 5
20		17
21	BACK_CL equ 0x00EFEF ; background color	18	BACK_CL equ 0x00EFEF ; background color
22		19
23	; THE MAIN PROGRAM:	20	; THE MAIN PROGRAM:
24	use32	21	use32
25		22
26	org 0x0	23	org 0x0
27		24
28	db 'MENUET01' ; 8 byte id	25	db 'MENUET01' ; 8 byte id
29	dd 0x01 ; header version	26	dd 0x01 ; header version
30	dd START ; start of code	27	dd START ; start of code
31	dd I_END ; size of image	28	dd I_END ; size of image
32	dd 0x200000 ; memory for app	29	dd 0x200000 ; memory for app
33	dd 0x7fff0 ; esp	30	dd 0x7fff0 ; esp
34	dd 0x0 , 0x0 ; I_Param , I_Icon	31	dd 0x0 , 0x0 ; I_Param , I_Icon
35		32
36	START: ; start of execution	33	START: ; start of execution
37		34
38	bmptoimg bmp_file,img_bmp ; loading ... ;]	35	bmptoimg bmp_file,img_bmp ; loading ... ;]
39	getimg img_bmp,0,0,10,10,img_ball	36	getimg img_bmp,0,0,10,10,img_ball
40	getimg img_bmp,20,0,20,10,img_bonus	37	getimg img_bmp,20,0,20,10,img_bonus
41	getimg img_bmp,0,10,40,20,img_brick1	38	getimg img_bmp,0,10,40,20,img_brick1
42	getimg img_bmp,0,30,40,20,img_brick2	39	getimg img_bmp,0,30,40,20,img_brick2
43	getimg img_bmp,0,50,40,20,img_brick3	40	getimg img_bmp,0,50,40,20,img_brick3
44	getimg img_bmp,0,70,40,20,img_brick4	41	getimg img_bmp,0,70,40,20,img_brick4
45		42
46	call draw_window	43	call draw_window
47		44
48	still:	45	still:
49	cmp [is_rolled_up], 1	46	cmp [is_rolled_up], 1
50	jne @f	47	jne @f
51	jmp .no_game	48	jmp .no_game
52	@@:	49	@@:
53		50
54	if_e dword [level],0,.no_intro	51	if_e dword [level],0,.no_intro
55	call intro	52	call intro
56	jmp .no_game	53	jmp .no_game
57	.no_intro:	54	.no_intro:
58		55
59	if_e dword [mode],2,.end_if1	56	if_e dword [mode],2,.end_if1
60	call level_info	57	call level_info
61	jmp .no_game	58	jmp .no_game
62	.end_if1:	59	.end_if1:
63		60
64	if_e dword [mode],4,.end_if2	61	if_e dword [mode],4,.end_if2
65	call game_over	62	call game_over
66	jmp .no_game	63	jmp .no_game
67	.end_if2:	64	.end_if2:
68		65
69	call fast_gfx ; <-- the main engine	66	call fast_gfx ; <-- the main engine
70	.no_game:	67	.no_game:
71		68
72	mov eax,11	69	mov eax,11
73	mcall	70	mcall
74		71
75	cmp eax,1 ; redraw request ?	72	cmp eax,1 ; redraw request ?
76	je red	73	je red
77	cmp eax,2 ; key in buffer ?	74	cmp eax,2 ; key in buffer ?
78	je key	75	je key
79	cmp eax,3 ; button in buffer ?	76	cmp eax,3 ; button in buffer ?
80	je button	77	je button
81		78
82	jmp still	79	jmp still
83		80
84	red: ; redraw	81	red: ; redraw
85	mov [is_rolled_up], 0	82	mov [is_rolled_up], 0
86	mcall 9,proc_info,-1	83	mcall 9,proc_info,-1
87	test [proc_info+process_information.wnd_state], 0x04	84	test [proc_info+process_information.wnd_state], 0x04
88	jz @f	85	jz @f
89	mov [is_rolled_up], 1	86	mov [is_rolled_up], 1
90	@@:	87	@@:
91	call draw_window	88	call draw_window
92	jmp still	89	jmp still
93		90
94	key: ; key	91	key: ; key
95	mov eax,2 ; just read it and ignore	92	mov eax,2 ; just read it and ignore
96	mcall	93	mcall
97	cmp ah,key_Esc ; if Esc ?	94	cmp ah,key_Esc ; if Esc ?
98	jne .no_q	95	jne .no_q
99	or eax,-1	96	or eax,-1
100	mcall	97	mcall
101	.no_q:	98	.no_q:
102		99
103	if_e dword [mode],4,.end_if6	100	if_e dword [mode],4,.end_if6
104	jmp still	101	jmp still
105	.end_if6:	102	.end_if6:
106		103
107	cmp ah,key_Space	104	cmp ah,key_Space
108	jne .no_space	105	jne .no_space
109	if_e dword [mode],2,.end_if1	106	if_e dword [mode],2,.end_if1
110	mov dword [mode],0	107	mov dword [mode],0
111	jmp .no_space	108	jmp .no_space
112	.end_if1:	109	.end_if1:
113	mov dword [mode],1	110	mov dword [mode],1
114	call fast_gfx	111	call fast_gfx
115	.no_space:	112	.no_space:
116	xor ebx,ebx	113	xor ebx,ebx
117	mov bl,ah	114	mov bl,ah
118	if_e ebx,key_F1,.no_f1	115	if_e ebx,key_F1,.no_f1
119	inc dword [del]	116	inc dword [del]
120	.no_f1:	117	.no_f1:
121	if_e ebx,key_F2,.no_f2	118	if_e ebx,key_F2,.no_f2
122	if_a dword [del],0,.end_if3	119	if_a dword [del],0,.end_if3
123	dec dword [del]	120	dec dword [del]
124	.end_if3:	121	.end_if3:
125	.no_f2:	122	.no_f2:
126		123
127		124
128	jmp still	125	jmp still
129		126
130	button: ; button	127	button: ; button
131	mov eax,17 ; get id	128	mov eax,17 ; get id
132	mcall	129	mcall
133		130
134	cmp ah,1 ; button id=1 ?	131	cmp ah,1 ; button id=1 ?
135	jne noclose	132	jne noclose
136		133
137	mov eax,-1 ; close this program	134	mov eax,-1 ; close this program
138	mcall	135	mcall
139	noclose:	136	noclose:
140		137
141	jmp still	138	jmp still
142		139
143	; *********************************************	140	; *********************************************
144	; ***** VIRTUAL SCREEN FUNCTIONS **********	141	; ***** VIRTUAL SCREEN FUNCTIONS **********
145	; *********************************************	142	; *********************************************
146		143
147	show_screen: ; flips the virtual screen to the window	144	show_screen: ; flips the virtual screen to the window
148	push_abc	145	push_abc
149		146
150	mov eax,7	147	mov eax,7
151	mov ebx,screen	148	mov ebx,screen
152	mov ecx,X_SIZE*65536+Y_SIZE	149	mov ecx,X_SIZE*65536+Y_SIZE
153	mov edx,4*65536+20	150	mov edx,4*65536+20
154	mcall	151	mcall
155		152
156	pop_abc	153	pop_abc
157	ret	154	ret
158		155
159	put_bmp_screen: ; eax - y , ebx - x, esi - bmp	156	put_bmp_screen: ; eax - y , ebx - x, esi - bmp
160	cmp ebx,X_SIZE-5	157	cmp ebx,X_SIZE-5
161	jb .ok1	158	jb .ok1
162	ret	159	ret
163	.ok1:	160	.ok1:
164	cmp eax,Y_SIZE-5	161	cmp eax,Y_SIZE-5
165	jb .ok2	162	jb .ok2
166	ret	163	ret
167	.ok2:	164	.ok2:
168		165
169	push_abc	166	push_abc
170	xor ecx,ecx	167	xor ecx,ecx
171	xor edx,edx	168	xor edx,edx
172	mov edi,screen	169	mov edi,screen
173	mov ecx,3	170	mov ecx,3
174	mul ecx ; xx = 3yX_SIZE+3*x	171	mul ecx ; xx = 3yX_SIZE+3*x
175	mov ecx,X_SIZE	172	mov ecx,X_SIZE
176	mul ecx	173	mul ecx
177	push eax ; #> 1	174	push eax ; #> 1
178	mov eax,ebx	175	mov eax,ebx
179	mov ecx,3	176	mov ecx,3
180	mul ecx	177	mul ecx
181	mov ebx,eax	178	mov ebx,eax
182	pop edx ; #< 1	179	pop edx ; #< 1
183	add edx,ebx	180	add edx,ebx
184	add edi,edx ; sets the pointer to x,y of the screen	181	add edi,edx ; sets the pointer to x,y of the screen
185		182
186	mov cx,[si] ; loops 1	183	mov cx,[si] ; loops 1
187	xor ebx,ebx	184	xor ebx,ebx
188	mov ax,cx	185	mov ax,cx
189	mov dx,3	186	mov dx,3
190	mul dx	187	mul dx
191	mov bx,ax	188	mov bx,ax
192		189
193	push ebx ;#>4	190	push ebx ;#>4
194		191
195	add si,4	192	add si,4
196	mov ax,[si] ; loops 2	193	mov ax,[si] ; loops 2
197	mov cx,[si]	194	mov cx,[si]
198	;shr ax,2	195	;shr ax,2
199	mov dx,3 ; dx = ax *3	196	mov dx,3 ; dx = ax *3
200	mul dx	197	mul dx
201	mov bx,ax	198	mov bx,ax
202	add si,4	199	add si,4
203		200
204		201
205	pop ebx ;#<4	202	pop ebx ;#<4
206	.l_y:	203	.l_y:
207	mov ax,cx	204	mov ax,cx
208	cld	205	cld
209	mov cx,bx	206	mov cx,bx
210	rep movs byte [edi],[esi]	207	rep movs byte [edi],[esi]
211	add edi,X_SIZE	208	add edi,X_SIZE
212	add edi,X_SIZE	209	add edi,X_SIZE
213	add edi,X_SIZE	210	add edi,X_SIZE
214	sub edi,ebx	211	sub edi,ebx
215	mov cx,ax	212	mov cx,ax
216	loop .l_y	213	loop .l_y
217		214
218	pop_abc	215	pop_abc
219	ret	216	ret
220		217
221	rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color	218	rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color
222	mov edi,ebx	219	mov edi,ebx
223	add ebx,ecx	220	add ebx,ecx
224	cmp ebx,X_SIZE	221	cmp ebx,X_SIZE
225	jb .ok1	222	jb .ok1
226	ret	223	ret
227	.ok1:	224	.ok1:
228	mov ebx,edi	225	mov ebx,edi
229		226
230	mov edi,eax	227	mov edi,eax
231	add eax,edx	228	add eax,edx
232	cmp eax,Y_SIZE	229	cmp eax,Y_SIZE
233	jb .ok2	230	jb .ok2
234	ret	231	ret
235	.ok2:	232	.ok2:
236	mov eax,edi	233	mov eax,edi
237	push_abc	234	push_abc
238	push ecx ;#>2	235	push ecx ;#>2
239	push edx ;#>3	236	push edx ;#>3
240		237
241	xor ecx,ecx	238	xor ecx,ecx
242	xor edx,edx	239	xor edx,edx
243	mov edi,screen	240	mov edi,screen
244	mov ecx,3	241	mov ecx,3
245	mul ecx ; xx = 3yX_SIZE+3*x	242	mul ecx ; xx = 3yX_SIZE+3*x
246	mov ecx,X_SIZE	243	mov ecx,X_SIZE
247	mul ecx	244	mul ecx
248	push eax ; #> 1	245	push eax ; #> 1
249	mov eax,ebx	246	mov eax,ebx
250	mov ecx,3	247	mov ecx,3
251	mul ecx	248	mul ecx
252	mov ebx,eax	249	mov ebx,eax
253	pop edx ; #< 1	250	pop edx ; #< 1
254	add edx,ebx	251	add edx,ebx
255		252
256	add edi,edx ; sets the pointer to x,y of the screen	253	add edi,edx ; sets the pointer to x,y of the screen
257		254
258	pop ecx ; #<3	255	pop ecx ; #<3
259	pop edx ; #<4	256	pop edx ; #<4
260	mov eax,esi	257	mov eax,esi
261	.l_y:	258	.l_y:
262	;mov ax,cx	259	;mov ax,cx
263	push ecx	260	push ecx
264	cld	261	cld
265	mov ecx,edx	262	mov ecx,edx
266	.l_x:	263	.l_x:
267	;rep movs byte [edi],[esi]	264	;rep movs byte [edi],[esi]
268	mov word [edi],ax	265	mov word [edi],ax
269	push eax	266	push eax
270	shr eax,16	267	shr eax,16
271	mov byte [edi+2],al	268	mov byte [edi+2],al
272	add edi,3	269	add edi,3
273	pop eax	270	pop eax
274	loop .l_x	271	loop .l_x
275		272
276	add edi,X_SIZE	273	add edi,X_SIZE
277	add edi,X_SIZE	274	add edi,X_SIZE
278	add edi,X_SIZE	275	add edi,X_SIZE
279	sub edi,edx	276	sub edi,edx
280	sub edi,edx	277	sub edi,edx
281	sub edi,edx	278	sub edi,edx
282	;mov cx,ax	279	;mov cx,ax
283	pop ecx	280	pop ecx
284	loop .l_y	281	loop .l_y
285		282
286	pop_abc	283	pop_abc
287	ret	284	ret
288		285
289	grad_rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color, d	286	grad_rect_screen: ; eax - y , ebx - x, ecx - size x, edx - size y, si -color, d
290	push edi ;#>0	287	push edi ;#>0
291	mov edi,ebx	288	mov edi,ebx
292	add ebx,ecx	289	add ebx,ecx
293	cmp ebx,X_SIZE	290	cmp ebx,X_SIZE
294	jb .ok1	291	jb .ok1
295	pop edi ;#<0	292	pop edi ;#<0
296	ret	293	ret
297	.ok1:	294	.ok1:
298	mov ebx,edi	295	mov ebx,edi
299		296
300	mov edi,eax	297	mov edi,eax
301	add eax,edx	298	add eax,edx
302	cmp eax,Y_SIZE	299	cmp eax,Y_SIZE
303	jb .ok2	300	jb .ok2
304	pop edi ;#<0	301	pop edi ;#<0
305	ret	302	ret
306	.ok2:	303	.ok2:
307	mov eax,edi	304	mov eax,edi
308		305
309	pop edi ;#<0	306	pop edi ;#<0
310	push_abc	307	push_abc
311		308
312	push edi ;#>5	309	push edi ;#>5
313	push ecx ;#>2	310	push ecx ;#>2
314	push edx ;#>3	311	push edx ;#>3
315		312
316	xor ecx,ecx	313	xor ecx,ecx
317	xor edx,edx	314	xor edx,edx
318	mov edi,screen	315	mov edi,screen
319	mov ecx,3	316	mov ecx,3
320	mul ecx ; xx = 3yX_SIZE+3*x	317	mul ecx ; xx = 3yX_SIZE+3*x
321	mov ecx,X_SIZE	318	mov ecx,X_SIZE
322	mul ecx	319	mul ecx
323	push eax ; #> 1	320	push eax ; #> 1
324	mov eax,ebx	321	mov eax,ebx
325	mov ecx,3	322	mov ecx,3
326	mul ecx	323	mul ecx
327	mov ebx,eax	324	mov ebx,eax
328	pop edx ; #< 1	325	pop edx ; #< 1
329	add edx,ebx	326	add edx,ebx
330		327
331	add edi,edx ; sets the pointer to x,y of the screen	328	add edi,edx ; sets the pointer to x,y of the screen
332		329
333	pop ecx ; #<3	330	pop ecx ; #<3
334	pop edx ; #<2	331	pop edx ; #<2
335	mov eax,esi	332	mov eax,esi
336	pop esi ; #<5	333	pop esi ; #<5
337	.l_y:	334	.l_y:
338	;mov ax,cx	335	;mov ax,cx
339	push ecx	336	push ecx
340	cld	337	cld
341	mov ecx,edx	338	mov ecx,edx
342	.l_x:	339	.l_x:
343	;rep movs byte [edi],[esi]	340	;rep movs byte [edi],[esi]
344	mov word [edi],ax	341	mov word [edi],ax
345	push eax	342	push eax
346	shr eax,16	343	shr eax,16
347	mov byte [edi+2],al	344	mov byte [edi+2],al
348	add edi,3	345	add edi,3
349	pop eax	346	pop eax
350	loop .l_x	347	loop .l_x
351		348
352	add edi,X_SIZE	349	add edi,X_SIZE
353	add edi,X_SIZE	350	add edi,X_SIZE
354	add edi,X_SIZE	351	add edi,X_SIZE
355	sub edi,edx	352	sub edi,edx
356	sub edi,edx	353	sub edi,edx
357	sub edi,edx	354	sub edi,edx
358	add eax,esi	355	add eax,esi
359	;mov cx,ax	356	;mov cx,ax
360	pop ecx	357	pop ecx
361	loop .l_y	358	loop .l_y
362		359
363	pop_abc	360	pop_abc
364	ret	361	ret
365		362
366		363
367	fill_screen: ; eax - screen color ( 0x00RRGGBB )	364	fill_screen: ; eax - screen color ( 0x00RRGGBB )
368	push_abc	365	push_abc
369	mov edi,screen	366	mov edi,screen
370	cld	367	cld
371	mov ecx,X_SIZE*Y_SIZE	368	mov ecx,X_SIZE*Y_SIZE
372	.lab1:	369	.lab1:
373	mov [edi],eax	370	mov [edi],eax
374	add edi,3	371	add edi,3
375	loop .lab1	372	loop .lab1
376	pop_abc	373	pop_abc
377	ret	374	ret
378		375
379	grad_fill_screen: ; eax - screen color ( 0x00RRGGBB ), ebx - mack	376	grad_fill_screen: ; eax - screen color ( 0x00RRGGBB ), ebx - mack
380	push_abc	377	push_abc
381	mov edi,screen	378	mov edi,screen
382	cld	379	cld
383	mov ecx,Y_SIZE	380	mov ecx,Y_SIZE
384	mov dl,0	381	mov dl,0
385	.lab1:	382	.lab1:
386	push ecx	383	push ecx
387	mov ecx,X_SIZE	384	mov ecx,X_SIZE
388	.lab2:	385	.lab2:
389	mov [edi],eax	386	mov [edi],eax
390	add edi,3	387	add edi,3
391	loop .lab2	388	loop .lab2
392	mov dh,1 ; dl = 1 - dl	389	mov dh,1 ; dl = 1 - dl
393	sub dh,dl	390	sub dh,dl
394	mov dl,dh	391	mov dl,dh
395	cmp dl,0	392	cmp dl,0
396	jne .no_ch ; if (dl==0)	393	jne .no_ch ; if (dl==0)
397	add eax,ebx ; change gradient	394	add eax,ebx ; change gradient
398	.no_ch:	395	.no_ch:
399	pop ecx	396	pop ecx
400	loop .lab1	397	loop .lab1
401	pop_abc	398	pop_abc
402	ret	399	ret
403		400
404		401
405	bmp_fill_screen: ; esi - pointer to a backgroung bmp	402	bmp_fill_screen: ; esi - pointer to a backgroung bmp
406	push_abc	403	push_abc
407	mov edi,screen	404	mov edi,screen
408	cld	405	cld
409	mov ecx,X_SIZE*Y_SIZE	406	mov ecx,X_SIZE*Y_SIZE
410	rep movs dword [edi],[esi]	407	rep movs dword [edi],[esi]
411	pop_abc	408	pop_abc
412	ret	409	ret
413		410
414	;___________________	411	;___________________
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
426	ret	423	ret
427		424
428	;___________________	425	;___________________
429	level_info:	426	level_info:
430	cmp [is_rolled_up], 1	427	cmp [is_rolled_up], 1
431	jne @f	428	jne @f
432	ret	429	ret
433	@@:	430	@@:
434	label 170,230,'L E V E L',0x100000FF	431	label 170,230,'L E V E L',0x100000FF
435	outcount [level],195,250,0x100000FF,2*65536	432	outcount [level],195,250,0x100000FF,2*65536
436	label 100,270,'press SPACE to start the level',0x10FF0800	433	label 100,270,'press SPACE to start the level',0x10FF0800
437	delay 10	434	delay 10
438	ret	435	ret
439		436
440	;_________________________	437	;_________________________
441	game_over: ; GAME OVER ;	438	game_over: ; GAME OVER ;
442	mov eax,0x00FF00	439	mov eax,0x00FF00
443	mov ebx,0xFF01	440	mov ebx,0xFF01
444	.g_ok:	441	.g_ok:
445	call grad_fill_screen	442	call grad_fill_screen
446	call show_screen ; flips the screen	443	call show_screen ; flips the screen
447	label 120,150,'G A M E O V E R',0x10050505	444	label 120,150,'G A M E O V E R',0x10050505
448	label 140,200,'Thanks for playing',0x0FFF800	445	label 140,200,'Thanks for playing',0x0FFF800
449	delay 20	446	delay 20
450	ret	447	ret
451		448
452		449
453	;-----------------------------;	450	;-----------------------------;
454	; THE MAIN THE GAME'S ENGINE ;	451	; THE MAIN THE GAME'S ENGINE ;
455	;-----------------------------;	452	;-----------------------------;
456	fast_gfx:	453	fast_gfx:
457	; the background gradient	454	; the background gradient
458	if_e dword [level],0,.no_0	455	if_e dword [level],0,.no_0
459	mov eax,0xFF	456	mov eax,0xFF
460	mov ebx,0xFEFF	457	mov ebx,0xFEFF
461	jmp .g_ok	458	jmp .g_ok
462	.no_0:	459	.no_0:
463	if_e dword [level],1,.no_1	460	if_e dword [level],1,.no_1
464	mov eax,BACK_CL	461	mov eax,BACK_CL
465	mov ebx,0xFFFF	462	mov ebx,0xFFFF
466	jmp .g_ok	463	jmp .g_ok
467	.no_1:	464	.no_1:
468	if_e dword [level],2,.no_2	465	if_e dword [level],2,.no_2
469	mov eax,0xFF0000	466	mov eax,0xFF0000
470	mov ebx,0xFF00FF	467	mov ebx,0xFF00FF
471	jmp .g_ok	468	jmp .g_ok
472	.no_2:	469	.no_2:
473		470
474	mov eax,BACK_CL	471	mov eax,BACK_CL
475	mov ebx,0xFFFF	472	mov ebx,0xFFFF
476	.g_ok:	473	.g_ok:
477	call grad_fill_screen	474	call grad_fill_screen
478		475
479	mov eax,37 ; get mouse position	476	mov eax,37 ; get mouse position
480	mov ebx,1	477	mov ebx,1
481	mcall	478	mcall
482	shr eax,16	479	shr eax,16
483	mov [x],eax	480	mov [x],eax
484	add eax,[s_x]	481	add eax,[s_x]
485	cmp eax,X_SIZE ; controls if the pad is in the screen	482	cmp eax,X_SIZE ; controls if the pad is in the screen
486	jb .ok	483	jb .ok
487	cmp eax,0x7FFF ; if < 0	484	cmp eax,0x7FFF ; if < 0
488	jb .upper	485	jb .upper
489	mov [x],0	486	mov [x],0
490	jmp .ok	487	jmp .ok
491	.upper: ; if > X_SIZE - pad size	488	.upper: ; if > X_SIZE - pad size
492	mov dword [x],X_SIZE-1	489	mov dword [x],X_SIZE-1
493	mov eax,[s_x]	490	mov eax,[s_x]
494	sub dword [x],eax	491	sub dword [x],eax
495	.ok:	492	.ok:
496	mov ebx,[x]	493	mov ebx,[x]
497	mov eax,[y]	494	mov eax,[y]
498	mov ecx,[s_x]	495	mov ecx,[s_x]
499	mov edx,15	496	mov edx,15
500	mov esi,0xFF0000	497	mov esi,0xFF0000

Subversion Repositories Kolibri OS

(root)/programs/games/arcanii/trunk/arcanii.asm – Rev 2066 → 2683