shithub: pokecrystal

ref: f076f14b9806a517297efe649c4ae9cf4ae2025a
dir: /maps/CeladonGameCornerPrizeRoom.asm/

View raw version
CeladonGameCornerPrizeRoom_MapScriptHeader: ; 0x726e7
	; trigger count
	db 0

	; callback count
	db 0
; 0x726e9

UnknownScript_0x726e9: ; 0x726e9
	jumptextfaceplayer UnknownText_0x728b8
; 0x726ec

UnknownScript_0x726ec: ; 0x726ec
	jumptextfaceplayer UnknownText_0x728e9
; 0x726ef

MapCeladonGameCornerPrizeRoomSignpost0Script: ; 0x726ef
	faceplayer
	loadfont
	2writetext UnknownText_0x7293e
	closetext
	checkitem COIN_CASE
	iffalse UnknownScript_0x7278a
	2writetext UnknownText_0x72974
UnknownScript_0x726fd: ; 0x726fd
	special $004f
	loadmenudata $6790
	interpretmenu2
	writebackup
	if_equal $1, UnknownScript_0x72714
	if_equal $2, UnknownScript_0x72730
	if_equal $3, UnknownScript_0x7274c
	2jump UnknownScript_0x72784
; 0x72714

UnknownScript_0x72714: ; 0x72714
	checkcoins 1500
	if_equal $2, UnknownScript_0x72778
	itemtotext TM_32, $0
	2call UnknownScript_0x72768
	iffalse UnknownScript_0x72784
	giveitem TM_32, $1
	iffalse UnknownScript_0x7277e
	takecoins 1500
	2jump UnknownScript_0x7276d
; 0x72730

UnknownScript_0x72730: ; 0x72730
	checkcoins 3500
	if_equal $2, UnknownScript_0x72778
	itemtotext TM_29, $0
	2call UnknownScript_0x72768
	iffalse UnknownScript_0x72784
	giveitem TM_29, $1
	iffalse UnknownScript_0x7277e
	takecoins 3500
	2jump UnknownScript_0x7276d
; 0x7274c

UnknownScript_0x7274c: ; 0x7274c
	checkcoins 7500
	if_equal $2, UnknownScript_0x72778
	itemtotext TM_15, $0
	2call UnknownScript_0x72768
	iffalse UnknownScript_0x72784
	giveitem TM_15, $1
	iffalse UnknownScript_0x7277e
	takecoins 7500
	2jump UnknownScript_0x7276d
; 0x72768

UnknownScript_0x72768: ; 0x72768
	2writetext UnknownText_0x72991
	yesorno
	end
; 0x7276d

UnknownScript_0x7276d: ; 0x7276d
	waitbutton
	playsound $0022
	2writetext UnknownText_0x729ad
	closetext
	2jump UnknownScript_0x726fd
; 0x72778

UnknownScript_0x72778: ; 0x72778
	2writetext UnknownText_0x729bb
	closetext
	loadmovesprites
	end
; 0x7277e

UnknownScript_0x7277e: ; 0x7277e
	2writetext UnknownText_0x729d8
	closetext
	loadmovesprites
	end
; 0x72784

UnknownScript_0x72784: ; 0x72784
	2writetext UnknownText_0x729f2
	closetext
	loadmovesprites
	end
; 0x7278a

UnknownScript_0x7278a: ; 0x7278a
	2writetext UnknownText_0x72a14
	closetext
	loadmovesprites
	end
; 0x72790

; menu data
INCBIN "baserom.gbc",$72790,$38

MapCeladonGameCornerPrizeRoomSignpost1Script: ; 0x727c8
	faceplayer
	loadfont
	2writetext UnknownText_0x7293e
	closetext
	checkitem COIN_CASE
	iffalse UnknownScript_0x7278a
UnknownScript_0x727d3: ; 0x727d3
	2writetext UnknownText_0x72974
	special $004f
	loadmenudata $6877
	interpretmenu2
	writebackup
	if_equal $1, UnknownScript_0x727ed
	if_equal $2, UnknownScript_0x7281b
	if_equal $3, UnknownScript_0x72849
	2jump UnknownScript_0x72784
; 0x727ed

