WebSVN – Kolibri OS – Diff – /programs/demos/free3d/trunk/free3d.asm

 ;---------------------------------------------------------------------
+; Free3D version 0.6
+;
+; last update:  21/02/2011
+; written by:   Marat Zakiyanov aka Mario79, aka Mario
+; changes:      advanced control for mouse
+;               advanced control for keyboard:
+;               W,A,S,D adn Arrow UP,Down,Left,Right
+;---------------------------------------------------------------------
 ; Free3D version 0.5
+;
 ; last update:  20/02/2011
 ; written by:   Marat Zakiyanov aka Mario79, aka Mario
 ; changes:      PNG textures 128x128
 ICON_SIZE_X	equ	128	;64
 ICON_SIZE_Y	equ	128	;64
-Floors_Height	equ	32000
-;ceil	=	sinus+TEX_SIZE	;16*1024
-;wall	=	ceil+TEX_SIZE*1
-;wall2	=	ceil+TEX_SIZE*2
-;wall3	=	ceil+TEX_SIZE*3
-;wall4	=	ceil+TEX_SIZE*4
-;wall5	=	ceil+TEX_SIZE*5
-;wall6	=	ceil+TEX_SIZE*6
 ;wall7	=	ceil+TEX_SIZE*7
-;APP_MEM	equ	0x400000
+Floors_Height	equ	32000
 ;---------------------------------------------------------------------
 use32
 org	0x0
 	dd I_END	; 0x100000 ; memory for app
 	dd stacktop	; 0x100000 ; esp
 	dd 0x0
 	dd path
 ;---------------------------------------------------------------------
-include '..\..\..\macros.inc'
+include '../../../macros.inc'
 ;include	'macros.inc'
 include '../../../develop/libraries/box_lib/load_lib.mac'
 ;include 'load_lib.mac'
 @use_library
-;COLOR_ORDER	equ OTHER
-;include		'gif_lite.inc'
 ;---------------------------------------------------------------------
 START:	; start of execution
 	mcall	68,11
+	mcall	66,1,1
+	mcall	40,0x27
+	mcall	9,procinfo,-1
+	mov	ecx,[ebx+30]	; PID
+	mcall	18,21
+	mov	[active_process],eax	; WINDOW SLOT
 load_libraries	l_libs_start,end_l_libs
 	test	eax,eax
 	fmul	[sindiv]
 	fistp	dword[esi]
 	add	esi,4
 	fadd	[sininc]
 	loop	.sinlp
+;---------------------------------------------------------------------
+	call	cursor_to_screen_center
-	call	draw_window	; at first, draw the window
+	call	set_new_cursor_skin
+;---------------------------------------------------------------------
+align	4
+red:	; redraw
+	call	draw_window
 	call	draw_stuff
-;--------------------------------------
+;---------------------------------------------------------------------
 align	4
-gamestart:
+still:
-; ******* MOUSE CHECK *******
-;	mov	eax,37	; check mouse (use mouse over window to navigate)
-;	mov	ebx,2	; check mousebuttons
-;	mcall
-;	cmp	eax,0	; only use mouse when button down
+	mcall	10	; ask no wait for full speed
-;	je	noneed	; deactivated cause of disappear-bug etc.
-	mcall	37,1	; check	mouseposition
+	cmp	eax,1	; window redraw request ?
-	mov	ebx,eax
-	shr	eax,16
-	and	eax,0x0000FFFF	; mousex
-	and	ebx,0x0000FFFF	; mousey
+	je	red
-	cmp	eax,5	; mouse out of window ?
+	cmp	eax,2	; key in buffer ?
-	jb	check_refresh	; it will prevent an app-crash
+	je	key
+	cmp	eax,3	; button in buffer ?
+	je	button
+	cmp	eax,6
-	cmp	ebx,22
+	jne	still
+;---------------------------------------------------------------------
-	jb	check_refresh
+mouse:
+	mcall	18,7
-	cmp	eax,640
+	cmp	[active_process],eax
-	jg	check_refresh
+	jne	still
-	cmp	ebx,501
+	mcall	37,1
-	jg	check_refresh
-	cmp	eax,315	; navigating?
+	xor	ebx,ebx
-	jb	m_left
+	mov	bx,ax  ; EBX mouse y
+	shr	eax,16 ; EAX mouse x
-	cmp	eax,325	;
+	mov	ecx,[mouse_position_old]
+	xor	edx,edx
+	mov	dx,cx  ; EDX mouse y old
+	shr	ecx,16 ; ECX mouse x old
+	cmp	eax,ecx
+	je	.y	;still
+	ja	.turn_left
+;---------------------------------------------------------------------
+.turn_right:
+	xchg	eax,ecx
+	sub	eax,ecx
-	jg	m_right
+	mov	edi,[vheading]
+	add	edi,eax
+	jmp	@f
+;---------------------------------------------------------------------
+.turn_left:
+	sub	eax,ecx
+	mov	edi,[vheading]
+	sub	edi,eax
 ;--------------------------------------
-continue:
+@@:
+	call	check_range
+;---------------------------------------------------------------------
-	cmp	ebx,220	;
+.y:
-	jb	s_up
+	cmp	ebx,edx
+	je	.red
-	cmp	ebx,260	;
+	ja	.walk_down
-	jg	s_down
+;--------------------------------------
-;--------------------------------------
+.walk_up:
+	sub	edx,ebx
+	mov	ecx,edx
+	call	prepare_2
+	jz	.1
-;   ******* END OF MOUSE CHECK *******
+;--------------------------------------
-align	4
+	add	eax,edi	; newPx
+	add	ebx,esi	; newPy
+	jmp	.1
+;---------------------------------------------------------------------
+.walk_down:
+	sub	ebx,edx
-check_refresh:
+	mov	ecx,ebx
+	call	prepare_2
+	jz	.1
+	sub	eax,edi	; newPx
+	sub	ebx,esi	; newPy
+;--------------------------------------
+.1:
+	mov	edi,eax	; newPx / ffff
-;	mov	eax,23	; wait for system event with 10 ms timeout
+	mov	esi,ebx	; newPy / ffff
+	sar	edi,16
+	sar	esi,16
+	mov	ecx,esi
+	sal	ecx,5
+	lea	ecx,[grid+ecx+edi]
+	cmp	[ecx],byte 0
+	je	@f
+	call	cursor_to_screen_center
+	jmp	still	;cannotwalk
+;---------------------------------------------------------------------
+@@:
+	mov	[vpx],eax
+	mov	[vpy],ebx
+;--------------------------------------
+.red:
+	call	cursor_to_screen_center
+	jmp	red
+;---------------------------------------------------------------------
+align	4
+prepare_2:
-;	mov	ebx,1	; thats max 100 FPS
+	shr	ecx,4
+	push	ecx
+	call	prepare_1
+	pop	ecx
+	cmp	ecx,3
+	jb	@f
+	mov	ecx,3
+@@:
+	shl	edi,cl
-	mcall	11	; ask no wait for full speed
+	shl	esi,cl
+	test	ecx,ecx
+	ret
-	cmp	eax,1	; window redraw request ?
+;---------------------------------------------------------------------
-	je	red2
+align	4
+check_range:
+	cmp	edi,0
+	jge	@f
-	cmp	eax,2	; key in buffer ?
+	mov	edi,3600
-	je	key2
+	jmp	.store
 ;--------------------------------------
