mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-09-29 14:02:22 -04:00
Alieneer
272 lines
6.5 KiB
NASM
272 lines
6.5 KiB
NASM
map_attributes PlayerHouse2F, PLAYER_HOUSE_2F
|
||
|
||
object_const_def
|
||
const PLAYER_HOUSE_2F_KEN
|
||
const PLAYER_HOUSE_2F_POKEDOLL
|
||
|
||
PlayerHouse2F_MapEvents::
|
||
dw $4000 ; unknown
|
||
|
||
def_warp_events
|
||
warp_event 9, 0, PLAYER_HOUSE_1F, 3, 16
|
||
|
||
def_bg_events
|
||
bg_event 1, 1, 1
|
||
bg_event 2, 1, 2
|
||
bg_event 3, 1, 3
|
||
bg_event 5, 1, 4
|
||
bg_event 7, 2, 5
|
||
|
||
def_object_events
|
||
object_event 8, 1, SPRITE_ROCKER, SPRITEMOVEFN_TURN_DOWN, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0
|
||
object_event 6, 1, SPRITE_CLEFAIRY, SPRITEMOVEFN_TURN_DOWN, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0
|
||
|
||
PlayerHouse2F_Blocks::
|
||
INCBIN "maps/PlayerHouse2F.blk"
|
||
|
||
map_generic_scriptloader
|
||
|
||
PlayerHouse2FScriptPointers::
|
||
def_script_pointers
|
||
script_pointer PlayerHouse2FDefaultScript, PlayerHouse2FDefaultNPCIDs, SCENE_PLAYER_HOUSE_2F_DEFAULT
|
||
script_pointer PlayerHouse2FKenLeftScript, PlayerHouse2FKenLeftNPCIDs, SCENE_PLAYER_HOUSE_2F_KEN_LEFT
|
||
|
||
PlayerHouse2F_TextPointers::
|
||
dw PlayerHouse2FText1
|
||
dw PlayerHouse2FDollText
|
||
|
||
PlayerHouse2FDefaultNPCIDs:
|
||
npc_id PLAYER_HOUSE_2F_KEN
|
||
npc_id PLAYER_HOUSE_2F_POKEDOLL
|
||
db -1
|
||
|
||
PlayerHouse2FKenLeftNPCIDs:
|
||
npc_id PLAYER_HOUSE_2F_POKEDOLL
|
||
db -1
|
||
|
||
PlayerHouse2FSignPointers:
|
||
dw PokemonBooksScript
|
||
dw PlayerHouse2FRadioText
|
||
dw PlayerHouse2FComputerText
|
||
dw PokemonBooksScript
|
||
dw PlayerHouse2FN64Text
|
||
|
||
PlayerHouse2FDefaultScript:
|
||
call PlayerHouse2PositionCheck
|
||
ret z
|
||
ld hl, PlayerHouse2FDefaultNPCIDs
|
||
ld de, PlayerHouse2FSignPointers
|
||
call CallMapTextSubroutine
|
||
ret nz
|
||
ret
|
||
|
||
PlayerHouse2PositionCheck:
|
||
CheckEvent PLAYER_HOUSE_2F_READ_EMAIL
|
||
ret nz
|
||
ld a, [wYCoord]
|
||
cp 1
|
||
ret nz
|
||
ld a, [wXCoord]
|
||
cp 9
|
||
ret nz
|
||
ld hl, wJoypadDisable
|
||
set JOYPAD_DISABLE_SYNC_MUTEX_F, [hl]
|
||
ld a, LEFT
|
||
ld d, PLAYER_OBJECT
|
||
call SetObjectFacing
|
||
ld hl, PlayerHouse2FTextString2
|
||
call OpenTextbox
|
||
call PlayerHouse2FMovePlayer
|
||
call xor_a
|
||
ret
|
||
|
||
PlayerHouse2FMovePlayer:
|
||
ld a, PLAYER_OBJECT
|
||
ld hl, .Movement
|
||
call LoadMovementDataPointer
|
||
ld hl, wOverworldFlags
|
||
set OVERWORLD_PAUSE_MAP_PROCESSES_F, [hl]
|
||
ld a, MAPSTATUS_EVENT_RUNNING
|
||
call SetMapStatus
|
||
ret
|
||
|
||
.Movement:
|
||
step DOWN
|
||
slow_step DOWN
|
||
step_end
|
||
|
||
PlayerHouse2FKenLeftScript:
|
||
ld hl, PlayerHouse2FKenLeftNPCIDs
|
||
ld de, PlayerHouse2FSignPointers
|
||
call CallMapTextSubroutine
|
||
ret
|
||
|
||
PlayerHouse2FText1:
|
||
CheckEvent PLAYER_HOUSE_2F_TALKED_TO_KEN
|
||
jr nz, .jump
|
||
ld hl, PlayerHouse2FTextString1
|
||
call OpenTextbox
|
||
SetEvent PLAYER_HOUSE_2F_TALKED_TO_KEN
|
||
ld c, 3
|
||
call DelayFrames
|
||
.jump
|
||
ld hl, PlayerHouse2FTextString2
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FDollText:
|
||
ld hl, PlayerHouse2FTextString3
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FRadioText:
|
||
ld hl, PlayerHouse2FTextString9
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FComputerText:
|
||
CheckEvent PLAYER_HOUSE_2F_READ_EMAIL
|
||
jr nz, .jump
|
||
ld hl, PlayerHouse2FTextString5
|
||
call OpenTextbox
|
||
ret
|
||
|
||
.jump
|
||
call ReanchorMap
|
||
callfar PokemonCenterPC
|
||
call CloseText
|
||
ret
|
||
|
||
PlayerHouse2FCheckEmail:
|
||
call YesNoBox
|
||
jr c, .jump2
|
||
SetEvent PLAYER_HOUSE_2F_READ_EMAIL
|
||
ld hl, PlayerHouse2FTextString6
|
||
call PrintText
|
||
ret
|
||
|
||
.jump2
|
||
ld hl, PlayerHouse2FTextString7
|
||
call PrintText
|
||
ret
|
||
|
||
PlayerHouse2FN64Text:
|
||
ld hl, PlayerHouse2FTextString4
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FTextString1:
|
||
text "ケン『おっ おまえの うでで"
|
||
line "ひかりかがやく そのとけいは⋯⋯"
|
||
cont "<PLAYER>も ついに"
|
||
cont "トレーナーギアを かったのか！"
|
||
|
||
para "すごいじゃないか！"
|
||
line "でも かったばかりじゃ じかんしか"
|
||
cont "わからないだろ？"
|
||
cont "あとで マップが"
|
||
cont "みられるように してやるよ！"
|
||
cont "おまえ どうせ"
|
||
cont "あそびに いくんだろう？"
|
||
|
||
para "ざんねんながら おふくろは"
|
||
line "かいものに いってるから"
|
||
cont "おこづかいを もらおうなんて"
|
||
cont "きょうは むり だぜ！"
|
||
done
|
||
|
||
PlayerHouse2FTextString2:
|
||
text "そうだ おまえの パソコンに"
|
||
line "メールが とどいていたな"
|
||
cont "でかけるんなら"
|
||
cont "メールぐらい よんでおけよ"
|
||
done
|
||
|
||
PlayerHouse2FTextString3:
|
||
text "クリスマスに カントーの"
|
||
line "しんせきに プレゼント"
|
||
cont "してもらった にんぎょうだ"
|
||
done
|
||
|
||
PlayerHouse2FTextString4:
|
||
text "ニンテンドウ６４を してる！"
|
||
cont "⋯⋯ ⋯⋯ さてと！"
|
||
cont "そろそろ そとに あそびに"
|
||
cont "でかけるか！"
|
||
done
|
||
|
||
PlayerHouse2FTextString5:
|
||
text "<PLAYER>は"
|
||
line "パソコンの スイッチを いれた！"
|
||
|
||
para "おや？ <PLAYER>あてに"
|
||
line "メールが とどいている ようだ"
|
||
cont "よんでみる？@"
|
||
|
||
start_asm
|
||
call PlayerHouse2FCheckEmail
|
||
call TextAsmEnd
|
||
ret
|
||
|
||
PlayerHouse2FTextString6:
|
||
text "とつぜん メールを さしあげる"
|
||
line "しつれいを おゆるしあれ"
|
||
|
||
para "じつは きみに どうしても"
|
||
line "わたしたい ものが あるのじゃが"
|
||
cont "うけとって もらえんかのう"
|
||
cont "ポケモンけんきゅうしゃ オーキド"
|
||
done
|
||
|
||
PlayerHouse2FTextString7:
|
||
text "あとで"
|
||
line "よもっと<⋯⋯>"
|
||
done
|
||
|
||
PlayerHouse2FTextString8: ; (unused?)
|
||
text "しんはつばい トレーナーギア！"
|
||
line "ポケモントレーナーの ための"
|
||
cont "さいせんたんの とけい です"
|
||
|
||
para "じかんが わかるのは あたりまえ"
|
||
line "カセットを ついかすれば"
|
||
cont "ばしょも わかる！ "
|
||
cont "でんわが かけられる！"
|
||
|
||
para "とどめは"
|
||
line "ラジオを きくことができる！"
|
||
|
||
para "もうしこみさきは⋯⋯"
|
||
line "⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯"
|
||
cont "シルフの ホームページだ"
|
||
done
|
||
|
||
PlayerHouse2FTextString9:
|
||
text "<PLAYER>は"
|
||
line "ラジオのスイッチを おした！"
|
||
|
||
para "ジェイ オー ピー エム"
|
||
line "こちらは"
|
||
cont "# ほうそうきょく です"
|
||
|
||
para "#ニュースを おおくりします"
|
||
line "<⋯⋯> #の せかいてきな"
|
||
cont "けんきゅうしゃ オーキドはかせが"
|
||
cont "カントー から"
|
||
cont "すがたを けしました"
|
||
cont "あらたな けんきゅうの ばしょを"
|
||
cont "もとめて いどうした との"
|
||
cont "みかたも ありますが"
|
||
cont "なんらかの じけんに まきこまれた"
|
||
cont "かのうせいも あり"
|
||
cont "かんけいしゃは とても"
|
||
cont "しんぱい しています"
|
||
|
||
para "<⋯⋯><⋯⋯>いじょう"
|
||
line "#ニュースでした"
|
||
|
||
para "<⋯⋯><⋯⋯><⋯⋯><⋯⋯><⋯⋯><⋯⋯>"
|
||
line "それでは ひきつづき"
|
||
cont "おんがくを おたのしみ ください"
|
||
done
|