Subversion Repositories Kolibri OS

;---------------------------------------------------------------------

; 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

;               using libraries cnv_png.obj and archiver.obj

;               using dinamically allocation of memory

;

;---------------------------------------------------------------------

;

;   Fisheye Raycasting Engine Etc. FREE3D for MENUETOS by Dieter Marfurt

;   Version 0.4 (requires some texture-files to compile (see Data Section))

;   dietermarfurt@angelfire.com - www.melog.ch/mos_pub/

;   Don't hit me - I'm an ASM-Newbie... since years :)

;

;   Compile with FASM for Menuet (requires .INC files - see DATA Section)

;

;   Willow - greatly srinked code size by using GIF texture and FPU to calculate sine table

;

;   !!!! Don't use GIF_LITE.INC in your apps - it's modified for FREE3D !!!!

;

;   Heavyiron - new 0-function of drawing window from kolibri (do not work correctly with menuet)

TEX_SIZE	equ	128*128*4	;64*64*4	;

ICON_SIZE_X	equ	128	;64

ICON_SIZE_Y	equ	128	;64

Floors_Height	equ	32000

;---------------------------------------------------------------------

use32

org	0x0

	db 'MENUET01'	; 8 byte id

	dd 0x01		; header version

	dd START	; start of code

	dd IM_END	; size of image

	dd I_END	; 0x100000 ; memory for app

	dd stacktop	; 0x100000 ; esp

	dd 0x0

	dd path

;---------------------------------------------------------------------

include '../../../macros.inc'

;include	'macros.inc'

include '../../../develop/libraries/box_lib/load_lib.mac'

;include 'load_lib.mac'

@use_library

;---------------------------------------------------------------------

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

	jnz	finish

; unpack deflate

	mov	eax,[unpack_DeflateUnpack2]

	mov	[deflate_unpack],eax

	call	load_icons

	call	convert_icons

	mov	esi,sinus

	mov	ecx,360*10

	fninit

	fld	[sindegree]

;--------------------------------------

.sinlp:

	fst	st1

	fsin

	fmul	[sindiv]

	fistp	dword[esi]

	add	esi,4

	fadd	[sininc]

	loop	.sinlp

;---------------------------------------------------------------------

	call	cursor_to_screen_center

	call	set_new_cursor_skin

;---------------------------------------------------------------------

align	4

red:	; redraw

	call	draw_window

	call	draw_stuff

;---------------------------------------------------------------------

align	4

still:

	mcall	10	; ask no wait for full speed

	cmp	eax,1	; window redraw request ?

	je	red

	cmp	eax,2	; key in buffer ?

	je	key

	cmp	eax,3	; button in buffer ?

	je	button

	cmp	eax,6

	jne	still

;---------------------------------------------------------------------

mouse:

	mcall	18,7

	cmp	[active_process],eax

	jne	still

	mcall	37,1

	xor	ebx,ebx

	mov	bx,ax  ; EBX mouse y

	shr	eax,16 ; EAX mouse x

	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

	mov	edi,[vheading]

	add	edi,eax

	jmp	@f

;---------------------------------------------------------------------

.turn_left:

	sub	eax,ecx

	mov	edi,[vheading]

	sub	edi,eax

;--------------------------------------

@@:

	call	check_range

;---------------------------------------------------------------------

.y:

	cmp	ebx,edx

	je	.red

	ja	.walk_down

;--------------------------------------

.walk_up:

	sub	edx,ebx

	mov	ecx,edx

	call	prepare_2

	jz	.1

;--------------------------------------

	add	eax,edi	; newPx

	add	ebx,esi	; newPy

	jmp	.1

;---------------------------------------------------------------------

.walk_down:

	sub	ebx,edx

	mov	ecx,ebx

	call	prepare_2

	jz	.1

	sub	eax,edi	; newPx

	sub	ebx,esi	; newPy

;--------------------------------------

.1:

	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

	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:

	shr	ecx,4

	push	ecx

	call	prepare_1

	pop	ecx

	cmp	ecx,3

	jb	@f

	mov	ecx,3

@@:

	shl	edi,cl

	shl	esi,cl

	test	ecx,ecx

	ret

;---------------------------------------------------------------------

align	4

check_range:

	cmp	edi,0

	jge	@f

	mov	edi,3600

	jmp	.store

