WebSVN – Kolibri OS – Blame – /programs/games/phenix/trunk/phenix.asm

Rev	Author	Line No.	Line
31	halyavin	1	;
		2	; Phenix Dynamic Game Created by Pavlushin Evgeni for ASCL
		3	;
		4	; 100% Full relase!
		5	;
		6	; www.waptap@mail.ru
		7	;
		8
		9
		10	;******************************************************************************
		11	use32
		12	org 0x0
		13	db 'MENUET01' ; 8 byte id
		14	dd 0x01 ; header version
		15	dd START ; start of code
		16	dd IM_END ; size of image
		17	dd I_END ; memory for app
		18	dd I_END ; esp
		19	dd 0x0 , 0x0 ; I_Param , I_Icon
		20
		21	;******************************************************************************
		22
		23
		24	include 'lang.inc'
485	heavyiron	25	include '..\..\..\macros.inc'
31	halyavin	26	include 'ascl.inc'
		27	include 'ascgl.inc'
		28	include 'ascml.inc'
		29
		30
		31	showmas:
		32	cmp [edi+8],dword 0
		33	je noshow
		34	cmp [edi+8],dword 1
		35	jne no_gun
		36	mov eax,shoot
		37	jmp outp
		38	no_gun:
		39	push edi
		40	random 3,ebx
		41	pop edi
		42	cmp ebx,0
		43	jne no_star
		44	mov eax,star
		45	jmp outp
		46	no_star:
		47	cmp ebx,1
		48	jne no_star2
		49	mov eax,star2
		50	jmp outp
		51	no_star2:
		52	mov eax,star3
		53	outp:
		54	aimgtoimg eax,dword [edi],dword [edi+4],canvas,0x0
		55	noshow:
		56	ret
		57
		58	showobjmas:
		59	cmp [edi+8],dword 0
		60	je noshow1
		61	cmp [edi+4],dword 380
		62	jg noshow1
		63	cmp [edi+4],dword 0
		64	jl noshow1
		65	cmp [edi+8],dword 1
		66	jne no_warship1
		67	mov eax,warship1
		68	jmp outws
		69	no_warship1:
		70	cmp [edi+8],dword 2
		71	jne no_warship2
		72	mov eax,warship2
		73	jmp outws
		74	no_warship2:
		75	cmp [edi+8],dword 3
		76	jne no_meteor
		77	mov eax,meteor
		78	jmp outws
		79	no_meteor:
		80	cmp [edi+8],dword 4
		81	jne no_box
		82	mov eax,box
		83	jmp outws
		84	no_box:
		85	outws:
		86	aimgtoimg eax,dword [edi],dword [edi+4],canvas,0x0
		87	noshow1:
		88	ret
		89
		90
		91	moveobjmas:
		92	cmp [edi+8],dword 0
		93	je no_ws
		94	mov eax,[edi+12]
		95	add [edi],eax
		96	mov eax,[edi+16]
		97	add [edi+4],eax
		98
		99	cmp dword [edi],600
		100	jng xok1
		101	sub dword [edi],20
		102	neg dword [edi+12]
		103	jmp xok2
		104	xok1:
		105	cmp dword [edi],0
		106	jnl xok2
		107	add dword [edi],20
		108	neg dword [edi+12]
		109	xok2:
		110	cmp dword [edi+4],400
		111	jng yok
		112	mov dword [edi+8],0
		113	ret
		114	yok:
		115	cmp dword [edi+8],2 ;green ship
		116	jne no_grs
		117	cmp dword [edi+4],100
		118	jna no_grs
		119	cmp dword [edi+4],103
		120	jna grs
		121	cmp dword [edi+4],200
		122	jna no_grs
		123	cmp dword [edi+4],203
		124	jna grs
		125	cmp dword [edi+4],300
		126	jna no_grs
		127	cmp dword [edi+4],303
		128	ja no_grs
		129	grs:
		130	neg dword [edi+12]
		131	mov [temp],edi
		132	findmas massive,findzero
		133	;in edi off to free element
		134	jc close_app
		135	mov esi,edi
		136	mov edi,[temp]
		137	mov eax,[edi]
		138	mov [esi],eax
		139	mov eax,[edi+4]
		140	mov [esi+4],eax
		141	mov [esi+8],dword 1
		142	mov [esi+12],dword 0
		143	mov [esi+16],dword 10
		144	no_grs:
		145
		146	cmp dword [edi+8],1 ;blue ship
		147	jne no_bls
		148	cmp dword [edi+4],50
		149	jna no_bls
		150	cmp dword [edi+4],64
		151	jna bls
		152	cmp dword [edi+4],100
		153	jna no_bls
		154	cmp dword [edi+4],114
		155	jna bls
		156	cmp dword [edi+4],150
		157	jna no_bls
		158	cmp dword [edi+4],164
		159	ja no_bls
		160	bls:
		161	mov [temp],edi
		162	findmas massive,findzero
		163	jc close_app
		164	mov esi,edi
		165	mov edi,[temp]
		166	mov eax,[edi]
		167	mov [esi],eax
		168	mov eax,[edi+4]
		169	mov [esi+4],eax
		170	mov [esi+8],dword 2
		171	mov [esi+12],dword 0
		172	mov [esi+16],dword 5
		173	no_bls:
		174
		175	no_ws:
		176	ret
		177
		178
		179	delfarshoot:
		180	cmp [edi+4],dword 40
		181	jb del
		182	cmp [edi+4],dword 400
		183	ja del
		184	cmp [edi],dword 40
		185	jb del
		186	cmp [edi],dword 600
		187	ja del
		188	jmp nodel
		189	del:
		190	mov [edi+8],dword 0
		191	nodel:
		192	ret
		193
		194
		195	movemas:
		196	cmp [edi+8],dword 0
		197	jne no_freeel
		198	ret
		199	no_freeel:
		200	mov eax,[edi+12]
		201	add [edi],eax
		202	mov eax,[edi+16]
		203	add [edi+4],eax
		204	ret
		205
		206
		207
		208	endshowmas:
		209	cmp [edi+8],dword 0
		210	je noshowem
		211	mov eax,star2
		212	aimgtoimg eax,dword [edi],dword [edi+4],canvas,0x0
		213	noshowem:
		214	ret
		215
		216
		217
		218	endmovemas:
		219	cmp [edi+8],dword 0
		220	jne no_fr
		221	ret
		222	no_fr:
		223	mov eax,[edi+12]
		224	add [edi],eax
		225	mov eax,[edi+16]
		226	add [edi+4],eax
		227	ret
		228
		229
		230	findzero:
		231	cmp [edi+8],dword 0
		232	je iz_zero
		233	xor eax,eax
		234	ret
		235	iz_zero:
		236	mov eax,1
		237	ret
		238
		239	compobr:
		240	cmp [esi+8],dword 0
		241	je no_crsh
		242	cmp [edi+8],dword 0
		243	je no_crsh
		244	cmp [esi+16],dword 0
		245	jg no_crsh
		246
		247	mov eax,[esi]
		248	mov [temp],eax
		249	mov eax,[esi+4]
		250	mov [temp2],eax
		251	mov eax,[edi]
		252	mov [temp3],eax
		253	mov eax,[edi+4]
		254	mov [temp4],eax
		255
		256	pushad
		257	collimg imgsize,[temp],[temp2],imgsize,[temp3],[temp4],[otv]
		258	popad
		259	cmp [otv],dword 0
		260	je no_crsh
		261
		262	cmp [edi+8],dword 2
		263	jne no_grship
		264	inc [gship]
		265	add [score],30
		266	jmp setzero
		267	no_grship:
		268	cmp [edi+8],dword 1
		269	jne no_blship
		270	inc [bship]
		271	add [score],20
		272	jmp setzero
		273	no_blship:
		274	cmp [edi+8],dword 3
		275	jne no_metr
		276	dec dword [edi+16]
		277	cmp dword [edi+16],0
		278	jne mok
		279	mov dword [edi+16],1
		280	mok:
		281	mov [esi+8],dword 0
		282	ret
		283	no_metr:
		284
		285	setzero:
		286	mov [esi+8],dword 0
		287	mov [edi+8],dword 0
		288	no_crsh:
		289	ret
		290
		291	shipobjtest:
		292	cmp [edi+8],dword 0
		293	je no_obj
		294	mov eax,[edi]
		295	mov [temp3],eax
		296	mov eax,[edi+4]
		297	mov [temp4],eax
		298	pushad
		299	collimg imgsize,[shipx],[shipy],imgsize,[temp3],[temp4],[otv]
		300	popad
		301	cmp [otv],dword 0
		302	je no_obj
		303	cmp [edi+8],dword 4 ;if box
		304	jne no_fbox
		305	add [energy],5
		306	add [score],50
		307	mov [edi+8],dword 0
		308	inc [boxget]
		309	ret
		310	no_fbox:
		311	sub [energy],16
		312	mov [edi+8],dword 0
		313	no_obj:
		314	ret
		315
		316	shipguntest:
		317	cmp [edi+8],dword 0
		318	je no_gobj
		319	cmp [edi+16],dword 0
		320	jl no_gobj
		321	mov eax,[edi]
		322	mov [temp3],eax
		323	mov eax,[edi+4]
		324	mov [temp4],eax
		325	pushad
		326	collimg imgsize,[shipx],[shipy],imgsize,[temp3],[temp4],[otv]
		327	popad
		328	cmp [otv],dword 0
		329	je no_gobj
		330	sub [energy],4
		331	mov [edi+8],dword 0
		332	no_gobj:
		333	ret
		334
		335
		336	START: ; start of execution
		337
		338	massize = 400
		339	elemsize = 20
		340
		341	mov [massive],dword massize
		342	mov [massive+4],dword elemsize
		343
		344	omassize = 100
		345	oelemsize = 20
		346
		347	mov [objmas],dword omassize
		348	mov [objmas+4],dword oelemsize
		349
		350
		351	mov eax,66
		352	mov ebx,1
		353	mov ecx,1
