kolibrios-fun/programs/games/pong3/trunk/pong3.asm

;
;   Pong Gaem 3Ver Mini Sample by Pavlushin Evgeni for ASCL
;   www.waptap@mail.ru
;
;   Not use bmpfile!

;******************************************************************************
format binary as ""

    use32
    org    0x0
    db     'MENUET01'              ; 8 byte id
    dd     0x01                    ; header version
    dd     START                   ; start of code
    dd     IM_END                  ; size of image
    dd     0x300000                ; memory for app
    dd     0x300000                ; esp
    dd     0x0, 0x0                ; I_Param , I_Path

;******************************************************************************

include '..\..\..\macros.inc'
include 'ascl.inc'
include 'ascgl.inc'
include 'ascgml.inc'

AREA_W = 640
AREA_H = 480


START:                          ; start of execution
        convbmp pongfile, tsoi
        bmptoimg pongfile, tsoi,pong
        getimg pong, 0, 0,  80, 4, img
        getimg pong, 0, 4,  80, 4, img2
        getimg pong, 5, 38, 15, 15, img3
        getimg pong, 0, 10, 80, 20, img5
        fullimg imgbr, 80, 4,  0x00000000  ;black for rocket
        fullimg imgbg, 80, 20, 0x00000000  ;black for grav
        fullimg imgbb, 12, 12, 0x00000000  ;black for ball

still:
        scevent red,key,button

        ;mcall 48, 4 ;get skin height
        ;sub [skin_h], 16
        ;div eax, 2
        ;mov [skin_h], eax

remember_old_coordinates:
        m2m [ply1x_old], [ply1x]
        m2m [ply1y_old], [ply1y]
        m2m [ply2x_old], [ply2x]
        m2m [ply2y_old], [ply2y]
        m2m [gravx_old], [gravx]
        m2m [gravy_old], [gravy]
        m2m [ballx_old], [ballx]
        m2m [bally_old], [bally]

move_ply1:
        correct [ply1x], [ply1rx], 4
        correct [ply1y], [ply1ry], 2

; automove ball
        mov     eax, [ballxv]
        add     [ballx], eax
        mov     eax, [ballyv]
        add     [bally], eax

;autoslow ball
        cmp     [ballxv], 0
        jl       ballb
balla:
        cmp     [ballxv], 2
        jng     balln
        dec     [ballxv]
        jmp     balln
ballb:
        cmp     [ballxv], -2
        jnl     balln
        inc     [ballxv]
        jmp     balln
balln:
        cmp     [ballyv], 2
        jng     by_n
        dec     [ballyv]
by_n:

;ball collusion of screen
        cmp     [ballx], AREA_W-12
        jna     xa_ok
        neg     [ballxv]
xa_ok:
        cmp     [ballx], 6
        jnb     xb_ok
        neg     [ballxv]
xb_ok:

;if ball far out of screen come back
; is not work already
        cmp     [bally], AREA_H-30 ;check RED fails
        jng     yax_ok
        inc     [scoreb]
        call    draw_score
        mov     [bally], 240
        mov     [ballx], 310
        mov     [ballyv], 2
        random 5, [ballxv]
        sub     [ballxv], 2
yax_ok:
        cmp     [bally], 0  ;check BLUE fails
        jnl     yax_ok2
        inc     [scorea]
        call    draw_score
        mov     [bally], 240
        mov     [ballx], 310
        mov     [ballyv], 2
        random 5, [ballxv]
        sub     [ballxv], 2
yax_ok2:

xorx:
        cmp     [ballxv], 0
        jne     norx
        random 5, [ballxv]
        sub     [ballxv], 2
        cmp     [ballxv], 0
        je      xorx
norx:

;test on collusion ply1 of ball
collusion_test:
        collimg img, [ply1x], [ply1y], img3, [ballx], [bally], eax
        cmp     eax, 1
        jne     not_coll
        neg     [ballyv]
        add     [bally], 4
;        neg     [ballxv]
not_coll:

;test on collusion com of ball
collusion_com:
        collimg img, [ply2x], [ply2y], img3, [ballx], [bally], eax
        cmp     eax, 1
        jne     not_collcom
        neg     [ballyv]
        sub     [bally], 4
;        neg dword [ballxv]
not_collcom:

;test on collusion gravity of ball
collusion_grav:
        collimg img, [gravx], [gravy], img3, [ballx], [bally], eax
        cmp     eax, 1
        jne     not_collg
        neg     [ballyv]

;        mov     [ballxv], -20

        cmp     [ballyv], 0
        jl      ab
        jg      bf
        jmp     not_collgx
ab:
        sub     [ballyv], 25
        jmp     not_collgx
bf:
        add     [ballyv], 25
not_collgx:
        cmp     [ballxv], 0
        jl      abx
        jg      bfx
        jmp     not_collg
abx:
        sub     [ballxv], 8 ;15
        jmp     not_collg
bfx:
        add     [ballxv], 8


;        mov     [ballyv], 20
not_collg:

;ply contorl
        cmp     [ply1rx], 560
        jna     plyok
        cmp     [ply1rx], 12000
        jna     paa
        mov     [ply1rx], 4
        jmp     plyok
paa:
        mov     [ply1rx], 560
plyok:


