Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
pret
GitHub Repository: pret/pokered
 Path: blob/master/scripts/CopycatsHouse2F.asm
1270 views
1
CopycatsHouse2F_Script:

2
	jp EnableAutoTextBoxDrawing

3


4
CopycatsHouse2F_TextPointers:

5
	def_text_pointers

6
	dw_const CopycatsHouse2FCopycatText,      TEXT_COPYCATSHOUSE2F_COPYCAT

7
	dw_const CopycatsHouse2FDoduoText,        TEXT_COPYCATSHOUSE2F_DODUO

8
	dw_const CopycatsHouse2FRareDollText,     TEXT_COPYCATSHOUSE2F_MONSTER

9
	dw_const CopycatsHouse2FRareDollText,     TEXT_COPYCATSHOUSE2F_BIRD

10
	dw_const CopycatsHouse2FRareDollText,     TEXT_COPYCATSHOUSE2F_FAIRY

11
	dw_const CopycatsHouse2FSNESText,         TEXT_COPYCATSHOUSE2F_SNES

12
	dw_const CopycatsHouse2FPCText,           TEXT_COPYCATSHOUSE2F_PC

13


14
CopycatsHouse2FCopycatText:

15
	text_asm

16
	CheckEvent EVENT_GOT_TM31

17
	jr nz, .got_item

18
	ld a, TRUE

19
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a

20
	ld hl, .DoYouLikePokemonText

21
	call PrintText

22
	ld b, POKE_DOLL

23
	call IsItemInBag

24
	jr z, .done

25
	ld hl, .TM31PreReceiveText

26
	call PrintText

27
	lb bc, TM_MIMIC, 1

28
	call GiveItem

29
	jr nc, .bag_full

30
	ld hl, .ReceivedTM31Text

31
	call PrintText

32
	ld a, POKE_DOLL

33
	ldh [hItemToRemoveID], a

34
	farcall RemoveItemByID

35
	SetEvent EVENT_GOT_TM31

36
	jr .done

37
.bag_full

38
	ld hl, .TM31NoRoomText

39
	call PrintText

40
	jr .done

41
.got_item

42
	ld hl, .TM31Explanation2Text

43
	call PrintText

44
.done

45
	jp TextScriptEnd

46


47
.DoYouLikePokemonText:

48
	text_far _CopycatsHouse2FCopycatDoYouLikePokemonText

49
	text_end

50


51
.TM31PreReceiveText:

52
	text_far _CopycatsHouse2FCopycatTM31PreReceiveText

53
	text_end

54


55
.ReceivedTM31Text:

56
	text_far _CopycatsHouse2FCopycatReceivedTM31Text

57
	sound_get_item_1

58
.TM31Explanation1Text:

59
	text_far _CopycatsHouse2FCopycatTM31Explanation1Text

60
	text_waitbutton

61
	text_end

62


63
.TM31Explanation2Text:

64
	text_far _CopycatsHouse2FCopycatTM31Explanation2Text

65
	text_end

66


67
.TM31NoRoomText:

68
	text_far _CopycatsHouse2FCopycatTM31NoRoomText

69
	text_waitbutton

70
	text_end

71


72
CopycatsHouse2FDoduoText:

73
	text_far _CopycatsHouse2FDoduoText

74
	text_end

75


76
CopycatsHouse2FRareDollText:

77
	text_far _CopycatsHouse2FRareDollText

78
	text_end

79


80
CopycatsHouse2FSNESText:

81
	text_far _CopycatsHouse2FSNESText

82
	text_end

83


84
CopycatsHouse2FPCText:

85
	text_asm

86
	ld a, [wSpritePlayerStateData1FacingDirection]

87
	cp SPRITE_FACING_UP

88
	ld hl, .CantSeeText

89
	jr nz, .notUp

90
	ld hl, .MySecretsText

91
.notUp

92
	call PrintText

93
	jp TextScriptEnd

94


95
.MySecretsText:

96
	text_far _CopycatsHouse2FPCMySecretsText

97
	text_end

98


99
.CantSeeText:

100
	text_far _CopycatsHouse2FPCCantSeeText

101
	text_end

102


103