485	heavyiron	354	mcall
31	halyavin	355
		356	mov eax,26
		357	mov ebx,2
		358	mov ecx,1
		359	mov edx,keymap
485	heavyiron	360	mcall
31	halyavin	361
		362	startgame:
		363	gif_hash_offset = gif_hash_area
		364	giftoimg gif_file_area2,canvas
		365
		366	gif_hash_offset = gif_hash_area
		367	giftoimg gif_file_area,img_area
		368
		369	getimg img_area,0,0,32,32,ship
		370	getimg img_area,32,0,32,32,shoot
		371	getimg img_area,64,0,32,32,warship1
		372	getimg img_area,96,0,32,32,warship2
		373	getimg img_area,128,0,32,32,meteor
		374	getimg img_area,160,0,32,32,star
		375	getimg img_area,192,0,32,32,star2
		376	getimg img_area,224,0,32,32,star3
		377	getimg img_area,0,32,32,32,box
		378
		379
		380
		381	main_menu:
		382	call draw_logowindow
		383
		384	stillm:
		385	wtevent redm,keym,buttonm
		386	jmp stillm
		387	redm:
		388	call draw_logowindow
		389	jmp stillm
		390	keym:
		391	mov eax,2
485	heavyiron	392	mcall
31	halyavin	393	jmp stillm
		394	buttonm:
		395	mov eax,17 ; get id
