Subversion Repositories Kolibri OS

;

;   Pong Gaem 3Ver Mini Sample by Pavlushin Evgeni for ASCL

;   www.waptap@mail.ru

;

;   Not use bmpfile!

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

    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     temp_area , 0x0         ; I_Param , I_Icon

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

include 'ascl.inc'

include 'ascgl.inc'

include 'ascgml.inc'

START:                          ; start of execution

    call draw_window

;    loadbmp '/RD/1/PONG.BMP',temp_area,I_END,tsoi

    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,8,80,20,img5

    fullimg img4 , 80 ,20 ,0x00000000   ;black for rocket

    fullimg img6 , 15 ,15 ,0x00000000   ;black for ball

still:

    scevent red,key,button

    outcount dword [scoreb],300,8,cl_Blue,5*65536

    outcount dword [scorea],350,8,cl_Red,5*65536

del_images:

    setimg dword [ply1x],dword [ply1y],img4

    setimg dword [ply2x],dword [ply2y],img4

    setimg dword [ballx],dword [bally],img6

    setimg dword [gravx],dword [gravy],img4

move_ply1:

    correct [ply1x],[ply1rx],4

    correct [ply1y],[ply1ry],2

;automove ball

    mov eax,dword [ballxv]

    add dword [ballx],eax

    mov eax,dword [ballyv]

    add dword [bally],eax

;autoslow ball

    cmp dword [ballxv],0

    jl ballb

balla:

    cmp dword [ballxv],2

    jng balln

    dec dword [ballxv]

    jmp balln

ballb:

    cmp dword [ballxv],-2

    jnl balln

    inc dword [ballxv]

    jmp balln

balln:

    cmp dword [ballyv],2

    jng by_n

    dec dword [ballyv]

by_n:

;ball collusion of screen

    cmp dword [ballx],640-32

    jna xa_ok

    neg dword [ballxv]

xa_ok:

    cmp dword [ballx],6

    jnb xb_ok

    neg dword [ballxv]

xb_ok:

;if ball far out of screen come back

; is not work already

    cmp dword [bally],466

    jng yax_ok

    call draw_window

    inc dword [scoreb]

    mov dword [bally],240

    mov dword [ballx],310

    mov dword [ballyv],2

    random 5,dword [ballxv]

    sub dword [ballxv],2

yax_ok:

    cmp dword [bally],30

    jnl yax_ok2

    call draw_window

    inc dword [scorea]

    mov dword [bally],240

    mov dword [ballx],310

    mov dword [ballyv],2

    random 5,dword [ballxv]

    sub dword [ballxv],2

yax_ok2:

xorx:

    cmp dword [ballxv],0

    jne norx

    random 5,dword [ballxv]

    sub dword [ballxv],2

    cmp dword [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 dword [ballyv]

    add dword [bally],4

;    neg dword [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 dword [ballyv]

    sub dword [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 dword [ballyv]

;    mov dword [ballxv],-20

    cmp dword [ballyv],0

    jl  ab

    jg  bf

    jmp not_collgx

ab:

    sub dword [ballyv],25

    jmp not_collgx

bf:

    add dword [ballyv],25

not_collgx:

    cmp dword [ballxv],0

    jl  abx

    jg  bfx

    jmp not_collg

abx:

    sub dword [ballxv],8 ;15

    jmp not_collg

bfx:

    add dword [ballxv],8

;    mov dword [ballyv],20

not_collg:

;ply contorl

    cmp dword [ply1rx],560

    jna plyok

    cmp dword [ply1rx],12000

    jna paa

    mov dword [ply1rx],4

    jmp plyok

paa:

    mov dword [ply1rx],560

plyok:

;com contorl

    cmp dword [ply2x],560

    jna cplyok

    cmp dword [ply2x],12000

    jna cpaa

    mov dword [ply2x],4

    jmp cplyok

cpaa:

    mov dword [ply2x],560

cplyok:

;com move

cx_move:

    cmp dword [bally],160

    jna cno_m

    mov eax,dword [ballx]

    sub eax,30

    cmp dword [ply2x],eax

    je  cno_m

    cmp dword [ply2x],eax

    ja  cm_m

cm_p:

    add dword [ply2x],3

    jmp cno_m

cm_m:

    sub dword [ply2x],3

cno_m:

;garvity

gravity:

    cmp dword [gravtime],0

    je no_dg

    dec dword [gravtime]

no_dg:

draw_gravity:

    cmp dword [gravtime],0

    je  nograv

    mov eax,dword [ply1x]

    mov ebx,dword [ply1y]

    add ebx,10

    mov dword [gravx],eax

    mov dword [gravy],ebx

    jmp endgrav

nograv:

    mov dword [gravx],1000

    mov dword [gravy],1000

endgrav:

redraw_images:

    setimg dword [ply1x],dword [ply1y],img

    setimg dword [ply2x],dword [ply2y],img2 ;2

    setimg dword [ballx],dword [bally],img3

    setimg dword [gravx],dword [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

    int 0x40

    cmp ah,key_Left

    jne no_l

    sub dword [ply1rx],32 ;16

no_l:

    cmp ah,key_Right

    jne no_r

    add dword [ply1rx],32 ;16

no_r:

    cmp ah,key_Up

    jne no_u

    sub dword [ply1ry],16

no_u:

    cmp ah,key_Down

    jne no_d

    add dword [ply1ry],16

no_d:

    cmp ah,key_Space

    jne no_sp