+@@:
+	cmp	edi,3600
+	jle	@f
+	xor	edi,edi
+;--------------------------------------
-	cmp	eax,3	; button in buffer ?
+@@:
-	je	button2
+.store:
+	mov	[vheading],edi
+	ret
-	mov	edi,[mouseya]	; check flag if a refresh has to be done
+;---------------------------------------------------------------------
+align	4
+cursor_to_screen_center:
-	cmp	edi,1
+	mcall	18,15
-	jne	gamestart
+	mcall	37,1
+	mov	[mouse_position_old],eax
-	mov	[mouseya],dword 0
+	ret
+;---------------------------------------------------------------------
+set_new_cursor_skin:
+	mcall	68,12,32*32*4
+	mov	ecx,eax
+	mcall	37,4,,2
-	call	draw_stuff
+	mov	ecx,eax
+	mcall	37,5
+	ret
+;---------------------------------------------------------------------
+align	4
+key:	; key
+	mcall	2
+	cmp	[extended_key],1
+	je	.extended_key
+	test	al, al
+	jnz	still
+	cmp	ah, 0xE0
+	jne	@f
+	mov	[extended_key],1
+	jmp	still
-	jmp	gamestart
+;---------------------------------------------------------------------
+@@:
+	cmp	ah,1	; Esc
+	je	finish
+	cmp	ah,17 ; W up
+	je	s_up
+	cmp	ah,31 ; S down
+	je	s_down
 ;---------------------------------------------------------------------
-align	4
+	cmp	ah,30 ; A left
-red2:	; redraw
+	je	w_left	;s_left
 	call	draw_window
-	call	draw_stuff
+	cmp	ah,32 ; D right
-	jmp	gamestart
+	je	w_right	;s_right
-;---------------------------------------------------------------------
-align	4
+	jmp	still
-key2:	; key
+;---------------------------------------------------------------------
-	mcall	2
+.extended_key:
-	cmp	al,1
+	mov	[extended_key],0
-	je	gamestart	; keybuffer empty
+	mov	[current_key_code],ah
+	cmp	ah,27	; esc=End App
-	cmp	ah,27	; esc=End App
+	je	finish
+	cmp	ah,72 ; up arrow
-	je	finish
+	je	s_up
+	cmp	ah,80 ; down arrow
+	je	s_down
+	cmp	ah,75 ; left arrow
+	je	s_left
-	cmp	ah,178	; up
-	je	s_up
+	cmp	ah,77 ; right arrow
+	je	s_right
-	cmp	ah,177	; down
-	je	s_down
+	jmp	still
+;---------------------------------------------------------------------
+align	4
+smart_clr_key_buf:
+	mov	al,[old_key_code]
+	mov	ah,[current_key_code]
+	mov	[old_key_code],ah
+	cmp	al,ah
+	jne	.end
+;--------------------------------------
+.still:
+	mcall	2
+	cmp	[extended_key],1
+	je	.extended_key
-	cmp	ah,176	; left
+	test	al, al
+	jnz	.end
-	je	s_left
+	cmp	ah, 0xE0
+	jne	.end
+	mov	[extended_key],1
+	jmp	.still
-	cmp	ah,179	; right
+.end:
+	call	draw_stuff
+	jmp	still
+;---------------------------------------------------------------------
+.extended_key:
-	je	s_right
+	mov  [extended_key],0
 	mov  [current_key_code],ah
-	jmp	gamestart	; was any other key
+	jmp  smart_clr_key_buf
 ;---------------------------------------------------------------------
+align	4
+w_left:		; walk left
+	call	prepare_1
+	add	eax,esi	; newPx
+	sub	ebx,edi	; newPy
+	jmp	s_down.1
+;---------------------------------------------------------------------
+align	4
+w_right:	; walk right
+	call	prepare_1
-align	4
+	sub	eax,esi	; newPx
-s_up:	; walk forward (key or mouse)
+	add	ebx,edi	; newPy
-	mov	eax,[vpx]
+	jmp	s_down.1
-	mov	ebx,[vpy]
+;---------------------------------------------------------------------
 align	4