485	heavyiron	396	mcall
31	halyavin	397	cmp ah,1 ; button id=1 ?
		398	je close_app
		399	cmp ah,2 ; button id=1 ?
		400	je start_game
		401	cmp ah,3 ; button id=1 ?
		402	je help
		403	cmp ah,4 ; button id=1 ?
		404	je close_app
		405	jmp stillm
		406
		407	draw_logowindow:
		408	call draw_window
		409	setimg 5,21,canvas
		410	drawlbut 300,300,60,14,'START',2,0x990000,cl_Black
		411	drawlbut 300,320,60,14,'HELP',3,0x990000,cl_Black
		412	drawlbut 300,340,60,14,'EXIT',4,0x990000,cl_Black
		413	ret
		414
		415	;***********************
		416	; Draw help menu
		417	;***********************
		418
		419	help:
		420	call draw_helpwindow
		421
		422	stillh:
		423	wtevent redh,keyh,buttonh
		424	jmp stillh
		425	redh:
		426	call draw_helpwindow
		427	jmp stillh
		428	keyh:
		429	mov eax,2
485	heavyiron	430	mcall
31	halyavin	431	jmp stillh
		432	buttonh:
		433	mov eax,17 ; get id
485	heavyiron	434	mcall
31	halyavin	435	cmp ah,1 ; button id=1 ?
		436	je close_app
		437	cmp ah,2 ; button id=1 ?
		438	je start_game
		439	cmp ah,3 ; button id=1 ?
		440	je help
		441	cmp ah,4 ; button id=1 ?
		442	je close_app
		443	cmp ah,5 ; button id=1 ?
		444	je main_menu
		445	jmp stillh
		446
		447	draw_helpwindow:
		448	call draw_window
		449	setimg 5,21,canvas
		450
		451	drawfbox 40,50,580,380,cl_Grey
		452
		453	mov ebp,4*7
		454	mov ebx,180*65536+90
		455	mov edx,helptext
		456	mov esi,50
		457	mov ecx,cl_White
		458	dec ebp
		459	looht:
		460	mov eax,4
485	heavyiron	461	mcall
31	halyavin	462	add edx,esi
		463	add ebx,10
		464	dec ebp
		465	jnz looht
		466
		467	setimg 90,90,ship
		468	setimg 90,130,shoot
		469	setimg 90,170,star
		470	setimg 90,210,warship1
		471	setimg 90,250,warship2
		472	setimg 90,290,meteor
		473	setimg 90,330,box
		474
		475	drawlbut 500,400,80,14,'<
		476
		477	jmp stillh
		478
		479	helptext:
		480	db 'Phenix '
		481	db 'Controls: Num1 move left, Num3 move right '
		482	db ' P-pause (use for screen shooting) '
		483	db ' '
		484
		485	db 'Lazer cannon '
		486	db 'Press Num5 for shoot '
		487	db 'Core fast, speed fast, reload slow '
		488	db ' '
		489
		490	db 'Plazma cannon '
		491	db 'Press Num2 for Plazma Nuke and Num8 for shoot '
		492	db 'Core slow, speed medium, reload fast '
		493	db ' '
		494
		495	db 'Blue warship '
		496	db 'Speed fast '
		497	db 'Attack method: plazma bomb '
		498	db ' '
		499
		500	db 'Green warship '
		501	db 'Speed slow '
		502	db 'Attack method: laser shoot '
		503	db ' '
		504
		505	db 'Meteor '
		506	db 'Dangeros object! '
		507	db 'SuperSheld '
		508	db ' '
		509
		510	db 'Fly Box '
		511	db 'Sheld pack, sheld +5, score +30 '
		512	db 'Get for sheld level up! '
		513	db ' '
		514
		515	start_game:
		516
		517	; jmp end_gm
		518
		519	mov [canvas],dword 640
		520	mov [canvas+4],dword 440
		521
		522	call draw_window
		523
		524	;Main loop wait for event with 10msec
		525	still:
		526	; scevent red,key,button ;for full speed
		527
		528	timeevent 1,no_event,red,key,button
		529	no_event:
		530	setimg 5,21,canvas
		531
		532	cmp [pause_on],0
		533	jne still
		534
		535	cmp [energy],0
		536	jl game_over
		537
		538	cmp [ctime],dword 0
		539	je no_dct
		540	dec dword [ctime]
		541	no_dct:
		542
		543	cmp [xtime],dword 0
		544	je no_dxt
		545	dec dword [xtime]
		546	no_dxt:
		547
		548
		549	;
		550	; Add to level new ships
		551	;
		552	inc dword [pathtime]
		553	mov ebp,[levelpart]
		554	shl ebp,5
		555	add ebp,levels
		556	mov eax,[ebp]
		557	cmp [pathtime],eax ;500
		558	jne no_nextloc
		559
		560	randobjmasx:
		561	mov ebp,[levelpart]
		562	shl ebp,5
		563	add ebp,levels
		564
		565	mov ecx,[ebp+8]
		566	mov [shiptype],2
		567	mov [xmoving],9
		568	mov [xaccel],4
		569	mov [ymoving],3
		570	mov [yaccel],2
		571	call add_ships
		572
		573	mov ecx,[ebp+12]
		574	mov [shiptype],1
		575	mov [xmoving],3
		576	mov [xaccel],1
		577	mov [ymoving],3
		578	mov [yaccel],6
		579	call add_ships
		580
		581	mov ecx,[ebp+16]
		582	mov [shiptype],3
		583	mov [xmoving],5
		584	mov [xaccel],2
		585	mov [ymoving],5
		586	mov [yaccel],2
		587	call add_ships
		588
		589	mov ecx,[ebp+20]
		590	mov [shiptype],4
		591	mov [xmoving],4
		592	mov [xaccel],1
		593	mov [ymoving],4
		594	mov [yaccel],1
		595	call add_ships
		596
		597	jmp newlocend
		598
		599	shiptype dd 0
		600	xmoving dd 0
		601	ymoving dd 0
		602	xaccel dd 0
		603	yaccel dd 0
		604
		605	add_ships:
		606	looship:
		607	cmp ecx,0
		608	je no_ships
		609	push ecx
		610	findmas objmas,findzero
		611	;in edi off to free element
		612	jc close_app
		613	mov ebp,[shiptype]
		614	mov dword [edi+8],ebp ;2 ;green ship
		615	; random x
		616	push edi
		617	random 600,eax
		618	pop edi
		619	mov [edi],eax
		620	; random y
		621	push edi
		622	mov ebp,[levelpart]
		623	shl ebp,5
		624	add ebp,levels
		625	mov esi,[ebp+4] ;get max range
		626	random esi,eax
		627	neg eax
		628	pop edi
		629	mov [edi+4],eax
		630	; x moving
		631	push edi ;planers
		632	random [xmoving],eax
		633	sub eax,[xaccel];4
		634	pop edi
		635	mov [edi+12],eax
		636	; y moving
		637	push edi
		638	random [ymoving],eax ;slow
		639	add eax,[yaccel] ;2
		640	pop edi
		641	mov [edi+16],eax
		642	pop ecx
		643	dec ecx
		644	jnz looship
		645	no_ships:
		646	ret
		647
		648
		649	levelpart dd 0
		650	levels:
		651	;level1
		652	dd 1,800,0,0,5,8,0,0 ;one at start
		653	dd 500,2000,4,20,30,0,0,0
		654	dd 500,2000,4,20,0,8,0,0
		655	dd 500,2000,10,0,0,4,0,0
		656	dd 500,4000,0,30,0,0,0,0
		657	dd 400,400,0,0,10,0,0,0
		658	dd 400,400,0,0,10,0,0,0
		659	dd 0,0,0,0,0,0,0,0 ;end of level
		660	;level2
		661	dd 1,16000,0,30,0,0,0,0 ;one at start
		662	dd 200,8000,0,20,0,0,0,0
		663	dd 200,2000,0,10,0,8,0,0
		664	dd 200,4000,0,10,0,0,0,0
		665	dd 0,0,0,0,0,0,0,0 ;end of level
		666	;level3
		667	dd 1,4000,0,20,30,8,0,0 ;one at start
		668	dd 400,4000,10,10,20,6,0,0
		669	dd 400,4000,0,20,10,2,0,0
		670	dd 400,4000,10,10,20,0,0,0
		671	dd 0,-1,0,0,0,0,0,0 ;end of game
		672
		673
		674	newlocend:
		675	mov [pathtime],0
		676	inc [levelpart]
		677	jmp no_nextloc
		678
		679	endgame dd 0
		680	objects dd 0
		681	endtest:
		682	cmp dword [edi+8],0
		683	jne no_free
		684	ret
		685	no_free:
		686	mov [endgame],0
		687	inc [objects]
		688	ret
		689
		690
		691	no_nextloc:
		692	mov [objects],0
		693	mov [endgame],1
		694	readmas objmas,endtest
		695	cmp [endgame],1
		696	jne no_end_lev ;no_nextloc
		697
		698	mov ebp,[levelpart]
		699	shl ebp,5
		700	add ebp,levels
		701	mov eax,[ebp+4]
		702	cmp eax,dword 0
		703	je end_lev ;end of level
		704	cmp eax,dword -1
		705	je end_gm ;end of game
		706
		707	no_end_lev:
		708
		709	cmp [num5],dword 0
		710	je no_addsh
		711	cmp [ctime],dword 0
		712	jne no_addsh
		713	cmp [lazer],dword 0
		714	je no_addsh
		715	findmas massive,findzero
		716	;in edi off to free element
		717	jc close_app
		718	mov eax,[shipx]
		719	mov [edi],eax
		720	mov eax,[shipy]
		721	mov [edi+4],eax
		722	mov [edi+8],dword 1 ;show
		723	mov [edi+12],dword 0
		724	mov [edi+16],dword -12
		725	mov [ctime],dword 8 ;wait for cannon
		726	dec [lazer]
		727	no_addsh:
		728
		729	cmp [num8],dword 0
		730	je no_addplx
		731	cmp [xtime],dword 256-16
		732	jae no_addplx
		733	cmp [plazma],0
		734	je no_addplx
		735	findmas massive,findzero
		736	;in edi off to free element
		737	jc close_app
		738	mov eax,[shipx]
		739	mov [edi],eax
		740	mov eax,[shipy]
		741	mov [edi+4],eax
		742	mov [edi+8],dword 2 ;show
		743	add [xtime],dword 8 ;wait for cannon
		744	cmp [xtime],dword 256
		745	jna okx
		746	mov [xtime],256
		747	okx:
		748	mov [edi+12],dword 0 ;wait for cannon
		749	mov [edi+16],dword -8 ;wait for cannon
		750	dec [plazma]
		751	no_addplx:
		752
		753
		754
		755	cmp [num2],dword 0
		756	je no_addsh2
		757	cmp [xtime],dword 0
		758	jne no_addsh2
		759	cmp [plazma],0
		760	je no_addsh2
		761	mov eax,[shipy]
		762	mov [temp3],eax
		763	mov [temp2],dword 5
		764	loox2:
		765	mov [temp],dword 10
		766	loox:
		767	findmas massive,findzero
		768	;in edi off to free element
		769	jc close_app
		770	random 25,eax
		771	mov ebp,eax
		772	sub eax,12
		773	add eax,[shipx]
		774	mov [edi],eax
		775	shr ebp,3
		776	random ebp,eax
		777	neg eax
		778	add eax,[temp3] ;[shipy]
		779	mov [edi+4],eax
		780	mov [edi+8],dword 2 ;show hstar
		781	random 5,eax
		782	sub eax,2
		783	mov [edi+12],eax ;show hstar
		784	random 7,eax
		785	sub eax,8
		786	mov [edi+16],eax ;show hstar
		787	dec [temp]
		788	jnz loox
		789	sub [temp3],30
		790	dec [temp2]
		791	jnz loox2
		792	mov [xtime],dword 256 ;wait for cannon
		793	sub [plazma],50
		794	no_addsh2:
		795
		796
		797	cmp [num1],dword 0
		798	je no_left
		799	sub dword [shipx],6
		800	no_left:
		801
		802	cmp [num3],dword 0
		803	je no_right
		804	add dword [shipx],6
		805	no_right:
		806
		807	;ship correct
		808	cmp [shipx],5
		809	jnl xl_ok
		810	mov [shipx],5
		811	xl_ok:
		812	cmp [shipx],603
		813	jng xr_ok
		814	mov [shipx],603
		815	xr_ok:
		816
		817
		818	;clear scrbuf
		819	mov edi,canvas+8
		820	cld
		821	mov ecx,6404403/4
		822	mov eax,0
		823	rep stosd
		824
		825	compmas objmas,massive,compobr
		826
		827	readmas objmas,shipobjtest
		828	readmas massive,shipguntest
		829
		830	readmas objmas,showobjmas
		831	readmas objmas,moveobjmas
		832
		833	readmas massive,showmas
		834	readmas massive,movemas
		835	readmas massive,delfarshoot
		836	; findmas massive,findzero
		837	;in edi off to free element
		838	; jc close_app
		839
		840	aimgtoimg ship,[shipx],[shipy],canvas,0x0
		841
		842	drawfbox 150,5,64,5,0x000000
		843	mov eax,[xtime]
		844	sub eax,256
		845	neg eax
		846	shr eax,2
		847	drawfbox 150,5,eax,5,0x0000ff
		848
		849	drawfbox 150,12,64,5,0x000000
		850	mov eax,[ctime]
		851	sub eax,8
		852	neg eax
		853	shl eax,3
		854	drawfbox 150,12,eax,5,0xffff00
		855
		856	drawfbox 220,2,6*5+2 ,9,cl_Grey
		857	outcount [plazma],221,3,cl_Blue,5*65536
		858	drawfbox 220,11,6*5+2 ,9,cl_Grey
		859	outcount [lazer],221,12,0xffff00,5*65536
		860
		861
		862	drawfbox 280,6,6*5+2 ,9,cl_Grey
		863	outcount [gship],281,7,cl_Green,5*65536
		864	drawfbox 320,6,6*5+2 ,9,cl_Grey
		865	outcount [bship],321,7,cl_Blue,5*65536
		866	drawfbox 360,6,6*5+2 ,9,cl_Grey
		867	outcount [boxget],361,7,0xffaa00,5*65536
		868
		869	drawfbox 400,2,6*5+2 ,9,cl_Grey
		870	outcount [objects],401,2,0x00ff00,5*65536
		871	drawfbox 400,11,6*5+2 ,9,cl_Grey
		872	outcount [energy],401,12,0xff0000,5*65536
		873
		874	drawfbox 450,11,6*5+2 ,9,cl_Grey
		875	outcount [score],451,12,0xffff00,5*65536
		876
		877
		878	jmp still
		879
		880	red:
		881	call draw_window
		882	jmp still
		883
		884	key: ; key
		885	mov eax,2
