pokered/scripts/BikeShop.asm

BikeShop_Script:
	jp EnableAutoTextBoxDrawing

BikeShop_TextPointers:
	dw BikeShopText1
	dw BikeShopText2
	dw BikeShopText3

BikeShopText1:
	TX_ASM
	CheckEvent EVENT_GOT_BICYCLE
	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
	lb bc, BICYCLE, 1
	call GiveItem
	jr nc, .BagFull
	ld a, BIKE_VOUCHER
	ld [$ffdb], a
	callba RemoveItemByID
	SetEvent EVENT_GOT_BICYCLE
	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, A_BUTTON | B_BUTTON
	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]
	coord hl, 0, 0
	ld b, $4
	ld c, $f
	call TextBoxBorder
	call UpdateSprites
	coord hl, 2, 2
	ld de, BikeShopMenuText
	call PlaceString
	coord hl, 8, 3
	ld de, BikeShopMenuPrice
	call PlaceString
	ld hl, BikeShopText_1d815
	call PrintText
	call HandleMenuInput
	bit 1, a
	jr nz, .cancel
	ld hl, wd730
	res 6, [hl]
	ld a, [wCurrentMenuItem]
	and a
	jr nz, .cancel
	ld hl, BikeShopCantAffordText
	call PrintText
.cancel
	ld hl, BikeShopComeAgainText
	call PrintText
.Done
	jp TextScriptEnd

BikeShopMenuText:
	db   "BICYCLE"
	next "CANCEL@"

BikeShopMenuPrice:
	db "¥1000000@"

BikeShopText_1d810:
	TX_FAR _BikeShopText_1d810
	db "@"

BikeShopText_1d815:
	TX_FAR _BikeShopText_1d815
	db "@"

BikeShopCantAffordText:
	TX_FAR _BikeShopCantAffordText
	db "@"

BikeShopText_1d81f:
	TX_FAR _BikeShopText_1d81f
	db "@"

BikeShopText_1d824:
	TX_FAR _BikeShopText_1d824
	TX_SFX_KEY_ITEM
	db "@"

BikeShopComeAgainText:
	TX_FAR _BikeShopComeAgainText
	db "@"

BikeShopText_1d82f:
	TX_FAR _BikeShopText_1d82f
	db "@"

BikeShopText_1d834:
	TX_FAR _BikeShopText_1d834
	db "@"

BikeShopText2:
	TX_ASM
	ld hl, BikeShopText_1d843
	call PrintText
	jp TextScriptEnd

BikeShopText_1d843:
	TX_FAR _BikeShopText_1d843
	db "@"

BikeShopText3:
	TX_ASM
	CheckEvent EVENT_GOT_BICYCLE
	ld hl, BikeShopText_1d861
	jr nz, .asm_34d2d
	ld hl, BikeShopText_1d85c
.asm_34d2d
	call PrintText
	jp TextScriptEnd

BikeShopText_1d85c:
	TX_FAR _BikeShopText_1d85c
	db "@"

BikeShopText_1d861:
	TX_FAR _BikeShopText_1d861
	db "@"
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`BikeShop_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp EnableAutoTextBoxDrawing`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`BikeShop_TextPointers:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw BikeShopText1`
			`dw BikeShopText2`
			`dw BikeShopText3`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText1:`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_GOT_BICYCLE`
$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`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, BICYCLE, 1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_GOT_BICYCLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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`
More joypad constants 2015-08-11 05:34:32 +00:00			`ld a, A_BUTTON \| B_BUTTON`
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]`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 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`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 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`
Consolidate coord macros 2015-07-18 20:52:03 +00:00			`coord hl, 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`
More joypad constants 2015-08-11 05:34:32 +00:00			`jr nz, .cancel`
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`
More joypad constants 2015-08-11 05:34:32 +00:00			`jr nz, .cancel`
			`ld hl, BikeShopCantAffordText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
More joypad constants 2015-08-11 05:34:32 +00:00			`.cancel`
			`ld hl, BikeShopComeAgainText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`.Done`
			`jp TextScriptEnd`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopMenuText:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "BICYCLE"`
			`next "CANCEL@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopMenuPrice:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "¥1000000@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d810:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d810`
			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d815:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d815`
			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopCantAffordText:`
More joypad constants 2015-08-11 05:34:32 +00:00			`TX_FAR _BikeShopCantAffordText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d81f:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d81f`
			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d824:`
$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`
Clean up text commands 2016-07-18 06:17:03 +00:00			`TX_SFX_KEY_ITEM`
			`db "@"`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopComeAgainText:`
More joypad constants 2015-08-11 05:34:32 +00:00			`TX_FAR _BikeShopComeAgainText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d82f:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d82f`
			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d834:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d834`
			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText2:`
$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`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d843:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d843`
			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText3:`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_GOT_BICYCLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`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`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d85c:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d85c`
			`db "@"`

Sync somewhat with pokeyellow. 2016-06-08 11:45:50 +00:00			`BikeShopText_1d861:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`TX_FAR _BikeShopText_1d861`
			`db "@"`