pokered/scripts/lance.asm

LanceScript: ; 5a2ae (16:62ae)
	call LanceScript_5a2c4
	call EnableAutoTextBoxDrawing
	ld hl, LanceTrainerHeaders
	ld de, LanceScriptPointers
	ld a, [W_LANCECURSCRIPT]
	call ExecuteCurMapScriptInTable
	ld [W_LANCECURSCRIPT], a
	ret

LanceScript_5a2c4: ; 5a2c4 (16:62c4)
	ld hl, wd126
	bit 5, [hl]
	res 5, [hl]
	ret z
	ld a, [wd866]
	bit 7, a
	jr nz, .asm_5a2da
	ld a, $31
	ld b, $32
	jp LanceScript_5a2de
.asm_5a2da
	ld a, $72
	ld b, $73

LanceScript_5a2de: ; 5a2de (16:62de)
	push bc
	ld [wd09f], a
	ld bc, $602
	call LanceScript_5a2f0
	pop bc
	ld a, b
	ld [wd09f], a
	ld bc, $603

LanceScript_5a2f0: ; 5a2f0 (16:62f0)
	ld a, $17
	jp Predef

LanceScript_5a2f5: ; 5a2f5 (16:62f5)
	xor a
	ld [W_LANCECURSCRIPT], a
	ret

LanceScriptPointers: ; 5a2fa (16:62fa)
	dw LanceScript0
	dw Func_324c
	dw LanceScript2
	dw LanceScript3
	dw LanceScript4

LanceScript4: ; 5a304 (16:6304)
	ret

LanceScript0: ; 5a305 (16:6305)
	ld a, [wd866]
	bit 6, a
	ret nz
	ld hl, CoordsData_5a33e
	call ArePlayerCoordsInArray
	jp nc, CheckFightingMapTrainers
	xor a
	ld [hJoyHeld], a
	ld a, [wWhichTrade] ; wWhichTrade
	cp $3
	jr nc, .asm_5a325
	ld a, $1
	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
	jp DisplayTextID
.asm_5a325
	cp $5
	jr z, LanceScript_5a35b
	ld hl, wd866
	bit 7, [hl]
	set 7, [hl]
	ret nz
	ld hl, wd126
	set 5, [hl]
	ld a, (SFX_02_57 - SFX_Headers_02) / 3
	call PlaySound
	jp LanceScript_5a2c4

CoordsData_5a33e: ; 5a33e (16:633e)
	db $01,$05
	db $02,$06
	db $0B,$05
	db $0B,$06
	db $10,$18
	db $FF

LanceScript2: ; 5a349 (16:6349)
	call EndTrainerBattle
	ld a, [W_ISINBATTLE] ; W_ISINBATTLE
	cp $ff
	jp z, LanceScript_5a2f5
	ld a, $1
	ld [H_DOWNARROWBLINKCNT2], a ; $ff8c
	jp DisplayTextID

LanceScript_5a35b: ; 5a35b (16:635b)
	ld a, $ff
	ld [wJoyIgnore], a
	ld hl, wccd3
	ld de, RLEList_5a379
	call DecodeRLEList
	dec a
	ld [wcd38], a
	call Func_3486
	ld a, $3
	ld [W_LANCECURSCRIPT], a
	ld [W_CURMAPSCRIPT], a
	ret

RLEList_5a379: ; 5a379 (16:6379)
	db $40, $0C
	db $20, $0C
	db $80, $07
	db $20, $06
	db $FF

LanceScript3: ; 5a382 (16:6382)
	ld a, [wcd38]
	and a
	ret nz
	call Delay3
	xor a
	ld [wJoyIgnore], a
	ld [W_LANCECURSCRIPT], a
	ld [W_CURMAPSCRIPT], a
	ret

LanceTextPointers: ; 5a395 (16:6395)
	dw LanceText1

LanceTrainerHeaders: ; 5a397 (16:6397)
LanceTrainerHeader0: ; 5a397 (16:6397)
	db $1 ; flag's bit
	db ($0 << 4) ; trainer's view range
	dw wd866 ; flag's byte
	dw LanceBeforeBattleText ; 0x63ae TextBeforeBattle
	dw LanceAfterBattleText ; 0x63b8 TextAfterBattle
	dw LanceEndBattleText ; 0x63b3 TextEndBattle
	dw LanceEndBattleText ; 0x63b3 TextEndBattle

	db $ff

LanceText1: ; 5a3a4 (16:63a4)
	db $08 ; asm
	ld hl, LanceTrainerHeader0
	call TalkToTrainer
	jp TextScriptEnd

LanceBeforeBattleText: ; 5a3ae (16:63ae)
	TX_FAR _LanceBeforeBattleText
	db "@"

LanceEndBattleText: ; 5a3b3 (16:63b3)
	TX_FAR _LanceEndBattleText
	db "@"

