/
2697.nako3
331 lines (295 loc) · 13.5 KB
/
2697.nako3
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
### [作品情報]
### 掲載URL=https://n3s.nadesi.com/id.php?2697
### タイトル=くじびきアプリ
### 作者=最上(もがみ)(user_id=0)
### ライセンス=MIT
### 説明=2~20名のくじを作ります。あたり(5つ分)とはずれの名称を自由に設定できます。
### 対象バージョン=3.4.23
### URL=
### 種類=wnako
### タグ=
### 更新日時=2023-12-01 10:10:03
###
# -----------------------------------
# --- くじびきアプリ version1.4
# --- 2~20名のくじを作ります。
# --- あたり(5種類)とはずれの名称を自由に設定できます。
# --- version1.4 あたりの設定方法修正(あたりごとに数指定)、あたりの文字列チェック追加
# --- version1.3 あたりのまとめ設定機能追加
# --- version1.1 くじのサイズ計算修正、あたりはずれの文字数に応じてフォントサイズを調整する処理追加
# --- version1.0 新規作成
# -----------------------------------
// 初期値
くじ数=2
あたり数=1
// 結果インデックス
はずれ=0
// 選択状態インデックス
うら=0
おもて=1
くじリスト=["", "", "", "", "", "","", "", "", "", "", "","", "", "", "", "", "","", ""]
くじ状態=[ [うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ],
[うら, はずれ]]
// 描画用
くじ幅=70
くじ高さ=80
すきま=5
行当たり数=4
行数=5
POS = 0
くじチェック=0
# -------------------------------------------
# --- メイン処理ここから
# --- 初期表示
「くじびきアプリ」と表示。
「2~20人のくじびきができます。」と表示。
「あたり種類は5つまで」と表示。
「はずれの表示を変更できます。」と表示。
「くじ作成ボタンを押して、はじめましょう。」と表示。
「 << くじ作成 >> 」のボタン作成して、くじ作成ボタンに代入。改行作成。
「・くじの数(2~20) 」のラベル作成。
["2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20"]のセレクトボックス作成し、人数セレクトに代入。
人数セレクトに「10」をテキスト設定。
改行作成。
「・あたり設定」のラベル作成。改行作成。
#「 1つめのあたりをまとめて設定」のラベル作成
#["-","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"]のセレクトボックス作成し、あたりセレクトに代入。
#あたりセレクトに「-」をテキスト設定。
#改行作成。
"あたり"のエディタ作成して、文字エディタ1に代入。
["0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"]のセレクトボックス作成し、あたり1セレクトに代入。
あたり1セレクトに「1」をテキスト設定。
改行作成。
""のエディタ作成して、文字エディタ2に代入。
["0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"]のセレクトボックス作成し、あたり2セレクトに代入。
あたり2セレクトに「0」をテキスト設定。
改行作成。
""のエディタ作成して、文字エディタ3に代入。
["0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"]のセレクトボックス作成し、あたり3セレクトに代入。
あたり3セレクトに「0」をテキスト設定。
改行作成。
""のエディタ作成して、文字エディタ4に代入。
["0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"]のセレクトボックス作成し、あたり4セレクトに代入。
あたり4セレクトに「0」をテキスト設定。
改行作成。
""のエディタ作成して、文字エディタ5に代入。
["0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"]のセレクトボックス作成し、あたり5セレクトに代入。
あたり5セレクトに「0」をテキスト設定。
改行作成。
「・はずれ設定」のラベル作成。改行作成。
"はずれ"のエディタ作成して、文字エディタ6に代入。改行作成。
# -------------------------------------------
# --- ボタン押下イベント
くじ作成ボタンをクリックした時には、
全描画クリア。
ret=くじ設定。
もし、(ret=-1)ならば
「あたりの数がくじ数よりも多くなっています。」と言う。
戻る。
ここまで
もし、(ret=-2)ならば
「あたりがありません。」と言う。
戻る。
ここまで
もし、(ret=-3)ならば
「はずれがありません。」と言う。
戻る。
ここまで
もし、(ret=-4)ならば
「あたりの文字を入力してください」と言う。
戻る。
ここまで
くじボタン描画。
ここまで。
# -------------------------------------------
# --- くじ設定 関数定義
●くじ設定
Nを0から(20-1)まで繰り返す
くじリスト[N] = ""
ここまで。
人数セレクトのテキスト取得を半角変換してくじ数に代入。
// あたりの文字列が""ならエラー
もし、((あたり1セレクトのテキスト取得を半角変換)>0)かつ((文字エディタ1のテキスト取得)="")ならば
-4で戻る。
ここまで
もし、((あたり2セレクトのテキスト取得を半角変換)>0)かつ((文字エディタ2のテキスト取得)="")ならば
-4で戻る。
ここまで
もし、((あたり3セレクトのテキスト取得を半角変換)>0)かつ((文字エディタ3のテキスト取得)="")ならば
-4で戻る。
ここまで
もし、((あたり4セレクトのテキスト取得を半角変換)>0)かつ((文字エディタ4のテキスト取得)="")ならば
-4で戻る。
ここまで
もし、((あたり5セレクトのテキスト取得を半角変換)>0)かつ((文字エディタ5のテキスト取得)="")ならば
-4で戻る。
ここまで
// あたり合計数チェック
くじチェック=0
あたり数=0
あたり数 = (あたり1セレクトのテキスト取得を半角変換)+ (あたり2セレクトのテキスト取得を半角変換) + (あたり3セレクトのテキスト取得を半角変換) + (あたり4セレクトのテキスト取得を半角変換)+ (あたり5セレクトのテキスト取得を半角変換)
もし、(あたり数>くじ数)ならば
-1で戻る。
ここまで
もし、(あたり数=0)ならば
-2で戻る。
ここまで
もし、(あたり数=くじ数)ならば
-3で戻る。
ここまで
文字エディタ6のテキスト取得してくじリスト[0] に代入。// はずれ分
num = 1
あたり1セレクトのテキスト取得を半角変換してtmpに代入。
もし、(tmp>0)ならば
Nを0から(tmp-1)まで繰り返す
文字エディタ1のテキスト取得してくじリスト[num] に代入。
num = num + 1
ここまで
ここまで
あたり2セレクトのテキスト取得を半角変換してtmpに代入。
もし、(tmp>0)ならば
Nを0から(tmp-1)まで繰り返す
文字エディタ2のテキスト取得してくじリスト[num] に代入。
num = num + 1
ここまで
ここまで
あたり3セレクトのテキスト取得を半角変換してtmpに代入。
もし、(tmp>0)ならば
Nを0から(tmp-1)まで繰り返す
文字エディタ3のテキスト取得してくじリスト[num] に代入。
num = num + 1
ここまで
ここまで
あたり4セレクトのテキスト取得を半角変換してtmpに代入。
もし、(tmp>0)ならば
Nを0から(tmp-1)まで繰り返す
文字エディタ4のテキスト取得してくじリスト[num] に代入。
num = num + 1
ここまで
ここまで
あたり5セレクトのテキスト取得を半角変換してtmpに代入。
もし、(tmp>0)ならば
Nを0から(tmp-1)まで繰り返す
文字エディタ5のテキスト取得してくじリスト[num] に代入。
num = num + 1
ここまで
ここまで
// くじ状態初期化とランダムな位置にあたりを設定
Nを0から(くじ数-1)まで繰り返す
くじ状態[N][0] = うら
くじ状態[N][1] = はずれ
ここまで
Nを1から(20-1)まで繰り返す
もし、くじリスト[N]が""ならば
違えば
後判定で繰り返す
POS = 0から(くじ数-1)までの乱数範囲
ここまで、(くじ状態[POS][1] > はずれ)の間。
くじ状態[POS][1] = N
ここまで
ここまで
// 描画情報再計算
// 5つ単位で列を増やす場合、4を足して5で割る
行当たり数 = ((くじ数+4)/5)を0で小数点切下げ
くじ幅=((305-すきま*(行当たり数+1))/行当たり数)を0で小数点切下げ
行数=(くじ数/行当たり数)を0で小数点切上げ
くじ高さ=((430-すきま*(行数+1))/行数)を0で小数点切下げ
0で戻る。
ここまで。
# -------------------------------------------
# --- くじボタン描画 関数定義
●くじボタン描画
全描画クリア。
3に線太設定
Nを0から(くじ数-1)まで繰り返す
idx=N%行当たり数
idy=((N/行当たり数)を0で小数点切下)
もし、くじ状態[N][0]がうらならば
青色に塗色設定
[すきま*(idx+1)+くじ幅*idx,すきま*(idy+1)+くじ高さ*idy, くじ幅, くじ高さ]へ四角描画
もじ = N+1
白色に塗色設定
違えば
もし、くじ状態[N][1]がはずれならば
水色に塗色設定
違えば
「#ffc0cb」に塗色設定
ここまで
[すきま*(idx+1)+くじ幅*idx,すきま*(idy+1)+くじ高さ*idy, くじ幅, くじ高さ]へ四角描画
もじ=くじリスト[くじ状態[N][1]]
黒色に塗色設定
ここまで
# くじの中に文字列がおさまるようにフォントサイズ調整
fs = 20
tmp = 0
後判定で繰り返す
fsに描画フォント設定
tmp = もじの文字幅取得
fs = fs-1
ここまで、(tmp > くじ幅)かつ(fs>0)の間。
縦調整=(くじ高さ + (もじの文字高さ取得))/2
横調整=(くじ幅 - (もじの文字幅取得))/2
[すきま*(idx+1)+くじ幅*idx+横調整,すきま*(idy+1)+くじ高さ*idy+縦調整]へもじを文字描画
ここまで
ここまで
# -------------------------------------------
# --- パネルクリックイベント
描画中キャンバスをマウス押した時には
くじクリックチェック(マウスX,マウスY)
くじボタン描画
ここまで。
# -------------------------------------------
# --- パネルクリックチェック関数定義
●くじクリックチェック(MX,MY)
Nを0から(くじ数-1)まで繰り返す
idx=N%行当たり数
idy=((N/行当たり数)を0で小数点切下)
x1=すきま*(idx+1)+くじ幅*idx
y1=すきま*(idy+1)+くじ高さ*idy
x2=x1+くじ幅
y2=y1+くじ高さ
もし、MX≧x1ならば
もし、MY≧y1ならば
もし、MX≦x2ならば
もし、MY≦y2ならば
# --- パネル切り替え(間違えた場合にやりなおせるように)
もし、くじ状態[N][0]がうらならば
くじ状態[N][0]=おもて
違えば
ここまで
ここまで
ここまで
ここまで
ここまで
ここまで
ここまで
# -------------------------------------------
# --- 文字列幅、高さ取得
# --- https://nadesi.com/v3/doc/index.php?plugin_browser%2F文字描画幅取得&show
●(Sの)文字幅取得
TM=Sの文字描画幅取得。
TM["width"]で戻る。
ここまで。
●(Sの)文字高さ取得
TM=Sの文字描画幅取得。
TM["actualBoundingBoxAscent"]+TM["actualBoundingBoxDescent"]で戻る。
ここまで。