forked from KolibriOS/kolibrios
350 lines
7.4 KiB
NASM
350 lines
7.4 KiB
NASM
;
|
|
; 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 temp_area, 0x0 ; I_Param , I_Path
|
|
|
|
;******************************************************************************
|
|
|
|
include '..\..\..\macros.inc'
|
|
include 'ascl.inc'
|
|
include 'ascgl.inc'
|
|
include 'ascgml.inc'
|
|
|
|
|
|
START: ; start of execution
|
|
call draw_window
|
|
|
|
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
|
|
|
|
;mcall 48, 4 ;get skin width
|
|
;sub [skin_h], 16
|
|
;div eax, 2
|
|
;mov [skin_h], eax
|
|
|
|
outcount [scoreb], 300, 4, 0x10000000 + cl_Blue, 5 shl 16
|
|
outcount [scorea], 350, 4, 0x10000000 + cl_Red, 5 shl 16
|
|
|
|
del_images:
|
|
setimg [ply1x], [ply1y], img4
|
|
setimg [ply2x], [ply2y], img4
|
|
setimg [ballx], [bally], img6
|
|
setimg [gravx], [gravy], img4
|
|
|
|
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], 640-32
|
|
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], 466
|
|
jng yax_ok
|
|
call draw_window
|
|
inc [scoreb]
|
|
mov [bally], 240
|
|
mov [ballx], 310
|
|
mov [ballyv], 2
|
|
random 5, [ballxv]
|
|
sub [ballxv], 2
|
|
yax_ok:
|
|
cmp [bally], 30
|
|
jnl yax_ok2
|
|
call draw_window
|
|
inc [scorea]
|
|
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:
|
|
|
|
redraw_images:
|
|
setimg [ply1x], [ply1y], img
|
|
setimg [ply2x], [ply2y], img2
|
|
setimg [ballx], [bally], img3
|
|
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
|
|
no_u:
|
|
cmp ah, key_Down
|
|
jne no_d
|
|
add [ply1ry], 16
|
|
no_d:
|
|
cmp ah, key_Space
|
|
jne no_sp
|
|
mov [gravtime], 100
|
|
no_sp:
|
|
|
|
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
|
|
|
|
|
|
draw_window:
|
|
mcall 12,1 ;start window redraw
|
|
mcall 0, <10, 640+8>, <10, 480+24>, 0x14000000,, wtitle
|
|
mcall 12,2 ;end window redraw
|
|
ret
|
|
|
|
|
|
; DATA AREA
|
|
wtitle db 'PONG: USE ARROW KEYS SCORE:',0
|
|
;skin_h dd 25
|
|
|
|
xt dd 100
|
|
yt dd 100
|
|
|
|
gravtime dd 10
|
|
gravx dd 1000
|
|
gravy dd 1000
|
|
|
|
ply1rx dd 200
|
|
ply1ry dd 50
|
|
|
|
ply1x dd 200
|
|
ply1y dd 50
|
|
|
|
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
|
|
|
|
pong rb 80*60*3+8
|
|
img rb 32*32*3+8
|
|
img2 rb 32*32*3+8
|
|
img3 rb 32*32*3+8
|
|
img4 rb 80*20*3+8
|
|
img5 rb 32*32*3+8
|
|
img6 rb 15*15*3+8
|
|
|
|
temp_area rb 0x15000
|
|
|
|
I_END:
|