[Tetris] Fonction qui contrôle si un bloc peut tomber

Version imprimable

Salut tout le monde

J'ai un petit souci avec la fonction qui contrôle si un bloc peut tomber. Est-ce que quelqu'un pourrait jeter un coup d’œil car elle ne fonctionne pas.

Pour ceux qui se demandent où j'en suis, voilà un lien avec mes fichiers. Je dois encore gérer les collisions et enlever une ligne si la ligne est remplie, enfin vous connaissez sûrement le jeu.

https://1drv.ms/f/s!Atvt3h2Eqlk0qF3E1iIt0Og2m4SR

Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
PROC checkfall  ; return eax if 1 not fallin if 0 falling
	uses edi, esi, ecx, ebx
 
 
	mov ebx, 0   ;ebx op nul zetten 
 
	mov eax, [dword ptr current_position]  ;(current postitie +10 doen)
	add eax, 10					
 
	mov edi, offset blockarray  ; blockarray laden
	add edi, eax				;goeie positie in blockarray
 
	call returnBlockOffset   ;eax de goeie blok laden
	mov esi, eax 		; in esi de blok steken 
 
	mov ch, 4
	checkcolom:
		mov cl, 4 
		checkline:
			mov al, [esi]   ;als block 0 is niks doen
			jz nextpixel
 
			mov ah, [edi]    ; als array 0 is niks doen 
			jz nextpixel
 
			mov ebx, 1		; als blok en array niet nul zijn dan mag je niet vallen 
			mov cl, 0
 
			jmp nextline
 
			nextpixel:
				inc edi
				inc esi
				dec cl
 
			nextline:
				cmp cl, 0
				jne checkline
			add edi, 6
			dec ch
			jnz checkcolom
 
	mov eax, ebx
 
	ret
ENDP checkfall
 
 
PROC fall
	uses ebx 
 
	call checkfall
	mov ebx, eax
	cmp ebx, 1
	je notfall
 
	add [dword ptr current_position], 10
	call returnBlockOffset	
	call drawblock, eax, [dword ptr current_position]
 
	notfall:
 
	ret
 
ENDP fall

24/08/2016, 19h46
Forthman

salut denzi,

T'es pas cool avec moi d'écrire des commentaires dans une langue que je ne comprends pas du tout :aie:

Je suis parti du principe que ta fonction returnBlockOffset fonctionne correctement,
et que tes blocs sont bien constitués de 4x4 octets.

ce que je corrigerais dans ton programme :
ligne 30 : jmp nextline
pourquoi vouloir tester les lignes suivantes ?
si tu arrives à cette ligne c'est que le bloc ne peut pas aller plus loin,
donc pourquoi vouloir tester les autres lignes ?
du coup je la remplacerait par un jmp checkend et et ce checkend: serait placé à la ligne 43

du coup, tu pourrais virer la ligne 37 (nextline) ainsi que la 38, et remplacer la 39 par une "jnz checkline"

de plus il y a un problème quand tu sautes à nextline, ton pointeur EDI n'est pas obligé d'être allé sur la dernière case (4eme)
donc le add edi,6 risque de pointer au mauvais endroit.

voilà pour ce que j'ai pu voir ;)

jai pas lu ton commentaire encore forthman mais entre temp jai arrangé le code le probleme c'est que il montai pas le flag du jz donc il fallais vraiment mettre un cmp devant (ligne 22 et 25) pour le rest jjai changé un peux les nom mais les commentaire sont toujours dans en neerlandais ahahaha je melange les 2 dnas le code comme ta pu le voir je croi anglais et neerlandais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
PROC checkmove  ; return eax if 1 not fallin if 0 falling
	uses edi, esi, ecx
	ARG offsetposition: dword
 
		mov eax, [dword ptr current_position]		;(current postitie +10 doen)
		add eax, [offsetposition]
 
 
 
			mov edi, offset blockarray  ; blockarray laden   
			add edi, eax				;goeie positie in blockarray
 
			call returnBlockOffset   ;eax de goeie blok laden
			mov esi, eax 		; in esi de blok steken 
 
			mov ch, 4
			checkrow:
				mov cl, 4 
				checkpixel:
					mov al, [esi]   ;als block 0 is niks doen	
					cmp al, 0
					jz nextpixel			
					mov ah, [edi]    ; als array 0 is niks doen 
					cmp ah, 255		; becaus with 0 bug i think under the memory of the blockarray they are some zeros	
					je nextpixel
 
					mov eax, 1		; als blok en array niet nul zijn dan mag je niet vallen 
					ret
 
					nextpixel:
						inc edi
						inc esi
						dec cl
						jnz checkpixel
 
						add edi, 6
						dec ch
						jnz checkrow
 
	mov eax, 0		
	ret
ENDP checkmove
 
 
PROC fall
	call checkmove, 10
 
	cmp eax, 0 
	jz incpos
	mov eax, 1
	ret
 
	incpos:
	add [dword ptr current_position], 10
 
	ret
ENDP fall

24/08/2016, 23h35
Forthman

effectivement, j'avais zappé le test avant ton saut, mais à ta place j'utiliserais un simple "or" avant le "jz"
(genre or al,al)
ton cmp al,255 puis je va effectuer le saut si la valeur de al vaut 255 (tu peux faire un cmp al,0 )
24/08/2016, 23h37
denzi

1 pièce(s) jointe(s)

merci pour ta reponses mais dabord ce que je veux fair c'est que tous fonctionne pui je vais optimaliser voila un printscreen de ce que ca donne deja
Pièce jointe 218705