485	heavyiron	886	mcall ; read (eax=2)
31	halyavin	887
		888	shr eax,8
		889	and eax,0xff
		890	mov ah,al
		891
		892	cmp ah,153
		893	jne no_pause
		894	not [pause_on]
		895	jmp still
		896	no_pause:
		897
		898
		899	cmp ah,76
		900	jne no_num5d
		901	mov [num5],1
		902	jmp still
		903	no_num5d:
		904	cmp ah,204
		905	jne no_num5u
		906	mov [num5],0
		907	jmp still
		908	no_num5u:
		909
		910	cmp ah,80
		911	jne no_num2d
		912	mov [num2],1
		913	jmp still
		914	no_num2d:
		915	cmp ah,208
		916	jne no_num2u
		917	mov [num2],0
		918	jmp still
		919	no_num2u:
		920
		921	cmp ah,79 ;key_Space 85 exit
		922	jne no_num1d
		923	mov [num1],1
		924	jmp still
		925	no_num1d:
		926	cmp ah,207 ;key_Space 85 exit
		927	jne no_num1u
		928	mov [num1],0
		929	jmp still
		930	no_num1u:
		931
		932	cmp ah,81 ;key_Space 85 exit
		933	jne no_num3d
		934	mov [num3],1
		935	jmp still
		936	no_num3d:
		937	cmp ah,209 ;key_Space 85 exit
		938	jne no_num3u
		939	mov [num3],0
		940	jmp still
		941	no_num3u:
		942
		943	cmp ah,72 ;key_Space 85 exit
		944	jne no_num8d
		945	mov [num8],1
		946	jmp still
		947	no_num8d:
		948	cmp ah,200 ;key_Space 85 exit
		949	jne no_num8u
		950	mov [num8],0
		951	jmp still
		952	no_num8u:
		953
		954	jmp still ; not testing
		955
		956	button: ; button
		957	mov eax,17 ; get id
