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

2
	call EnableAutoTextBoxDrawing

3
	ret

4


5
CeladonDiner_TextPointers:

6
	def_text_pointers

7
	dw_const CeladonDinerCookText,            TEXT_CELADONDINER_COOK

8
	dw_const CeladonDinerMiddleAgedWomanText, TEXT_CELADONDINER_MIDDLE_AGED_WOMAN

9
	dw_const CeladonDinerMiddleAgedManText,   TEXT_CELADONDINER_MIDDLE_AGED_MAN

10
	dw_const CeladonDinerFisherText,          TEXT_CELADONDINER_FISHER

11
	dw_const CeladonDinerGymGuideText,        TEXT_CELADONDINER_GYM_GUIDE

12


13
CeladonDinerCookText:

14
	text_far _CeladonDinerCookText

15
	text_end

16


17
CeladonDinerMiddleAgedWomanText:

18
	text_far _CeladonDinerMiddleAgedWomanText

19
	text_end

20


21
CeladonDinerMiddleAgedManText:

22
	text_far _CeladonDinerMiddleAgedManText

23
	text_end

24


25
CeladonDinerFisherText:

26
	text_far _CeladonDinerFisherText

27
	text_end

28


29
CeladonDinerGymGuideText:

30
	text_asm

31
	CheckEvent EVENT_GOT_COIN_CASE

32
	jr nz, .got_item

33
	ld hl, .ImFlatOutBustedText

34
	call PrintText

35
	lb bc, COIN_CASE, 1

36
	call GiveItem

37
	jr nc, .bag_full

38
	SetEvent EVENT_GOT_COIN_CASE

39
	ld hl, .ReceivedCoinCaseText

40
	call PrintText

41
	jr .done

42
.bag_full

43
	ld hl, .CoinCaseNoRoomText

44
	call PrintText

45
	jr .done

46
.got_item

47
	ld hl, .WinItBackText

48
	call PrintText

49
.done

50
	jp TextScriptEnd

51


52
.ImFlatOutBustedText:

53
	text_far _CeladonDinerGymGuideImFlatOutBustedText

54
	text_end

55


56
.ReceivedCoinCaseText:

57
	text_far _CeladonDinerGymGuideReceivedCoinCaseText

58
	sound_get_key_item

59
	text_end

60


61
.CoinCaseNoRoomText:

62
	text_far _CeladonDinerGymGuideCoinCaseNoRoomText

63
	text_end

64


65
.WinItBackText:

66
	text_far _CeladonDinerGymGuideWinItBackText

67
	text_end

68


69