UnknownScript_0x727ed: ; 0x727ed
	checkcoins 2222
	if_equal $2, UnknownScript_0x72778
	checkcode $1
	if_equal $6, UnknownScript_0x7277e
	pokenamemem PIKACHU, $0
	2call UnknownScript_0x72768
	iffalse UnknownScript_0x72784
	waitbutton
	playsound $0022
	2writetext UnknownText_0x729ad
	closetext
	writebyte PIKACHU
	special $0039
	givepoke PIKACHU, 25, 0, 0
	takecoins 2222
	2jump UnknownScript_0x727d3
; 0x7281b

UnknownScript_0x7281b: ; 0x7281b
	checkcoins 5555
	if_equal $2, UnknownScript_0x72778
	checkcode $1
	if_equal $6, UnknownScript_0x7277e
	pokenamemem PORYGON, $0
	2call UnknownScript_0x72768
	iffalse UnknownScript_0x72784
	waitbutton
	playsound $0022
	2writetext UnknownText_0x729ad
	closetext
	writebyte PORYGON
	special $0039
	givepoke PORYGON, 15, 0, 0
	takecoins 5555
	2jump UnknownScript_0x727d3
; 0x72849

UnknownScript_0x72849: ; 0x72849
	checkcoins 8888
	if_equal $2, UnknownScript_0x72778
	checkcode $1
	if_equal $6, UnknownScript_0x7277e
	pokenamemem LARVITAR, $0
	2call UnknownScript_0x72768
	iffalse UnknownScript_0x72784
	waitbutton
	playsound $0022
	2writetext UnknownText_0x729ad
	closetext
	writebyte LARVITAR
	special $0039
	givepoke LARVITAR, 40, 0, 0
	takecoins 8888
	2jump UnknownScript_0x727d3
; 0x72877

; menu data
INCBIN "baserom.gbc",$72877,$41

UnknownText_0x728b8: ; 0x728b8
	db $0, "I wanted PORYGON,", $4f
	db "but I was short by", $55
	db "100 coins…", $57
; 0x728e9

UnknownText_0x728e9: ; 0x728e9
	db $0, "Whew…", $51
	db "I've got to stay", $4f
	db "calm and cool…", $51
	db "I can't lose my", $4f
	db "cool, or I'll lose", $55
	db "all my money…", $57
; 0x7293e

UnknownText_0x7293e: ; 0x7293e
	db $0, "Welcome!", $51
	db "We exchange your", $4f
	db "coins for fabulous", $55
	db "prizes!", $57
; 0x72974

UnknownText_0x72974: ; 0x72974
	db $0, "Which prize would", $4f
	db "you like?", $57
; 0x72991

UnknownText_0x72991: ; 0x72991
	db $0, "OK, so you wanted", $4f
	db "a @"
	text_from_ram $d099
	db $0, "?", $57
; 0x729ad

UnknownText_0x729ad: ; 0x729ad
	db $0, "Here you go!", $57
; 0x729bb

UnknownText_0x729bb: ; 0x729bb
	db $0, "You don't have", $4f
	db "enough coins.", $57
; 0x729d8

UnknownText_0x729d8: ; 0x729d8
	db $0, "You have no room", $4f
	db "for it.", $57
; 0x729f2

UnknownText_0x729f2: ; 0x729f2
	db $0, "Oh. Please come", $4f
	db "back with coins!", $57
; 0x72a14

UnknownText_0x72a14: ; 0x72a14
	db $0, "Oh? You don't have", $4f
	db "a COIN CASE.", $57
; 0x72a34

CeladonGameCornerPrizeRoom_MapEventHeader: ; 0x72a34
	; filler
	db 0, 0

	; warps
	db 2
	warp_def $5, $2, 7, GROUP_CELADON_CITY, MAP_CELADON_CITY
	warp_def $5, $3, 7, GROUP_CELADON_CITY, MAP_CELADON_CITY

	; xy triggers
	db 0

	; signposts
	db 2
	signpost 1, 2, $0, MapCeladonGameCornerPrizeRoomSignpost0Script
	signpost 1, 4, $0, MapCeladonGameCornerPrizeRoomSignpost1Script

	; people-events
	db 2
	person_event $40, 6, 4, $6, $0, 255, 255, $80, 0, UnknownScript_0x726e9, $ffff
	person_event $4b, 8, 8, $4, $10, 255, 255, $a0, 0, UnknownScript_0x726ec, $ffff
; 0x72a68