shithub: pokecrystal

Download patch

ref: abf3fc21378ddc6a4028aa1852d256472bc859e0
parent: ec10d9dd6f8db685270529b49f0b3007a7242dcc
author: yenatch <yenatch@gmail.com>
date: Sat Jul 25 20:11:33 EDT 2015

Name some map event reading functions.

--- a/engine/map_objects.asm
+++ b/engine/map_objects.asm
@@ -2660,7 +2660,7 @@
 
 Function5582: ; 5582
 	ld de, ObjectStructs
-	ld a, $d
+	ld a, NUM_OBJECT_STRUCTS
 .loop
 	push af
 	ld hl, OBJECT_04
@@ -2780,7 +2780,7 @@
 ; 5629
 
 Function5629: ; 5629
-	cp $10
+	cp NUM_OBJECTS
 	ret nc
 	call GetMapObject
 	ld hl, MAPOBJECT_OBJECT_STRUCT_ID
@@ -2788,7 +2788,7 @@
 	ld a, [hl]
 	cp -1
 	ret z
-	cp $d
+	cp NUM_OBJECT_STRUCTS
 	ret nc
 	call GetObjectStruct
 	call GetObjectSprite
--- a/home/map.asm
+++ b/home/map.asm
@@ -393,7 +393,7 @@
 	call SwitchToMapScriptHeaderBank
 	call Function234f
 	xor a
-	call Function2336
+	call ReadMapEventHeader
 	ret
 ; 2317
 
@@ -402,7 +402,7 @@
 	call SwitchToMapScriptHeaderBank
 	call Function234f
 	ld a, $1
-	call Function2336
+	call ReadMapEventHeader
 	ret
 ; 2326
 
@@ -415,7 +415,7 @@
 	ret
 ; 2336
 
-Function2336:: ; 2336
+ReadMapEventHeader:: ; 2336
 	push af
 	ld hl, MapEventHeaderPointer
 	ld a, [hli]
@@ -424,13 +424,13 @@
 rept 2
 	inc hl
 endr
-	call Function23da
-	call Function23f1
-	call Function2408
+	call ReadWarps
+	call ReadCoordEvents
+	call ReadSignposts
 	pop af
 	and a
 	ret nz
-	call Function241f
+	call ReadObjectEvents
 	ret
 ; 234f
 
@@ -539,7 +539,7 @@
 	ret
 ; 23da
 
-Function23da:: ; 23da
+ReadWarps:: ; 23da
 	ld a, [hli]
 	ld c, a
 	ld [wdbfb], a
@@ -555,7 +555,7 @@
 	ret
 ; 23f1
 
-Function23f1:: ; 23f1
+ReadCoordEvents:: ; 23f1
 	ld a, [hli]
 	ld c, a
 	ld [wCurrentMapXYTriggerCount], a
@@ -571,7 +571,7 @@
 	ret
 ; 2408
 
-Function2408:: ; 2408
+ReadSignposts:: ; 2408
 	ld a, [hli]
 	ld c, a
 	ld [wCurrentMapSignpostCount], a
@@ -587,7 +587,7 @@
 	ret
 ; 241f
 
-Function241f:: ; 241f
+ReadObjectEvents:: ; 241f
 	push hl
 	call Function2471
 	pop de
@@ -651,12 +651,12 @@
 
 Function2471:: ; 2471
 	ld hl, ObjectStruct1
-	ld bc, 40 * 12
+	ld bc, OBJECT_STRUCT_LENGTH * (NUM_OBJECT_STRUCTS - 1)
 	xor a
 	call ByteFill
 	ld hl, ObjectStruct1
-	ld de, 40
-	ld c, $c
+	ld de, OBJECT_STRUCT_LENGTH
+	ld c, NUM_OBJECT_STRUCTS - 1
 	xor a
 .asm_2484
 	ld [hl], a
--- a/main.asm
+++ b/main.asm
@@ -25236,7 +25236,7 @@
 Function2454f: ; 2454f
 	ld hl, wd81e
 	xor a
-	ld bc, $10
+	ld bc, NUM_OBJECTS
 	call ByteFill
 	nop
 	ld bc, MapObjects
@@ -25254,13 +25254,13 @@
 	ld [de], a
 	inc de
 	pop bc
-	ld hl, $10
+	ld hl, OBJECT_LENGTH
 	add hl, bc
 	ld b, h
 	ld c, l
 	pop af
 	inc a
-	cp $10
+	cp NUM_OBJECTS
 	jr nz, .loop
 	ret