pokered/scripts/lab4.asm

Lab4Script: ; 75d31 (1d:5d31)
	jp EnableAutoTextBoxDrawing

Lab4TextPointers: ; 75d34 (1d:5d34)
	dw Lab4Text1
	dw Lab4Text2

Lab4Script_75d38: ; 75d38 (1d:5d38)
; construct a list of all fossils in the player's bag

	xor a
	ld [wcd37], a
	ld de, wcc5b
	ld hl, FossilsList
.loop
	ld a, [hli]
	and a
	jr z, .done
	push hl
	push de
	ld [wd11e], a
	ld b, a
	predef IsItemInBag_
	pop de
	pop hl
	ld a, b
	and a
	jr z, .loop

	; A fossil's in the bag
	ld a, [wd11e]
	ld [de], a
	inc de
	push hl
	ld hl, wcd37
	inc [hl]
	pop hl
	jr .loop
.done
	ld a, $ff
	ld [de], a
	ret

FossilsList: ; 75d68 (1d:5d68)
	db DOME_FOSSIL
	db HELIX_FOSSIL
	db OLD_AMBER
	db $00

Lab4Text1: ; 75d6c (1d:5d6c)
	TX_ASM
	ld a, [wd7a3]
	bit 0, a
	jr nz, .asm_75d96
	ld hl, Lab4Text_75dc6
	call PrintText
	call Lab4Script_75d38
	ld a, [wcd37]
	and a
	jr z, .asm_75d8d
	callba GiveFossilToCinnabarLab
	jr .asm_75d93
.asm_75d8d
	ld hl, Lab4Text_75dcb
	call PrintText
.asm_75d93
	jp TextScriptEnd
.asm_75d96
	bit 1, a
	jr z, .asm_75da2
	ld hl, Lab4Text_75dd0
	call PrintText
	jr .asm_75d93
.asm_75da2
	call LoadFossilItemAndMonNameBank1D
	ld hl, Lab4Text_75dd5
	call PrintText
	ld hl, wd7a3
	set 2, [hl]
	ld a, [W_FOSSILMON]
	ld b, a
	ld c, 30
	call GivePokemon
	jr nc, .asm_75d93
	ld hl, wd7a3
	res 0, [hl]
	res 1, [hl]
	res 2, [hl]
	jr .asm_75d93

Lab4Text_75dc6: ; 75dc6 (1d:5dc6)
	TX_FAR _Lab4Text_75dc6
	db "@"

Lab4Text_75dcb: ; 75dcb (1d:5dcb)
	TX_FAR _Lab4Text_75dcb
	db "@"

Lab4Text_75dd0: ; 75dd0 (1d:5dd0)
	TX_FAR _Lab4Text_75dd0
	db "@"

Lab4Text_75dd5: ; 75dd5 (1d:5dd5)
	TX_FAR _Lab4Text_75dd5
	db "@"

Lab4Text2: ; 75dda (1d:5dda)
	TX_ASM
	ld a, $3
	ld [wWhichTrade], a
	predef DoInGameTradeDialogue
	jp TextScriptEnd

LoadFossilItemAndMonNameBank1D: ; 75de8 (1d:5de8)
	ld b, BANK(LoadFossilItemAndMonName)
	ld hl, LoadFossilItemAndMonName
	jp Bankswitch
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`Lab4Script: ; 75d31 (1d:5d31)`
			`jp EnableAutoTextBoxDrawing`

			`Lab4TextPointers: ; 75d34 (1d:5d34)`
			`dw Lab4Text1`
			`dw Lab4Text2`

			`Lab4Script_75d38: ; 75d38 (1d:5d38)`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`; construct a list of all fossils in the player's bag`

$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wcd37], a`
			`ld de, wcc5b`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, FossilsList`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`.loop`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, [hli]`
			`and a`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`jr z, .done`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`push hl`
			`push de`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wd11e], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, a`
$U-Daniel-PC\Daniel$ Clean up white space, fix label typo 2015-01-23 03:05:13 +00:00			`predef IsItemInBag_`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`pop de`
			`pop hl`
			`ld a, b`
			`and a`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`jr z, .loop`

			`; A fossil's in the bag`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd11e]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld [de], a`
			`inc de`
			`push hl`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wcd37`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`inc [hl]`
			`pop hl`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`jr .loop`
			`.done`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $ff`
			`ld [de], a`
			`ret`

			`FossilsList: ; 75d68 (1d:5d68)`
			`db DOME_FOSSIL`
			`db HELIX_FOSSIL`
			`db OLD_AMBER`
			`db $00`

			`Lab4Text1: ; 75d6c (1d:5d6c)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd7a3]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 0, a`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr nz, .asm_75d96`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Lab4Text_75dc6`
			`call PrintText`
			`call Lab4Script_75d38`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wcd37]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr z, .asm_75d8d`
$U-Fish-PC\Daniel$ Merge branch 'master' of https://github.com/huderlem/pokered into pull-data Conflicts: main.asm text.asm text/maps/route_22.asm 2014-05-19 14:38:20 +00:00			`callba GiveFossilToCinnabarLab`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_75d93`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_75d8d`
			`ld hl, Lab4Text_75dcb`
			`call PrintText`
			`.asm_75d93`
			`jp TextScriptEnd`
			`.asm_75d96`
			`bit 1, a`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr z, .asm_75da2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, Lab4Text_75dd0`
			`call PrintText`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_75d93`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`.asm_75da2`
			`call LoadFossilItemAndMonNameBank1D`
			`ld hl, Lab4Text_75dd5`
			`call PrintText`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd7a3`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 2, [hl]`
			`ld a, [W_FOSSILMON]`
			`ld b, a`
Minor comment/label improvements in Cinnabar Lab. 2014-10-16 06:12:44 +00:00			`ld c, 30`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call GivePokemon`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr nc, .asm_75d93`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd7a3`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`res 0, [hl]`
			`res 1, [hl]`
			`res 2, [hl]`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_75d93`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`Lab4Text_75dc6: ; 75dc6 (1d:5dc6)`
			`TX_FAR _Lab4Text_75dc6`
			`db "@"`

			`Lab4Text_75dcb: ; 75dcb (1d:5dcb)`
			`TX_FAR _Lab4Text_75dcb`
			`db "@"`

			`Lab4Text_75dd0: ; 75dd0 (1d:5dd0)`
			`TX_FAR _Lab4Text_75dd0`
			`db "@"`

			`Lab4Text_75dd5: ; 75dd5 (1d:5dd5)`
			`TX_FAR _Lab4Text_75dd5`
			`db "@"`

			`Lab4Text2: ; 75dda (1d:5dda)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $3`
			`ld [wWhichTrade], a`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`predef DoInGameTradeDialogue`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

			`LoadFossilItemAndMonNameBank1D: ; 75de8 (1d:5de8)`
			`ld b, BANK(LoadFossilItemAndMonName)`
			`ld hl, LoadFossilItemAndMonName`
			`jp Bankswitch`