summaryrefslogtreecommitdiff
path: root/scripts/lance.asm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/lance.asm')
-rwxr-xr-xscripts/lance.asm162
1 files changed, 0 insertions, 162 deletions
diff --git a/scripts/lance.asm b/scripts/lance.asm
deleted file mode 100755
index a0b0e6e7..00000000
--- a/scripts/lance.asm
+++ /dev/null
@@ -1,162 +0,0 @@
-LanceScript:
- call LanceShowOrHideEntranceBlocks
- call EnableAutoTextBoxDrawing
- ld hl, LanceTrainerHeader0
- ld de, LanceScriptPointers
- ld a, [wLanceCurScript]
- call ExecuteCurMapScriptInTable
- ld [wLanceCurScript], a
- ret
-
-LanceShowOrHideEntranceBlocks:
- ld hl, wCurrentMapScriptFlags
- bit 5, [hl]
- res 5, [hl]
- ret z
- CheckEvent EVENT_LANCES_ROOM_LOCK_DOOR
- jr nz, .closeEntrance
- ; open entrance
- ld a, $31
- ld b, $32
- jp LanceSetEntranceBlocks
-.closeEntrance
- ld a, $72
- ld b, $73
-
-LanceSetEntranceBlocks:
-; Replaces the tile blocks so the player can't leave.
- push bc
- ld [wNewTileBlockID], a
- lb bc, 6, 2
- call LanceSetEntranceBlock
- pop bc
- ld a, b
- ld [wNewTileBlockID], a
- lb bc, 6, 3
-
-LanceSetEntranceBlock:
- predef_jump ReplaceTileBlock
-
-ResetLanceScript:
- xor a
- ld [wLanceCurScript], a
- ret
-
-LanceScriptPointers:
- dw LanceScript0
- dw DisplayEnemyTrainerTextAndStartBattle
- dw LanceScript2
- dw LanceScript3
- dw LanceScript4
-
-LanceScript4:
- ret
-
-LanceScript0:
- CheckEvent EVENT_BEAT_LANCE
- ret nz
- ld hl, LanceTriggerMovementCoords
- call ArePlayerCoordsInArray
- jp nc, CheckFightingMapTrainers
- xor a
- ld [hJoyHeld], a
- ld a, [wCoordIndex]
- cp $3 ; Is player standing next to Lance's sprite?
- jr nc, .notStandingNextToLance
- ld a, $1
- ld [hSpriteIndexOrTextID], a
- jp DisplayTextID
-.notStandingNextToLance
- cp $5 ; Is player standing on the entrance staircase?
- jr z, WalkToLance
- CheckAndSetEvent EVENT_LANCES_ROOM_LOCK_DOOR
- ret nz
- ld hl, wCurrentMapScriptFlags
- set 5, [hl]
- ld a, SFX_GO_INSIDE
- call PlaySound
- jp LanceShowOrHideEntranceBlocks
-
-LanceTriggerMovementCoords:
- db $01,$05
- db $02,$06
- db $0B,$05
- db $0B,$06
- db $10,$18
- db $FF
-
-LanceScript2:
- call EndTrainerBattle
- ld a, [wIsInBattle]
- cp $ff
- jp z, ResetLanceScript
- ld a, $1
- ld [hSpriteIndexOrTextID], a
- jp DisplayTextID
-
-WalkToLance:
-; Moves the player down the hallway to Lance's room.
- ld a, $ff
- ld [wJoyIgnore], a
- ld hl, wSimulatedJoypadStatesEnd
- ld de, WalkToLance_RLEList
- call DecodeRLEList
- dec a
- ld [wSimulatedJoypadStatesIndex], a
- call StartSimulatingJoypadStates
- ld a, $3
- ld [wLanceCurScript], a
- ld [wCurMapScript], a
- ret
-
-WalkToLance_RLEList:
- db D_UP, $0C
- db D_LEFT, $0C
- db D_DOWN, $07
- db D_LEFT, $06
- db $FF
-
-LanceScript3:
- ld a, [wSimulatedJoypadStatesIndex]
- and a
- ret nz
- call Delay3
- xor a
- ld [wJoyIgnore], a
- ld [wLanceCurScript], a
- ld [wCurMapScript], a
- ret
-
-LanceTextPointers:
- dw LanceText1
-
-LanceTrainerHeader0:
- dbEventFlagBit EVENT_BEAT_LANCES_ROOM_TRAINER_0
- db ($0 << 4) ; trainer's view range
- dwEventFlagAddress EVENT_BEAT_LANCES_ROOM_TRAINER_0
- dw LanceBeforeBattleText ; TextBeforeBattle
- dw LanceAfterBattleText ; TextAfterBattle
- dw LanceEndBattleText ; TextEndBattle
- dw LanceEndBattleText ; TextEndBattle
-
- db $ff
-
-LanceText1:
- TX_ASM
- ld hl, LanceTrainerHeader0
- call TalkToTrainer
- jp TextScriptEnd
-
-LanceBeforeBattleText:
- TX_FAR _LanceBeforeBattleText
- db "@"
-
-LanceEndBattleText:
- TX_FAR _LanceEndBattleText
- db "@"
-
-LanceAfterBattleText:
- TX_FAR _LanceAfterBattleText
- TX_ASM
- SetEvent EVENT_BEAT_LANCE
- jp TextScriptEnd