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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
CinnabarIsland_PokemonLab_Lounge_MapScripts:: @ 816E2B8
.byte 0
CinnabarIsland_PokemonLab_Lounge_EventScript_16E2B9:: @ 816E2B9
msgbox gUnknown_8199FB3, 2
end
CinnabarIsland_PokemonLab_Lounge_EventScript_16E2C2:: @ 816E2C2
lock
faceplayer
setvar VAR_0x8008, 6
call EventScript_1A8CAD
checkflag FLAG_DID_ESPHERE_TRADE
goto_if TRUE, EventScript_16E334
msgbox gUnknown_81A59FE, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E31C
call EventScript_1A8CBD
compare_var_to_value VAR_0x8004, 6
goto_if ge, EventScript_16E31C
call EventScript_1A8CC9
compare_var_to_var VAR_RESULT, VAR_0x8009
goto_if ne, EventScript_16E326
call EventScript_1A8CD9
msgbox gUnknown_81A5A9D
setflag FLAG_DID_ESPHERE_TRADE
release
end
EventScript_16E31C:: @ 816E31C
msgbox gUnknown_81A5A4E
release
end
EventScript_16E326:: @ 816E326
getspeciesname 0, VAR_0x8009
msgbox gUnknown_81A5A6A
release
end
EventScript_16E334:: @ 816E334
msgbox gUnknown_81A5AA5
release
end
CinnabarIsland_PokemonLab_Lounge_EventScript_16E33E:: @ 816E33E
lock
faceplayer
setvar VAR_0x8008, 7
copyvar VAR_0x8004, VAR_0x8008
specialvar VAR_RESULT, GetInGameTradeSpeciesInfo
copyvar VAR_0x8009, VAR_RESULT
checkflag FLAG_DID_TANGENY_TRADE
goto_if TRUE, EventScript_16E3D4
msgbox gUnknown_81A5AD6, MSGBOX_YESNO
compare_var_to_value VAR_RESULT, 0
goto_if eq, EventScript_16E3BC
special Special_ChooseMonFromParty
waitstate
copyvar VAR_0x800A, VAR_0x8004
compare_var_to_value VAR_0x8004, 6
goto_if ge, EventScript_16E3BC
copyvar VAR_0x8005, VAR_0x800A
specialvar VAR_RESULT, GetTradeSpecies
copyvar VAR_0x800B, VAR_RESULT
compare_var_to_var VAR_RESULT, VAR_0x8009
goto_if ne, EventScript_16E3C6
copyvar VAR_0x8004, VAR_0x8008
copyvar VAR_0x8005, VAR_0x800A
special CreateInGameTradePokemon
special DoInGameTradeScene
waitstate
msgbox gUnknown_81A5B4A
setflag FLAG_DID_TANGENY_TRADE
release
end
EventScript_16E3BC:: @ 816E3BC
msgbox gUnknown_81A5B08
release
end
EventScript_16E3C6:: @ 816E3C6
getspeciesname 0, VAR_0x8009
msgbox gUnknown_81A5B18
release
end
EventScript_16E3D4:: @ 816E3D4
msgbox gUnknown_81A5B60
release
end
|
