| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258 |
- VermilionCityScript:
- call EnableAutoTextBoxDrawing
- ld hl, wCurrentMapScriptFlags
- bit 6, [hl]
- res 6, [hl]
- push hl
- call nz, VermilionCityScript_197cb
- pop hl
- bit 5, [hl]
- res 5, [hl]
- call nz, VermilionCityScript_197c0
- ld hl, VermilionCityScriptPointers
- ld a, [wVermilionCityCurScript]
- jp CallFunctionInTable
- VermilionCityScript_197c0:
- call Random
- ld a, [$ffd4]
- and $e
- ld [wFirstLockTrashCanIndex], a
- ret
- VermilionCityScript_197cb:
- CheckEventHL EVENT_SS_ANNE_LEFT
- ret z
- CheckEventReuseHL EVENT_WALKED_PAST_GUARD_AFTER_SS_ANNE_LEFT
- SetEventReuseHL EVENT_WALKED_PAST_GUARD_AFTER_SS_ANNE_LEFT
- ret nz
- ld a, $2
- ld [wVermilionCityCurScript], a
- ret
- VermilionCityScriptPointers:
- dw VermilionCityScript0
- dw VermilionCityScript1
- dw VermilionCityScript2
- dw VermilionCityScript3
- dw VermilionCityScript4
- VermilionCityScript0:
- ld a, [wSpriteStateData1 + 9]
- and a ; cp SPRITE_FACING_DOWN
- ret nz
- ld hl, CoordsData_19823
- call ArePlayerCoordsInArray
- ret nc
- xor a
- ld [hJoyHeld], a
- ld [wcf0d], a
- ld a, $3
- ld [hSpriteIndexOrTextID], a
- call DisplayTextID
- CheckEvent EVENT_SS_ANNE_LEFT
- jr nz, .asm_19810
- ld b, S_S_TICKET
- predef GetQuantityOfItemInBag
- ld a, b
- and a
- ret nz
- .asm_19810
- ld a, D_UP
- ld [wSimulatedJoypadStatesEnd], a
- ld a, $1
- ld [wSimulatedJoypadStatesIndex], a
- call StartSimulatingJoypadStates
- ld a, $1
- ld [wVermilionCityCurScript], a
- ret
- CoordsData_19823:
- db $1e,$12
- db $ff
- VermilionCityScript4:
- ld hl, CoordsData_19823
- call ArePlayerCoordsInArray
- ret c
- ld a, $0
- ld [wVermilionCityCurScript], a
- ret
- VermilionCityScript2:
- ld a, $ff
- ld [wJoyIgnore], a
- ld a, D_UP
- ld [wSimulatedJoypadStatesEnd], a
- ld [wSimulatedJoypadStatesEnd + 1], a
- ld a, 2
- ld [wSimulatedJoypadStatesIndex], a
- call StartSimulatingJoypadStates
- ld a, $3
- ld [wVermilionCityCurScript], a
- ret
- VermilionCityScript3:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- xor a
- ld [wJoyIgnore], a
- ld [hJoyHeld], a
- ld a, $0
- ld [wVermilionCityCurScript], a
- ret
- VermilionCityScript1:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- ld c, 10
- call DelayFrames
- ld a, $0
- ld [wVermilionCityCurScript], a
- ret
- VermilionCityTextPointers:
- dw VermilionCityText1
- dw VermilionCityText2
- dw VermilionCityText3
- dw VermilionCityText4
- dw VermilionCityText5
- dw VermilionCityText6
- dw VermilionCityText7
- dw VermilionCityText8
- dw MartSignText
- dw PokeCenterSignText
- dw VermilionCityText11
- dw VermilionCityText12
- dw VermilionCityText13
- VermilionCityText1:
- TX_FAR _VermilionCityText1
- db "@"
- VermilionCityText2:
- TX_ASM
- CheckEvent EVENT_SS_ANNE_LEFT
- jr nz, .asm_1989e
- ld hl, VermilionCityText_198a7
- call PrintText
- jr .asm_198a4
- .asm_1989e
- ld hl, VermilionCityText_198ac
- call PrintText
- .asm_198a4
- jp TextScriptEnd
- VermilionCityText_198a7:
- TX_FAR _VermilionCityText_198a7
- db "@"
- VermilionCityText_198ac:
- TX_FAR _VermilionCityText_198ac
- db "@"
- VermilionCityText3:
- TX_ASM
- CheckEvent EVENT_SS_ANNE_LEFT
- jr nz, .asm_198f6
- ld a, [wSpriteStateData1 + 9]
- cp SPRITE_FACING_RIGHT
- jr z, .asm_198c8
- ld hl, VermilionCityCoords1
- call ArePlayerCoordsInArray
- jr nc, .asm_198d0
- .asm_198c8
- ld hl, SSAnneWelcomeText4
- call PrintText
- jr .asm_198fc
- .asm_198d0
- ld hl, SSAnneWelcomeText9
- call PrintText
- ld b, S_S_TICKET
- predef GetQuantityOfItemInBag
- ld a, b
- and a
- jr nz, .asm_198e9
- ld hl, SSAnneNoTicketText
- call PrintText
- jr .asm_198fc
- .asm_198e9
- ld hl, SSAnneFlashedTicketText
- call PrintText
- ld a, $4
- ld [wVermilionCityCurScript], a
- jr .asm_198fc
- .asm_198f6
- ld hl, SSAnneNotHereText
- call PrintText
- .asm_198fc
- jp TextScriptEnd
- VermilionCityCoords1:
- db $1d,$13
- db $1f,$13
- db $ff
- SSAnneWelcomeText4:
- TX_FAR _SSAnneWelcomeText4
- db "@"
- SSAnneWelcomeText9:
- TX_FAR _SSAnneWelcomeText9
- db "@"
- SSAnneFlashedTicketText:
- TX_FAR _SSAnneFlashedTicketText
- db "@"
- SSAnneNoTicketText:
- TX_FAR _SSAnneNoTicketText
- db "@"
- SSAnneNotHereText:
- TX_FAR _SSAnneNotHereText
- db "@"
- VermilionCityText4:
- TX_FAR _VermilionCityText4
- db "@"
- VermilionCityText5:
- TX_FAR _VermilionCityText5
- TX_ASM
- ld a, MACHOP
- call PlayCry
- call WaitForSoundToFinish
- ld hl, VermilionCityText14
- ret
- VermilionCityText14:
- TX_FAR _VermilionCityText14
- db "@"
- VermilionCityText6:
- TX_FAR _VermilionCityText6
- db "@"
- VermilionCityText7:
- TX_FAR _VermilionCityText7
- db "@"
- VermilionCityText8:
- TX_FAR _VermilionCityText8
- db "@"
- VermilionCityText11:
- TX_FAR _VermilionCityText11
- db "@"
- VermilionCityText12:
- TX_FAR _VermilionCityText12
- db "@"
- VermilionCityText13:
- TX_FAR _VermilionCityText13
- db "@"
|
