shithub: pokecrystal

Download patch

ref: 0a829301ae610f855c29e3288ac59dde8730fa20
parent: 906496e10735bb7ad6b4b5de9802b3021aebaf28
author: yenatch <[email protected]>
date: Thu Aug 29 14:58:38 EDT 2013

reformat some joypad functions

--- a/main.asm
+++ b/main.asm
@@ -839,19 +839,24 @@
 
 
 Functiona1b: ; a1b
-.asm_a1b
+
 	call DelayFrame
+
 	push bc
 	call Functiona57
 	pop bc
+
 	ld a, [hJoyDown]
-	cp $46
+	cp D_UP | SELECT | BUTTON_B
 	jr z, .asm_a34
+
 	ld a, [$ffa9]
 	and $9
 	jr nz, .asm_a34
+
 	dec c
-	jr nz, .asm_a1b
+	jr nz, Functiona1b
+
 	and a
 	ret
 
@@ -861,22 +866,20 @@
 ; a36
 
 
-
 Functiona36: ; a36
-.asm_a36
 	call DelayFrame
 	call GetJoypadPublic
 	ld a, [hJoyPressed]
-	and $3
+	and BUTTON_A | BUTTON_B
 	ret nz
 	call RTC
-	jr .asm_a36
+	jr Functiona36
 ; a46
 
 Functiona46: ; a46
 	ld a, [hOAMUpdate]
 	push af
-	ld a, $1
+	ld a, 1
 	ld [hOAMUpdate], a
 	call WaitBGMap
 	call Functiona36
@@ -885,8 +888,6 @@
 	ret
 ; a57
 
-
-
 Functiona57: ; a57
 	call GetJoypadPublic
 	ld a, [$ffaa]
@@ -894,13 +895,12 @@
 	ld a, [hJoyPressed]
 	jr z, .asm_a63
 	ld a, [hJoyDown]
-
 .asm_a63
 	ld [$ffa9], a
 	ld a, [hJoyPressed]
 	and a
 	jr z, .asm_a70
-	ld a, $f
+	ld a, 15
 	ld [TextDelayFrames], a
 	ret
 
@@ -913,7 +913,7 @@
 	ret
 
 .asm_a7a
-	ld a, $5
+	ld a, 5
 	ld [TextDelayFrames], a
 	ret
 ; a80