-	mov	ecx,[vheading]
+s_up:	; walk forward (key or mouse)
-	mov	edi,[sinus+ecx*4]
+	call	prepare_1
+;	sal	esi,1	; edit walking speed here
-	mov	edx,[vheading]
+;	sal	edi,1
+	add	eax,edi	; newPx
-	lea	edx,[sinus+3600+edx*4]
+	add	ebx,esi	; newPy
-	cmp	edx,eosinus	;cosinus taken from (sinus plus 900) mod 3600
+	jmp	s_down.1
-	jb	ok200
-	sub	edx,14400
-;--------------------------------------
+;---------------------------------------------------------------------
-ok200:
+align	4
-	mov	esi,[edx]
+s_down:	; walk	backward
-;	sal	esi,1	; edit walking speed here
+	call	prepare_1
-;	sal	edi,1
+;	sal	esi,1	; edit walking speed here
-	add	eax,edi	; newPx
+;	sal	edi,1
-	add	ebx,esi	; newPy
+	sub	eax,edi	; newPx
+	sub	ebx,esi	; newPy
-	mov	edi,eax	; newPx / ffff
+.1:
-	mov	esi,ebx	; newPy / ffff
-	sar	edi,16
+	mov	edi,eax	; newPx / ffff
-	sar	esi,16
+	mov	esi,ebx	; newPy / ffff
-	mov	ecx,esi
+	sar	edi,16
+	sar	esi,16
-	sal	ecx,5	; equal *32
+	mov	ecx,esi
-	lea	ecx,[grid+ecx+edi]
+	sal	ecx,5
-	cmp	[ecx],byte 0	; collision check
+	lea	ecx,[grid+ecx+edi]
-	jne	cannotwalk0
+	cmp	[ecx],byte 0
-	mov	[vpx],eax
-	mov	[vpy],ebx
-	mov	[mouseya],dword 1	; set refresh	flag
-;--------------------------------------
-cannotwalk0:
-	jmp	check_refresh
-;---------------------------------------------------------------------
-align	4
+	jne	smart_clr_key_buf	;cannotwalk
-s_down:	; walk	backward
-	mov	eax,[vpx]
-	mov	ebx,[vpy]
-	mov	ecx,[vheading]
-	mov	edi,[sinus+ecx*4]
-	mov	edx,[vheading]
-	lea	edx,[sinus+3600+edx*4]
-	cmp	edx,eosinus	; cosinus taken from (sinus plus 900) mod 3600
-	jb	ok201
-	sub	edx,14400
-;--------------------------------------
 ok201:
-	mov	esi,[edx]
+	mov	[vpx],eax
-;	sal	esi,1	; edit walking speed here
+	mov	[vpy],ebx
-;	sal	edi,1
+	jmp	smart_clr_key_buf
-	sub	eax,edi	; newPx
+;---------------------------------------------------------------------
-	sub	ebx,esi	; newPy
+align	4
-	mov	edi,eax	; newPx / ffff
-	mov	esi,ebx	; newPy / ffff
-	sar	edi,16
-	sar	esi,16
-	mov	ecx,esi
-	sal	ecx,5
-	lea	ecx,[grid+ecx+edi]
-	cmp	[ecx],byte 0
-	jne	cannotwalk1
+prepare_1:
-	mov	[vpx],eax
+	mov	eax,[vpx]
-	mov	[vpy],ebx
+	mov	ebx,[vpy]
-	mov	[mouseya],dword 1
+	mov	ecx,[vheading]
-;--------------------------------------
+	mov	edx,ecx
-cannotwalk1:
-	jmp	check_refresh
-;---------------------------------------------------------------------
+	mov	edi,[sinus+ecx*4]
-align	4
-s_left:	; turn	left	(key)
-	mov	edi,[vheading]	; heading
-	add	edi,50
+	lea	edx,[sinus+3600+edx*4]
-	cmp	edi,3600
-	jb	ok_heading0
+	cmp	edx,eosinus	; cosinus taken from (sinus plus 900) mod 3600
 	jb	@f
 	sub	edi,3600