485	heavyiron	958	mcall
31	halyavin	959	cmp ah,1 ; button id=1 ?
		960	jne noclose
		961	close_app:
		962	mov eax,-1 ; close this program
485	heavyiron	963	mcall
31	halyavin	964	noclose:
		965	jmp still
		966
		967	draw_window:
		968	startwd
		969	window 40,40,(640+9),(440+26),window_Skinned+0x00
		970	label 8,8,'ASCL DYNAMIC GAME',cl_White+font_Big
		971	; setimg 5,22,img_area
		972	endwd
		973	ret
		974
		975	;**********************
		976	; Game Over process
		977	;**********************
		978
		979	game_over:
		980	; close
		981	call draw_gowindow
		982	stillgo:
		983	wtevent redgo,keygo,buttongo
		984	jmp stillgo
		985	redgo:
		986	call draw_gowindow
		987	jmp stillgo
		988	keygo:
		989	mov eax,2
485	heavyiron	990	mcall
31	halyavin	991	jmp stillgo
		992	buttongo:
		993	mov eax,17 ; get id
485	heavyiron	994	mcall
31	halyavin	995	cmp ah,1
		996	je close_app
		997	cmp ah,4
		998	je close_app
		999	cmp ah,5
		1000	je main_menu
		1001	cmp ah,7
		1002	je restart_lev
		1003	jmp stillgo
		1004
		1005	restart_lev:
		1006	mov [pathtime],0
		1007
		1008	prevpart:
		1009	mov ebp,[levelpart]
		1010	shl ebp,5
		1011	add ebp,levels
		1012	mov eax,[ebp]
		1013	cmp eax,dword 1
		1014	je rest ;end of level
		1015	dec [levelpart]
		1016	jmp prevpart
		1017
		1018
		1019	rest:
		1020	;massives reset - clear massives
		1021	mov edi,massive+8
		1022	cld
		1023	mov ecx,massize*elemsize/4
		1024	mov eax,0
		1025	rep stosd
		1026
		1027	mov edi,objmas+8
		1028	cld
		1029	mov ecx,omassize*oelemsize/4
		1030	mov eax,0
		1031	rep stosd
		1032
		1033	;counters reset
		1034	mov [boxget],0
		1035	mov [gship],0
		1036	mov [bship],0
		1037
		1038	;ship reset
		1039	mov [energy],100
		1040	mov [shipx],300
		1041	mov [shipy],400
		1042	mov [lazer],1000
		1043	mov [plazma],500
		1044
		1045
		1046	; reset keyboard
		1047	mov [num1],0
		1048	mov [num5],0
		1049	mov [num3],0
		1050	mov [num2],0
		1051	mov [num8],0
		1052	jmp start_game
		1053
		1054	draw_gowindow:
		1055	startwd
		1056	drawfbox 170,160,300,120,cl_Grey
		1057	drawlbut 180,260,80,14,'(X) EXIT',4,0x990000,cl_Black
		1058	drawlbut 280,260,80,14,'',5,0x990000,cl_Black
		1059	drawlbut 380,260,80,14,'RESTART',7,0x990000,cl_Black
		1060
		1061	label 280,200,' GAME OVER ',cl_Black
		1062	endwd
		1063	ret
		1064
		1065
		1066	;**********************
		1067	; End level process
		1068	;**********************
		1069
		1070	end_lev:
		1071	; close
		1072	call draw_scorewindow
		1073	stilleg:
		1074	wtevent redeg,keyeg,buttoneg
		1075	jmp stilleg
		1076	redeg:
		1077	call draw_scorewindow
		1078	jmp stilleg
		1079	keyeg:
		1080	mov eax,2
