/
Words.hs
151 lines (126 loc) · 5.7 KB
/
Words.hs
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
module ACME.PreCure.Textbook.MahoGirls.Words where
groupName_MahoGirls = "魔法つかいプリキュア!"
girlName_Mirai = "朝日奈みらい"
girlName_Liko = "十六夜リコ"
girlName_Kotoha = "花海ことは"
cureName_Miracle = "キュアミラクル"
cureName_Magical = "キュアマジカル"
cureName_Felice = "キュアフェリーチェ"
cureName_Mofurun = "キュアモフルン"
introducesHerselfAs_Miracle = "ふたりの奇跡!キュアミラクル!"
introducesHerselfAs_Magical = "ふたりの魔法!キュアマジカル!"
introducesHerselfAs_Felice = "あまねく生命に祝福を!キュアフェリーチェ!"
introducesHerselfAs_Mofurun = "モフモフモフルン!キュアモフルン!"
variation_Dia = "ダイヤスタイル"
variation_Ruby = "ルビースタイル"
variation_Sapphire = "サファイアスタイル"
variation_Topaz = "トパーズスタイル"
variation_OverTheRainbow = "オーバー・ザ・レインボー"
variation_Heartful = "ハートフルスタイル"
linkleStoneName_Dia = "ダイヤ"
linkleStoneName_Ruby = "ルビー"
linkleStoneName_Sapphire = "サファイヤ"
linkleStoneName_Topaz = "トパーズ"
linkleStoneName_Emerald = "エメラルド"
linkleStoneName_Alexandrite = "アレキサンドライト"
linkleStoneName_OfHope = "願いの石"
linkleStoneName_Heartful = "ハートフルリンクルストーン"
transformationSpeechWith_Miracle_Magical :: String -> [String]
transformationSpeechWith_Miracle_Magical lsn =
[ "キュアップ・ラパパ! " ++ lsn ++ "!"
, "ミラクル・マジカル・ジュエリーレ!"
, introducesHerselfAs_Miracle
, introducesHerselfAs_Magical
, "魔法つかいプリキュア!!"
]
-- https://www.youtube.com/watch?v=YUd5IkDjEds
transformationSpeechWith_MahoGirls :: String -> [String]
transformationSpeechWith_MahoGirls lsn =
[ "キュアップ・ラパパ! " ++ lsn ++ "!"
, "ミラクル・マジカル・ジュエリーレ!"
, "エメラルド!"
, "フェリーチェ・ファンファン・フラワーレ!"
, introducesHerselfAs_Miracle
, introducesHerselfAs_Magical
, introducesHerselfAs_Felice
, "魔法つかいプリキュア!!"
]
transformationSpeech_Miracle_Magical =
transformationSpeechWith_Miracle_Magical linkleStoneName_Dia
transformationSpeech_Miracle_Magical_Ruby =
transformationSpeechWith_Miracle_Magical linkleStoneName_Ruby
transformationSpeech_Miracle_Magical_Sapphire =
transformationSpeechWith_Miracle_Magical linkleStoneName_Sapphire
transformationSpeech_Miracle_Magical_Topaz =
transformationSpeechWith_Miracle_Magical linkleStoneName_Topaz
transformationSpeech_MahoGirls =
transformationSpeechWith_MahoGirls linkleStoneName_Dia
transformationSpeech_MahoGirls_Ruby =
transformationSpeechWith_MahoGirls linkleStoneName_Ruby
transformationSpeech_MahoGirls_Sapphire =
transformationSpeechWith_MahoGirls linkleStoneName_Sapphire
transformationSpeech_MahoGirls_Topaz =
transformationSpeechWith_MahoGirls linkleStoneName_Topaz
transformationSpeech_Felice =
[ "キュアップ・ラパパ! エメラルド!"
, "フェリーチェ・ファンファン・フラワーレ!"
, introducesHerselfAs_Felice
]
-- TODO: Check the movie again
transformationSpeech_Mofurun = [introducesHerselfAs_Mofurun]
-- https://www.youtube.com/watch?v=BSseiA_pBYI
transformationSpeech_MahoGirls_OverTheRainbow =
[ "キュアップ・ラパパ! アレキサンドライト!"
, "魔法つかいプリキュア! オーバー・ザ・レインボー!"
]
-- https://www.youtube.com/watch?v=QBQfnFOyRS4
purificationSpeech_Miracle_Magical =
[ "ダイヤ!永遠の輝きを私達の手に!"
, "フルフルリンクル!"
, "プリキュア!ダイヤモンド・エターナル!"
]
-- https://www.youtube.com/watch?v=sM7VC9-hCU8
purificationSpeech_Miracle_Magical_Ruby =
[ "リンクルステッキ!"
, "(モッフー!)"
, "ルビー!紅の情熱よ私達の手に!"
, "フルフルリンクル!"
, "プリキュア!ルビー・パッショナーレ!"
]
-- https://www.youtube.com/watch?v=lNUa2Sfa894
purificationSpeech_Miracle_Magical_Sapphire =
[ "リンクルステッキ!"
, "(モッフー!)"
, "サファイア!青き知性よ私達の手に!"
, "フルフルリンクル!"
, "プリキュア!サファイア・スマーティッシュ!"
]
-- https://www.youtube.com/watch?v=uu7V5Fxw8NQ
purificationSpeech_Miracle_Magical_Topaz =
[ "リンクルステッキ!"
, "(モォッフー!モッフッ!)"
, "トパーズ!金色の希望よ私達の手に!"
, "フルフルリンクル!"
, "プリキュア!トパーズ・エスペランサ!"
]
-- https://www.youtube.com/watch?v=vEWAnGM0-Os
purificationSpeech_Felice =
[ "フラワーエコーワンド!"
, "エメラルド!"
, "キュアー・アップ!"
, "(キュアー・アップ!キュアー・アップ!キュアー・アップ!)"
, "プリキュア!エメラルド・リンカネーション!"
]
-- https://www.youtube.com/watch?v=dGaiygaMDUM
purificationSpeech_MahoGirls_extreme_rainbow =
[ "(レインボー・キャリッジ! モフッ! モォッフー!!)"
, "巡り会う奇跡よ!"
, "繋がる魔法よ!"
, "育まれし幸福(しあわせ)よ!"
, "今私たちの手に!"
, "プレシャスブレス!"
, "フル・フル・フルフルリンクル!"
, "プリキュア!エクストリーム・レインボー!"
, "キュアップ・ラパパ! 虹の彼方に!"
]