-;--------------------------------------
-ok_heading0:
-	mov	[vheading],edi
-	mov	[mouseya],dword 1
-	jmp	check_refresh
-;---------------------------------------------------------------------
-align	4
-s_right:	; turn	right
-	mov	edi,[vheading]
-	sub	edi,50
-	cmp	edi,-1
-	jg	ok_heading1
-	add	edi,3600
-;--------------------------------------
-ok_heading1:
-	mov	[vheading],edi
-	mov	[mouseya],dword 1
-	jmp	check_refresh
-;---------------------------------------------------------------------
-align	4
-m_left:	; turn	left	(mouse)
-	mov	edi,[vheading]	; heading
-	mov	ecx,315
-	sub	ecx,eax
-	sar	ecx,2
-	add	edi,ecx
-	cmp	edi,3600
-	jb	ok_heading2
-	sub	edi,3600
-;--------------------------------------
-ok_heading2:
-	mov	[vheading],edi
+	sub	edx,14400
-	mov	[mouseya],dword 1
+;--------------------------------------
-	jmp	continue	; allow both: walk and rotate
+@@:
-;---------------------------------------------------------------------
+	mov	esi,[edx]
-align	4
+	ret
-m_right:	; turn right
+;---------------------------------------------------------------------
-	mov	edi,[vheading]
+align	4
-	sub	eax,325
+s_left:		; turn	left	(key)
-	sar	eax,2
+	mov	edi,[vheading]
 ;	jmp	nodark0	; use this to deactivate darkening floor (a bit faster)
 	cmp	eax,80
 	jg	nodark0
 ; split	rgb
-	mov	[blue],edx
+	mov	[blue_color],edx
-	and	[blue],dword 255
+	and	[blue_color],dword 255
 	shr	edx,8
-	mov	[green],edx
+	mov	[green_color],edx
-	and	[green],dword 255
+	and	[green_color],dword 255
 	shr	edx,8
-	mov	[red],edx
+	mov	[red_color],edx
-	and	[red],dword 255
+	and	[red_color],dword 255
 	mov	eax,81	; darkness parameter
 	sub	eax,[vdd]
 	sal	eax,1
 ; reduce rgb
-	sub	[red],eax
+	sub	[red_color],eax
-	cmp	[red],dword 0
+	cmp	[red_color],dword 0
 	jg	notblack10
-	mov	[red],dword 0
+	mov	[red_color],dword 0
 ;--------------------------------------
 notblack10:
-	sub	[green],eax
+	sub	[green_color],eax
-	cmp	[green],dword 0
+	cmp	[green_color],dword 0
 	jg	notblack20
-	mov	[green],dword 0
+	mov	[green_color],dword 0
 ;--------------------------------------
 notblack20:
-	mov	edx,[blue]
+	mov	edx,[blue_color]
-	sub	[blue],eax
+	sub	[blue_color],eax
-	cmp	[blue],dword 0
+	cmp	[blue_color],dword 0
 	jg	notblack30
-	mov	[blue],dword 0
+	mov	[blue_color],dword 0
 ;--------------------------------------
 notblack30:
-	shl	dword [red],16	; reassemble rgb
+	shl	dword [red_color],16	; reassemble rgb
-	shl	dword [green],8
+	shl	dword [green_color],8
 ; color must be in edx, wall height in [vdd]
 	mov	eax,[vdd]
 	cmp	eax,50
 	jg	nodark
 ; split rgb
-	mov	[blue],edx
+	mov	[blue_color],edx
-	and	[blue],dword 255
+	and	[blue_color],dword 255
 	shr	edx,8
-	mov	[green],edx
+	mov	[green_color],edx
-	and	[green],dword 255
+	and	[green_color],dword 255
 	shr	edx,8