;--------------------------------------

@@:

	cmp	edi,3600

	jle	@f

	xor	edi,edi

;--------------------------------------

@@:

.store:

	mov	[vheading],edi

	ret

;---------------------------------------------------------------------

align	4

cursor_to_screen_center:

	mcall	18,15

	mcall	37,1

	mov	[mouse_position_old],eax

	ret

;---------------------------------------------------------------------

set_new_cursor_skin:

	mcall	68,12,32*32*4

	mov	ecx,eax

	mcall	37,4,,2

	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

;---------------------------------------------------------------------

@@:

	cmp	ah,1	; Esc

	je	finish

	cmp	ah,17 ; W up

	je	s_up

	cmp	ah,31 ; S down

	je	s_down

	cmp	ah,30 ; A left

	je	w_left	;s_left

	cmp	ah,32 ; D right

	je	w_right	;s_right

	jmp	still

;---------------------------------------------------------------------

.extended_key:

	mov	[extended_key],0

	mov	[current_key_code],ah

	cmp	ah,27	; esc=End App

	je	finish

	cmp	ah,72 ; up arrow

	je	s_up

	cmp	ah,80 ; down arrow

	je	s_down

	cmp	ah,75 ; left arrow

	je	s_left

	cmp	ah,77 ; right arrow

	je	s_right

	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

	test	al, al

	jnz	.end

	cmp	ah, 0xE0

	jne	.end

	mov	[extended_key],1

	jmp	.still

.end:

	call	draw_stuff

	jmp	still

;---------------------------------------------------------------------

.extended_key:

	mov  [extended_key],0

	mov  [current_key_code],ah

	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

	sub	eax,esi	; newPx

	add	ebx,edi	; newPy

	jmp	s_down.1

;---------------------------------------------------------------------

align	4

s_up:	; walk forward (key or mouse)

	call	prepare_1

;	sal	esi,1	; edit walking speed here

;	sal	edi,1

	add	eax,edi	; newPx

	add	ebx,esi	; newPy

	jmp	s_down.1

;---------------------------------------------------------------------

align	4

s_down:	; walk	backward

	call	prepare_1

;	sal	esi,1	; edit walking speed here

;	sal	edi,1

	sub	eax,edi	; newPx

	sub	ebx,esi	; newPy

.1:

	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	smart_clr_key_buf	;cannotwalk

	mov	[vpx],eax

	mov	[vpy],ebx

	jmp	smart_clr_key_buf

;---------------------------------------------------------------------

align	4

prepare_1:

	mov	eax,[vpx]

	mov	ebx,[vpy]

	mov	ecx,[vheading]

	mov	edx,ecx

	mov	edi,[sinus+ecx*4]

	lea	edx,[sinus+3600+edx*4]

	cmp	edx,eosinus	; cosinus taken from (sinus plus 900) mod 3600

	jb	@f

	sub	edx,14400

;--------------------------------------

@@:

	mov	esi,[edx]

	ret

;---------------------------------------------------------------------

align	4

s_left:		; turn	left	(key)

	mov	edi,[vheading]

	add	edi,50

	jmp	s_right.1

;---------------------------------------------------------------------

align	4

s_right:	; turn	right

	mov	edi,[vheading]

	sub	edi,50

.1:

	call	check_range

	jmp	smart_clr_key_buf

;---------------------------------------------------------------------

align	4

button:	; button

	mcall	17

	cmp	ah,1	; button id=1 ?

	jne	still	;gamestart

;--------------------------------------

finish:

	mcall	-1	; close this program

;---------------------------------------------------------------------

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

;   *******  WINDOW DEFINITIONS AND DRAW ********

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

align	4

draw_window:

	mcall	12,1

	mcall 48, 4

	lea	ecx, [50*65536+484+eax]; [y start] *65536 + [y size] + [skin_height]

	mcall	0,<50,649>,,0x34,,title

	mcall	12,2

	ret

;---------------------------------------------------------------------

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

;   *******       COMPUTE 3D-VIEW        ********

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

align	4

draw_stuff:

	mov	[step1],dword 1

;	mov	[step64],dword 64

	mov	esi,[vheading]

	add	esi,320

	mov	[va],esi

	mov	eax,[vheading]

	sub	eax,320

	mov	[vacompare],eax

