pokered/scripts/VermilionCity.asm

258 lines
4.7 KiB
NASM
Raw Normal View History

VermilionCity_Script:
2014-05-18 18:19:10 +00:00
call EnableAutoTextBoxDrawing
2016-01-03 19:17:10 +00:00
ld hl, wCurrentMapScriptFlags
2014-05-18 18:19:10 +00:00
bit 6, [hl]
res 6, [hl]
push hl
2020-05-03 18:25:01 +00:00
call nz, .initCityScript
2014-05-18 18:19:10 +00:00
pop hl
bit 5, [hl]
res 5, [hl]
call nz, .setFirstLockTrashCanIndex
ld hl, VermilionCity_ScriptPointers
2015-08-31 02:38:41 +00:00
ld a, [wVermilionCityCurScript]
2014-05-18 18:19:10 +00:00
jp CallFunctionInTable
.setFirstLockTrashCanIndex
call Random
ldh a, [hRandomSub]
2014-05-18 18:19:10 +00:00
and $e
2015-07-25 03:27:59 +00:00
ld [wFirstLockTrashCanIndex], a
2014-05-18 18:19:10 +00:00
ret
2020-05-03 18:25:01 +00:00
.initCityScript
2015-07-21 01:32:02 +00:00
CheckEventHL EVENT_SS_ANNE_LEFT
2014-05-18 18:19:10 +00:00
ret z
2015-07-21 17:36:03 +00:00
CheckEventReuseHL EVENT_WALKED_PAST_GUARD_AFTER_SS_ANNE_LEFT
SetEventReuseHL EVENT_WALKED_PAST_GUARD_AFTER_SS_ANNE_LEFT
2014-05-18 18:19:10 +00:00
ret nz
ld a, $2
2015-08-31 02:38:41 +00:00
ld [wVermilionCityCurScript], a
2014-05-18 18:19:10 +00:00
ret
VermilionCity_ScriptPointers:
2014-05-18 18:19:10 +00:00
dw VermilionCityScript0
dw VermilionCityScript1
dw VermilionCityScript2
dw VermilionCityScript3
dw VermilionCityScript4
2016-06-12 00:24:04 +00:00
VermilionCityScript0:
ld a, [wSpritePlayerStateData1FacingDirection]
and a ; cp SPRITE_FACING_DOWN
2014-05-18 18:19:10 +00:00
ret nz
2020-05-03 18:25:01 +00:00
ld hl, SSAnneTicketCheckCoords
2014-05-18 18:19:10 +00:00
call ArePlayerCoordsInArray
ret nc
xor a
ldh [hJoyHeld], a
ld [wcf0d], a
2014-05-18 18:19:10 +00:00
ld a, $3
ldh [hSpriteIndexOrTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
2015-07-21 01:32:02 +00:00
CheckEvent EVENT_SS_ANNE_LEFT
2020-05-03 18:25:01 +00:00
jr nz, .shipHasDeparted
2015-12-15 04:09:30 +00:00
ld b, S_S_TICKET
2015-08-13 05:14:31 +00:00
predef GetQuantityOfItemInBag
2014-05-18 18:19:10 +00:00
ld a, b
and a
ret nz
2020-05-03 18:25:01 +00:00
.shipHasDeparted
ld a, D_UP
ld [wSimulatedJoypadStatesEnd], a
2014-05-18 18:19:10 +00:00
ld a, $1
ld [wSimulatedJoypadStatesIndex], a
call StartSimulatingJoypadStates
2014-05-18 18:19:10 +00:00
ld a, $1
2015-08-31 02:38:41 +00:00
ld [wVermilionCityCurScript], a
2014-05-18 18:19:10 +00:00
ret
2020-05-03 18:25:01 +00:00
SSAnneTicketCheckCoords:
dbmapcoord 18, 30
db -1 ; end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityScript4:
2020-05-03 18:25:01 +00:00
ld hl, SSAnneTicketCheckCoords
2014-05-18 18:19:10 +00:00
call ArePlayerCoordsInArray
ret c
ld a, $0
2015-08-31 02:38:41 +00:00
ld [wVermilionCityCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
VermilionCityScript2:
2014-05-18 18:19:10 +00:00
ld a, $ff
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ld a, D_UP
ld [wSimulatedJoypadStatesEnd], a
2015-07-26 02:26:54 +00:00
ld [wSimulatedJoypadStatesEnd + 1], a
ld a, 2
ld [wSimulatedJoypadStatesIndex], a
call StartSimulatingJoypadStates
2014-05-18 18:19:10 +00:00
ld a, $3
2015-08-31 02:38:41 +00:00
ld [wVermilionCityCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
VermilionCityScript3:
ld a, [wSimulatedJoypadStatesIndex]
2014-05-18 18:19:10 +00:00
and a
ret nz
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ldh [hJoyHeld], a
2014-05-18 18:19:10 +00:00
ld a, $0
2015-08-31 02:38:41 +00:00
ld [wVermilionCityCurScript], a
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
VermilionCityScript1:
ld a, [wSimulatedJoypadStatesIndex]
2014-05-18 18:19:10 +00:00
and a
ret nz
ld c, 10
2014-05-18 18:19:10 +00:00
call DelayFrames
ld a, $0
2015-08-31 02:38:41 +00:00
ld [wVermilionCityCurScript], a
2014-05-18 18:19:10 +00:00
ret
VermilionCity_TextPointers:
2014-05-18 18:19:10 +00:00
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
2016-06-12 00:24:04 +00:00
VermilionCityText1:
text_far _VermilionCityText1
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText2:
text_asm
2015-07-21 01:32:02 +00:00
CheckEvent EVENT_SS_ANNE_LEFT
2020-05-03 18:25:01 +00:00
jr nz, .shipHasDeparted
2020-05-03 18:41:11 +00:00
ld hl, VermilionCityTextDidYouSee
2014-05-18 18:19:10 +00:00
call PrintText
2020-05-03 18:25:01 +00:00
jr .end
.shipHasDeparted
2020-05-03 18:41:11 +00:00
ld hl, VermilionCityTextSSAnneDeparted
2014-05-18 18:19:10 +00:00
call PrintText
2020-05-03 18:25:01 +00:00
.end
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
2020-05-03 18:41:11 +00:00
VermilionCityTextDidYouSee:
text_far _VermilionCityTextDidYouSee
text_end
2014-05-18 18:19:10 +00:00
2020-05-03 18:41:11 +00:00
VermilionCityTextSSAnneDeparted:
text_far _VermilionCityTextSSAnneDeparted
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText3:
text_asm
2015-07-21 01:32:02 +00:00
CheckEvent EVENT_SS_ANNE_LEFT
2020-05-03 18:25:01 +00:00
jr nz, .shipHasDeparted
ld a, [wSpritePlayerStateData1FacingDirection]
cp SPRITE_FACING_RIGHT
2020-05-03 18:25:01 +00:00
jr z, .greetPlayer
ld hl, .inFrontOfOrBehindGuardCoords
2014-05-18 18:19:10 +00:00
call ArePlayerCoordsInArray
2020-05-03 18:25:01 +00:00
jr nc, .greetPlayerAndCheckTicket
.greetPlayer
2014-05-18 18:19:10 +00:00
ld hl, SSAnneWelcomeText4
call PrintText
2020-05-03 18:25:01 +00:00
jr .end
.greetPlayerAndCheckTicket
2014-05-18 18:19:10 +00:00
ld hl, SSAnneWelcomeText9
call PrintText
2015-12-15 04:09:30 +00:00
ld b, S_S_TICKET
2015-08-13 05:14:31 +00:00
predef GetQuantityOfItemInBag
2014-05-18 18:19:10 +00:00
ld a, b
and a
2020-05-03 18:25:01 +00:00
jr nz, .playerHasTicket
2014-05-18 18:19:10 +00:00
ld hl, SSAnneNoTicketText
call PrintText
2020-05-03 18:25:01 +00:00
jr .end
.playerHasTicket
2014-05-18 18:19:10 +00:00
ld hl, SSAnneFlashedTicketText
call PrintText
ld a, $4
2015-08-31 02:38:41 +00:00
ld [wVermilionCityCurScript], a
2020-05-03 18:25:01 +00:00
jr .end
.shipHasDeparted
2014-05-18 18:19:10 +00:00
ld hl, SSAnneNotHereText
call PrintText
2020-05-03 18:25:01 +00:00
.end
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
2020-05-03 18:25:01 +00:00
.inFrontOfOrBehindGuardCoords
dbmapcoord 19, 29 ; in front of guard
dbmapcoord 19, 31 ; behind guard
db -1 ; end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
SSAnneWelcomeText4:
text_far _SSAnneWelcomeText4
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
SSAnneWelcomeText9:
text_far _SSAnneWelcomeText9
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
SSAnneFlashedTicketText:
text_far _SSAnneFlashedTicketText
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
SSAnneNoTicketText:
text_far _SSAnneNoTicketText
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
SSAnneNotHereText:
text_far _SSAnneNotHereText
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText4:
text_far _VermilionCityText4
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText5:
text_far _VermilionCityText5
text_asm
2014-05-18 18:19:10 +00:00
ld a, MACHOP
call PlayCry
call WaitForSoundToFinish
ld hl, VermilionCityText14
2014-05-18 18:19:10 +00:00
ret
2016-06-12 00:24:04 +00:00
VermilionCityText14:
text_far _VermilionCityText14
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText6:
text_far _VermilionCityText6
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText7:
text_far _VermilionCityText7
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText8:
text_far _VermilionCityText8
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText11:
text_far _VermilionCityText11
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText12:
text_far _VermilionCityText12
text_end
2014-05-18 18:19:10 +00:00
2016-06-12 00:24:04 +00:00
VermilionCityText13:
text_far _VermilionCityText13
text_end