pokered/scripts/SSAnne2F.asm

217 lines
4.6 KiB
NASM
Raw Normal View History

SSAnne2F_Script:
2014-05-18 18:19:10 +00:00
call EnableAutoTextBoxDrawing
ld hl, SSAnne2F_ScriptPointers
ld a, [wSSAnne2FCurScript]
2014-05-18 18:19:10 +00:00
jp CallFunctionInTable
SSAnne2FResetScripts:
2014-05-18 18:19:10 +00:00
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ld [wSSAnne2FCurScript], a
2014-05-18 18:19:10 +00:00
ret
SSAnne2F_ScriptPointers:
def_script_pointers
dw_const SSAnne2FDefaultScript, SCRIPT_SSANNE2F_DEFAULT
dw_const SSAnne2FRivalStartBattleScript, SCRIPT_SSANNE2F_RIVAL_START_BATTLE
dw_const SSAnne2FRivalAfterBattleScript, SCRIPT_SSANNE2F_RIVAL_AFTER_BATTLE
dw_const SSAnne2FRivalExitScript, SCRIPT_SSANNE2F_RIVAL_EXIT
dw_const SSAnne2FNoopScript, SCRIPT_SSANNE2F_NOOP
SSAnne2FNoopScript:
2014-05-18 18:19:10 +00:00
ret
SSAnne2FDefaultScript:
ld hl, .PlayerCoordinatesArray
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-18 15:17:29 +00:00
ld a, [wCoordIndex]
ldh [hSavedCoordIndex], a
ld a, HS_SS_ANNE_2F_RIVAL
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef ShowObject
2014-05-18 18:19:10 +00:00
call Delay3
ld a, SSANNE2F_RIVAL
ldh [hSpriteIndex], a
2014-05-18 18:19:10 +00:00
call SetSpriteMovementBytesToFF
xor a
ldh [hJoyHeld], a
ld a, D_RIGHT | D_LEFT | D_UP | D_DOWN
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ldh a, [hSavedCoordIndex]
2014-05-18 18:19:10 +00:00
cp $2
jr nz, .player_standing_right
ld de, .RivalDownFourMovement
jr .move_sprite
.player_standing_right
ld de, .RivalDownThreeMovement
.move_sprite
2014-05-18 18:19:10 +00:00
call MoveSprite
ld a, SCRIPT_SSANNE2F_RIVAL_START_BATTLE
ld [wSSAnne2FCurScript], a
2014-05-18 18:19:10 +00:00
ret
.RivalDownFourMovement:
db NPC_MOVEMENT_DOWN
.RivalDownThreeMovement:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db -1 ; end
2014-05-18 18:19:10 +00:00
.PlayerCoordinatesArray:
dbmapcoord 36, 8
dbmapcoord 37, 8
db -1 ; end
2014-05-18 18:19:10 +00:00
SSAnne2FSetFacingDirectionScript:
2015-08-31 02:38:41 +00:00
ld a, [wXCoord]
cp 37
jr nz, .player_standing_left
2015-07-20 00:52:26 +00:00
ld a, PLAYER_DIR_LEFT
ld [wPlayerMovingDirection], a
ld a, SPRITE_FACING_RIGHT
jr .set_facing_direction
.player_standing_left
2015-07-18 15:17:29 +00:00
xor a ; SPRITE_FACING_DOWN
.set_facing_direction
ldh [hSpriteFacingDirection], a
ld a, SSANNE2F_RIVAL
ldh [hSpriteIndex], a
jp SetSpriteFacingDirectionAndDelay
2014-05-18 18:19:10 +00:00
SSAnne2FRivalStartBattleScript:
ld a, [wStatusFlags5]
bit BIT_SCRIPTED_NPC_MOVEMENT, a
2014-05-18 18:19:10 +00:00
ret nz
call SSAnne2FSetFacingDirectionScript
2014-05-18 18:19:10 +00:00
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ld a, TEXT_SSANNE2F_RIVAL
ldh [hTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
call Delay3
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, $1
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, $2
jr .done
.Charmander
ld a, $3
.done
2015-08-31 02:38:41 +00:00
ld [wTrainerNo], a
2014-05-18 18:19:10 +00:00
call SSAnne2FSetFacingDirectionScript
ld a, SCRIPT_SSANNE2F_RIVAL_AFTER_BATTLE
ld [wSSAnne2FCurScript], a
2014-05-18 18:19:10 +00:00
ret
SSAnne2FRivalAfterBattleScript:
2015-08-31 02:38:41 +00:00
ld a, [wIsInBattle]
2014-05-18 18:19:10 +00:00
cp $ff
jp z, SSAnne2FResetScripts
call SSAnne2FSetFacingDirectionScript
ld a, D_RIGHT | D_LEFT | D_UP | D_DOWN
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ld a, TEXT_SSANNE2F_RIVAL_CUT_MASTER
ldh [hTextID], a
2014-05-18 18:19:10 +00:00
call DisplayTextID
ld a, SSANNE2F_RIVAL
ldh [hSpriteIndex], a
2014-05-18 18:19:10 +00:00
call SetSpriteMovementBytesToFF
2015-08-31 02:38:41 +00:00
ld a, [wXCoord]
cp 37
jr nz, .player_standing_left
ld de, .RivalDownFourMovement
jr .move_sprite
.player_standing_left
ld de, .RivalWalkAroundPlayerMovement
.move_sprite
ld a, SSANNE2F_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_SSANNE2F_RIVAL_EXIT
ld [wSSAnne2FCurScript], a
2014-05-18 18:19:10 +00:00
ret
.RivalWalkAroundPlayerMovement:
db NPC_MOVEMENT_RIGHT
db NPC_MOVEMENT_DOWN
.RivalDownFourMovement:
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db NPC_MOVEMENT_DOWN
db -1 ; end
2014-05-18 18:19:10 +00:00
SSAnne2FRivalExitScript:
ld a, [wStatusFlags5]
bit BIT_SCRIPTED_NPC_MOVEMENT, a
2014-05-18 18:19:10 +00:00
ret nz
xor a
2014-05-25 17:51:53 +00:00
ld [wJoyIgnore], a
ld a, HS_SS_ANNE_2F_RIVAL
2015-07-25 03:27:59 +00:00
ld [wMissableObjectIndex], a
predef HideObject
call PlayDefaultMusic
ld a, SCRIPT_SSANNE2F_NOOP
ld [wSSAnne2FCurScript], a
2014-05-18 18:19:10 +00:00
ret
SSAnne2F_TextPointers:
def_text_pointers
dw_const SSAnne2FWaiterText, TEXT_SSANNE2F_WAITER
dw_const SSAnne2FRivalText, TEXT_SSANNE2F_RIVAL
dw_const SSAnne2FRivalCutMasterText, TEXT_SSANNE2F_RIVAL_CUT_MASTER
2014-05-18 18:19:10 +00:00
SSAnne2FWaiterText:
text_far _SSAnne2FWaiterText
text_end
2014-05-18 18:19:10 +00:00
SSAnne2FRivalText:
text_asm
ld hl, .Text
2014-05-18 18:19:10 +00:00
call PrintText
ld hl, wStatusFlags3
set BIT_TALKED_TO_TRAINER, [hl]
set BIT_PRINT_END_BATTLE_TEXT, [hl]
ld hl, SSAnne2FRivalDefeatedText
ld de, SSAnne2FRivalVictoryText
2014-09-14 18:29:18 +00:00
call SaveEndBattleTextPointers
2014-05-18 18:19:10 +00:00
jp TextScriptEnd
.Text:
text_far _SSAnne2FRivalText
text_end
2014-05-18 18:19:10 +00:00
SSAnne2FRivalDefeatedText:
text_far _SSAnne2FRivalDefeatedText
text_end
2014-05-18 18:19:10 +00:00
SSAnne2FRivalVictoryText:
text_far _SSAnne2FRivalVictoryText
text_end
2014-05-18 18:19:10 +00:00
SSAnne2FRivalCutMasterText:
text_far _SSAnne2FRivalCutMasterText
text_end