;------------------------------------ CAST 640 PIXEL COLUMNS ---------------

; FOR A=320+heading to -319+heading step -1 (a is stored in [va])

;---------------------------------------------------------------------------

;	mov	edx,5

	mov	[vx1],dword 0	;5 ;edx ; init x1 ... pixelcolumn

;--------------------------------------

align	4

for_a:

	mov	edx,[vx1]

	mov	[vx1b],edx

	sub	[vx1b],dword 320

	mov	edx,[va]	; a2

	cmp	edx,-1	; a2 is a mod 3600

	jg	ok1

	add	edx,3600

;--------------------------------------

ok1:

	cmp	edx,3600

	jb	ok2

	sub	edx,3600

;--------------------------------------

ok2:

; get stepx and stepy

	; pointer to stepx

	lea	ecx,[sinus+edx*4]

	mov	esi,[ecx]

	sar	esi,4	; accuracy

	mov	[vstepx],esi	; store stepx

	lea	esi,[sinus+3600+edx*4]

	cmp	esi,eosinus	;cosinus taken from ((sinus plus 900) mod 3600)

	jb	ok202

	sub	esi,14400

;--------------------------------------

ok202:

	mov	ecx,[esi]

	sar	ecx,4

	mov	[vstepy],ecx	; store	stepy

	mov	eax,[vpx]	; get Camera Position

	mov	ebx,[vpy]

	mov	[vxx],eax	; init caster position

	mov	[vyy],ebx

	mov	edi,0	; init L (number of raycsting-steps)

	mov	[step1],dword 1	; init Caster stepwidth for L.

;--------------------------------------

;  raycast a pixel column

align	4

raycast:

	add	edi,[step1]	; count caster steps

	jmp	nodouble	; use this to prevent blinking/wobbling textures: much slower!

;	cmp	edi,32

;	je	double

;	cmp	edi,512

;	je	double

;	cmp	edi,1024

;	je	double

;	jmp	nodouble

;---------------------------------------------------------------------

;double:

;	mov	edx,[step1]

;	sal	edx,1

;	mov	[step1],edx

;	mov	edx,[vstepx]

;	sal	edx,1

;	mov	[vstepx],edx

;	mov	edx,[vstepy]

;	sal	edx,1

;	mov	[vstepy],edx

;--------------------------------------

nodouble:

	mov	eax,Floors_Height	;32000	; 3600 ; determine Floors Height based on distance

	xor	edx,edx

	mov	ebx,edi

	div	ebx

	shl	edx,1

	cmp	ebx,edx

	jae	@f

	inc	eax

@@:

	mov	esi,eax

	mov	[vdd],esi

	mov	edx,260

	sub	edx,esi

	mov	[vh],edx

	cmp	edx,22

	jb	no_nu_pixel

	cmp	edx,259

	jg	no_nu_pixel	; draw only new pixels

	cmp	edx,[h_old]

	je	no_nu_pixel

	mov	eax,[vxx]	; calc floor pixel

	mov	ebx,[vyy]

	and	eax,0x0000FFFF

	and	ebx,0x0000FFFF

	shr	eax,10

	shr	ebx,10	; pixel coords inside Texture x,y 64*64

	mov	[xfrac],eax

	mov	[yfrac],ebx

; plot floor pixel !!!!

	mov	[vl],edi	; save L

	mov	[ytemp],esi	; remember L bzw. H

	mov	edi,[yfrac]	; get pixel color of this floor pixel

	sal	edi,9	;8 - for 64x64

	mov	esi,[xfrac]

	sal	esi,3	;2 - for 64x64

; in fact its floor, just using the wall texture :)

;	lea	edi,[wall+edi+esi]

	add	edi,[wall1]

	add	edi,esi

	mov	edx,[edi]

	mov	[remesi],esi

;**** calculate pixel adress:****

	mov	esi,[ytemp]

	add	esi,240

	imul	esi,1920

	mov	eax,[vx1]

	lea	eax,[eax+eax*2]

	lea	esi,[screen_buffer+eax+esi]

	cmp	esi,screen_buffer+1920*480

	jg	foff0

	cmp	esi,screen_buffer

	jb	foff0

; now we have the adress of the floor-pixel color in edi

; and the adress of the pixel in the image in esi

	mov	edx,[edi]

