1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
ThreeIsland_BerryForest_MapScripts:: @ 8163C71
map_script MAP_SCRIPT_ON_TRANSITION, ThreeIsland_BerryForest_OnTransition
.byte 0
ThreeIsland_BerryForest_OnTransition:: @ 8163C77
setworldmapflag FLAG_WORLD_MAP_THREE_ISLAND_BERRY_FOREST
setescapewarp MAP_THREE_ISLAND_BOND_BRIDGE, 255, 12, 6
end
ThreeIsland_BerryForest_EventScript_Lostelle:: @ 8163C83
lock
faceplayer
msgbox ThreeIsland_BerryForest_Text_HelpScaryPokemon
playse SE_PIN
applymovement 1, Movement_ExclamationMark
waitmovement 0
applymovement 1, ThreeIsland_BerryForest_Movement_LostelleLookAround
waitmovement 0
msgbox ThreeIsland_BerryForest_Text_HereItComesAgain
goto_if_questlog EventScript_ReleaseEnd
waitse
playmoncry SPECIES_HYPNO, 2
waitmoncry
setwildbattle SPECIES_HYPNO, 30, ITEM_NONE
dowildbattle
special sub_8112364
applymovement 1, Movement_FacePlayer
waitmovement 0
msgbox ThreeIsland_BerryForest_Text_ThankYouHaveThis
giveitem ITEM_IAPAPA_BERRY
compare VAR_RESULT, FALSE
call_if_eq ThreeIsland_BerryForest_EventScript_NoRoomForBerry
special BufferBigGuyOrBigGirlString
msgbox ThreeIsland_BerryForest_Text_LetsGoHome
closemessage
setflag FLAG_RESCUED_LOSTELLE
setflag FLAG_HIDE_LOSTELLE_IN_BERRY_FOREST
setvar VAR_MAP_SCENE_TWO_ISLAND_JOYFUL_GAME_CORNER, 2
clearflag FLAG_HIDE_TWO_ISLAND_GAME_CORNER_LOSTELLE
warp MAP_TWO_ISLAND_JOYFUL_GAME_CORNER, 255, 6, 6
waitstate
release
end
ThreeIsland_BerryForest_EventScript_NoRoomForBerry:: @ 8163D19
msgbox ThreeIsland_BerryForest_Text_BerryPouchIsFull
return
ThreeIsland_BerryForest_Movement_LostelleLookAround:: @ 8163D22
walk_in_place_fastest_left
delay_16
walk_in_place_fastest_right
delay_8
walk_in_place_fastest_left
step_end
ThreeIsland_BerryForest_EventScript_WelcomeSign:: @ 8163D28
msgbox ThreeIsland_BerryForest_Text_WelcomeToBerryForest, MSGBOX_SIGN
end
ThreeIsland_BerryForest_EventScript_BewareSign:: @ 8163D31
msgbox ThreeIsland_BerryForest_Text_BewareWildBerryLovingMons, MSGBOX_SIGN
end
|
