tfv: tune the magic a bit

games/tfv/tfv_battle_draw_hero.s

@@ -189,3 +189,30 @@ damage_hero_done:
 	jsr	update_hero_hp
 
 	rts
+
+
+
+
+
+	;========================
+	; hero use magic
+	;========================
+	; value in A
+hero_use_magic:
+
+	lda     HERO_MP
+	cmp	MAGIC_COST
+	bcc	done_hero_use_magic
+
+        sed
+        sec
+        sbc     MAGIC_COST
+        sta     HERO_MP
+        cld
+
+        jsr     update_hero_mp
+
+done_hero_use_magic:
+
+	rts
+

games/tfv/tfv_battle_magic.s

@@ -8,6 +8,8 @@ magic_attack:
 
 	lda	#34
 	sta	HERO_X
+	lda	#20
+	sta	HERO_Y
 
 	lda	#$15
 	sta	DAMAGE_VAL_LO
@@ -121,7 +123,7 @@ cast_magic_loop:
 	;========================
 	; Actually do the magic
 
-	lda	#20
+	lda	#15
 	sta	ANIMATE_LOOP
 magic_happens_loop:
 
@@ -165,7 +167,7 @@ magic_happens_loop:
 	jsr	page_flip
 
 	; delay a bit
-	lda	#50
+	lda	#200
 	jsr	WAIT
 
 	dec	ANIMATE_LOOP
@@ -173,29 +175,21 @@ magic_happens_loop:
 
 
 	;=============================
-
-
 	; decrease magic points
-	; mp-=5;
 
-	lda	HERO_MP
-	cmp	#5
-	bcc	hero_done_dec_mp
+	lda	#5
+	sta	MAGIC_COST
+	jsr	hero_use_magic
 
-	sed
-	sec
-	sbc	#5
-	sta	HERO_MP
-	cld
-
-	jsr	update_hero_mp
-
-hero_done_dec_mp:
+	;=============================
+	; copy to current
 
 	jsr	gr_copy_to_current
 
 
+	;==============================
 	; draw hero
+
 	lda	#34
 	sta	HERO_X
 	lda	#20
@@ -239,8 +233,8 @@ done_magic_damage:
 
 	jsr	page_flip
 
-	; wait 2s
-	ldx	#200
+	; wait 1.5s
+	ldx	#150
 	jsr	long_wait
 
 	rts

games/tfv/zp.inc

@@ -163,6 +163,7 @@ MAGIC_X		=	$D1
 MAGIC_Y		=	$D2
 FINGER_DIRECTION=	$D3
 ENEMY_DEAD	=	$D4
+MAGIC_COST	=	$D5
 
 COLOR1		=	$E0
 COLOR2		=	$E1