PageRenderTime 26ms CodeModel.GetById 16ms RepoModel.GetById 0ms app.codeStats 0ms

/scripts/mtmoon3.asm

https://gitlab.com/eientei95/pokered-fr
Assembly | 407 lines | 359 code | 48 blank | 0 comment | 0 complexity | 3d03aa6138716bb360d67c5799b232ee MD5 | raw file
    

  1. MtMoon3Script:
    2. 

  2. 	call EnableAutoTextBoxDrawing
    3. 

  3. 	ld hl, MtMoon3TrainerHeader0
    4. 

  4. 	ld de, MtMoon3ScriptPointers
    5. 

  5. 	ld a, [wMtMoon3CurScript]
    6. 

  6. 	call ExecuteCurMapScriptInTable
    7. 

  7. 	ld [wMtMoon3CurScript], a
    8. 

  8. 	CheckEvent EVENT_BEAT_MT_MOON_EXIT_SUPER_NERD
    9. 

  9. 	ret z
    10. 

  10. 	ld hl, CoordsData_49d37
    11. 

  11. 	call ArePlayerCoordsInArray
    12. 

  12. 	jr nc, .asm_49d31
    13. 

  13. 	ld hl, wd72e
    14. 

  14. 	set 4, [hl]
    15. 

  15. 	ret
    16. 

  16. .asm_49d31
    17. 

  17. 	ld hl, wd72e
    18. 

  18. 	res 4, [hl]
    19. 

  19. 	ret
    20. 

  20. 

  21. CoordsData_49d37:
    22. 

  22. 	db $05,$0B
    23. 

  23. 	db $05,$0C
    24. 

  24. 	db $05,$0D
    25. 

  25. 	db $05,$0E
    26. 

  26. 	db $06,$0B
    27. 

  27. 	db $06,$0C
    28. 

  28. 	db $06,$0D
    29. 

  29. 	db $06,$0E
    30. 

  30. 	db $07,$0B
    31. 

  31. 	db $07,$0C
    32. 

  32. 	db $07,$0D
    33. 

  33. 	db $07,$0E
    34. 

  34. 	db $08,$0B
    35. 

  35. 	db $08,$0C
    36. 

  36. 	db $08,$0D
    37. 

  37. 	db $08,$0E
    38. 

  38. 	db $FF
    39. 

  39. 

  40. MtMoon3Script_49d58:
    41. 

  41. 	xor a
    42. 

  42. 	ld [wJoyIgnore], a
    43. 

  43. 	ld [wMtMoon3CurScript], a
    44. 

  44. 	ld [wCurMapScript], a
    45. 

  45. 	ret
    46. 

  46. 

  47. MtMoon3ScriptPointers:
    48. 

  48. 	dw MtMoon3Script0
    49. 

  49. 	dw DisplayEnemyTrainerTextAndStartBattle
    50. 

  50. 	dw EndTrainerBattle
    51. 

  51. 	dw MtMoon3Script3
    52. 

  52. 	dw MtMoon3Script4
    53. 

  53. 	dw MtMoon3Script5
    54. 

  54. 

  55. MtMoon3Script0:
    56. 

  56. 	CheckEvent EVENT_BEAT_MT_MOON_EXIT_SUPER_NERD
    57. 

  57. 	jp nz, MtMoon3Script_49d91
    58. 

  58. 	ld a, [wYCoord]
    59. 

  59. 	cp $8
    60. 

  60. 	jp nz, MtMoon3Script_49d91
    61. 

  61. 	ld a, [wXCoord]
    62. 

  62. 	cp $d
    63. 

  63. 	jp nz, MtMoon3Script_49d91
    64. 

  64. 	xor a
    65. 

  65. 	ld [hJoyHeld], a
    66. 

  66. 	ld a, $1
    67. 

  67. 	ld [hSpriteIndexOrTextID], a
    68. 

  68. 	jp DisplayTextID
    69. 

  69. 

  70. MtMoon3Script_49d91:
    71. 

  71. 	CheckEitherEventSet EVENT_GOT_DOME_FOSSIL, EVENT_GOT_HELIX_FOSSIL
    72. 

  72. 	jp z, CheckFightingMapTrainers
    73. 

  73. 	ret
    74. 

  74. 

  75. MtMoon3Script3:
    76. 

  76. 	ld a, [wIsInBattle]
    77. 

  77. 	cp $ff
    78. 

  78. 	jp z, MtMoon3Script_49d58
    79. 

  79. 	call UpdateSprites
    80. 

  80. 	call Delay3
    81. 

  81. 	SetEvent EVENT_BEAT_MT_MOON_EXIT_SUPER_NERD
    82. 

  82. 	xor a
    83. 

  83. 	ld [wJoyIgnore], a
    84. 

  84. 	ld a, $0
    85. 

  85. 	ld [wMtMoon3CurScript], a
    86. 

  86. 	ld [wCurMapScript], a
    87. 

  87. 	ret
    88. 

  88. 

  89. MtMoon3Script4:
    90. 

  90. 	ld a, $1
    91. 

  91. 	ld [H_SPRITEINDEX], a
    92. 

  92. 	call SetSpriteMovementBytesToFF
    93. 

  93. 	ld hl, CoordsData_49dea
    94. 

  94. 	call ArePlayerCoordsInArray
    95. 

  95. 	jr c, .asm_49dd7
    96. 

  96. 	ld hl, CoordsData_49df1
    97. 

  97. 	call ArePlayerCoordsInArray
    98. 

  98. 	jp nc, CheckFightingMapTrainers
    99. 

  99. 	ld de, MovementData_49df9
    100. 

  100. 	jr .asm_49dda
    101. 

  101. .asm_49dd7
    102. 

  102. 	ld de, MovementData_49df8
    103. 

  103. .asm_49dda
    104. 

  104. 	ld a, $1
    105. 

  105. 	ld [H_SPRITEINDEX], a
    106. 

  106. 	call MoveSprite
    107. 

  107. 	ld a, $5
    108. 

  108. 	ld [wMtMoon3CurScript], a
    109. 

  109. 	ld [wCurMapScript], a
    110. 

  110. 	ret
    111. 

  111. 

  112. CoordsData_49dea:
    113. 

  113. 	db $07,$0C
    114. 

  114. 	db $06,$0B
    115. 

  115. 	db $05,$0C
    116. 

  116. 	db $FF
    117. 

  117. 

  118. CoordsData_49df1:
    119. 

  119. 	db $07,$0D
    120. 

  120. 	db $06,$0E
    121. 

  121. 	db $05,$0E
    122. 

  122. 	db $FF
    123. 

  123. 

  124. MovementData_49df8:
    125. 

  125. 	db NPC_MOVEMENT_RIGHT
    126. 

  126. 

  127. MovementData_49df9:
    128. 

  128. 	db NPC_MOVEMENT_UP,$FF
    129. 

  129. 

  130. MtMoon3Script5:
    131. 

  131. 	ld a, [wd730]
    132. 

  132. 	bit 0, a
    133. 

  133. 	ret nz
    134. 

  134. 	ld a, $f0
    135. 

  135. 	ld [wJoyIgnore], a
    136. 

  136. 	ld a, $1
    137. 

  137. 	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
    138. 

  138. 	ld a, $a
    139. 

  139. 	ld [hSpriteIndexOrTextID], a
    140. 

  140. 	call DisplayTextID
    141. 

  141. 	CheckEvent EVENT_GOT_DOME_FOSSIL
    142. 

  142. 	jr z, .asm_49e1d
    143. 

  143. 	ld a, HS_MT_MOON_3_FOSSIL_2
    144. 

  144. 	jr .asm_49e1f
    145. 

  145. .asm_49e1d
    146. 

  146. 	ld a, HS_MT_MOON_3_FOSSIL_1
    147. 

  147. .asm_49e1f
    148. 

  148. 	ld [wMissableObjectIndex], a
    149. 

  149. 	predef HideObject
    150. 

  150. 	xor a
    151. 

  151. 	ld [wJoyIgnore], a
    152. 

  152. 	ld a, $0
    153. 

  153. 	ld [wMtMoon3CurScript], a
    154. 

  154. 	ld [wCurMapScript], a
    155. 

  155. 	ret
    156. 

  156. 

  157. MtMoon3TextPointers:
    158. 

  158. 	dw MtMoon3Text1
    159. 

  159. 	dw MtMoon3Text2
    160. 

  160. 	dw MtMoon3Text3
    161. 

  161. 	dw MtMoon3Text4
    162. 

  162. 	dw MtMoon3Text5
    163. 

  163. 	dw MtMoon3Text6
    164. 

  164. 	dw MtMoon3Text7
    165. 

  165. 	dw PickUpItemText
    166. 

  166. 	dw PickUpItemText
    167. 

  167. 	dw MtMoon3Text_49f99
    168. 

  168. 

  169. MtMoon3TrainerHeaders:
    170. 

  170. MtMoon3TrainerHeader0:
    171. 

  171. 	dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_0
    172. 

  172. 	db ($4 << 4) ; trainer's view range
    173. 

  173. 	dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_0
    174. 

  174. 	dw MtMoon3BattleText2 ; TextBeforeBattle
    175. 

  175. 	dw MtMoon3AfterBattleText2 ; TextAfterBattle
    176. 

  176. 	dw MtMoon3EndBattleText2 ; TextEndBattle
    177. 

  177. 	dw MtMoon3EndBattleText2 ; TextEndBattle
    178. 

  178. 

  179. MtMoon3TrainerHeader2:
    180. 

  180. 	dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_2
    181. 

  181. 	db ($4 << 4) ; trainer's view range
    182. 

  182. 	dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_2
    183. 

  183. 	dw MtMoon3BattleText3 ; TextBeforeBattle
    184. 

  184. 	dw MtMoon3AfterBattleText3 ; TextAfterBattle
    185. 

  185. 	dw MtMoon3EndBattleText3 ; TextEndBattle
    186. 

  186. 	dw MtMoon3EndBattleText3 ; TextEndBattle
    187. 

  187. 

  188. MtMoon3TrainerHeader3:
    189. 

  189. 	dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_3
    190. 

  190. 	db ($4 << 4) ; trainer's view range
    191. 

  191. 	dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_3
    192. 

  192. 	dw MtMoon3BattleText4 ; TextBeforeBattle
    193. 

  193. 	dw MtMoon3AfterBattleText4 ; TextAfterBattle
    194. 

  194. 	dw MtMoon3EndBattleText4 ; TextEndBattle
    195. 

  195. 	dw MtMoon3EndBattleText4 ; TextEndBattle
    196. 

  196. 

  197. MtMoon3TrainerHeader4:
    198. 

  198. 	dbEventFlagBit EVENT_BEAT_MT_MOON_3_TRAINER_4
    199. 

  199. 	db ($4 << 4) ; trainer's view range
    200. 

  200. 	dwEventFlagAddress EVENT_BEAT_MT_MOON_3_TRAINER_4
    201. 

  201. 	dw MtMoon3BattleText5 ; TextBeforeBattle
    202. 

  202. 	dw MtMoon3AfterBattleText5 ; TextAfterBattle
    203. 

  203. 	dw MtMoon3EndBattleText5 ; TextEndBattle
    204. 

  204. 	dw MtMoon3EndBattleText5 ; TextEndBattle
    205. 

  205. 

  206. 	db $ff
    207. 

  207. 

  208. MtMoon3Text1:
    209. 

  209. 	TX_ASM
    210. 

  210. 	CheckEvent EVENT_BEAT_MT_MOON_EXIT_SUPER_NERD
    211. 

  211. 	jr z, .asm_49e8d
    212. 

  212. 	and $c0
    213. 

  213. 	jr nz, .asm_49eb8
    214. 

  214. 	ld hl, MtMoon3Text_49f8f
    215. 

  215. 	call PrintText
    216. 

  216. 	jr .asm_49ebe
    217. 

  217. .asm_49e8d
    218. 

  218. 	ld hl, MtMoon3Text_49f85
    219. 

  219. 	call PrintText
    220. 

  220. 	ld hl, wd72d
    221. 

  221. 	set 6, [hl]
    222. 

  222. 	set 7, [hl]
    223. 

  223. 	ld hl, MtMoon3Text_49f8a
    224. 

  224. 	ld de, MtMoon3Text_49f8a
    225. 

  225. 	call SaveEndBattleTextPointers
    226. 

  226. 	ld a, [H_SPRITEINDEX]
    227. 

  227. 	ld [wSpriteIndex], a
    228. 

  228. 	call EngageMapTrainer
    229. 

  229. 	call InitBattleEnemyParameters
    230. 

  230. 	ld a, $3
    231. 

  231. 	ld [wMtMoon3CurScript], a
    232. 

  232. 	ld [wCurMapScript], a
    233. 

  233. 	jr .asm_49ebe
    234. 

  234. .asm_49eb8
    235. 

  235. 	ld hl, MtMoon3Text_49f94
    236. 

  236. 	call PrintText
    237. 

  237. .asm_49ebe
    238. 

  238. 	jp TextScriptEnd
    239. 

  239. 

  240. MtMoon3Text2:
    241. 

  241. 	TX_ASM
    242. 

  242. 	ld hl, MtMoon3TrainerHeader0
    243. 

  243. 	call TalkToTrainer
    244. 

  244. 	jp TextScriptEnd
    245. 

  245. 

  246. MtMoon3Text3:
    247. 

  247. 	TX_ASM
    248. 

  248. 	ld hl, MtMoon3TrainerHeader2
    249. 

  249. 	call TalkToTrainer
    250. 

  250. 	jp TextScriptEnd
    251. 

  251. 

  252. MtMoon3Text4:
    253. 

  253. 	TX_ASM
    254. 

  254. 	ld hl, MtMoon3TrainerHeader3
    255. 

  255. 	call TalkToTrainer
    256. 

  256. 	jp TextScriptEnd
    257. 

  257. 

  258. MtMoon3Text5:
    259. 

  259. 	TX_ASM
    260. 

  260. 	ld hl, MtMoon3TrainerHeader4
    261. 

  261. 	call TalkToTrainer
    262. 

  262. 	jp TextScriptEnd
    263. 

  263. 

  264. MtMoon3Text6:
    265. 

  265. 	TX_ASM
    266. 

  266. 	ld a, $1
    267. 

  267. 	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
    268. 

  268. 	ld hl, MtMoon3Text_49f24
    269. 

  269. 	call PrintText
    270. 

  270. 	call YesNoChoice
    271. 

  271. 	ld a, [wCurrentMenuItem]
    272. 

  272. 	and a
    273. 

  273. 	jr nz, .asm_49f21
    274. 

  274. 	lb bc, DOME_FOSSIL, 1
    275. 

  275. 	call GiveItem
    276. 

  276. 	jp nc, MtMoon3Script_49f76
    277. 

  277. 	call MtMoon3Script_49f69
    278. 

  278. 	ld a, HS_MT_MOON_3_FOSSIL_1
    279. 

  279. 	ld [wMissableObjectIndex], a
    280. 

  280. 	predef HideObject
    281. 

  281. 	SetEvent EVENT_GOT_DOME_FOSSIL
    282. 

  282. 	ld a, $4
    283. 

  283. 	ld [wMtMoon3CurScript], a
    284. 

  284. 	ld [wCurMapScript], a
    285. 

  285. .asm_49f21
    286. 

  286. 	jp TextScriptEnd
    287. 

  287. 

  288. MtMoon3Text_49f24:
    289. 

  289. 	TX_FAR _MtMoon3Text_49f24
    290. 

  290. 	db "@"
    291. 

  291. 

  292. MtMoon3Text7:
    293. 

  293. 	TX_ASM
    294. 

  294. 	ld a, $1
    295. 

  295. 	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
    296. 

  296. 	ld hl, MtMoon3Text_49f64
    297. 

  297. 	call PrintText
    298. 

  298. 	call YesNoChoice
    299. 

  299. 	ld a, [wCurrentMenuItem]
    300. 

  300. 	and a
    301. 

  301. 	jr nz, .asm_49f61
    302. 

  302. 	lb bc, HELIX_FOSSIL, 1
    303. 

  303. 	call GiveItem
    304. 

  304. 	jp nc, MtMoon3Script_49f76
    305. 

  305. 	call MtMoon3Script_49f69
    306. 

  306. 	ld a, HS_MT_MOON_3_FOSSIL_2
    307. 

  307. 	ld [wMissableObjectIndex], a
    308. 

  308. 	predef HideObject
    309. 

  309. 	SetEvent EVENT_GOT_HELIX_FOSSIL
    310. 

  310. 	ld a, $4
    311. 

  311. 	ld [wMtMoon3CurScript], a
    312. 

  312. 	ld [wCurMapScript], a
    313. 

  313. .asm_49f61
    314. 

  314. 	jp TextScriptEnd
    315. 

  315. 

  316. MtMoon3Text_49f64:
    317. 

  317. 	TX_FAR _MtMoon3Text_49f64
    318. 

  318. 	db "@"
    319. 

  319. 

  320. MtMoon3Script_49f69:
    321. 

  321. 	ld hl, MtMoon3Text_49f6f
    322. 

  322. 	jp PrintText
    323. 

  323. 

  324. MtMoon3Text_49f6f:
    325. 

  325. 	TX_FAR _MtMoon3Text_49f6f
    326. 

  326. 	TX_SFX_KEY_ITEM
    327. 

  327. 	TX_WAIT
    328. 

  328. 	db "@"
    329. 

  329. 

  330. MtMoon3Script_49f76:
    331. 

  331. 	ld hl, MtMoon3Text_49f7f
    332. 

  332. 	call PrintText
    333. 

  333. 	jp TextScriptEnd
    334. 

  334. 

  335. MtMoon3Text_49f7f:
    336. 

  336. 	TX_FAR _MtMoon3Text_49f7f
    337. 

  337. 	TX_WAIT
    338. 

  338. 	db "@"
    339. 

  339. 

  340. MtMoon3Text_49f85:
    341. 

  341. 	TX_FAR _MtMoon3Text_49f85
    342. 

  342. 	db "@"
    343. 

  343. 

  344. MtMoon3Text_49f8a:
    345. 

  345. 	TX_FAR _MtMoon3Text_49f8a
    346. 

  346. 	db "@"
    347. 

  347. 

  348. MtMoon3Text_49f8f:
    349. 

  349. 	TX_FAR _MtMoon3Text_49f8f
    350. 

  350. 	db "@"
    351. 

  351. 

  352. MtMoon3Text_49f94:
    353. 

  353. 	TX_FAR _MtMoon3Text_49f94
    354. 

  354. 	db "@"
    355. 

  355. 

  356. MtMoon3Text_49f99:
    357. 

  357. 	TX_FAR _MtMoon3Text_49f99
    358. 

  358. 	TX_SFX_KEY_ITEM
    359. 

  359. 	db "@"
    360. 

  360. 

  361. MtMoon3BattleText2:
    362. 

  362. 	TX_FAR _MtMoon3BattleText2
    363. 

  363. 	db "@"
    364. 

  364. 

  365. MtMoon3EndBattleText2:
    366. 

  366. 	TX_FAR _MtMoon3EndBattleText2
    367. 

  367. 	db "@"
    368. 

  368. 

  369. MtMoon3AfterBattleText2:
    370. 

  370. 	TX_FAR _MtMoon3AfterBattleText2
    371. 

  371. 	db "@"
    372. 

  372. 

  373. MtMoon3BattleText3:
    374. 

  374. 	TX_FAR _MtMoon3BattleText3
    375. 

  375. 	db "@"
    376. 

  376. 

  377. MtMoon3EndBattleText3:
    378. 

  378. 	TX_FAR _MtMoon3EndBattleText3
    379. 

  379. 	db "@"
    380. 

  380. 

  381. MtMoon3AfterBattleText3:
    382. 

  382. 	TX_FAR _MtMoon3AfterBattleText3
    383. 

  383. 	db "@"
    384. 

  384. 

  385. MtMoon3BattleText4:
    386. 

  386. 	TX_FAR _MtMoon3BattleText4
    387. 

  387. 	db "@"
    388. 

  388. 

  389. MtMoon3EndBattleText4:
    390. 

  390. 	TX_FAR _MtMoon3EndBattleText4
    391. 

  391. 	db "@"
    392. 

  392. 

  393. MtMoon3AfterBattleText4:
    394. 

  394. 	TX_FAR _MtMoon3AfterBattleText4
    395. 

  395. 	db "@"
    396. 

  396. 

  397. MtMoon3BattleText5:
    398. 

  398. 	TX_FAR _MtMoon3BattleText5
    399. 

  399. 	db "@"
    400. 

  400. 

  401. MtMoon3EndBattleText5:
    402. 

  402. 	TX_FAR _MtMoon3EndBattleText5
    403. 

  403. 	db "@"
    404. 

  404. 

  405. MtMoon3AfterBattleText5:
    406. 

  406. 	TX_FAR _MtMoon3AfterBattleText5
    407. 

  407. 	db "@"
    408. 

  408.