summaryrefslogtreecommitdiff
path: root/data/scripts/kecleon.inc
diff options
context:
space:
mode:
Diffstat (limited to 'data/scripts/kecleon.inc')
-rw-r--r--data/scripts/kecleon.inc116
1 files changed, 116 insertions, 0 deletions
diff --git a/data/scripts/kecleon.inc b/data/scripts/kecleon.inc
new file mode 100644
index 000000000..659cd027b
--- /dev/null
+++ b/data/scripts/kecleon.inc
@@ -0,0 +1,116 @@
+Route120_EventScript_Kecleon1:: @ 82722DB
+ lock
+ faceplayer
+ setvar VAR_0x8009, 1
+ goto EventScript_Kecleon
+ end
+
+Route120_EventScript_Kecleon2:: @ 82722E8
+ lock
+ faceplayer
+ setvar VAR_0x8009, 2
+ goto EventScript_Kecleon
+ end
+
+Route120_EventScript_Kecleon3:: @ 82722F5
+ lock
+ faceplayer
+ setvar VAR_0x8009, 3
+ goto EventScript_Kecleon
+ end
+
+Route120_EventScript_Kecleon4:: @ 8272302
+ lock
+ faceplayer
+ setvar VAR_0x8009, 4
+ goto EventScript_Kecleon
+ end
+
+Route120_EventScript_Kecleon5:: @ 827230F
+ lock
+ faceplayer
+ setvar VAR_0x8009, 5
+ goto EventScript_Kecleon
+ end
+
+Route119_EventScript_Kecleon1:: @ 827231C
+ lock
+ faceplayer
+ setvar VAR_0x8009, 6
+ goto EventScript_Kecleon
+ end
+
+Route119_EventScript_Kecleon2:: @ 8272329
+ lock
+ faceplayer
+ setvar VAR_0x8009, 7
+ goto EventScript_Kecleon
+ end
+
+EventScript_Kecleon:: @ 8272336
+ checkitem ITEM_DEVON_SCOPE, 1
+ compare VAR_RESULT, 1
+ goto_if_eq EventScript_AskUseDevonScope
+ msgbox Kecleon_Text_SomethingUnseeable, MSGBOX_DEFAULT
+ release
+ end
+
+EventScript_AskUseDevonScope:: @ 8272350
+ msgbox Kecleon_Text_WantToUseDevonScope, MSGBOX_YESNO
+ compare VAR_RESULT, YES
+ goto_if_eq EventScript_BattleKecleon
+ release
+ end
+
+EventScript_BattleKecleon:: @ 8272365
+ msgbox Kecleon_Text_UseDevonScopeMonAttacked, MSGBOX_DEFAULT
+ closemessage
+ applymovement VAR_LAST_TALKED, Common_Movement_FacePlayer
+ waitmovement 0
+ applymovement VAR_LAST_TALKED, Movement_KecleonAppears
+ waitmovement 0
+ waitse
+ playmoncry SPECIES_KECLEON, 2
+ delay 40
+ waitmoncry
+ setwildbattle SPECIES_KECLEON, 30, ITEM_NONE
+ setflag FLAG_SYS_CTRL_OBJ_DELETE
+ dowildbattle
+ clearflag FLAG_SYS_CTRL_OBJ_DELETE
+ specialvar VAR_RESULT, GetBattleOutcome
+ compare VAR_RESULT, B_OUTCOME_WON
+ goto_if_eq EventScript_RemoveKecleon
+ compare VAR_RESULT, B_OUTCOME_RAN
+ goto_if_eq EventScript_RemoveKecleon
+ compare VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED
+ goto_if_eq EventScript_RemoveKecleon
+ release
+ end
+
+EventScript_RemoveKecleon:: @ 82723C1
+ goto Common_EventScript_RemoveStaticPokemon
+ end
+
+Movement_KecleonAppears: @ 82723C7
+ set_visible
+ delay_4
+ set_invisible
+ delay_4
+ set_visible
+ delay_4
+ set_invisible
+ delay_4
+ set_visible
+ delay_8
+ set_invisible
+ delay_8
+ set_visible
+ delay_8
+ set_invisible
+ delay_8
+ set_visible
+ delay_16
+ set_invisible
+ delay_16
+ set_visible
+ step_end