485	heavyiron	1081	mcall
31	halyavin	1082	jmp stilleg
		1083	buttoneg:
		1084	mov eax,17 ; get id
485	heavyiron	1085	mcall
31	halyavin	1086	cmp ah,1
		1087	je close_app
		1088	cmp ah,2
		1089	je next_lev
		1090	cmp ah,3
		1091	je help
		1092	cmp ah,4
		1093	je close_app
		1094	cmp ah,5
		1095	je main_menu
		1096	jmp stilleg
		1097
		1098	next_lev:
		1099	mov [pathtime],0
		1100	inc [levelpart]
		1101
		1102	;ship reset
		1103	mov [energy],100
		1104	mov [shipx],300
		1105	mov [shipy],400
		1106	mov [lazer],1000
		1107	mov [plazma],500
		1108
		1109	;counters reset
		1110	mov [boxget],0
		1111	mov [gship],0
		1112	mov [bship],0
		1113
		1114	; reset keyboard
		1115	mov [num1],0
		1116	mov [num5],0
		1117	mov [num3],0
		1118	mov [num2],0
		1119	mov [num8],0
		1120	jmp start_game
		1121
		1122	draw_scorewindow:
		1123	call draw_window
		1124	startwd
		1125	drawfbox 170,130,300,190,cl_Grey
		1126	drawlbut 180,300,80,14,'(X) EXIT',4,0x990000,cl_Black
		1127	drawlbut 280,300,80,14,'',5,0x990000,cl_Black
		1128	drawlbut 380,300,80,14,'NEXT >>',2,0x990000,cl_Black
		1129
		1130	setimg 180,140,warship1
		1131	outcount [bship],241,151,cl_Blue,5*65536
		1132
		1133	setimg 180,180,warship2
		1134	outcount [gship],241,191,cl_Green,5*65536
		1135
		1136	setimg 180,220,meteor
		1137	setimg 180,260,box
		1138	outcount [boxget],241,271,0xbbbb00,5*65536
		1139	endwd
		1140	ret
		1141
		1142
		1143	;**********************
		1144	; End of game process
		1145	;**********************
		1146
		1147	end_gm:
		1148	mov [pathtime],0
		1149	call draw_window
		1150	label 200 ,8,'YOU WIN PRESS ANY KEY TO EXIT',cl_White+font_Big
		1151
		1152	stilleg2:
		1153	; scevent redeg2,keyeg2,buttoneg2
		1154	timeevent 1,no_event2,redeg2,keyeg2,buttoneg2
		1155
		1156	no_event2:
		1157	setimg 5,21,canvas
		1158
		1159	;clear scrbuf
		1160	mov edi,canvas+8
		1161	cld
		1162	mov ecx,6404403/4
		1163	mov eax,0
		1164	rep stosd
		1165
		1166	aimgtoimg ship,320,220,canvas,0x0
		1167
		1168	readmas massive,endshowmas
		1169	readmas massive,endmovemas
		1170	readmas massive,delfarshoot
		1171	; findmas massive,findzero
		1172	;in edi off to free element
		1173	; jc close_app
		1174
		1175	inc [pathtime]
		1176	cmp [pathtime],30
		1177	jne no_firework
		1178	mov [pathtime],0
		1179	random 400,eax
		1180	mov [temp3],eax
		1181	random 600,eax
		1182	mov [temp2],eax
		1183	mov [temp],dword 8;10
		1184	xloox:
		1185	findmas massive,findzero
		1186	;in edi off to free element
		1187	jc close_app
		1188
		1189	mov eax,[temp2] ;[shipx]
		1190	mov [edi],eax
		1191	mov eax,[temp3] ;[shipy]
		1192	mov [edi+4],eax
		1193	mov [edi+8],dword 2 ;show hstar
		1194	rerand:
		1195	random 5,eax
		1196	sub eax,2
		1197	cmp eax,0
		1198	je rerand
		1199	mov [edi+12],eax ;show hstar
		1200	rerand2:
		1201	random 7,eax
		1202	sub eax,3
		1203	cmp eax,0
		1204	je rerand2
		1205	mov [edi+16],eax ;show hstar
		1206	dec [temp]
		1207	jnz xloox
		1208	no_firework:
		1209	jmp stilleg2
		1210
		1211	redeg2:
		1212	jmp end_gm ;stilleg2
		1213	keyeg2:
		1214	mov eax,2