LanceAfterBattleText: ; 5a3b8 (16:63b8)
	TX_FAR _LanceAfterBattleText
	db $8
	ld hl, wd866
	set 6, [hl]
	jp TextScriptEnd
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`LanceScript: ; 5a2ae (16:62ae)`
			`call LanceScript_5a2c4`
			`call EnableAutoTextBoxDrawing`
			`ld hl, LanceTrainerHeaders`
			`ld de, LanceScriptPointers`
			`ld a, [W_LANCECURSCRIPT]`
			`call ExecuteCurMapScriptInTable`
			`ld [W_LANCECURSCRIPT], a`
			`ret`

			`LanceScript_5a2c4: ; 5a2c4 (16:62c4)`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd126`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 5, [hl]`
			`res 5, [hl]`
			`ret z`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd866]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 7, a`
			`jr nz, .asm_5a2da`
			`ld a, $31`
			`ld b, $32`
			`jp LanceScript_5a2de`
			`.asm_5a2da`
			`ld a, $72`
			`ld b, $73`

			`LanceScript_5a2de: ; 5a2de (16:62de)`
			`push bc`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wd09f], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld bc, $602`
			`call LanceScript_5a2f0`
			`pop bc`
			`ld a, b`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wd09f], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld bc, $603`

			`LanceScript_5a2f0: ; 5a2f0 (16:62f0)`
			`ld a, $17`
Remove generated "indirect jump" comments. The destination is obvious when using the predef macro. 2014-06-16 18:37:36 +00:00			`jp Predef`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
			`LanceScript_5a2f5: ; 5a2f5 (16:62f5)`
			`xor a`
			`ld [W_LANCECURSCRIPT], a`
			`ret`

			`LanceScriptPointers: ; 5a2fa (16:62fa)`
			`dw LanceScript0`
			`dw Func_324c`
			`dw LanceScript2`
			`dw LanceScript3`
			`dw LanceScript4`

			`LanceScript4: ; 5a304 (16:6304)`
			`ret`

			`LanceScript0: ; 5a305 (16:6305)`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wd866]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 6, a`
			`ret nz`
			`ld hl, CoordsData_5a33e`
			`call ArePlayerCoordsInArray`
			`jp nc, CheckFightingMapTrainers`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [hJoyHeld], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wWhichTrade] ; wWhichTrade`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $3`
			`jr nc, .asm_5a325`
			`ld a, $1`
			`ld [H_DOWNARROWBLINKCNT2], a ; $ff8c`
			`jp DisplayTextID`
			`.asm_5a325`
			`cp $5`
			`jr z, LanceScript_5a35b`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd866`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`bit 7, [hl]`
			`set 7, [hl]`
			`ret nz`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd126`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 5, [hl]`
			`ld a, (SFX_02_57 - SFX_Headers_02) / 3`
			`call PlaySound`
			`jp LanceScript_5a2c4`

			`CoordsData_5a33e: ; 5a33e (16:633e)`
			`db $01,$05`
			`db $02,$06`
			`db $0B,$05`
			`db $0B,$06`
			`db $10,$18`
			`db $FF`

			`LanceScript2: ; 5a349 (16:6349)`
			`call EndTrainerBattle`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [W_ISINBATTLE] ; W_ISINBATTLE`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`cp $ff`
			`jp z, LanceScript_5a2f5`
			`ld a, $1`
			`ld [H_DOWNARROWBLINKCNT2], a ; $ff8c`
			`jp DisplayTextID`

			`LanceScript_5a35b: ; 5a35b (16:635b)`
			`ld a, $ff`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wccd3`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld de, RLEList_5a379`
			`call DecodeRLEList`
			`dec a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld [wcd38], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call Func_3486`
			`ld a, $3`
			`ld [W_LANCECURSCRIPT], a`
			`ld [W_CURMAPSCRIPT], a`
			`ret`

			`RLEList_5a379: ; 5a379 (16:6379)`
			`db $40, $0C`
			`db $20, $0C`
			`db $80, $07`
			`db $20, $06`
			`db $FF`

			`LanceScript3: ; 5a382 (16:6382)`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld a, [wcd38]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
			`ret nz`
			`call Delay3`
			`xor a`
Rename joypad registers. 2014-05-25 17:51:53 +00:00			`ld [wJoyIgnore], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld [W_LANCECURSCRIPT], a`
			`ld [W_CURMAPSCRIPT], a`
			`ret`

			`LanceTextPointers: ; 5a395 (16:6395)`
			`dw LanceText1`

			`LanceTrainerHeaders: ; 5a397 (16:6397)`
			`LanceTrainerHeader0: ; 5a397 (16:6397)`
			`db $1 ; flag's bit`
			`db ($0 << 4) ; trainer's view range`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`dw wd866 ; flag's byte`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`dw LanceBeforeBattleText ; 0x63ae TextBeforeBattle`
			`dw LanceAfterBattleText ; 0x63b8 TextAfterBattle`
			`dw LanceEndBattleText ; 0x63b3 TextEndBattle`
			`dw LanceEndBattleText ; 0x63b3 TextEndBattle`

			`db $ff`

			`LanceText1: ; 5a3a4 (16:63a4)`
			`db $08 ; asm`
			`ld hl, LanceTrainerHeader0`
			`call TalkToTrainer`
			`jp TextScriptEnd`

			`LanceBeforeBattleText: ; 5a3ae (16:63ae)`
			`TX_FAR _LanceBeforeBattleText`
			`db "@"`

			`LanceEndBattleText: ; 5a3b3 (16:63b3)`
			`TX_FAR _LanceEndBattleText`
			`db "@"`

			`LanceAfterBattleText: ; 5a3b8 (16:63b8)`
			`TX_FAR _LanceAfterBattleText`
			`db $8`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd866`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 6, [hl]`
			`jp TextScriptEnd`