pokered/scripts/PokemonTower2F.asm

195 lines
4.4 KiB
NASM
Raw Normal View History

PokemonTower2F_Script:
2014-05-18 18:19:10 +00:00
call EnableAutoTextBoxDrawing
ld hl, PokemonTower2F_ScriptPointers
ld a, [wPokemonTower2FCurScript]
2014-05-18 18:19:10 +00:00
jp CallFunctionInTable
PokemonTower2FResetRivalEncounter:
xor a ; SCRIPT_POKEMONTOWER2F_DEFAULT
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ld [wPokemonTower2FCurScript], a
2015-08-31 02:38:41 +00:00
ld [wCurMapScript], a
2014-05-18 18:19:10 +00:00
ret
PokemonTower2F_ScriptPointers:
def_script_pointers
dw_const PokemonTower2FDefaultScript, SCRIPT_POKEMONTOWER2F_DEFAULT
dw_const PokemonTower2FDefeatedRivalScript, SCRIPT_POKEMONTOWER2F_DEFEATED_RIVAL
dw_const PokemonTower2FRivalExitsScript, SCRIPT_POKEMONTOWER2F_RIVAL_EXITS
2014-05-18 18:19:10 +00:00
PokemonTower2FDefaultScript:
2020-07-15 17:35:39 +00:00
IF DEF(_DEBUG)
call DebugPressedOrHeldB
ret nz
ENDC
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_BEAT_POKEMON_TOWER_RIVAL
2014-05-18 18:19:10 +00:00
ret nz
ld hl, PokemonTower2FRivalEncounterEventCoords
2014-05-18 18:19:10 +00:00
call ArePlayerCoordsInArray
ret nc
ld a, SFX_STOP_ALL_MUSIC
2015-08-09 05:32:44 +00:00
ld [wNewSoundID], a
2014-05-18 18:19:10 +00:00
call PlaySound
ld c, BANK(Music_MeetRival)
ld a, MUSIC_MEET_RIVAL
call PlayMusic
2015-07-21 17:36:03 +00:00
ResetEvent EVENT_POKEMON_TOWER_RIVAL_ON_LEFT
2015-07-18 15:17:29 +00:00
ld a, [wCoordIndex]
2014-05-18 18:19:10 +00:00
cp $1
2015-07-20 00:52:26 +00:00
ld a, PLAYER_DIR_UP
ld b, SPRITE_FACING_DOWN
jr nz, .player_below_rival
2015-07-21 17:36:03 +00:00
; the rival is on the left side and the player is on the right side
SetEvent EVENT_POKEMON_TOWER_RIVAL_ON_LEFT
2015-07-20 00:52:26 +00:00
ld a, PLAYER_DIR_LEFT
ld b, SPRITE_FACING_RIGHT
.player_below_rival
2015-07-20 00:52:26 +00:00
ld [wPlayerMovingDirection], a
ld a, POKEMONTOWER2F_RIVAL
ldh [hSpriteIndex], a
2014-05-18 18:19:10 +00:00
ld a, b
ldh [hSpriteFacingDirection], a
call SetSpriteFacingDirectionAndDelay
ld a, TEXT_POKEMONTOWER2F_RIVAL
ldh [hSpriteIndexOrTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
xor a
ldh [hJoyHeld], a
ldh [hJoyPressed], a
2014-05-18 18:19:10 +00:00
ret
PokemonTower2FRivalEncounterEventCoords:
dbmapcoord 15, 5
dbmapcoord 14, 6
db $0F ; end? (should be $ff?)
2014-05-18 18:19:10 +00:00
PokemonTower2FDefeatedRivalScript:
2015-08-31 02:38:41 +00:00
ld a, [wIsInBattle]
2014-05-18 18:19:10 +00:00
cp $ff
jp z, PokemonTower2FResetRivalEncounter
ld a, D_RIGHT | D_LEFT | D_UP | D_DOWN
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
2015-07-21 17:36:03 +00:00
SetEvent EVENT_BEAT_POKEMON_TOWER_RIVAL
ld a, TEXT_POKEMONTOWER2F_RIVAL
ldh [hSpriteIndexOrTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
ld de, PokemonTower2FRivalDownThenRightMovement
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_POKEMON_TOWER_RIVAL_ON_LEFT
jr nz, .got_movement
ld de, PokemonTower2FRivalRightThenDownMovement
.got_movement
ld a, POKEMONTOWER2F_RIVAL
ldh [hSpriteIndex], a
2014-05-18 18:19:10 +00:00
call MoveSprite
ld a, SFX_STOP_ALL_MUSIC
2015-08-09 05:32:44 +00:00
ld [wNewSoundID], a
2014-05-18 18:19:10 +00:00
call PlaySound
farcall Music_RivalAlternateStart
ld a, SCRIPT_POKEMONTOWER2F_RIVAL_EXITS
ld [wPokemonTower2FCurScript], a
2015-08-31 02:38:41 +00:00
ld [wCurMapScript], a
2014-05-18 18:19:10 +00:00
ret
PokemonTower2FRivalRightThenDownMovement:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db -1 ; end
2014-05-18 18:19:10 +00:00
PokemonTower2FRivalDownThenRightMovement:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db -1 ; end
2014-05-18 18:19:10 +00:00
PokemonTower2FRivalExitsScript:
ld a, [wd730]
2014-05-18 18:19:10 +00:00
bit 0, a
ret nz
ld a, HS_POKEMON_TOWER_2F_RIVAL
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef HideObject
2014-05-18 18:19:10 +00:00
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
call PlayDefaultMusic
ld a, SCRIPT_POKEMONTOWER2F_DEFAULT
ld [wPokemonTower2FCurScript], a
2015-08-31 02:38:41 +00:00
ld [wCurMapScript], a
2014-05-18 18:19:10 +00:00
ret
PokemonTower2F_TextPointers:
def_text_pointers
dw_const PokemonTower2FRivalText, TEXT_POKEMONTOWER2F_RIVAL
dw_const PokemonTower2FChannelerText, TEXT_POKEMONTOWER2F_CHANNELER
2014-05-18 18:19:10 +00:00
PokemonTower2FRivalText:
text_asm
2015-07-21 17:36:03 +00:00
CheckEvent EVENT_BEAT_POKEMON_TOWER_RIVAL
jr z, .do_battle
ld hl, .HowsYourDexText
2014-05-18 18:19:10 +00:00
call PrintText
jr .text_script_end
.do_battle
ld hl, .WhatBringsYouHereText
2014-05-18 18:19:10 +00:00
call PrintText
ld hl, wd72d
2014-05-18 18:19:10 +00:00
set 6, [hl]
set 7, [hl]
ld hl, .DefeatedText
ld de, .VictoryText
2014-09-14 18:29:18 +00:00
call SaveEndBattleTextPointers
2020-07-17 17:27:27 +00:00
ld a, OPP_RIVAL2
2015-08-31 02:38:41 +00:00
ld [wCurOpponent], a
2014-05-18 18:19:10 +00:00
; select which team to use during the encounter
2015-08-31 02:38:41 +00:00
ld a, [wRivalStarter]
2014-05-21 12:48:30 +00:00
cp STARTER2
jr nz, .NotSquirtle
2014-05-18 18:19:10 +00:00
ld a, $4
jr .done
.NotSquirtle
2014-05-21 12:48:30 +00:00
cp STARTER3
jr nz, .Charmander
2014-05-18 18:19:10 +00:00
ld a, $5
jr .done
.Charmander
2014-05-18 18:19:10 +00:00
ld a, $6
.done
2015-08-31 02:38:41 +00:00
ld [wTrainerNo], a
2014-05-18 18:19:10 +00:00
ld a, SCRIPT_POKEMONTOWER2F_DEFEATED_RIVAL
ld [wPokemonTower2FCurScript], a
2015-08-31 02:38:41 +00:00
ld [wCurMapScript], a
.text_script_end
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
.WhatBringsYouHereText:
text_far _PokemonTower2FRivalWhatBringsYouHereText
text_end
2014-05-18 18:19:10 +00:00
.DefeatedText:
text_far _PokemonTower2FRivalDefeatedText
text_end
2014-05-18 18:19:10 +00:00
.VictoryText:
text_far _PokemonTower2FRivalVictoryText
text_end
2014-05-18 18:19:10 +00:00
.HowsYourDexText:
text_far _PokemonTower2FRivalHowsYourDexText
text_end
2014-05-18 18:19:10 +00:00
PokemonTower2FChannelerText:
text_far _PokemonTower2FChannelerText
text_end