485	heavyiron	1215	mcall
31	halyavin	1216	jmp main_menu
		1217	buttoneg2:
		1218	mov eax,17 ; get id
485	heavyiron	1219	mcall
31	halyavin	1220	jmp stilleg2
		1221
		1222
		1223
		1224
		1225
		1226
		1227	; DATA AREA
		1228	IM_END:
		1229	;global
		1230	pause_on dd 0
		1231
		1232	;massive
		1233	shipx dd 300
		1234	shipy dd 400
		1235
		1236	;guns
		1237	lazer dd 1000
		1238	plazma dd 500
		1239
		1240	;keys
		1241	num1 dd 0
		1242	num5 dd 0
		1243	num3 dd 0
		1244	num2 dd 0
		1245	num8 dd 0
		1246
		1247	;enemy countres
		1248	gship dd 0
		1249	bship dd 0
		1250	boxget dd 0
		1251
		1252	energy dd 100
		1253	score dd 0
		1254
		1255	;delay for cannon
		1256	ctime dd 0
		1257	;delay for nuke gun
		1258	xtime dd 0
		1259	;path time
		1260	pathtime dd 0
		1261	;
		1262	temp dd 0
		1263	temp2 dd 0
		1264	temp3 dd 0
		1265	temp4 dd 0
		1266	otv dd 0
		1267
		1268	;for collimg
		1269	imgsize:
		1270	dd 32
		1271	dd 32
		1272
		1273	;massive:
		1274	;dd 400 ;elements num
		1275	;dd 20 ;size of element in bytes
		1276	;rb 400*20
		1277
		1278
		1279	keymap:
		1280	rb 1000
		1281
		1282	;gif_file_area ~21500
		1283	gif_file_area2:
		1284	file 'phenix.gif'
		1285	rb 50
		1286	gif_file_area:
		1287	file 'star2.gif';include gif file
		1288	rb 50 ;50 bytes temp back zone
		1289	img_area:
		1290	rb 256643+8
		1291	ship:
		1292	rb 32323+8
		1293	shoot:
		1294	rb 32323+8
		1295	warship1:
		1296	rb 32323+8
		1297	warship2:
		1298	rb 32323+8
		1299	meteor:
		1300	rb 32323+8
		1301	star:
		1302	rb 32323+8
		1303	star2:
		1304	rb 32323+8
		1305	star3:
		1306	rb 32323+8
		1307	box:
		1308	rb 32323+8
		1309
		1310	gif_hash_area:
		1311	rd 4096+1 ;hash area size for unpacking GIF
		1312
		1313	massive:
		1314	rd massize ;elements num
		1315	rd elemsize ;size of element in bytes
		1316	rb massize*elemsize
		1317
		1318	objmas:
		1319	rd omassize ;elements num
		1320	rd oelemsize ;size of element in bytes
		1321	rb omassize*oelemsize
		1322
		1323	canvas:
		1324	canvas_x:
		1325	rd 1
		1326	canvas_y:
		1327	rd 1
		1328	rb (6404403)+2000
		1329	I_END:

Subversion Repositories Kolibri OS

(root)/programs/games/phenix/trunk/phenix.asm @ 2501 – Rev 485