;******************** custom distance DARKEN Floor

	mov	eax,[vdd]

;	jmp	nodark0	; use this to deactivate darkening floor (a bit faster)

	cmp	eax,80

	jg	nodark0

; split	rgb

	mov	[blue_color],edx

	and	[blue_color],dword 255

	shr	edx,8

	mov	[green_color],edx

	and	[green_color],dword 255

	shr	edx,8

	mov	[red_color],edx

	and	[red_color],dword 255

	mov	eax,81	; darkness parameter

	sub	eax,[vdd]

	sal	eax,1

; reduce rgb

	sub	[red_color],eax

	cmp	[red_color],dword 0

	jg	notblack10

	mov	[red_color],dword 0

;--------------------------------------

notblack10:

	sub	[green_color],eax

	cmp	[green_color],dword 0

	jg	notblack20

	mov	[green_color],dword 0

;--------------------------------------

notblack20:

	mov	edx,[blue_color]

	sub	[blue_color],eax

	cmp	[blue_color],dword 0

	jg	notblack30

	mov	[blue_color],dword 0

;--------------------------------------

notblack30:

	shl	dword [red_color],16	; reassemble rgb

	shl	dword [green_color],8

	mov	edx,[red_color]

	or	edx,[green_color]

	or	edx,[blue_color]

;--------------------------------------

nodark0:

;   eo custom darken floor

	mov	eax,edx

;	cmp	esi,screen_buffer+1920*480

;	ja	foff0

;	cmp	esi,screen_buffer

;	jb	foff0

	mov	[esi],eax	; actually draw the floor pixel

; paint "forgotten" pixels

	mov	edx,[lasty]

	sub	edx,1920

	cmp	esi,edx

	je	foff0

	mov	[esi+1920],eax

	sub	edx,1920

	cmp	esi,edx

	je	foff0

	mov	[edx+1920],eax

	sub	edx,1920

	cmp	esi,edx

	je	foff0

	mov	[edx+1920],eax

;--------------------------------------

align	4

foff0:

	mov	[lasty],esi

;**** end of draw floor pixel ****

	mov	esi,[remesi]

	mov	edi,[vl]	; restore L

;--------------------------------------

no_nu_pixel:

	mov	esi,[vh]

	mov	[h_old],esi

	mov	eax,[vxx]

	mov	ebx,[vyy]

	add	eax,[vstepx]	; casting...

	add	ebx,[vstepy]

	mov	[vxx],eax

	mov	[vyy],ebx

	sar	eax,16

	sar	ebx,16

	mov	[vpxi],eax	; casters position in Map Grid

	mov	[vpyi],ebx

	mov	edx,ebx

	shl	edx,5

	lea	edx,[grid+edx+eax]

	cmp	[edx],byte 0	; raycaster reached a wall? (0=no)

	jne	getout

	cmp	edi,10000	; limit view range

	jb	raycast

;--------------------------------------

getout:

	mov	eax,[edx]	; store Grid Wall Value for Texture Selection

	mov	[vk],eax

	call	blur	; deactivate this (blurs the near floor) : a bit faster

; simply copy floor to ceil pixel column here

;	jmp	nocopy	; use this for test purposes

	pusha

	mov	eax,screen_buffer+1920*240

	mov	ebx,eax	;screen_buffer+1920*240

;--------------------------------------

align	4

copyfloor:

	sub	eax,1920

	add	ebx,1920

	mov	ecx,[vx1]

	lea	ecx,[ecx+ecx*2]

	lea	edx,[ecx+ebx]

	add	ecx,eax

	mov	esi,[edx]

	mov	[ecx],esi

	cmp	eax,screen_buffer

	jg	copyfloor

;@@:

	popa

; *** end of copy floor to ceil

;nocopy:

;--------------------------------------

; draw this pixelrows wall

	mov	[vl],edi

	mov	edi,260

	sub	edi,[vdd]

	cmp	edi,0

	jg	ok3

	xor	edi,edi

;--------------------------------------

ok3:

	mov	[vbottom],edi	; end wall ceil (or window top)

	mov	esi,262

	add	esi,[vdd]	; start wall floor

	xor	edi,edi