-	mov	[red],edx
+	mov	[red_color],edx
-	and	[red],dword 255
+	and	[red_color],dword 255
 	mov	eax,51	; darkness parameter
 	sal	eax,2
 ;--------------------------------------
 align	4
 isdarkside:
 ; reduce rgb
-	sub	[red],eax
+	sub	[red_color],eax
-	cmp	[red],	dword 0
+	cmp	[red_color],dword 0
 	jg	notblack10b
-	mov	[red],dword 0
+	mov	[red_color],dword 0
 ;--------------------------------------
 align	4
 notblack10b:
-	sub	[green],eax
+	sub	[green_color],eax
-	cmp	[green],dword 0
+	cmp	[green_color],dword 0
 	jg	notblack20b
-	mov	[green],dword 0
+	mov	[green_color],dword 0
 ;--------------------------------------
 align	4
 notblack20b:
-	mov	edx,[blue]
+	mov	edx,[blue_color]
-	sub	[blue],eax
+	sub	[blue_color],eax
-	cmp	[blue],dword 0
+	cmp	[blue_color],dword 0
 	jg	notblack30b
-	mov	[blue],dword 0
+	mov	[blue_color],dword 0
 ;--------------------------------------
 align	4
 notblack30b:
-	shl	dword [red],16	; reassemble rgb
+	shl	dword [red_color],16	; reassemble rgb
-	shl	dword [green],8
+	shl	dword [green_color],8
-	mov	edx,[red]
+	mov	edx,[red_color]
-	or	edx,[green]
+	or	edx,[green_color]
-	or	edx,[blue]
+	or	edx,[blue_color]
 	mov	eax,edx
 ;--------------------------------------
 vpx:
 	dd 0x0001FFFF	; initial player position * 0xFFFF
 vpy:
 	dd 0x0001FFFF
-title	db 'Free3D v0.5 - fisheye raycasting engine etc.',0
+title	db 'Free3D v0.6 - fisheye raycasting engine etc.',0
 sindegree	dd 0.0
 sininc		dd 0.0017453292519943295769236907684886
 sindiv		dd 6553.5
+;textures:
+;file 'texture.gif'
+current_key_code	db 0
-;textures:
+old_key_code		db 0
-;file 'texture.gif'
+extended_key		db 0
 ;---------------------------------------------------------------------
 align	4
 fileinfo:
 wall4	rd 1
 wall5	rd 1
 wall6	rd 1
 wall7	rd 1
 ;screen_buffer	rd 1
+active_process	rd 1
+;mouse_position		rd 1
+mouse_position_old	rd 1
 ;---------------------------------------------------------------------
 align	4
 col1:
 	dd ?	;-
 ; misc raycaster vars:
 	dd ?	;-
 h_old:
 	dd ?	;-
 vbottom:
 	dd ?	;-
-mouseya:
+;mouseya:
-	dd ?	;-
+;	dd ?	;-
 remeax:
 	dd ?	;-
 remebx:
 	dd ?	;-
 remecx:
 	dd ?	;-
 remedi:
 	dd ?	;-
 remesi:
 	dd ?	;-
-red:
+red_color:
 	dd ?	;-
-green:
+green_color:
 	dd ?	;-
-blue:
+blue_color:
 	dd ?	;-
 pseudo:
 	dd ?	;-
 step1:
 	dd ?	;-
 sinus	rd 360*10
 eosinus:
 ;	rd 16*1024*4
 ;---------------------------------------------------------------------
 align	4
-	rb 1024
+	rb 4096
 stacktop:
 ;---------------------------------------------------------------------
+procinfo:
+	rb 1024
+;---------------------------------------------------------------------
 path:
 	rb 4096
 ;---------------------------------------------------------------------
 file_name:
 	rb 4096

Subversion Repositories Kolibri OS

(root)/programs/demos/free3d/trunk/free3d.asm – Rev 1880 → 1881