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

Subversion Repositories Kolibri OS

(root)/programs/phenix/trunk/phenix.asm – Rev 31