; somethin is wrong with xfrac,so recalc...

	mov	eax,[vxx]

	and	eax,0x0000FFFF

	shr	eax,10

	mov	[xfrac],eax

	mov	eax,[vyy]

	and	eax,0x0000FFFF

	shr	eax,10

	mov	[yfrac],eax

;--------------------------------------

pixelrow:

; find each pixels color:

	add	edi,ICON_SIZE_Y

	sub	esi,1

	cmp	esi,502		; dont calc offscreen-pixels

	jg	speedup

	xor	edx,edx

	mov	eax,edi

	mov	ebx,[vdd]

;	add	ebx,ebx

	shl	ebx,1

	div	ebx

	shl	edx,1

	cmp	ebx,edx

	jae	@f

	inc	eax

@@:

	and	eax,ICON_SIZE_Y-1

	mov	[ytemp],eax	; get y of texture for wall

	mov	eax,[xfrac]

	add	eax,[yfrac]

	and	eax,ICON_SIZE_X-1

	mov	[xtemp],eax	; get x of texture for wall

; now prepare to plot that wall-pixel...

	mov	[remedi],edi

	mov	edi,[ytemp]

	sal	edi,9	;8 - for 64x64

	mov	edx,[xtemp]

	sal	edx,3	;2 - for 64x64

	add	edi,edx

	mov	eax,[vk]	; determine which texture should be used

	and	eax,255

	cmp	eax,1

	jne	checkmore1

	add	edi,[wall0]	;ceil

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore1:

	cmp	eax,2

	jne	checkmore2

	add	edi,[wall1]

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore2:

	cmp	eax,3

	jne	checkmore3

	add	edi,[wall2]

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore3:

	cmp	eax,4

	jne	checkmore4

	add	edi,[wall3]

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore4:

	cmp	eax,5

	jne	checkmore5

	add	edi,[wall4]

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore5:

	cmp	eax,6

	jne	checkmore6

	add	edi,[wall5]

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore6:

	cmp	eax,7

	jne	checkmore7

	add	edi,[wall6]

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore7:

	cmp	eax,8

	jne	checkmore8

	add	edi,[wall7]

	jmp	foundtex

;---------------------------------------------------------------------

align	4

checkmore8:

foundtex:

	mov	edx,[edi]	; get pixel color inside texture

; ***pseudoshade south-west

;	jmp	east	; activate this for southwest pseudoshade : a bit slower + blink-bug

;---------------------------------------------------------------------

;	mov	edi,[yfrac]

;	mov	[pseudo],dword 0	; store flag for custom distance darkening

;	cmp	edi,[xfrac]

;	jge	east

;	and	edx,0x00FEFEFE

;	shr	edx,1

;	mov	[pseudo],dword 1

;--------------------------------------

east:

	call	dark_distance	; deactivate wall distance darkening: a bit faster

; ******* DRAW WALL PIXEL *******

	mov	eax,esi

	lea	eax,[esi-22]

	imul	eax,1920

	mov	ebx,[vx1]

	lea	ebx,[ebx+ebx*2]

	lea	eax,[eax+screen_buffer+ebx]

	cmp	eax,screen_buffer+1920*480

	ja	dont_draw

	cmp	eax,screen_buffer

	jb	dont_draw

	mov	[eax],edx	; actually set the pixel in the image

;--------------------------------------

; *** eo draw wall pixel

dont_draw:

	mov	edi,[remedi]

;--------------------------------------

speedup:

	cmp	esi,[vbottom]	; end of this column?

	jg	pixelrow

	mov	edi,[vl]	; restoring

	mov	eax,[vx1]	; inc X1

	add	eax,1

	mov	[vx1],eax

;*** NEXT A ***

	mov	esi,[va]

	sub	esi,1

	mov	[va],esi

	cmp	esi,[vacompare]

	jg	for_a

;*** EO NEXT A ***

;--------------------------------------

; **** put image !!!!!****

	xor	edx,edx

	mcall	7,screen_buffer,<640,480>

	ret

;---------------------------------------------------------------------

align	4

blur:

	pusha

	mov	eax,screen_buffer+360*1920

;--------------------------------------

align	4