;com contorl
        cmp     [ply2x], 560
        jna     cplyok
        cmp     [ply2x], 12000
        jna     cpaa
        mov     [ply2x], 4
        jmp     cplyok
cpaa:
        mov     [ply2x], 560
cplyok:


;com move
cx_move:
        cmp     [bally], 160
        jna     cno_m
        mov     eax, [ballx]
        sub     eax, 30
        cmp     [ply2x], eax
        je      cno_m
        cmp     [ply2x], eax
        ja      cm_m
cm_p:
        add     [ply2x], 3
        jmp     cno_m
cm_m:
        sub     [ply2x], 3
cno_m:

;garvity
gravity:
        cmp     [gravtime], 0
        je      no_dg
        dec     [gravtime]
no_dg:

draw_gravity:
        cmp     [gravtime], 0
        je      nograv
        mov     eax, [ply1x]
        mov     ebx, [ply1y]
        add     ebx, 10
        mov     [gravx], eax
        mov     [gravy], ebx
        jmp     endgrav
nograv:
        mov     [gravx], 1000
        mov     [gravy], 1000
endgrav:

;next code checks were coordinates of player1 and player2
;changed or not
;    if yes => fill old
;    if no  => do not fill old
redraw_images:
		;player1
		;if (ply1x!=ply1x_old) || (ply1y!=ply1y_old) fill1
		mov    eax, [ply1x]
		cmp    [ply1x_old], eax
		jne    fill1
		mov    eax, [ply1y]
		cmp    [ply1y_old],eax
		jne    fill1
		jmp    no_fill1
	fill1:
        setimg [ply1x_old], [ply1y_old], imgbr
	no_fill1:
        setimg [ply1x], [ply1y], img
		
		;player2
		;if (ply2x!=ply2x_old) || (ply2y!=ply2y_old) fill2
		mov    eax, [ply2x]
		cmp    [ply2x_old], eax
		jne    fill2
		mov    eax, [ply2y]
		cmp    [ply2y_old],eax
		jne    fill2
		jmp    no_fill2
	fill2:
        setimg [ply2x_old], [ply2y_old], imgbr
	no_fill2:
        setimg [ply2x], [ply2y], img2
		
		;ball
        setimg [ballx_old], [bally_old], imgbb
        setimg [ballx], [bally], img3
		
		;grav
        setimg [gravx_old], [gravy_old], imgbg
        setimg [gravx], [gravy], img5

        delay 1             ;don't generate delay for fast speed programm

        jmp     still

  red:
        call    draw_window
        jmp     still

  key:                          ; key
        mov     eax, 2
        mcall
        cmp     ah, key_Left
        jne     no_l
        sub     [ply1rx], 32 ;16
no_l:
        cmp     ah, key_Right
        jne     no_r
        add     [ply1rx], 32 ;16
no_r:
        cmp     ah, key_Up
        jne     no_u
        sub     [ply1ry], 16
		cmp     [ply1ry], 0
		jb      no_u
		mov     [ply1ry], 0
no_u:
        cmp     ah, key_Down
        jne     no_d
        add     [ply1ry], 16
		cmp     [ply1ry], AREA_H-50
		jl      no_d
		mov     [ply1ry], AREA_H-50
no_d:
        cmp     ah, key_Space
        jne     no_sp
        mov     [gravtime], 100
no_sp:

        jmp     still

  button:
        mcall   17         ; get id
        cmp     ah, 1      ; button id=1 ?
        jne     noclose
        mcall   -1         ; close this program
  noclose:
        jmp     still


draw_window:
        mcall 12,1 ;start window redraw
        mcall 0, <10, AREA_W+5+9>, <10, 480+35>, 0x34000000,, wtitle 
        mcall 12,2 ;end window redraw

draw_score:
		mcall 13, <10, 100>, <AREA_H-17, 16>, 0
		outcount [scoreb], 10, AREA_H-17, 0x01000000 + cl_Blue, 3 shl 16
        outcount [scorea], 50, AREA_H-17, 0x01000000 + cl_Red, 3 shl 16
		ret

; DATA AREA
wtitle db 'PONG: use Arrow Keys and Space',0
;skin_h dd 25

ply1x_old dd ? 
ply1y_old dd ?
ply2x_old dd ?
ply2y_old dd ?
gravx_old dd ?
gravy_old dd ?
ballx_old dd ?
bally_old dd ?

xt              dd 100
yt              dd 100

gravtime        dd 10
gravx           dd 1000
gravy           dd 1000

ply1rx          dd 200
ply1ry          dd 40

ply1x           dd 200
ply1y           dd 40

ply2x           dd 200
ply2y           dd 400

ballx           dd 200
bally           dd 200

ballyv          dd 3
ballxv          dd 3

scorea          dd 0
scoreb          dd 0

counter         dd 0
tsoi            dd 0

pongfile        file 'pong.bmp'

IM_END:

temp            rb 20000

;real images
pong            rb 80*60*3+8
img             rb 32*32*3+8
img2            rb 32*32*3+8
img3            rb 32*32*3+8
img5            rb 32*32*3+8

;black to clean old images
imgbr           rb 80*4 *3+8
imgbg           rb 80*20*3+8
imgbb           rb 12*12*3+8

I_END: