| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148 |
- BikeShopScript:
- jp EnableAutoTextBoxDrawing
- BikeShopTextPointers:
- 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 "@"
|