copyfloor2:

	add	eax,1920

	mov	ebx,[vx1]

	lea	ebx,[ebx+ebx*2]

	add	ebx,eax

	mov	ecx,[ebx-15]

	and	ecx,0x00FEFEFE

	shr	ecx,1

	mov	edx,[ebx-12]

	and	edx,0x00FEFEFE

	shr	edx,1

	add	edx,ecx

	and	edx,0x00FEFEFE

	shr	edx,1

	mov	ecx,[ebx-9]

	and	ecx,0x00FEFEFE

	shr	ecx,1

	add	edx,ecx

	and	edx,0x00FEFEFE

	shr	edx,1

	mov	ecx,[ebx-6]

	and	ecx,0x00FEFEFE

	shr	ecx,1

	add	edx,ecx

	and	edx,0x00FEFEFE

	shr	edx,1

	mov	ecx,[ebx-3]

	and	ecx,0x00FEFEFE

	shr	ecx,1

	add	edx,ecx

	and	edx,0x00FEFEFE

	shr	edx,1

	mov	ecx,[ebx]

	and	ecx,0x00FEFEFE

	shr	ecx,1

	add	edx,ecx

	mov	[ebx],edx

	cmp	eax,screen_buffer+478*1920

	jb	copyfloor2

	popa

	ret

;---------------------------------------------------------------------

; ******* Darken by Distance *******

align	4

dark_distance:

; color must be in edx, wall height in [vdd]

	mov	eax,[vdd]

	cmp	eax,50

	jg	nodark

; split rgb

	mov	[blue_color],edx

	and	[blue_color],dword 255

	shr	edx,8

	mov	[green_color],edx

	and	[green_color],dword 255

	shr	edx,8

	mov	[red_color],edx

	and	[red_color],dword 255

	mov	eax,51	; darkness parameter

	sub	eax,[vdd]

	cmp	[pseudo],dword 1

	je	isdarkside

	sal	eax,2

;--------------------------------------

align	4

isdarkside:

; reduce rgb

	sub	[red_color],eax

	cmp	[red_color],dword 0

	jg	notblack10b

	mov	[red_color],dword 0

;--------------------------------------

align	4

notblack10b:

	sub	[green_color],eax

	cmp	[green_color],dword 0

	jg	notblack20b

	mov	[green_color],dword 0

;--------------------------------------

align	4

notblack20b:

	mov	edx,[blue_color]

	sub	[blue_color],eax

	cmp	[blue_color],dword 0

	jg	notblack30b

	mov	[blue_color],dword 0

;--------------------------------------

align	4

notblack30b:

	shl	dword [red_color],16	; reassemble rgb

	shl	dword [green_color],8

	mov	edx,[red_color]

	or	edx,[green_color]

	or	edx,[blue_color]

	mov	eax,edx

;--------------------------------------

align	4

nodark:

	ret

;---------------------------------------------------------------------

load_icons:

	mov	ebx,icons_file_name

	mov	esi,path

	mov	edi,file_name

	call	copy_file_path

	mov	[fileinfo.subfunction],dword 5

	mov	[fileinfo.size],dword 0

	mov	[fileinfo.return],dword file_info

	mcall	70,fileinfo

	test	eax,eax

	jnz	.error

	mov	[fileinfo.subfunction],dword 0

	mov	ecx,[file_info+32]

	mov	[fileinfo.size],ecx

	mov	[img_size],ecx

	mcall	68,12

	test	eax,eax

	jz	finish	;memory_get_error

	mov	[fileinfo.return],eax

	mov	[image_file],eax

	mcall	70,fileinfo

	test	eax,eax

	jnz	.error

	ret

.error:

;	mov	[N_error],2

;	mov	[error_type],eax

	jmp	finish

;---------------------------------------------------------------------

copy_file_path:

	xor	eax,eax

	cld

@@:

	lodsb

	stosb

	test	eax,eax

	jnz	@b

	mov	esi,edi

	dec	esi

	std

@@:

	lodsb

	cmp	al,'/'

	jnz	@b

	mov	edi,esi

	add	edi,2

	mov	esi,ebx

	cld

@@:

	lodsb

	stosb

	test	eax,eax

	jnz	@b

	ret

;---------------------------------------------------------------------

convert_icons:

	xor	eax,eax

	mov	[return_code],eax

	push	image_file

	call	[cnv_png_import.Start]

	mov	ecx,[image_file]

	mcall	68,13,

	test	eax,eax

	jz	finish	;memory_free_error