Zoom on carry, slip on sword, crystal switch changes

LTTP_RND_GeneralBugfixes.asm

@@ -160,6 +160,8 @@ incsrc textrenderer.asm
 incsrc rewind.asm
 incsrc lift.asm
 incsrc mothula.asm
+incsrc switches.asm
+incsrc zoom_on_carry.asm
 warnpc $A58000
 
 org $A28000

rewind.asm

@@ -6,23 +6,6 @@ pushpc
 	+
 pullpc
 
-; pushpc
-; 	org $87A46E
-; 	JSL CheckBookTriggerSave
-; pullpc
-
-CheckBookTriggerSave:
-	LDA.b $10
-	CMP.b #$07
-	BNE +
-
-	JSL SaveRewind
-
-	; what we wrote over
-+	LDA.b $3A
-	AND.b #$BF
-RTL
-
 CheckLoadRewind:
 	; what we wrote over
 	STZ.w $011A

switches.asm

@@ -0,0 +1,56 @@
+pushpc
+
+org $87A46E
+JSL CheckBookTriggerSwitch
+BCS +
+skip 15
++
+
+org $8296A8
+JSL FinishPegChange
+
+org $86B93F
+BRA + : NOP #8 : +
+LDA.b #$19
+STA.b $11
+LDA.b #$33
+JSL $8DBB7C
+
+pullpc
+
+FinishPegChange:
+	LDA.b #$20
+	TRB.w $037A
+
+	STZ.b $B0
+	STZ.b $11
+RTL
+
+CheckBookTriggerSwitch:
+	LDA.b $10
+	CMP.b #$07
+	BNE +
+
+	LDA.l $7EC172
+	EOR.b #$01
+	STA.l $7EC172
+
+	LDA.b #$16
+	STA.b $11
+
+	LDA.b #$20
+	TSB.w $037A
+
+	LDA.b #$25
+	JSL $8DBB8A
+
+	SEC
+	BRA .done
+
++	CLC
+.done
+	; what we wrote over
+	LDA.b $3A
+	AND.b #$BF
+	STA.b $3A
+RTL

swordswap.asm

@@ -64,22 +64,23 @@ LoadModifiedMagicLevel:
 RTL
 ;================================================================================
 ; $7E0348 - Ice Value
-LoadModifiedIceFloorValue_a11:
-	LDA.b RoomIndex : CMP.b #$91 : BEQ + : CMP.b #$92 : BEQ + : CMP.b #$93 : BEQ + ; mire basement currently broken - not sure why
-	LDA.b LinkState : CMP.b #$01 : BEQ + : CMP.b #$17 : BEQ + : CMP.b #$1C : BEQ +
-	LDA.b LinkSpeed : CMP.b #$02 : BEQ +  
-	LDA.b LinkSlipping : BNE +  
-		LDA.w TileActIce : ORA.l IceModifier : AND.b #$11 : RTL  
-	+ : LDA.w TileActIce : AND.b #$11  
-RTL  
-LoadModifiedIceFloorValue_a01:  
+
+LoadModifiedIceFloorValue:
 	LDA.b RoomIndex : CMP.b #$91 : BEQ + : CMP.b #$92 : BEQ + : CMP.b #$93 : BEQ + ; mire basement currently broken - not sure why
 	LDA.b LinkState : CMP.b #$01 : BEQ + : CMP.b #$17 : BEQ + : CMP.b #$1C : BEQ +
 	LDA.b LinkSpeed : CMP.b #$02 : BEQ +
 	LDA.b LinkSlipping : BNE +
-		LDA.w TileActIce : ORA.l IceModifier : AND.b #$01 : RTL
-	+ : LDA.w TileActIce : AND.b #$01
-RTL
+	LDA.b $3C : AND.b #$0F : CMP.b #$09 : BNE ++
+	LDA.w $0372 : BNE ++
+	.yes
+	LDA.w TileActIce : ORA.l IceModifier : ORA.b #$10 : RTS
+	++ : LDA.w TileActIce : ORA.l IceModifier : RTS
+	+ : LDA.w TileActIce
+RTS
+LoadModifiedIceFloorValue_a11:
+	JSR LoadModifiedIceFloorValue : AND.b #$11 : RTL
+LoadModifiedIceFloorValue_a01:
+	JSR LoadModifiedIceFloorValue : AND.b #$01 : RTL
 ;================================================================================
 CheckTabletSword:
 	LDA.l AllowHammerTablets : BEQ +

zoom_on_carry.asm

@@ -0,0 +1,13 @@
+pushpc
+
+org $87E294
+JSL.l CheckSpeed
+
+pullpc
+
+CheckSpeed:
+	LDA.w $0308 : BIT.b #$80 : BNE .zoom
+	LDA.b $5E : STA.b $00 ; what we wrote over
+RTL
+.zoom
+	LDA.b #$10 : STA.b $00 : RTL