ref: d227ac9c37d297285108c5bbb50a4bfa5856a3ae
parent: 0e1f425e22df1f8efce27724fd5e966a059f0796
author: IIMarckus <iimarckus@gmail.com>
date: Wed Jan 18 15:15:00 EST 2012
Get some more script pointers from Oak’s Lab, missed the first time around. hg-commit-id: c020481126e0
--- a/common.asm
+++ b/common.asm
@@ -12047,10 +12047,8 @@
; 0x1cb28
OaksLabScripts: ; 0x1cb28
- dw OaksLabScript0, OaksLabScript1, OaksLabScript2, OaksLabScript3, OaksLabScript4, OaksLabScript5, OaksLabScript6, OaksLabScript7
+ dw OaksLabScript0, OaksLabScript1, OaksLabScript2, OaksLabScript3, OaksLabScript4, OaksLabScript5, OaksLabScript6, OaksLabScript7, OaksLabScript8, OaksLabScript9, OaksLabScript10, OaksLabScript11, OaksLabScript12, OaksLabScript13, OaksLabScript14, OaksLabScript15, OaksLabScript16, OaksLabScript17, OaksLabScript18
-INCBIN "baserom.gbc",$1cb38,$16
-
OaksLabScript0: ; 0x1cb4e
ld a, [$d74b]
bit 7, a
@@ -12212,7 +12210,492 @@
ret
; 0x1cc80
-INCBIN "baserom.gbc",$1cc80,$402
+OaksLabScript8: ; 0x1cc80
+ ld a, [$d717]
+ cp $b0
+ jr z, .asm_1cc8d ; 0x1cc85 $6
+ cp $b1
+ jr z, .asm_1cca8 ; 0x1cc89 $1d
+ jr .asm_1ccc5 ; 0x1cc8b $38
+.asm_1cc8d
+ ld de, $4c9c
+ ld a, [$d361]
+ cp $4
+ jr z, .asm_1ccf3 ; 0x1cc95 $5c
+ ld de, $4ca3
+ jr .asm_1ccf3 ; 0x1cc9a $57
+ nop
+ nop
+ ret nz
+ ret nz
+ ret nz
+ ld b, b
+ rst $38
+ nop
+ ret nz
+ ret nz
+ ret nz
+ rst $38
+.asm_1cca8
+ ld de, $4cb7
+ ld a, [$d361]
+ cp $4
+ jr z, .asm_1ccf3 ; 0x1ccb0 $41
+ ld de, $4cbf
+ jr .asm_1ccf3 ; 0x1ccb5 $3c
+ nop
+ nop
+ ret nz
+ ret nz
+ ret nz
+ ret nz
+ ld b, b
+ rst $38
+ nop
+ ret nz
+ ret nz
+ ret nz
+ ret nz
+ rst $38
+.asm_1ccc5
+ ld de, $4cef
+ ld a, [$d362]
+ cp $9
+ jr nz, .asm_1ccf3 ; 0x1cccd $24
+ push hl
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld a, $4
+ ld [$ff00+$8b], a
+ call $34fc
+ push hl
+ ld [hl], $4c
+ inc hl
+ inc hl
+ ld [hl], $0
+ pop hl
+ inc h
+ ld [hl], $8
+ inc hl
+ ld [hl], $9
+ ld de, $4cf1
+ pop hl
+ jr .asm_1ccf3 ; 0x1cced $4
+ nop
+ ret nz
+ ret nz
+ rst $38
+.asm_1ccf3
+ ld a, $1
+ ld [$ff00+$8c], a
+ call $363a
+ ld a, $9
+ ld [$d5f0], a
+ ret
+; 0x1cd00
+
+OaksLabScript9: ; 0x1cd00
+ ld a, [$d730]
+ bit 0, a
+ ret nz
+ ld a, $fc
+ ld [$cd6b], a
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld a, $4
+ ld [$ff00+$8d], a
+ call $34a6
+ ld a, $d
+ ld [$ff00+$8c], a
+ call $2920
+ ld a, [$cd3e]
+ cp $2
+ jr nz, .asm_1cd28 ; 0x1cd22 $4
+ ld a, $2b
+ jr .asm_1cd32 ; 0x1cd26 $a
+.asm_1cd28
+ cp $3
+ jr nz, .asm_1cd30 ; 0x1cd2a $4
+ ld a, $2c
+ jr .asm_1cd32 ; 0x1cd2e $2
+.asm_1cd30
+ ld a, $2d
+.asm_1cd32
+ ld [$cc4d], a
+ ld a, $11
+ call Predef
+ call Delay3
+ ld a, [$cd3d]
+ ld [$d715], a
+ ld [$cf91], a
+ ld [$d11e], a
+ call GetMonName
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld a, $4
+ ld [$ff00+$8d], a
+ call $34a6
+ ld a, $e
+ ld [$ff00+$8c], a
+ call $2920
+ ld hl, $d74b
+ set 2, [hl]
+ xor a
+ ld [$cd6b], a
+ ld a, $a
+ ld [$d5f0], a
+ ret
+; 0x1cd6d
+
+OaksLabScript10: ; 0x1cd6d
+ ld a, [$d361]
+ cp $6
+ ret nz
+ ld a, $1
+ ld [$ff00+$8c], a
+ xor a
+ ld [$ff00+$8d], a
+ call $34a6
+ ld a, $8
+ ld [$d528], a
+ ld c, $2
+ ld a, $de
+ call $23a1
+ ld a, $f
+ ld [$ff00+$8c], a
+ call $2920
+ ld a, $1
+ ld [$ff00+$9b], a
+ ld a, $1
+ swap a
+ ld [$ff00+$95], a
+ ld a, $22
+ call Predef
+ ld a, [$ff00+$95]
+ dec a
+ ld [$ff00+$95], a
+ ld a, $20
+ call Predef
+ ld de, $cc97
+ ld a, $1
+ ld [$ff00+$8c], a
+ call $363a
+ ld a, $b
+ ld [$d5f0], a
+ ret
+; 0x1cdb9
+
+OaksLabScript11: ; 0x1cdb9
+ ld a, [$d730]
+ bit 0, a
+ ret nz
+ ld a, $e1
+ ld [$d059], a
+ ld a, [$d715]
+ cp $b1
+ jr nz, .asm_1cdcf ; 0x1cdc9 $4
+ ld a, $1
+ jr .asm_1cdd9 ; 0x1cdcd $a
+.asm_1cdcf
+ cp $99
+ jr nz, .asm_1cdd7 ; 0x1cdd1 $4
+ ld a, $2
+ jr .asm_1cdd9 ; 0x1cdd5 $2
+.asm_1cdd7
+ ld a, $3
+.asm_1cdd9
+ ld [$d05d], a
+ ld a, $1
+ ld [$cf13], a
+ call $32ef
+ ld hl, $53be
+ ld de, $53c3
+ call $3354
+ ld hl, $d72d
+ set 6, [hl]
+ set 7, [hl]
+ xor a
+ ld [$cd6b], a
+ ld a, $8
+ ld [$d528], a
+ ld a, $c
+ ld [$d5f0], a
+ ret
+; 0x1ce03
+
+OaksLabScript12: ; 0x1ce03
+ ld a, $f0
+ ld [$cd6b], a
+ ld a, $8
+ ld [$d528], a
+ call $2429
+ ld a, $1
+ ld [$cf13], a
+ call $32f9
+ ld a, $1
+ ld [$ff00+$8c], a
+ xor a
+ ld [$ff00+$8d], a
+ call $34a6
+ ld a, $7
+ call Predef
+ ld hl, $d74b
+ set 3, [hl]
+ ld a, $d
+ ld [$d5f0], a
+ ret
+; 0x1ce32
+
+OaksLabScript13: ; 0x1ce32
+ ld c, $14
+ call $3739
+ ld a, $10
+ ld [$ff00+$8c], a
+ call $2920
+ ld b, $2
+ ld hl, $5b47
+ call Bankswitch
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld de, $4e66
+ call $363a
+ ld a, [$d362]
+ cp $4
+ jr nz, .asm_1ce5b ; 0x1ce55 $4
+ ld a, $c0
+ jr .asm_1ce5d ; 0x1ce59 $2
+.asm_1ce5b
+ ld a, $80
+.asm_1ce5d
+ ld [$cc5b], a
+ ld a, $e
+ ld [$d5f0], a
+ ret
+; 0x1ce66
+
+ ; 0x1ce66
+ db $E0,0,0,0,0,0,$FF
+
+OaksLabScript14: ; 0x1ce6d
+ ld a, [$d730]
+ bit 0, a
+ jr nz, .asm_1ce8c ; 0x1ce72 $18
+ ld a, $2a
+ ld [$cc4d], a
+ ld a, $11
+ call Predef
+ xor a
+ ld [$cd6b], a
+ call $2307
+ ld a, $12
+ ld [$d5f0], a
+ jr .asm_1ceaf ; 0x1ce8a $23
+.asm_1ce8c
+ ld a, [$cf0f]
+ cp $5
+ jr nz, .asm_1cea8 ; 0x1ce91 $15
+ ld a, [$d362]
+ cp $4
+ jr nz, .asm_1cea1 ; 0x1ce98 $7
+ ld a, $c
+ ld [$c109], a
+ jr .asm_1ceaf ; 0x1ce9f $e
+.asm_1cea1
+ ld a, $8
+ ld [$c109], a
+ jr .asm_1ceaf ; 0x1cea6 $7
+.asm_1cea8
+ cp $4
+ ret nz
+ xor a
+ ld [$c109], a
+.asm_1ceaf
+ ret
+; 0x1ceb0
+
+OaksLabScript15: ; 0x1ceb0
+ xor a
+ ld [$ff00+$b4], a
+ call $3c3c
+ ld a, $ff
+ ld [$c0ee], a
+ call $23b1
+ ld b, $2
+ ld hl, $5b47
+ call Bankswitch
+ ld a, $15
+ ld [$ff00+$8c], a
+ call $2920
+ call $502b
+ ld a, $2a
+ ld [$cc4d], a
+ ld a, $15
+ call Predef
+ ld a, [$cd37]
+ ld [$d157], a
+ ld b, $0
+ ld c, a
+ ld hl, $cc97
+ ld a, $40
+ call $36e0
+ ld [hl], $ff
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld de, $cc97
+ call $363a
+ ld a, $10
+ ld [$d5f0], a
+ ret
+; 0x1cefd
+
+Function1CEFD ; 0x1cefd
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld a, $4
+ ld [$ff00+$8d], a
+ call $34a6
+ ld a, $8
+ ld [$ff00+$8c], a
+ xor a
+ ld [$ff00+$8d], a
+ jp $34a6
+; 0x1cf12
+
+OaksLabScript16: ; 0x1cf12
+ ld a, [$d730]
+ bit 0, a
+ ret nz
+ call $3c3c
+ call $2307
+ ld a, $fc
+ ld [$cd6b], a
+ call $4efd
+ ld a, $16
+ ld [$ff00+$8c], a
+ call $2920
+ call $20af
+ call $4efd
+ ld a, $17
+ ld [$ff00+$8c], a
+ call $2920
+ call $20af
+ call $4efd
+ ld a, $18
+ ld [$ff00+$8c], a
+ call $2920
+ call $20af
+ ld a, $19
+ ld [$ff00+$8c], a
+ call $2920
+ call Delay3
+ ld a, $2f
+ ld [$cc4d], a
+ ld a, $11
+ call Predef
+ ld a, $30
+ ld [$cc4d], a
+ ld a, $11
+ call Predef
+ call $4efd
+ ld a, $1a
+ ld [$ff00+$8c], a
+ call $2920
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld a, $c
+ ld [$ff00+$8d], a
+ call $34a6
+ call Delay3
+ ld a, $1b
+ ld [$ff00+$8c], a
+ call $2920
+ ld hl, $d74b
+ set 5, [hl]
+ ld hl, $d74e
+ set 0, [hl]
+ ld a, $1
+ ld [$cc4d], a
+ ld a, $11
+ call Predef
+ ld a, $2
+ ld [$cc4d], a
+ ld a, $15
+ call Predef
+ ld a, [$d157]
+ ld b, $0
+ ld c, a
+ ld hl, $cc97
+ xor a
+ call $36e0
+ ld [hl], $ff
+ ld a, $ff
+ ld [$c0ee], a
+ call $23b1
+ ld b, $2
+ ld hl, $5b47
+ call Bankswitch
+ ld a, $1
+ ld [$ff00+$8c], a
+ ld de, $cc97
+ call $363a
+ ld a, $11
+ ld [$d5f0], a
+ ret
+; 0x1cfd4
+
+OaksLabScript17: ; 0x1cfd4
+ ld a, [$d730]
+ bit 0, a
+ ret nz
+ call $2307
+ ld a, $2a
+ ld [$cc4d], a
+ ld a, $11
+ call Predef
+ ld hl, $d7eb
+ set 0, [hl]
+ res 1, [hl]
+ set 7, [hl]
+ ld a, $22
+ ld [$cc4d], a
+ ld a, $15
+ call Predef
+ ld a, $5
+ ld [$d5f1], a
+ xor a
+ ld [$cd6b], a
+ ld a, $12
+ ld [$d5f0], a
+ ret
+; 0x1d009
+
+OaksLabScript18: ; 0x1d009
+ ret
+; 0x1d00a
+
+Function1D00A: ; 0x1d00a
+ ld hl, $d31e
+ ld bc, $0000
+.asm_1d010
+ ld a, [hli]
+ cp $ff
+ ret z
+ cp $46
+ jr z, .asm_1d01c ; 0x1d016 $4
+ inc hl
+ inc c
+ jr .asm_1d010 ; 0x1d01a $f4
+.asm_1d01c
+ ld hl, $d31d
+ ld a, c
+ ld [$cf92], a
+ ld a, $1
+ ld [$cf96], a
+ jp $2bbb
+; 0x1d02b
+
+
+INCBIN "baserom.gbc",$1d02b,$1d082-$1d02b
OaksLabTexts: ; 0x1d082
dw OaksLabText1, OaksLabText2, OaksLabText3, OaksLabText4, OaksLabText5, OaksLabText6, OaksLabText7, OaksLabText8, OaksLabText9, OaksLabText10, OaksLabText11, OaksLabText12, OaksLabText13, OaksLabText14, OaksLabText15, OaksLabText16, OaksLabText17, OaksLabText18, OaksLabText19, OaksLabText20, OaksLabText21, OaksLabText22, OaksLabText23, OaksLabText24, OaksLabText25, OaksLabText26, OaksLabText27, OaksLabText28, OaksLabText29, OaksLabText30, OaksLabText31, OaksLabText32, OaksLabText33, OaksLabText34, OaksLabText35, OaksLabText36, OaksLabText37, OaksLabText38