ref: da20de1cda45fb684964dfaac0b504f285d06269
parent: b2482b25de98347300bd30f3e422c3eb894f7eff
author: IIMarckus <iimarckus@gmail.com>
date: Fri Aug 24 18:27:17 EDT 2012
Add more scripts from Bill's house. hg-commit-id: 3f7889ebb268
--- a/main.asm
+++ b/main.asm
@@ -28768,14 +28768,106 @@
BillsHouseScripts: ; 0x1e776
dw BillsHouseScript0
+ dw BillsHouseScript1
+ dw BillsHouseScript2
+ dw BillsHouseScript3
+ dw BillsHouseScript4
+ dw BillsHouseScript5
-INCBIN "baserom.gbc",$1e778,$a
+BillsHouseScript0: ; 0x1e782
+ ret
+
+BillsHouseScript1: ; 0x1e783
+ ld a, [$c109]
+ and a
+ ld de, MovementData1e79c
+ jr nz, .asm_1e78f ; 0x1e78a $3
+ ld de, MovementData1e7a0
+.asm_1e78f
+ ld a, $1
+ ld [$ff00+$8c], a
+ call MoveSprite
+ ld a, $2
+ ld [$d661], a
+ ret
+
+MovementData1e79c: ; 0x1e79c
+ db $40,$40,$40,$ff
+
+MovementData1e7a0: ; 0x1e7a0
+ db $c0,$40,$40,$80,$40,$ff
+
+BillsHouseScript2: ; 0x1e7a6
+ ld a, [$d730]
+ bit 0, a
+ ret nz
+ ld a, $61
+ ld [$cc4d], a
+ ld a, $11
+ call Predef
+ ld hl, $d7f2
+ set 6, [hl]
+ xor a
+ ld [$cd6b], a
+ ld a, $3
+ ld [$d661], a
+ ret
-BillsHouseScript0: ; 0x1e782
+BillsHouseScript3: ; 0x1e7c5
+ ld a, [$d7f2]
+ bit 3, a
+ ret z
+ ld a, $f0
+ ld [$cd6b], a
+ ld a, $2
+ ld [$cf13], a
+ ld a, $c
+ ld [$ff00+$eb], a
+ ld a, $40
+ ld [$ff00+$ec], a
+ ld a, $6
+ ld [$ff00+$ed], a
+ ld a, $5
+ ld [$ff00+$ee], a
+ call $32f9
+ ld a, $62
+ ld [$cc4d], a
+ ld a, $15
+ call Predef
+ ld c, $8
+ call DelayFrames
+ ld a, $2
+ ld [$ff00+$8c], a
+ ld de, MovementData1e807
+ call MoveSprite
+ ld a, $4
+ ld [$d661], a
ret
-; 0x1e783
-INCBIN "baserom.gbc",$1e783,$b1
+MovementData1e807: ; 0x1e807
+ db $00,$c0,$c0,$c0,$00,$ff
+
+BillsHouseScript4: ; 0x1e80d
+ ld a, [$d730]
+ bit 0, a
+ ret nz
+ xor a
+ ld [$cd6b], a
+ ld hl, $d7f2
+ set 5, [hl]
+ ld hl, $d7f1
+ set 0, [hl]
+ ld a, $0
+ ld [$d661], a
+ ret
+
+BillsHouseScript5: ; 0x1e827
+ ld a, $4
+ ld [$ff00+$8c], a
+ call DisplayTextID
+ ld a, $0
+ ld [$d661], a
+ ret
BillsHouseTexts: ; 0x1e834
dw BillsHouseText1, BillsHouseText2, BillsHouseText3, BillsHouseText4