pokeemerald/data/scripts/pokeblocks.inc
Melody c557ac61ae adds constants, cleans up callstd and msgbox code
* adds some constants for standard script names and messagebox types
* replaces some callstd calls with msgbox calls where equivalent
* replaces msgbox and callstd calls using raw digits with versions that use the constants
2018-12-02 03:37:46 -05:00

763 lines
23 KiB
PHP
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

@ The scripts there concern pokeblock events in LilyCove City's Contest Lobby
@ 'PblockX' number of offline opponents
@ 'Ask' talking with a blender machine
@ 'Yes' agreeing to blend
@ 'No' refusing to blend
@ 'KnowHow' asking if the player knows the blending process
@ 'Explain' explaining the blender process
@ 'Start' start blending
@ 'TalkX' talking with a person next to a blender machine
@ 'NoBerries' can't blend cause they have no berries
@ 'FullPokeblock' can't blend cause full pokeblock case
@ 'NoPokeblock' can't blend cause they have no pokeblock case
Text_Pblock1_Ask: @ 8292DEE
.string "Oh? Did you want to make some {POKEBLOCK}S\n"
.string "with this old-timer?$"
Text_Pblock1_Yes: @ 8292E28
.string "Excellent!$"
Text_Pblock1_No: @ 8292E33
.string "Oh…\n"
.string "Youve made this old-timer sad…$"
Text_Pblock1_KnowHow: @ 8292E57
.string "Do you know how to make a {POKEBLOCK}?$"
Text_Pblock1_Start: @ 8292E78
.string "Lets get started, then!\p"
.string "Lets BERRY BLENDER!$"
Text_Pblock1_Explain: @ 8292EA6
.string "Okay, a little explanation, then.\p"
.string "Oh, dont worry, its quite simple.\p"
.string "When the BLENDERs arrow comes to\n"
.string "your marker, just press the A Button.\p"
.string "Thats all you have to do.\n"
.string "Youll see how easy it is when you try.$"
Text_Pblock1_NoBerries: @ 8292F77
.string "Oh?\n"
.string "You dont have any BERRIES?\p"
.string "If you dont have any BERRIES,\n"
.string "you cant make any {POKEBLOCK}S.$"
LilycoveCity_ContestLobby_Text_292FD1: @ 8292FD1
.string "Well, that wont do at all now, will it?\p"
.string "If you dont mind leftovers, you can\n"
.string "have one of my BERRIES.\p"
.string "That way, we could make some {POKEBLOCK}S\n"
.string "together using the BERRY BLENDER.$"
LilycoveCity_ContestLobby_Text_29307D: @ 829307D
.string "If I had some BERRIES left over,\n"
.string "Id gladly give you one…\p"
.string "But, I dont have any to spare today.\n"
.string "Well have to do this another time.$"
Text_Pblock1_FullPokeblock: @ 8293101
.string "But your {POKEBLOCK} CASE is full.\p"
.string "You should use some {POKEBLOCK}S before\n"
.string "you come see me again.$"
Text_Pblock1_NoPokeblock: @ 8293157
.string "But you dont have a {POKEBLOCK} CASE.\p"
.string "You should get a {POKEBLOCK} CASE and then\n"
.string "come see me.$"
LilycoveCity_ContestLobby_Text_2931AA: @ 82931AA
.string "Lets get blending already!$"
LilycoveCity_ContestLobby_Text_2931C6: @ 82931C6
.string "I wonder what kind of {POKEBLOCK} Ill get?\n"
.string "This is so exciting!$"
LilycoveCity_ContestLobby_Text_293201: @ 8293201
.string "Hi, there! Did you want to blend some\n"
.string "{POKEBLOCK}S with us?$"
LilycoveCity_ContestLobby_Text_293237: @ 8293237
.string "Okay!$"
LilycoveCity_ContestLobby_Text_29323D: @ 829323D
.string "Thats too bad…\p"
.string "But well always be around whenever\n"
.string "you get the urge to blend!$"
LilycoveCity_ContestLobby_Text_29328C: @ 829328C
.string "Of course, you do know how to\n"
.string "blend {POKEBLOCK}S, dont you?$"
LilycoveCity_ContestLobby_Text_2932C3: @ 82932C3
.string "Lets get started, then!\p"
.string "Lets BERRY BLENDER!$"
LilycoveCity_ContestLobby_Text_2932F1: @ 82932F1
.string "Okay!\n"
.string "Let me explain it to you!\p"
.string "When the spinning BLENDERs arrow\n"
.string "reaches your marker, just press\l"
.string "the A Button.\p"
.string "Thats all it takes.\n"
.string "Pretty easy, dont you think?$"
LilycoveCity_ContestLobby_Text_293394: @ 8293394
.string "Oh, but wait a second here…\n"
.string "You dont have any BERRIES.\p"
.string "You cant make any {POKEBLOCK}S without\n"
.string "BERRIES…\p"
.string "Well always be around whenever you\n"
.string "get hold of some BERRIES to blend.$"
LilycoveCity_ContestLobby_Text_29343E: @ 829343E
.string "Oh, but wait a second here…\n"
.string "Your {POKEBLOCK} CASE is full.\p"
.string "You should use some {POKEBLOCK}S and\n"
.string "then come back.$"
LilycoveCity_ContestLobby_Text_2934A2: @ 82934A2
.string "Oh, but wait a second here…\n"
.string "You dont have a {POKEBLOCK} CASE.\p"
.string "You should get a {POKEBLOCK} CASE and\n"
.string "then come back.$"
LilycoveCity_ContestLobby_Text_29350B: @ 829350B
.string "Oh, hello! Did you want to make some\n"
.string "{POKEBLOCK}S with our little group?$"
LilycoveCity_ContestLobby_Text_29354E: @ 829354E
.string "Oh, dear!$"
LilycoveCity_ContestLobby_Text_293558: @ 8293558
.string "Oh, dear me…\p"
.string "Youve left us in shock!$"
LilycoveCity_ContestLobby_Text_29357E: @ 829357E
.string "Naturally, you know how to make\n"
.string "{POKEBLOCK}S, dont you?$"
LilycoveCity_ContestLobby_Text_2935B1: @ 82935B1
.string "Okay, dear!\n"
.string "Lets get started!\p"
.string "Lets BERRY BLENDER!$"
LilycoveCity_ContestLobby_Text_2935E5: @ 82935E5
.string "Oh, dear!\p"
.string "Then, Ill explain it to you nicely.\p"
.string "When the BLENDERs arrow spins to\n"
.string "your marker, press the A Button.\p"
.string "Thats all it takes.\n"
.string "Isnt it simple?$"
LilycoveCity_ContestLobby_Text_29367D: @ 829367D
.string "You dont have any BERRIES,\n"
.string "do you?\p"
.string "If you dont have any BERRIES,\n"
.string "you cant make any {POKEBLOCK}S.\p"
.string "Well always be making {POKEBLOCK}S here,\n"
.string "so lets make some together when\l"
.string "you get a BERRY or two.$"
LilycoveCity_ContestLobby_Text_293738: @ 8293738
.string "Your {POKEBLOCK} CASE is full,\n"
.string "it looks like.\p"
.string "You should use some {POKEBLOCK}S up\n"
.string "and then come back.$"
LilycoveCity_ContestLobby_Text_293792: @ 8293792
.string "You havent gotten a {POKEBLOCK} CASE\n"
.string "yet, it looks like.\p"
.string "You need to get a {POKEBLOCK} CASE before\n"
.string "you come back.$"
LilycoveCity_ContestLobby_Text_2937F9: @ 82937F9
.string "Okay! Todays going to be the day that\n"
.string "I set a new BLENDER speed record!$"
LilycoveCity_ContestLobby_Text_293842: @ 8293842
.string "Oh, dear!\n"
.string "You look as if youre good at blending.\l"
.string "Would you like to join us?$"
LilycoveCity_ContestLobby_Text_29388F: @ 829388F
.string "Im going to make delicious {POKEBLOCK}S\n"
.string "and make my POKéMON cuter.$"
Text_PblockLink_Ask: @ 82938CD
.string "{POKEBLOCK}S will be made with your friends \n"
.string "from BERRIES in the BERRY BLENDER.\p"
.string "Is it okay to save the game before\n"
.string "linking with your friends?$"
Text_PblockLink_Searching: @ 8293955
.string "Searching for your friends…\n"
.string "… … B Button: Cancel$"
Text_PblockLink_1Arrived: @ 8293986
.string "{STR_VAR_1} arrived.$"
Text_PblockLink_2Arrived: @ 8293992
.string "{STR_VAR_1} and {STR_VAR_2} arrived.$"
Text_PblockLink_3Arrived: @ 82939A5
.string "{STR_VAR_1}, {STR_VAR_2}, and\n"
.string "{STR_VAR_3} arrived.$"
Text_PblockLink_NoBerries: @ 82939BD
.string "You have no BERRIES.\n"
.string "The BERRY BLENDER cant be used.$"
Text_PblockLink_FullPokeblock: @ 82939F3
.string "Your {POKEBLOCK} CASE is full.\n"
.string "The BERRY BLENDER cant be used.$"
Text_PblockLink_NoPokeblock: @ 8293A2D
.string "You dont have a {POKEBLOCK} CASE.\n"
.string "The BERRY BLENDER cant be used.$"
Text_Pblock1_Talk_0: @ 8293A6B
.string "I love making {POKEBLOCK}S.\p"
.string "I always have some BERRIES with me.$"
Text_Pblock1_Talk_1: @ 8293AA5
.string "If youd like, we could make some\n"
.string "{POKEBLOCK}S together using the\l"
.string "BERRY BLENDER.$"
LilycoveCity_ContestLobby_Text_293AF0: @ 8293AF0
.string "Oh?\n"
.string "You dont have any BERRIES?\p"
.string "Well, that wont do at all now, will it?\p"
.string "If you dont mind leftovers, you can\n"
.string "have one of my BERRIES.$"
LilycoveCity_ContestLobby_Text_293B76: @ 8293B76
.string "Well use it to make {POKEBLOCK}S together\n"
.string "using the BERRY BLENDER.$"
LilycoveCity_ContestLobby_Text_293BB4: @ 8293BB4
.string "Oh?\n"
.string "You dont have any BERRIES?\p"
.string "If I had some left over, Id gladly\n"
.string "give you one…\p"
.string "But, I dont have any to spare today.\n"
.string "Sorry about that.$"
EventScript_Pblock1_Ask:: @ 8293C3E
lockall
checkflag FLAG_HIDE_LILYCOVE_CONTEST_HALL_BLEND_MASTER_ONLOOKERS
goto_if 0, LilycoveCity_ContestLobby_EventScript_293EFB
setvar VAR_0x8009, 1
applymovement 16, LilycoveCity_ContestLobby_Movement_294053
waitmovement 0
msgbox Text_Pblock1_Ask, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq EventScript_Pblock1_Yes
goto EventScript_Pblock1_No
end
EventScript_Pblock1_No: @ 8293C70
msgbox Text_Pblock1_No, MSGBOX_DEFAULT
releaseall
end
EventScript_Pblock1_NoBerries: @ 8293C7A
msgbox Text_Pblock1_NoBerries, MSGBOX_DEFAULT
dodailyevents
checkflag FLAG_0x921
goto_eq LilycoveCity_ContestLobby_EventScript_293C92
goto LilycoveCity_ContestLobby_EventScript_293C9C
end
LilycoveCity_ContestLobby_EventScript_293C92: @ 8293C92
msgbox LilycoveCity_ContestLobby_Text_29307D, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293C9C: @ 8293C9C
msgbox LilycoveCity_ContestLobby_Text_292FD1, MSGBOX_DEFAULT
giveitem_std ITEM_PECHA_BERRY
setflag FLAG_0x921
goto EventScript_Pblock1_KnowHow
end
EventScript_Pblock1_KnowHow: @ 8293CB9
msgbox Text_Pblock1_KnowHow, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq EventScript_Pblock1_Start
goto EventScript_Pblock1_Explain
end
EventScript_Pblock1_Start: @ 8293CD2
msgbox Text_Pblock1_Start, MSGBOX_DEFAULT
goto EventScript_StartBlending
end
EventScript_Pblock1_Explain: @ 8293CE0
msgbox Text_Pblock1_Explain, MSGBOX_DEFAULT
goto EventScript_Pblock1_Start
end
EventScript_Pblock1_Yes: @ 8293CEE
checkitem ITEM_POKEBLOCK_CASE, 1
compare VAR_RESULT, 0
goto_eq EventScript_Pblock1_NoPokeblock
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
compare VAR_RESULT, 65535
goto_eq EventScript_Pblock1_FullPokeblock
specialvar VAR_RESULT, PlayerHasBerries
compare VAR_RESULT, 0
goto_eq EventScript_Pblock1_NoBerries
msgbox Text_Pblock1_Yes, MSGBOX_DEFAULT
goto EventScript_Pblock1_KnowHow
end
EventScript_StartBlending: @ 8293D2C
copyvar VAR_0x8004, VAR_0x8009
fadescreen 1
special DoBerryBlending
waitstate
releaseall
end
EventScript_Pblock1_FullPokeblock: @ 8293D39
msgbox Text_Pblock1_FullPokeblock, MSGBOX_DEFAULT
releaseall
end
EventScript_Pblock1_NoPokeblock: @ 8293D43
msgbox Text_Pblock1_NoPokeblock, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293D4D:: @ 8293D4D
lockall
setvar VAR_0x8009, 2
applymovement 10, LilycoveCity_ContestLobby_Movement_2725A2
applymovement 3, LilycoveCity_ContestLobby_Movement_294053
waitmovement 0
msgbox LilycoveCity_ContestLobby_Text_293201, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq LilycoveCity_ContestLobby_EventScript_293DC6
goto LilycoveCity_ContestLobby_EventScript_293D7D
end
LilycoveCity_ContestLobby_EventScript_293D7D: @ 8293D7D
msgbox LilycoveCity_ContestLobby_Text_29323D, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293D87: @ 8293D87
msgbox LilycoveCity_ContestLobby_Text_293394, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_293D91: @ 8293D91
msgbox LilycoveCity_ContestLobby_Text_29328C, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq LilycoveCity_ContestLobby_EventScript_293DAA
goto LilycoveCity_ContestLobby_EventScript_293DB8
end
LilycoveCity_ContestLobby_EventScript_293DAA: @ 8293DAA
msgbox LilycoveCity_ContestLobby_Text_2932C3, MSGBOX_DEFAULT
goto EventScript_StartBlending
end
LilycoveCity_ContestLobby_EventScript_293DB8: @ 8293DB8
msgbox LilycoveCity_ContestLobby_Text_2932F1, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_293DAA
end
LilycoveCity_ContestLobby_EventScript_293DC6: @ 8293DC6
specialvar VAR_RESULT, PlayerHasBerries
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_293D87
checkitem ITEM_POKEBLOCK_CASE, 1
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_293E14
msgbox LilycoveCity_ContestLobby_Text_293237, MSGBOX_DEFAULT
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
compare VAR_RESULT, 65535
goto_if 5, LilycoveCity_ContestLobby_EventScript_293D91
compare VAR_RESULT, 65535
goto_eq LilycoveCity_ContestLobby_EventScript_293E0A
end
LilycoveCity_ContestLobby_EventScript_293E0A: @ 8293E0A
msgbox LilycoveCity_ContestLobby_Text_29343E, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293E14: @ 8293E14
msgbox LilycoveCity_ContestLobby_Text_2934A2, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293E1E:: @ 8293E1E
lockall
setvar VAR_0x8008, 15
setvar VAR_0x8009, 3
applymovement 9, LilycoveCity_ContestLobby_Movement_2725A2
applymovement 17, LilycoveCity_ContestLobby_Movement_2725A2
applymovement VAR_0x8008, LilycoveCity_ContestLobby_Movement_294053
waitmovement 0
msgbox LilycoveCity_ContestLobby_Text_293842, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq LilycoveCity_ContestLobby_EventScript_293EA3
goto LilycoveCity_ContestLobby_EventScript_293E5A
end
LilycoveCity_ContestLobby_EventScript_293E5A: @ 8293E5A
msgbox LilycoveCity_ContestLobby_Text_293558, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293E64: @ 8293E64
msgbox LilycoveCity_ContestLobby_Text_29367D, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_293E6E: @ 8293E6E
msgbox LilycoveCity_ContestLobby_Text_29357E, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq LilycoveCity_ContestLobby_EventScript_293E87
goto LilycoveCity_ContestLobby_EventScript_293E95
end
LilycoveCity_ContestLobby_EventScript_293E87: @ 8293E87
msgbox LilycoveCity_ContestLobby_Text_2935B1, MSGBOX_DEFAULT
goto EventScript_StartBlending
end
LilycoveCity_ContestLobby_EventScript_293E95: @ 8293E95
msgbox LilycoveCity_ContestLobby_Text_2935E5, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_293E87
end
LilycoveCity_ContestLobby_EventScript_293EA3: @ 8293EA3
specialvar VAR_RESULT, PlayerHasBerries
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_293E64
checkitem ITEM_POKEBLOCK_CASE, 1
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_293EF1
msgbox LilycoveCity_ContestLobby_Text_29354E, MSGBOX_DEFAULT
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
compare VAR_RESULT, 65535
goto_if 5, LilycoveCity_ContestLobby_EventScript_293E6E
compare VAR_RESULT, 65535
goto_eq LilycoveCity_ContestLobby_EventScript_293EE7
end
LilycoveCity_ContestLobby_EventScript_293EE7: @ 8293EE7
msgbox LilycoveCity_ContestLobby_Text_293738, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293EF1: @ 8293EF1
msgbox LilycoveCity_ContestLobby_Text_293792, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293EFB: @ 8293EFB
lockall
setvar VAR_0x8009, 1
msgbox LilycoveCity_ContestLobby_Text_2C42F4, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq LilycoveCity_ContestLobby_EventScript_293F28
msgbox LilycoveCity_ContestLobby_Text_2C4332, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293F1E: @ 8293F1E
msgbox LilycoveCity_ContestLobby_Text_2C439D, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293F28: @ 8293F28
checkitem ITEM_POKEBLOCK_CASE, 1
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_293F8E
specialvar VAR_RESULT, PlayerHasBerries
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_293F1E
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
compare VAR_RESULT, 65535
goto_if 5, LilycoveCity_ContestLobby_EventScript_293F64
compare VAR_RESULT, 65535
goto_eq LilycoveCity_ContestLobby_EventScript_293F98
end
LilycoveCity_ContestLobby_EventScript_293F64: @ 8293F64
msgbox LilycoveCity_ContestLobby_Text_2C43FA, MSGBOX_YESNO
compare VAR_RESULT, 0
call_if 1, LilycoveCity_ContestLobby_EventScript_293F85
msgbox LilycoveCity_ContestLobby_Text_2C451B, MSGBOX_DEFAULT
goto EventScript_StartBlending
end
LilycoveCity_ContestLobby_EventScript_293F85: @ 8293F85
msgbox LilycoveCity_ContestLobby_Text_2C444C, MSGBOX_DEFAULT
return
LilycoveCity_ContestLobby_EventScript_293F8E: @ 8293F8E
msgbox LilycoveCity_ContestLobby_Text_2C4573, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293F98: @ 8293F98
msgbox LilycoveCity_ContestLobby_Text_2C45E8, MSGBOX_DEFAULT
releaseall
end
LilycoveCity_ContestLobby_EventScript_293FA2:: @ 8293FA2
msgbox LilycoveCity_ContestLobby_Text_2937F9, MSGBOX_NPC
end
LilycoveCity_ContestLobby_EventScript_293FAB:: @ 8293FAB
msgbox LilycoveCity_ContestLobby_Text_293842, MSGBOX_NPC
end
LilycoveCity_ContestLobby_EventScript_293FB4:: @ 8293FB4
msgbox LilycoveCity_ContestLobby_Text_29388F, MSGBOX_NPC
end
LilycoveCity_ContestLobby_EventScript_293FBD:: @ 8293FBD
setvar VAR_0x8008, 15
goto LilycoveCity_ContestLobby_EventScript_293FC8
end
LilycoveCity_ContestLobby_EventScript_293FC8: @ 8293FC8
lock
faceplayer
msgbox Text_Pblock1_Talk_0, MSGBOX_DEFAULT
specialvar VAR_RESULT, PlayerHasBerries
compare VAR_RESULT, 1
goto_eq LilycoveCity_ContestLobby_EventScript_293FEE
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_293FF8
end
LilycoveCity_ContestLobby_EventScript_293FEE: @ 8293FEE
msgbox Text_Pblock1_Talk_1, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_293FF8: @ 8293FF8
checkitem ITEM_POKEBLOCK_CASE, 1
compare VAR_RESULT, 0
goto_eq LilycoveCity_ContestLobby_EventScript_294028
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
compare VAR_RESULT, 65535
goto_eq LilycoveCity_ContestLobby_EventScript_294028
dodailyevents
checkflag FLAG_0x921
goto_eq LilycoveCity_ContestLobby_EventScript_294028
goto LilycoveCity_ContestLobby_EventScript_294032
end
LilycoveCity_ContestLobby_EventScript_294028: @ 8294028
msgbox LilycoveCity_ContestLobby_Text_293BB4, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_294032: @ 8294032
msgbox LilycoveCity_ContestLobby_Text_293AF0, MSGBOX_DEFAULT
giveitem_std ITEM_PECHA_BERRY
setflag FLAG_0x921
msgbox LilycoveCity_ContestLobby_Text_293B76, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_Movement_294053: @ 8294053
walk_in_place_fastest_right
step_end
EventScript_PblockLink:: @ 8294055
lockall
specialvar VAR_RESULT, PlayerHasBerries
compare VAR_RESULT, 0
goto_eq EventScript_PblocLink_NoBerries
checkitem ITEM_POKEBLOCK_CASE, 1
compare VAR_RESULT, 0
goto_eq EventScript_PblocLink_NoPokeblock
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
compare VAR_RESULT, 65535
goto_if 5, EventScript_PblocLink_Ask
compare VAR_RESULT, 65535
goto_eq EventScript_PblocLink_FullPokeblock
end
EventScript_PblocLink_Ask: @ 8294092
msgbox Text_PblockLink_Ask, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_eq EventScript_PblocLink_TryConnect
compare VAR_RESULT, 0
goto_eq EventScript_PblocLink_End
end
EventScript_PblocLink_NoBerries: @ 82940B1
msgbox Text_PblockLink_NoBerries, MSGBOX_DEFAULT
releaseall
end
EventScript_PblocLink_TryConnect: @ 82940BB
call LilycoveCity_ContestLobby_EventScript_27134F
compare VAR_RESULT, 0
goto_eq EventScript_PblocLink_End
specialvar VAR_RESULT, IsWirelessAdapterConnected
compare VAR_RESULT, 1
goto_eq LilycoveCity_ContestLobby_EventScript_2941ED
message Text_PblockLink_Searching
waitmessage
special sub_80B2FD8
waitstate
compare VAR_RESULT, 1
goto_eq EventScript_PblocLink_SpawnPartners
compare VAR_RESULT, 2
goto_eq EventScript_PblocLink_SomeoneNotReady
compare VAR_RESULT, 3
goto_eq EventScript_PblocLink_DifferentSelections
compare VAR_RESULT, 5
goto_eq EventScript_PblocLink_CloseLink
compare VAR_RESULT, 6
goto_eq EventScript_PblocLink_LinkError
end
EventScript_PblocLink_1Arrived: @ 829411D
msgbox Text_PblockLink_1Arrived, MSGBOX_DEFAULT
goto EventScript_PblocLink_StartLinkBlending
end
EventScript_PblocLink_2Arrived: @ 829412B
msgbox Text_PblockLink_2Arrived, MSGBOX_DEFAULT
goto EventScript_PblocLink_StartLinkBlending
end
EventScript_PblocLink_3Arrived: @ 8294139
msgbox Text_PblockLink_3Arrived, MSGBOX_DEFAULT
goto EventScript_PblocLink_StartLinkBlending
end
EventScript_PblocLink_StartLinkBlending: @ 8294147
setvar VAR_0x8004, 0
fadescreen 1
removeobject 240
removeobject 239
removeobject 238
removeobject 237
special DoBerryBlending
waitstate
releaseall
end
EventScript_PblocLink_End: @ 8294160
releaseall
end
EventScript_PblocLink_FullPokeblock: @ 8294162
msgbox Text_PblockLink_FullPokeblock, MSGBOX_DEFAULT
releaseall
end
EventScript_PblocLink_NoPokeblock: @ 829416C
msgbox Text_PblockLink_NoPokeblock, MSGBOX_DEFAULT
releaseall
end
EventScript_PblocLink_SomeoneNotReady: @ 8294176
special CloseLink
msgbox LilycoveCity_ContestLobby_Text_2781C7, MSGBOX_DEFAULT
releaseall
end
EventScript_PblocLink_DifferentSelections: @ 8294183
special CloseLink
msgbox LilycoveCity_ContestLobby_Text_278255, MSGBOX_DEFAULT
releaseall
end
EventScript_PblocLink_CloseLink: @ 8294190
special CloseLink
msgbox gUnknown_08272D9C, MSGBOX_DEFAULT
releaseall
end
EventScript_PblocLink_LinkError: @ 829419D
special CloseLink
msgbox LilycoveCity_ContestLobby_Text_27821C, MSGBOX_DEFAULT
releaseall
end
EventScript_PblocLink_SpawnPartners: @ 82941AA
fadescreen 1
specialvar VAR_RESULT, GetLinkPartnerNames
copyvar VAR_0x8008, VAR_RESULT
copyvar VAR_0x8004, VAR_0x8008
special SpawnLinkPartnerEventObject
goto EventScript_PblocLink_Arrived
end
EventScript_PblocLink_Arrived: @ 82941C4
fadescreen 0
switch VAR_0x8008
case 2, EventScript_PblocLink_1Arrived
case 3, EventScript_PblocLink_2Arrived
case 4, EventScript_PblocLink_3Arrived
end
LilycoveCity_ContestLobby_EventScript_2941ED: @ 82941ED
setvar VAR_0x8004, 13
goto EventScript_PblocLink_DecideLeader
end
EventScript_PblocLink_DecideLeader: @ 82941F8
message Text_DecideLinkLeader
waitmessage
multichoice 16, 6, 81, 0
switch VAR_RESULT
case 0, EventScript_PblocLink_TryJoinGroup
case 1, EventScript_PblocLink_TryBecomeLeader
case 2, EventScript_PblocLink_CloseLink
case 127, EventScript_PblocLink_CloseLink
end
EventScript_PblocLink_TryBecomeLeader: @ 8294235
call EventScript_PblocLink_BecomeLeader
compare VAR_RESULT, 1
goto_eq EventScript_PblocLink_SpawnPartners_
compare VAR_RESULT, 5
goto_eq EventScript_PblocLink_DecideLeader
compare VAR_RESULT, 8
goto_eq EventScript_PblocLink_TryBecomeLeader
release
end
EventScript_PblocLink_TryJoinGroup: @ 829425D
call EventScript_PblocLink_JoinGroup
compare VAR_RESULT, 1
goto_eq EventScript_PblocLink_SpawnPartners_
compare VAR_RESULT, 5
goto_eq EventScript_PblocLink_DecideLeader
compare VAR_RESULT, 8
goto_eq EventScript_PblocLink_TryJoinGroup
release
end
EventScript_PblocLink_BecomeLeader: @ 8294285
special BerryBlenderLinkBecomeLeader
waitstate
return
EventScript_PblocLink_JoinGroup: @ 829428A
special BerryBlenderLinkJoinGroup
waitstate
return
EventScript_PblocLink_SpawnPartners_: @ 829428F
goto EventScript_PblocLink_SpawnPartners
end