kolibrios-gitea/programs/games/lines/lines.asm

use32
    org 0x0
    db	'MENUET01'
    dd	0x01
    dd	_preSTART
    dd	I_END
    dd	0x4000
    dd	0x4000
    dd	0x0,0x0

include '..\..\macros.inc'
include 'lang.inc'
include 'draw_window.inc'
include 'ball_operations.inc'
include 'basic_alg.inc'

_preSTART:
	mcall	66, 1, 1	;¯à¨­¨¬ ¥¬ ᪠­-ª®¤ë
	mcall	3				;randomize
	ror	eax, 16
	mov	[TC_U_SYSTEM_RANDSEED], eax	;from PPro "system.inc"

new_game:
	;®¡­ã«¥­¨¥ ¬ âà¨æë
	mov	eax, 0
	mov	ecx, 81 / 4
	mov	edi, lineBall
	rep	stosd
	stosb

	mov	[score], 0
	mov	[countAllBall], 0
	mov	[current], 0
	mov	ecx, 5
	@@:
	   push	ecx
	   mov	ebx, 7
	   call	random
	   inc	dl
	   call	add_new_ball
	   pop	ecx
	   loop @B
	call generate_new___new_color

START:
	draw_window
   still:
	mcall	10

	dec	eax
	jz	START	; ¯¥à¥à¨á®¢ âì ®ª­®
	dec	eax
	jnz	button	;¥á«¨ ­¥ ª« ¢¨è  - §­ ç¨â ª­®¯ª 

   key:			; ­ ¦ â¨¥ ª« ¢¨è¨
	mcall	2	; ¯®«ãç ¥¬ ª®¤ ª« ¢¨è¨
	cmp	ah, 60
	je	new_game
	jmp	still

   button:		; ­ ¦ â¨¥ ª­®¯ª¨
	mcall	17
	shr	eax, 8
	cmp	ax, 1	; ¥á«¨ ª­®¯ª  ¢ë室 ?
	je	.exit

	;¯à®¢¥à¨¬, ­¥ ¯ãáâ  «¨ ª«¥âª 
	mov	edx, [current]
	test	byte [eax + lineBall - 2], 0x7
	jz	.blank

	;¯à®¢¥à¨¬ ­¥ ¡ë«  «¨ íâ  ª«¥âª  㦥 ¢ë¡à ­ 
	cmp	eax, edx
	je	.double_choice

	mov	[current], eax
	call	choice_ball
	call	paint_ball	;á­ ç «  ¯à®à¨á㥬 ­®¢ë© ¢ë¡à ­­ë© è à¨ª

	test	edx, edx	;cmp [current], 0
	jz	still
	mov	eax, edx

   @@:
	call	redraw_cell	;  㦥 ¯®â®¬ 㡥६ à ¬ªã ®â áâ à®£®
	call	paint_ball
	jmp	still

   .double_choice:
	mov	[current], 0
	jmp	@B

   .blank:	;­ ¦ â ï ª­®¯ª  - ¯ãáâ 
   	test	edx, edx	;cmp [current], 0
	jz	still
	mov	[dest], eax	;ª­®¯ªã ­ §­ ç¥­¨ï -> ¢ [dest]
	mov	eax, edx	;¯ à ¬¥âà ¢ eax
	call	test_path	;¢ë§ë¢ ¥¬ ४ãàá¨î test_path
	call	zero_cheked
	jnc	still

;^^^^^^^^^^^^^^^^^ move_ball	proc
	mov	eax, [current]
	mov	cl, byte [eax + lineBall - 2]
	mov	byte [eax + lineBall - 2], 0
	mov	eax, [dest]
	mov	byte [eax + lineBall - 2], cl

	mov	eax, [current]
	call	redraw_cell
	mov	eax, [dest]
	call	paint_ball
	mov	[current], 0
;^^^^^^^^^^^^^^^^^ move_ball	endp

	call	find_line
	call	vanish_balls
	call	zero_cheked

	cmp	[countVanishBall], 0
	je	new_3_balls
	movzx	eax, [countVanishBall]
	inc	eax
	add	[score], eax
	sub	[countAllBall], al
	call	redraw_score
	jmp	still

   .exit:
	mcall	-1	;¢ë室¨¬

new_3_balls:

	rept	3 num
	{
	   mov	dl, [newColor#num]
	   call	add_new_ball
	   call	test_new_ball
	   cmp	[countAllBall],81
	   je	.record_li
	}

	call	generate_new___new_color
	call	paint_new_color
	jmp	still

	.record_li:
	   mov	eax, [score]
	   cmp	eax, [record]
	   jbe	still
	   mov	[record], eax
	   jmp	START

zero_cheked:	;®¡­ã«¥­¨¥ ¬ âà¨æë cheked
	pushfd
	mov	eax, lineBall
	mov	ecx, 81
	@@:
	   and	byte [eax], 0x7
	   inc	eax
	   loop	@B
	popfd
	ret

random:			; edx := random [0..(ebx-1)]
	mov	eax, 134775813
	mul	[TC_U_SYSTEM_RANDSEED]
	inc	eax
	mov     [ TC_U_SYSTEM_RANDSEED], eax
	xor	edx, edx
	div	ebx
	ret

generate_new___new_color:
	rept	3 num
	{
	   mov	ebx, 7
	   call	random
	   inc	dl
	   mov	[newColor#num], dl
	}
	ret

add_new_ball:	;¢ dl - 梥â è à¨ª 
	mov	ebp, edx
	mov	ebx, 81
	sub	bl, [countAllBall]
	call	random
	mov	ecx, edx
	mov	eax, lineBall-1
	inc	ecx
	@@:
	   inc	eax
	   test	byte [eax], 0x7
	   jnz	@B
	   loop	@B

	;⥯¥àì ã ­ á ¢ eax -  ¤à¥á ­ è¥£® è à¨ª 
	mov	edx, ebp
	or	byte [eax], dl
	inc	[countAllBall]
	ret

test_new_ball:
	;¯®«ã稬 ID ª­®¯ª¨
	sub	eax, lineBall-2
	call	paint_ball

	call	find_line
	call	vanish_balls
	call	zero_cheked

	cmp	[countVanishBall], 0
	je	@F
	movzx	eax, [countVanishBall]
	inc	eax
	add	[score], eax
	sub	[countAllBall], al
	call	redraw_score
	@@:
	ret

if lang eq ru
	szTitle  db '–¢¥â­ë¥ «¨­¨¨ v 0.2',0
	szNewGame db 'F2 - ­®¢ ï ¨£à ',0
	szRecord db '<27>¥ª®à¤',0
	szScore  db 'Žçª¨',0
else
	szTitle  db 'Color lines v 0.2',0
	szNewGame db 'F2 - new game',0
	szRecord db 'Record',0
	szScore  db 'Score',0
end if


blank	= 0xB8C2D3
brown	= 0x804000
red	= 0xff0000
yellow	= 0xffff00
green	= 0x008000
cyan	= 0x00ffff
blue	= 0x0000ff
purple	= 0x800080

tableColor	dd blank,brown,red,yellow,green,cyan,blue,purple

lineCoord:
		rept	9 coory:0
		{
		   rept	9 coorx:0
		   \{
		   	dw coorx*256+coory

		   \}
		}

record  dd 25

lineBall db 81 dup ?
score   dd ?
baseAddr dd ?
current dd ?
dest	dd ?

newColor1 db ?
newColor2 db ?
newColor3 db ?

countVanishBall	db ?
countAllBall	db ?

TC_U_SYSTEM_RANDSEED	dd	?
bitID	dd ?

I_END: