pokered/scripts/bikeshop.asm

BikeShopScript: ; 1d73c (7:573c)
	jp EnableAutoTextBoxDrawing

BikeShopTextPointers: ; 1d73f (7:573f)
	dw BikeShopText1
	dw BikeShopText2
	dw BikeShopText3

BikeShopText1: ; 1d745 (7:5745)
	TX_ASM
	ld a, [wd75f]
	bit 0, a
	jr z, .asm_260d4
	ld hl, BikeShopText_1d82f
	call PrintText
	jp .Done
.asm_260d4
	ld b, BIKE_VOUCHER
	call IsItemInBag
	jr z, .asm_41190
	ld hl, BikeShopText_1d81f
	call PrintText
	ld bc, (BICYCLE << 8) | 1
	call GiveItem
	jr nc, .BagFull
	ld a, BIKE_VOUCHER
	ld [$ffdb], a
	callba RemoveItemByID
	ld hl, wd75f
	set 0, [hl]
	ld hl, BikeShopText_1d824
	call PrintText
	jr .Done
.BagFull
	ld hl, BikeShopText_1d834
	call PrintText
	jr .Done
.asm_41190
	ld hl, BikeShopText_1d810
	call PrintText
	xor a
	ld [wCurrentMenuItem], a
	ld [wLastMenuItem], a
	ld a, $3
	ld [wMenuWatchedKeys], a
	ld a, $1
	ld [wMaxMenuItem], a
	ld a, $2
	ld [wTopMenuItemY], a
	ld a, $1
	ld [wTopMenuItemX], a
	ld hl, wd730
	set 6, [hl]
	hlCoord 0, 0
	ld b, $4
	ld c, $f
	call TextBoxBorder
	call UpdateSprites
	hlCoord 2, 2
	ld de, BikeShopMenuText
	call PlaceString
	hlCoord 8, 3
	ld de, BikeShopMenuPrice
	call PlaceString
	ld hl, BikeShopText_1d815
	call PrintText
	call HandleMenuInput
	bit 1, a
	jr nz, .asm_b7579
	ld hl, wd730
	res 6, [hl]
	ld a, [wCurrentMenuItem]
	and a
	jr nz, .asm_b7579
	ld hl, BikeShopText_1d81a
	call PrintText
.asm_b7579
	ld hl, BikeShopText_1d82a
	call PrintText
.Done
	jp TextScriptEnd

BikeShopMenuText: ; 1d7f8 (7:57f8)
	db   "BICYCLE"
	next "CANCEL@"

BikeShopMenuPrice: ; 1d807 (7:5807)
	db "¥1000000@"

BikeShopText_1d810: ; 1d810 (7:5810)
	TX_FAR _BikeShopText_1d810
	db "@"

BikeShopText_1d815: ; 1d815 (7:5815)
	TX_FAR _BikeShopText_1d815
	db "@"

BikeShopText_1d81a: ; 1d81a (7:581a)
	TX_FAR _BikeShopText_1d81a
	db "@"

BikeShopText_1d81f: ; 1d81f (7:581f)
	TX_FAR _BikeShopText_1d81f
	db "@"

BikeShopText_1d824: ; 1d824 (7:5824)
	TX_FAR _BikeShopText_1d824
	db $11, "@"

BikeShopText_1d82a: ; 1d82a (7:582a)
	TX_FAR _BikeShopText_1d82a
	db "@"

BikeShopText_1d82f: ; 1d82f (7:582f)
	TX_FAR _BikeShopText_1d82f
	db "@"

BikeShopText_1d834: ; 1d834 (7:5834)
	TX_FAR _BikeShopText_1d834
	db "@"

BikeShopText2: ; 1d839 (7:5839)
	TX_ASM
	ld hl, BikeShopText_1d843
	call PrintText
	jp TextScriptEnd

BikeShopText_1d843: ; 1d843 (7:5843)
	TX_FAR _BikeShopText_1d843
	db "@"

BikeShopText3: ; 1d848 (7:5848)
	TX_ASM
	ld a, [wd75f]
	bit 0, a
	ld hl, BikeShopText_1d861
	jr nz, .asm_34d2d
	ld hl, BikeShopText_1d85c
.asm_34d2d
	call PrintText
	jp TextScriptEnd

BikeShopText_1d85c: ; 1d85c (7:585c)
	TX_FAR _BikeShopText_1d85c
	db "@"

BikeShopText_1d861: ; 1d861 (7:5861)
	TX_FAR _BikeShopText_1d861
	db "@"
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`BikeShopScript: ; 1d73c (7:573c)`
			`jp EnableAutoTextBoxDrawing`

			`BikeShopTextPointers: ; 1d73f (7:573f)`
			`dw BikeShopText1`
			`dw BikeShopText2`
			`dw BikeShopText3`

			`BikeShopText1: ; 1d745 (7:5745)`
$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, [wd75f]`
$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 z, .asm_260d4`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BikeShopText_1d82f`
			`call PrintText`
			`jp .Done`
$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			`.asm_260d4`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, BIKE_VOUCHER`
			`call IsItemInBag`
$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_41190`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BikeShopText_1d81f`
			`call PrintText`
			`ld bc, (BICYCLE << 8) \| 1`
			`call GiveItem`
			`jr nc, .BagFull`
			`ld a, BIKE_VOUCHER`
$U-Daniel-PC\Daniel$ No more ldh 2015-07-03 20:13:35 +00:00			`ld [$ffdb], a`
$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 RemoveItemByID`
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, wd75f`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 0, [hl]`
			`ld hl, BikeShopText_1d824`
			`call PrintText`
			`jr .Done`
			`.BagFull`
			`ld hl, BikeShopText_1d834`
			`call PrintText`
			`jr .Done`
$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			`.asm_41190`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BikeShopText_1d810`
			`call PrintText`
			`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 [wCurrentMenuItem], a`
			`ld [wLastMenuItem], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $3`
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 [wMenuWatchedKeys], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
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 [wMaxMenuItem], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $2`
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 [wTopMenuItemY], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $1`
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 [wTopMenuItemX], a`
			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 6, [hl]`
Use more *Coord also town map code relabelling YamaArashi just did town map relabelling but oh well I aleady made the changes and don't feel like redoing it 2015-07-14 05:21:03 +00:00			`hlCoord 0, 0`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld b, $4`
			`ld c, $f`
			`call TextBoxBorder`
			`call UpdateSprites`
$U-Fish-PC\Daniel$ Use *Coord instead of FuncCoord Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses 2014-06-25 20:58:27 +00:00			`hlCoord 2, 2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld de, BikeShopMenuText`
			`call PlaceString`
$U-Fish-PC\Daniel$ Use *Coord instead of FuncCoord Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses 2014-06-25 20:58:27 +00:00			`hlCoord 8, 3`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld de, BikeShopMenuPrice`
			`call PlaceString`
			`ld hl, BikeShopText_1d815`
			`call PrintText`
			`call HandleMenuInput`
			`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 nz, .asm_b7579`
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, wd730`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`res 6, [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 a, [wCurrentMenuItem]`
$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 nz, .asm_b7579`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BikeShopText_1d81a`
			`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			`.asm_b7579`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BikeShopText_1d82a`
			`call PrintText`
			`.Done`
			`jp TextScriptEnd`

			`BikeShopMenuText: ; 1d7f8 (7:57f8)`
			`db "BICYCLE"`
			`next "CANCEL@"`

			`BikeShopMenuPrice: ; 1d807 (7:5807)`
			`db "¥1000000@"`

			`BikeShopText_1d810: ; 1d810 (7:5810)`
			`TX_FAR _BikeShopText_1d810`
			`db "@"`

			`BikeShopText_1d815: ; 1d815 (7:5815)`
			`TX_FAR _BikeShopText_1d815`
			`db "@"`

			`BikeShopText_1d81a: ; 1d81a (7:581a)`
			`TX_FAR _BikeShopText_1d81a`
			`db "@"`

			`BikeShopText_1d81f: ; 1d81f (7:581f)`
			`TX_FAR _BikeShopText_1d81f`
			`db "@"`

			`BikeShopText_1d824: ; 1d824 (7:5824)`
$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			`TX_FAR _BikeShopText_1d824`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db $11, "@"`

			`BikeShopText_1d82a: ; 1d82a (7:582a)`
			`TX_FAR _BikeShopText_1d82a`
			`db "@"`

			`BikeShopText_1d82f: ; 1d82f (7:582f)`
			`TX_FAR _BikeShopText_1d82f`
			`db "@"`

			`BikeShopText_1d834: ; 1d834 (7:5834)`
			`TX_FAR _BikeShopText_1d834`
			`db "@"`

			`BikeShopText2: ; 1d839 (7:5839)`
$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 hl, BikeShopText_1d843`
			`call PrintText`
			`jp TextScriptEnd`

			`BikeShopText_1d843: ; 1d843 (7:5843)`
			`TX_FAR _BikeShopText_1d843`
			`db "@"`

			`BikeShopText3: ; 1d848 (7:5848)`
$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, [wd75f]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 0, a`
			`ld hl, BikeShopText_1d861`
$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_34d2d`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, BikeShopText_1d85c`
$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			`.asm_34d2d`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`jp TextScriptEnd`

			`BikeShopText_1d85c: ; 1d85c (7:585c)`
			`TX_FAR _BikeShopText_1d85c`
			`db "@"`

			`BikeShopText_1d861: ; 1d861 (7:5861)`
			`TX_FAR _BikeShopText_1d861`
			`db "@"`