code:
@PRINT_AA(ARG)
SETFONT "ＭＳ Pゴシック"
SIF FLAG:역극 && ARG == MASTER
	ARG = FLAG:역극
SELECTCASE ARG
	CASE 1
PRINTL 　 .「＾ヽ,ry'＾i
PRINTL 　 ,ゝ"´ ⌒｀ヽ
PRINTL 　くi Lﾉﾉハﾉ)」
PRINTL 　 λ.[i ﾟ ヮﾟﾉi!
PRINTL 　 ﾚ',ﾍ.i｀ﾑ'」つ旦~
PRINTL 　 ,く_,//T.iλ
PRINTL 　　"ｰr_,t_ｧ'"
	CASE 2
	CASE 3
PRINTL 　　　　 _......_
PRINTL 　　 __,´-=.⌒ヽｿl_　♪
PRINTL 　 （__（（ﾊﾉノ）））__）
PRINTL 　　　（ﾊ)ﾟ ヮﾟﾉiﾊ
PRINTL 　　　(.Si lΛjSつ
PRINTL 　　　(ﾝ´《,,,,》ヽ、
PRINTL 　　　｀~.i_ﾌ_ﾌ~´
	CASE 4
PRINTL 　　　/＾＼　　　 .γ⌒ヽ　　　　　　　☆
PRINTL 　　 」_-'γ＼ __　l　(⌒｀　.．。．：*・゜
PRINTL 　　Σ_>,.-y-ﾍｨ　ヽ､_フ
PRINTL 　　7 ｲ ノ' 'ヽﾘi〉　/
PRINTL 　　〉 〈ｲ ﾟ ｰﾟﾉ〈　/
PRINTL 　 / /k'７ｲ：ﾍ>'_/
PRINTL 　〈　i.(ﾝ'ｲ↑ﾊｰ'
PRINTL 　 ｀∠/,___,|_ゝ〉
	CASE 5
PRINTL 　　 __lゝﾊｨl
PRINTL 　 r/>､' ￣ ｀ヽ
PRINTL 　　ﾙｲﾚﾉハﾉﾉ〉
PRINTL 　(｀ﾉﾊﾘﾟ ヮﾟﾉiﾊ _
PRINTL 　 ＼k'_〉'∞'iつ[_]
PRINTL 　 (/(ﾝ'/'ハﾍ,
PRINTL 　 　ﾞ'ｰr'_ｪ'ｧ┘
	CASE 6
PRINTL 　　 ,. -─ｰ-､,_
PRINTL 　 rkl_,.-､_,.-,ｨiﾝ
PRINTL 　 Yﾊ ｲハﾉﾉｲ〉
PRINTL 　(〈ｲﾊ〉ﾟ ヮﾟﾉi〉i
PRINTL 　 ヽk,_,Y'ハiつﾉ
PRINTL 　 (/(ﾝ'./∞ﾊ_>
PRINTL 　 　ﾞ'ｰr_ｪ_ｧ┘
	CASE 7
PRINTL 　　　 _,,......._
PRINTL 　 　,'´ r}><ﾄヽ,
PRINTL 　 . i Liｲﾉﾊﾉ」ﾘ
PRINTL 　(｀| l｜ﾟ ヮﾟﾉi)
PRINTL 　 ｀|く_l|」'ﾊLl|〉
PRINTL 　 (_!(ﾝ'ｲ介ﾊj
PRINTL 　 　 'ｰr_ｪ_ｧ┘
	CASE 8
PRINTL 　　　　　　 , --‐‐V、
PRINTL 　　　　　,⌒:--==-ｨ´)
PRINTL 　　　　　|　 |ｲノハﾉ)ﾉ）
PRINTL 　　　　　ﾉ人ﾘ.ﾟ ヮﾟﾉl(
PRINTL 　　　　 　 (__)ヽ∀ﾉ]つ
PRINTL 　　　　 　 (ﾝ _i_ I _ヽ
PRINTL 　　　　　 　 ｀l_ﾌl_ﾌ´
	CASE 9
PRINTL 　　 　_,... ...._
PRINTL 　　 ,´ ⌒｀⌒ヽ
PRINTL 　　ﾉｲノﾉ）ﾉ）ﾉ）
PRINTL 　 （λi ﾟ ヮﾟﾉﾍ
PRINTL 　 　,く_」∞Liつ
PRINTL 　　/(ﾝ_r┴ヽ＼
PRINTL 　 ～- r_,t_ｧｰ'´
	CASE 10
PRINTL 　ヽ、_　,、　 ,、 γ
PRINTL 　r>iゝ!' ,.ゝ-ヽiノ,.i
PRINTL 　　 ゝ,)　,　　 ,ヽｲ
PRINTL 　　　γ ﾉi」ﾊﾉｲ」
PRINTL 　　　,'ｲﾚi ﾟ ヮﾟﾉ〉
PRINTL 　　 (_ﾊ（(８i,ﾊ,iつ曰
PRINTL 　　 .ﾘ.,く_ﾊλﾊﾘ
PRINTL 　　 　｀"r_7i_7"
	CASE 11
PRINTL 　　 ______
PRINTL 　　´> r ､ヽ、
PRINTL 　_,.'-=L__X_]=.,_
PRINTL 　ヽﾉ（ノﾒλﾉ)）'
PRINTL 　 （（ｒｿﾟ ヮﾟﾉ§
PRINTL 　　''(,.,.)：-：!)つ
PRINTL 　　 (ﾝ'/＿l >、
PRINTL 　　 ~'i,ﾌT,ﾌ^~
	CASE 12
PRINTL 　　　　　 _　_ .、__,
PRINTL 　 　 　 / 　 　 `',y
PRINTL 　　　　 i ﾚﾉﾊﾉﾉ)
PRINTL 　　　　 ﾙi ﾟ ヮﾟﾉ!
PRINTL 　　　　 と,)::∞:!iつ
PRINTL 　　　 　 ,く:::::_!:」
PRINTL 　　　 　 ｀ﾞl_ﾉi_ﾉ´
	CASE 13
PRINTL 　 　　　 　 _,......,M.,
PRINTL 　　　 　 ,'´　　 　`yj
PRINTL 　　　　 .ｌ ,ﾉﾉ ﾚﾉ ﾙﾘ
PRINTL 　　　　 .ﾙﾉ!;ﾟ ヮﾟ从'
PRINTL 　 　 /⌒<(つλ0i^ヽ
PRINTL 　　.ﾉ,.イ,くノﾉ__ヽゝヽ!
PRINTL 　　　 　 　 !_ﾝ_ﾉ´
	CASE 14
PRINTL
PRINTL 　　 __i.＼_／!_
PRINTL 　　ゝ, "´⌒｀ヽ
PRINTL 　 　ﾉ.ノノﾉﾊﾉ〉〉
PRINTL 　|＼ﾙﾘ!ﾟ ヮﾟﾉ!
PRINTL 　 ＼ k_(つ'i(つ
PRINTL 　∠ ,く／/ i ゝ
PRINTL 　　　｀!,ﾝｨﾝ"´
	CASE 15
PRINTL
PRINTL 　　 ,.ｨ ｰrｰr 、
PRINTL 　　y' "´￣｀'ヽ
PRINTL 　 .ﾉくノﾉ人ﾘ))ゝ
PRINTL 　　ﾙi§ﾟ ヮﾟﾉ§
PRINTL 　 　'k'_,i｀ﾑ'_i〈つ[|三＞
PRINTL 　　 ,し'/_ハ.ゝ、
PRINTL 　　 ｀'ﾄ_ﾉ'ﾄ,ﾉ"
	CASE 16
PRINTL 　　　　,ﾍ／L──- 、
PRINTL 　　　　Lﾆ)r_」=＝= ｲ
PRINTL 　　　,ﾍ、i ﾉノλﾉﾊﾉﾍ
PRINTL 　　 ,'　 ｀(ﾊﾘ ﾟ ヮﾟﾉi)　',
PRINTL 　　.i　　 >〈(つ,i!と)　　i
PRINTL 　　 vﾍγk´_/___i,ゝﾍノ
PRINTL 　　　　　 ｀ﾞr_,ｨ_ｧﾞ´
	CASE 17
PRINTL 　 　_,........,_
PRINTL 　, ´,.-=＝ ,ヽ
PRINTL 　i　(ﾉﾉλﾉ)リ
PRINTL 　ﾙｲ) ﾟ ヮﾟﾉ)
PRINTL 　 ｀,く_,｀ﾊ,ｲつ
PRINTL 　 ,(,ﾉ┐ハゝ
PRINTL 　 ｀'-i'_ｨ,ｧ"´
	CASE 18
PRINTL 　　　　　,.-､
PRINTL 　　　　 /　　＼
PRINTL 　　,､　}><{===ヽ、
PRINTL 　 〈 ＼i　ｲﾉハﾚリ/〉
PRINTL 　Σヾﾉ ﾘi ﾟ ヮﾟﾉﾘ /
PRINTL 　∠ / く/(つT(つ>
PRINTL 　　ﾚ､/,くン 〒ﾊV
PRINTL 　　　　ﾞ'ｰr_ｪ'ｧ┘
	CASE 19
PRINTL 　　　　　,.-､
PRINTL 　　　　 /;;;;;;;＼
PRINTL 　　,､　}><{===ヽ、
PRINTL 　 〈 ＼i　ｲﾒハﾚﾘ./〉
PRINTL 　Σヾﾉ ﾘi ﾟ ｰﾟﾉﾘ /
PRINTL 　∠ /,く;:'(つ:I:(つ>
PRINTL 　　ﾚ､/,く;::'::〒ﾊV
PRINTL 　　　　“’r_ｪ'ｧ“’
	CASE 20
PRINTL 　　Σ>☆､
PRINTL 　　 ,.'- ─ ｀'-､
PRINTL 　 く ,. - ─'- ､!
PRINTL 　　iﾞ ﾙﾉﾉﾊﾉノﾘ
PRINTL 　　ゝ,ゝ.ﾟ ヮﾟﾉﾘ
PRINTL 　　 ,iﾍ) ｀：´i7
PRINTL 　 　(ﾝ/｀〒´ij
PRINTL 　　 ｀ﾞ'i'_ｨ',ｧ┘
	CASE 21
PRINTL 　　　　＊､
PRINTL 　　 ,.'- ─｀'-､
PRINTL 　 く ,. - ─'-､!
PRINTL 　　iﾞ ルﾉｲﾉﾊ(
PRINTL 　　ﾊyｲﾟ ヮﾟﾉｲ
PRINTL 　　).7Y)｀：´lﾌ
PRINTL 　 　(ﾝ/｀ﾊ'ﾍ!
PRINTL 　　 ｀'-i'_ｨ,ｧ┘
	CASE 22
PRINTL 　　　 ,.⊃､
PRINTL 　　 ,.'- ─｀'-､
PRINTL 　 く ,. - ─'-､!
PRINTL 　　iﾞ ｲノﾉﾊﾉ)ﾘ
PRINTL 　　Li ﾘ.ﾟ - ﾟﾉﾘ
PRINTL 　　 ,ｲ_〉｀：´i.〉
PRINTL 　 　(ﾝ/'￣ﾞ「i
PRINTL 　　 ｀ﾞ'i'_ｨ,ｧ'┘
	CASE 23
PRINTL 　　 _,、,,........_
PRINTL 　　>,ゝ'-＝-｀.、
PRINTL 　　i　LLﾉﾊﾉﾘ」 　..::::.
PRINTL 　　|,i〈ﾘ ﾟ ヮﾟﾉ」　:::　:::
PRINTL 　　　(',_,i｀：´i,〉　.::....::
PRINTL 　　　,し'/"「ゝ,..::::::
PRINTL 　　　｀'!,ﾌi,ﾌ"´
	CASE 24
PRINTL 　 __ ,,..--─- 、_
PRINTL 　 !ヽ'r～⌒～yﾉ。
PRINTL 　 ｀Y.ルﾉハルﾉ´
PRINTL 　　 ﾊiﾘ ﾟ ヮﾟﾉﾘ
PRINTL 　　 ｀〈(つ∞(つ
PRINTL 　 ～く,/_,i,__!ゝ
PRINTL 　　'´｀ﾞ!_ﾌi_ﾌ"
	CASE 25
PRINTL 　　 o　　　o
PRINTL 　　ﾉi＾ヽ、_,ﾍ、
PRINTL 　　 / _,,,......,,,_i
PRINTL 　　γﾉﾉλﾉ）)
PRINTL 　　,ﾍ,ｎ!ﾟ ヮﾟﾉ,)
PRINTL 　 ,ゝ !,_|.|鬥)つ
PRINTL 　ζ_./　|鬥|.|ゝ
PRINTL 　　￡'r_,ｨ_,:`i
	CASE 26
PRINTL 　 __,. -=- ,、
PRINTL 　'「'_r.'´_r-、>r-、
PRINTL 　//｀Y´_>,_ﾉ<_ﾝ'、
PRINTL 　i |　r'_r',!ｲﾉ)ﾉﾝ,),
PRINTL 　ヽ>,_(..ｨﾉ!ﾟ ヮﾟﾉ)´
PRINTL 　　｀ｰ '(kOi =ikつ
PRINTL 　 　　,＜/,_|鬥|ヽ
PRINTL 　　　 ｀"-r_ｫ_ｧ-'"
	CASE 27
PRINTL 　　　　　　　,、
PRINTL 　　　　____ /_／｀
PRINTL 　　 , '　　 ´　ヽ
PRINTL 　　 i ,' ﾉﾘノﾚﾉ!〉
PRINTL 　　〈i〈i*´ヮ｀ﾉゝ
PRINTL 　　 /〈レ'.：.!(ヽ
PRINTL 　 .〈/〈,,_,,r,_,)!
PRINTL 　　 ｀´i_ﾝｲﾉ
	CASE 28
PRINTL 　　___　_
PRINTL 　 ヽo,´-'─ 、
PRINTL 　　 r, "~~~~"ヽ
PRINTL 　　 i. ,'ﾉﾚノﾚ!ﾚ〉
PRINTL 　__ '!从.ﾟ ヮﾟﾉﾙ　♪
PRINTL 　ゝﾝ〈(つY_i(つ
PRINTL 　 ｀,.く,§_,_,ゝ,
PRINTL 　　　~i_ﾝｲﾉ~´
	CASE 29
PRINTL 　　 　 ヘ
PRINTL 　　 ｲ"´￣｀'ヽ
PRINTL 　　 | i.|ﾉﾘﾊﾉﾘ〉
PRINTL 　,ﾍﾙlﾘ ﾟ ヮﾟﾉii　,
PRINTL 　ゝ,<,⊃〔i◎〕　､　　ﾊﾟｼｬ
PRINTL . 　 ｀,(./~/：ﾊ
PRINTL 　　 ｀'ｨ ｧ~ｨ ｧ´
PRINTL 　　　　T　 T
	CASE 30
PRINTL 　　　　　,r---､
PRINTL 　　　　ノヽ_興ンi
PRINTL 　　　　>=~＝~=<
PRINTL 　　　 (_i,'ﾉﾘﾉﾚﾉ!〉)
PRINTL 　　　<,〈iﾘ ﾟ ヮﾟﾉﾘ､>
PRINTL 　　　　 j"7:':；:'"_]つXE無旺〉
PRINTL 　　　 ,ｨ(ﾝ:=:ixi:=:ゝ
PRINTL 　　　　｀~ﾄ.7~ﾄ7´
	CASE 31
PRINTL 　　　　 ____r｡,
PRINTL 　　 , '´　⌒ヾﾟ')
PRINTL 　　 i （ ( ) ） ）ﾉ
PRINTL 　　（ﾊﾘ ﾟ ヮﾟﾉﾖ
PRINTL 　　 ｀(_i､'」(ﾒi)
PRINTL 　　 <_/;:ﾞ,;:':ﾞ;ヽ,
PRINTL 　　　｀`i_ﾗi_ﾗ'´
	CASE 32
PRINTL 　　　　　_r､...._
PRINTL 　 　　　ﾉ*'´⌒ヽ
PRINTL 　 　 　（（ﾊ ﾘﾉ ））
PRINTL 　 　　（ﾊ､ﾟ- ﾟ ﾊ））
PRINTL 　 　 ⊂(i+○+l ,)
PRINTL 　　　　, ´ ￣ ..ヾ)
PRINTL 　 　　 ～'ｔ_ｧ_ｧ～'
	CASE 33
PRINTL 　　　 ,◎‐◎、
PRINTL 　 _,.-'-‐‐‐‐-'､_
PRINTL 　'ｰ( ( ﾒ (^)ﾉ))-'
PRINTL 　　ﾉ_ﾊi ﾟ ヮﾟﾉゝ
PRINTL 　　　ﾉ´i(ﾖ:::i,〉
PRINTL 　　 <_/:fｫ::f):ヽ,
PRINTL 　　 ｀`'i_ﾌi_ﾌ´´
	CASE 34
PRINTL 　　 ﾄo｡l)‐-｡iｫ
PRINTL 　　,r'-=＝＝ﾌ
PRINTL 　　,"〈ﾙﾊﾉ)ﾊ〉
PRINTL 　　|　ﾘ ﾟ ヮﾟﾉ(
PRINTL 　 ,ｲﾍ{_}:那{_liつ
PRINTL 　　ゝ7U_,,ｼﾐゝ
PRINTL 　　 ｀-f_,-t,ｧ'´
	CASE 35
PRINTL 　　　　　　　__
PRINTL 　　　　 ⌒ヽ,　〉
PRINTL 　　　　,. -─V-､
PRINTL 　　　_k=ﾆﾆ}><{=!_
PRINTL 　　　｀l /ノﾉﾊﾉ) ）
PRINTL 　　　〈ハﾘ ﾟ ｰ ﾟﾉ〉
PRINTL 　　　　Kヾ'=ｪﾂl〈
PRINTL 　　　 ,(ﾝ!}::/:::l::|{）
PRINTL 　　　 ｀'ｰr_'ｫ_ｧ'
	CASE 36
PRINTL 　　　　,、
PRINTL 　　　//l_,....,_／l
PRINTL 　　　|:ﾚ´　　｀く|
PRINTL 　　 {><}ﾉﾉﾊﾉ)ﾉ）
PRINTL 　　 〈ｦ|ﾘ ﾟ ヮﾟﾉ§
PRINTL 　　 {X(*i:E`:';l]つ
PRINTL 　　　,(ﾝi_ｦ;:V:>、
PRINTL 　　　｀^'i_ﾌ'i_ｦ'´
	CASE 37
PRINTL 　　　　}ヽ、ノ{
PRINTL 　　　 }ﾌ⌒⌒ヾ{
PRINTL 　　　幺ノﾒ人ヽゝ
PRINTL 　　　彡ﾘ ﾟ ヮﾟﾉゝ
PRINTL 　　　ｿ(,_,)｀Φ,〉)つ
PRINTL 　　 (ﾊ(ﾝ´￣｀ヽ
PRINTL 　　　　｀~もi_ﾗ'"
	CASE 38
PRINTL 　　 　 _....._ﾑ
PRINTL 　 　 ,´,::=＝"¨)
PRINTL 　 　,i／())）ﾉ)､)）
PRINTL 　　(_もﾘ.ﾟ ヮﾟﾉﾘs
PRINTL 　　　 /^i､_：Θ、
PRINTL 　 　 <y/::ﾉ:::iヽ>
PRINTL 　　　｀＾ｔ_ｧ'i_ｧ＾´
	CASE 39
PRINTL 　　　　(⌒)　(⌒)
PRINTL 　　　 　,Y'´￣｀ヾ.
PRINTL 　　　　ﾉく,ﾉ ﾉﾊ ))ゝ
PRINTL 　　.　 （ﾊ> ﾟ ヮﾟﾉ>
PRINTL 　 /⌒ヽ<＿/jヽ_>
PRINTL 　ウ　　,(ｿ´ｪ ｪ ヽ)
PRINTL 　　　　 ＾＾i_ｿi_ｿ^
	CASE 40
PRINTL 　　　　　　　 r－┐
PRINTL 　　　　　,. '"´'｀'´'｀ﾞヽ
PRINTL 　　　　,;'／/ -=ｴｴ=- ',
PRINTL 　　　 L‐､,‐､ﾊ,r-‐ｰ､,‐｣
PRINTL 　 , '"´￣｀ヽ ||i　 !　l
PRINTL 　i〈,ﾉﾘﾍﾉﾉﾉ〉|| '､,_,ノ
PRINTL 　りﾘi' ﾟ ヮﾟﾉｲ||
PRINTL  ⊂}〈l::;＊;:l〉{つ
PRINTL 　 ,ｒﾟ､｡_ _ ｡ﾟヽﾋｮ
PRINTL 　 ｀'-r_ﾟｧｧ'"´
	CASE 41
PRINTL 　 ＿＿＿＿o　___,_,.ｨ
PRINTL 　　　　.o　／,.'"::::::::::::ゝ
PRINTL 　　　／( .(_,ﾉﾉﾚ.ﾉﾉﾊﾉ〉.山
PRINTL 　 ／ . o＼Ｊﾙi ﾟ ヮﾟﾉ.ﾘ　|
PRINTL 　　　／ ￣ と):::∞::::)_つ|
PRINTL 　　　　　　　<.::/_:::!」ゝゝ.|
PRINTL 　　　　　　　 ｀'!_ﾝi_ﾉ´　 .|
	CASE 42
PRINTL 　　 　　 ｨ个:
PRINTL 　　 [＞'´｀⌒ヽ7　　ｶｼｬｯ
PRINTL 　　（ ｨｿ l´ﾊハ）） ___ 　'_
PRINTL 　　ﾉｿ(,(l（ﾟ ヮﾟﾉゝ)| ﾟ|　、
PRINTL 　 (´　(,_,).｀ll´i_)つ._」!
PRINTL 　　　 (ｿ[]+_+_ヽ
PRINTL 　　　　｀'i_ﾌ_ﾌ~´
	CASE 43
PRINTL 　　　 __　　 　__
PRINTL 　　　(_ ;γ ⌒ヾ,）
PRINTL 　　 　ﾇ （ ﾉヽ ) )）
PRINTL 　　　　(ﾍﾘ!ﾟ ヮﾟﾉi
PRINTL 　 　 　 (,_) i＠i )つ
PRINTL 　 　 　 (ｦ .ﾄ_`|ヽ,
PRINTL 　　　 　`~i_ﾌi_ﾌ~
	CASE 44
		IF CFLAG:44:우후후
			IF (TEQUIP:44:0 == 0 || TEQUIP:44:상반신은만상태 == 1)
PRINTL 　　 _.. _ |ヽ......_
PRINTL 　　 ヽ__ヽ,ﾉ= ⌒ヽ
PRINTL 　　_ ノ´ﾉ ﾉ｀）ﾉ､））
PRINTL 　（　　(（（// //ﾉﾘ､
PRINTL 　 （_ ,､(__)・　・l
PRINTL 　 　 ヽ(ﾝ´ ￣ヽ)
PRINTL 　　　　/ ヽ===ﾊ、
PRINTL 　　　　￣￣￣￣
			ELSE
PRINTL 　　 _.. _ |ヽ......_
PRINTL 　　 ヽ__ヽ,ﾉ= ⌒ヽ
PRINTL 　　_ ノ´ﾉ ﾉ｀）ﾉ､））
PRINTL 　（　　(（（// //ﾉﾘ､
PRINTL 　 （_ ,､(__)〉88j )
PRINTL 　 　 ヽ(ﾝ´ ￣ヽ)
PRINTL 　　　　/ ヽ===ﾊ、
PRINTL 　　　　￣￣￣￣
			ENDIF
		ELSE
			IF (TEQUIP:44:0 == 0 || TEQUIP:44:상반신은만상태 == 1) && !FLAG:70
PRINTL 　　 _.. _ |ヽ......_　　｡☆
PRINTL 　　 ヽ__ヽ,ﾉ= ⌒ヽ
PRINTL 　　_ ノ´ﾉ ﾉ｀）ﾉ､））
PRINTL 　（　　(（（^.ヮﾟﾉﾘ､
PRINTL 　 （_ ,､(__)・　・lつ
PRINTL 　 　 ヽ(ﾝ´ ￣ヽ)
PRINTL 　　　　/ ヽ===ﾊ、
PRINTL 　　　　￣￣￣￣
			ELSEIF CFLAG:44:빡침
PRINTL 　　 _.. _ |ヽ......_
PRINTL 　　 ヽ__ヽ,ﾉ= ⌒ヽ
PRINTL 　　_ ノ´ﾉ ﾉ｀）ﾉ､））
PRINTL 　（　　(（（ ﾟへﾟﾉﾘ､
PRINTL 　 （_ ,､(__)〉88j )
PRINTL 　 　 ヽ(ﾝ´ ￣ヽ)
PRINTL 　　　　/ ヽ===ﾊ、
PRINTL 　　　　￣￣￣￣
			ELSE
PRINTL 　　 _.. _ |ヽ......_　　｡☆
PRINTL 　　 ヽ__ヽ,ﾉ= ⌒ヽ
PRINTL 　　_ ノ´ﾉ ﾉ｀）ﾉ､））
PRINTL 　（　　(（（^.ヮﾟﾉﾘ､
PRINTL 　 （_ ,､(__)〉88j )つ
PRINTL 　 　 ヽ(ﾝ´ ￣ヽ)
PRINTL 　　　　/ ヽ===ﾊ、
PRINTL 　　　　￣￣￣￣
			ENDIF
		ENDIF
	CASE 45
PRINTFORML 　　　　へ＿
PRINTFORML 　　　[＞´━｀ヽ
PRINTFORML 　　　 i　ﾘﾉﾉ)ヽ)）
PRINTFORML 　　　ﾉ.ﾘ(ﾟ!)_(!)ﾉｶ
PRINTL 　　 （((<, {∞}iつ
PRINTL 　　　｀< J ：| i
PRINTL 　 　 　 ｀し`J´
	CASE 46
PRINTL 　　,⌒,"´￣｀ヽ
PRINTL 　　| ﾉ|iﾚﾉｲ＾iﾘ〉
PRINTL 　 ﾉﾉ ﾘi .ﾟ -ﾉ|ﾘ
PRINTL 　　　r'ヽつ O)
PRINTL 　　.i〈_/ i_╋i_i
PRINTL 　　 く_,_/_┃_,〉
	CASE 47
PRINTL ﾅﾉﾃﾞｽｩ.　 _......
PRINTL 　　　　 ., ´　　 ｀ヽ
PRINTL 　　　　 i　ﾉ___ﾊ））｣
PRINTL 　　　　 Y(3.ﾟ ヮﾟﾉﾘ
PRINTL 　　　　lX(__).不j,)つ　.))
PRINTL 　　　　",(ﾝ ﾉ ヽヽ、
PRINTL 　　　　　￣i_ﾌ_ﾌ￣
PRINTL 　　　　　 ￣ ￣
	CASE 48
PRINTL 　　 　 　_＿__
PRINTL 　 　＿/＿__oO、__
PRINTL 　　￣（, （ (ﾊ）ﾉ)）￣
PRINTL 　　　ィ(|l.^ -^ﾉﾘ
PRINTL 　　 ⊂[l.ヽ∀ﾉl]⊃
PRINTL 　　　　/ ,_＿_ヽ
PRINTL 　　　　￣し'ﾉ￣
	CASE 49
PRINTL 　　　_,..,..,_,.ｨ
PRINTL 　 ,:'´, -‐ヮ､ゝ
PRINTL 　ｲ/ﾉﾊλﾉヽ〉
PRINTL 　〈|从 ﾟ - ﾟﾉ）
PRINTL 　 (,ｽ.L`\@]つ
PRINTL 　 ,(ﾝ'ーﾊ‐ヽ,
PRINTL 　 ｀^'r_'ｫ_ｧ'´
	CASE 50
PRINTL 　　く|　　　,..-──-ﾍ／i　|>
PRINTL 　＜>ヽ、 ,'y,..-=＝= y__」/<＞
PRINTL 　　＜>〈｀'γ ﾉノﾊﾉﾉハノ<＞
PRINTL 　　 .＜>ゝﾉﾙﾘ ﾟ ヮﾟﾉ!|ﾉ<＞
PRINTL 　　　　 ＜>' 〈(つyiつﾘ＞
PRINTL 　　　　　　　,く/_!__」>,
PRINTL 　　　　　 　 ｀ﾄ,ﾉ~ﾄﾉ"
	CASE 51
PRINTL 　　　　,_..＿
PRINTL 　　　ﾒ-,'　２`;_
PRINTL 　　（, ｯﾟ`ニ=へ.>
PRINTL 　　 ﾉﾒ_ﾄﾉ))ﾊ)ﾉｲ θ
PRINTL 　　 りﾘi' ﾟ ヮﾟﾉﾒ. /
PRINTL 　　　( ﾌ｀i父､ﾂつ
PRINTL 　　　,〈,_ﾉ'--i､ゝ'
PRINTL 　　　 ﾞ'ｰi_'ｫ_ｧ"
	CASE 52
PRINTL 　　　　 ,.‐-.、
PRINTL 　 ,.- ､_｀＼. ヽ
PRINTL 　ﾚｰ-､＼_ ヽ, !
PRINTL 　　　 ,ｲ｀ 　　´ヽ
PRINTL 　 　 （ﾙﾉﾚi八ゝ i
PRINTL 　　　 .|il､ﾟヮ ﾟ ｉｌ .i
PRINTL 　　　 ｾ}'i,Y_ｒﾝi │
PRINTL 　　 　 ﾚi__i_,」_,〉i'
PRINTL 　　　　　ｉ_,ﾊ_ﾉ
	CASE 53
PRINTL 　　 ,.-ｰ .、　,.-- 、
PRINTL 　　,' 　 ,ｨﾉ-ｨ ; 　 i
PRINTL 　　i　 / 　 　｀'!　 i
PRINTL 　　'r.'´ﾉﾘλﾉﾘ〉-'
PRINTL 　　 〉从!ﾟ ヮﾟﾉi( W
PRINTL 　　 '〈.(つｰ'〈iつi'::i
PRINTL 　　o/_/,,__,__,〉　V
PRINTL 　　 ｀.!_ﾝｲ,ﾉ´
	CASE 54
PRINTL 　　r,ﾍ──- ,ﾍ_
PRINTL 　 rγｰ=ｰ=ﾉ)yﾝ´
PRINTL 　 ｀i Lﾉﾉﾊﾉ」_〉
PRINTL 　　|l |i| ﾟ - ﾟﾉi|
PRINTL 　　!γﾘi.ハiﾘ,i
PRINTL 　　|,( ll」i l i_|」
PRINTL 　　└'i,_ｨ_ｧ┘
	CASE 55
PRINTL 　　　 　_,,..,,_
PRINTL 　　　,'´⌒ ⌒' ,
PRINTL 　　　i （ノノﾊ), ）
PRINTL 　　 ﾉ ,ﾘ.ﾟ ヮﾟﾉi(_
PRINTL 　 （ (,( i:::lxl::i,)つ）
PRINTL 　　)/(ｿ:::八:ヽ＼
PRINTL 　　～~'i.ﾌ'i.ﾌ｀～'
PRINTL 　 　 　￣ ￣
	CASE 56
PRINTL 　　　　　}ゝ､,_,ｒ'{
PRINTL 　　　　　),'´⌒ ^^ヽ,
PRINTL 　　　　　j ｲﾉノ人))ﾉ ｢ 7
PRINTL 　　　　 （(和ﾘﾟ ヮﾟﾉ). |/
PRINTL 　 　 　 　 /iヽ丱ﾉi_ﾛつ
PRINTL 　　 　　=(ノ_/ハヽ>=*
PRINTL 　　　　　 ｀｀i_ﾗi_ﾗ´
	CASE 57
PRINTL 　　　　　　─　 、
PRINTL 　　　　,´　　　　 ヽ
PRINTL 　　　　i < ﾉ ﾊλ) ）
IF TALENT:57:연모
PRINTL 　　　 ﾉ　ﾘ､ﾟ ー(　ﾟ －ﾟ)
ELSE
PRINTL 　　　 ﾉ　ﾘ､ﾟ －(　ﾟ －ﾟ)
ENDIF
PRINTL 　　　 ((/´j　§ i､ﾌつ
PRINTL 　　　 ｀iｯ((巫l巫))
PRINTL 　　　　　 ~i_ｦi_ｦ~
	CASE 58
PRINTL 　　 　 　 ＿
PRINTL 　　　 　'´　☆ ヽ
PRINTL 　　　/　,.'´ ￣ ヽ!
PRINTL 　　丶 　ﾉﾒﾉ ））〉
PRINTL 　　　ﾉﾉ.|i.ﾟ ヮﾟﾉ!
PRINTL 　　（(⊂ﾘi.._\_iﾘつ
PRINTL 　　　　　/＿||j
PRINTL 　　　　　｀し'ﾉ
	CASE 59
PRINTL 　 　　,.　-- 、
PRINTL 　 ,ﾍ,´,.、　 , ヽﾍ
PRINTL 　 ＾Y ﾙﾚハ)ﾉﾘ＾
PRINTL 　　/ｲﾘ ﾟ ヮﾟﾉi
PRINTL 　 ,へk_〉｀ｲ_!〉、
PRINTL 　⌒く_ﾉ/｀i´lj⌒
PRINTL 　　 ﾞ'ｰi_'ｫ_ｧ"
	CASE 60
PRINTL 　　　　　_.._.._
PRINTL 　　　,:'´ 　 ,　ヽ、
PRINTL 　　　!l ﾉノハﾉﾉ）
PRINTL 　　 〈ﾉﾊ ﾟ ヮﾟﾉ!〉
PRINTL 　　⊂[_,i,xVxl]つ
PRINTL 　　　rく_,ノｽ､>、
PRINTL 　　　｀'ﾄ,ﾌ^i_ﾗ'´
	CASE 61
PRINTL 　　　　,-へ,　 , ﾍ
PRINTL 　　　　,ヽ_,_i=/__,」
PRINTL 　　　,'　　 ｀ｰ'　ヽ
PRINTL 　　　i <〈」iﾉﾊル.!〉
PRINTL 　　　i　L>ﾟ ーﾟﾉiゝ
PRINTL 　　i>i ir^i ｀T´i'i |
PRINTL 　 .i>i　!>^i｀''´'iｲ|
PRINTL 　　 i.ﾙ'ヽr_,ｨ_ｧ'ﾚ'
	CASE 62
PRINTL 　　　　,..:::─:::.、
PRINTL 　　　,:'::::::::::-==ヽ
PRINTL 　　　i/<:L:iλ::i::」
PRINTL 　　　i::i::|i ﾟ ヮﾟﾉ:|
PRINTL 　　 .,':::r'ヽ∞ｲi::|
PRINTL 　　/:::〈_/,.-=-!〉|
PRINTL 　 〈._;;;く,、__,_、〉:|
	CASE 63
PRINTL 　　iヽ_,,.::─::.,イ
PRINTL 　　i,,ﾂ==-:::::::ヽ
PRINTL 　　i/::ﾉノ::iハ:::;ゝ
PRINTL 　　i::i::|i ﾟ ヮﾟﾉ::!
PRINTL 　 ﾉ(つヽ乂ｲ⊂)
PRINTL  .（::::::/　ﾉ:.:.:ヽﾘ
PRINTL  　　く二:.:.:.:.:.;〉
	CASE 64
PRINTL 　　　 _..._..._ ,ｨ
PRINTL 　　;'´　, ,／/、
PRINTL 　 ﾉ,)ノﾒﾉｰﾉ）)
PRINTL 　 ﾉλ ﾟ ヮﾟﾉ> r=ｧ
PRINTL 　（ｨ〈,(つ__,l]つ^´
PRINTL 　　／//,l l |
PRINTL 　　~''r_ｧr_ｧ'
	CASE 65
PRINTL . 　　　,____,,ｨへ　___
PRINTL 　　 　ヾﾂ´⌒｀ヾ'ﾞ
PRINTL 　　 　　i,ﾊ　ﾉ ） ) ）
PRINTL 　　 　　ﾘ,ノi ﾟ ヮﾟﾉi
PRINTL 　 ,ノ⌒ヽ|Y(つ旦）
PRINTL 　 ｀'ー'く_,//つつ
	CASE 66
PRINTL 　　 ,..-─,ﾍ-.、
PRINTL 　　(,.r-/_@_r-i　　 i
PRINTL 　　i　ﾉﾙﾊﾉﾘﾉﾉ　 ﾉ|
PRINTL 　　ﾙl.ﾘ_ﾟ ヮﾟﾉﾘ　(_,ﾉ
PRINTL 　　 rX,_,i.∞i,〉
PRINTL 　　 <_/_,§!|〉
PRINTL 　　 ｀'-r_,ｨ_ｧ'
	CASE 67
IF DAY:3 == 15 && TIME:2 >= 5 && TIME:2 <= 7
	PRINTL 　　 ,ﾍ,_. -─ r,ﾍ,
	PRINTL 　　 ヽ,ﾆ)　　　ヽﾒ!
	PRINTL 　　　 i. ,'ﾉノ ))) 〉
	PRINTL 　　　 | ii ﾟ ∀ﾟﾉ|.!
	PRINTL 　　　 ||kﾘ,_\_ﾘiつ
	PRINTL 　 _,,.-!k'J,、,、>、
	PRINTL 　´⌒ '"i,ﾝｲﾉ~｀
ELSE
	PRINTL 　　 ｀、r｀=Y
	PRINTL 　　 , ' ｀ｰ '´ヽ
	PRINTL 　　 i. ,'ﾉノ ))) 〉
	PRINTL 　　 | ii ﾟ - ﾟﾉ|.!
	PRINTL 　　 ||kﾘ,_\_ﾘi
	PRINTL 　　 !k'J,、,、>、
	PRINTL 　　´'"i,ﾝｲﾉ
ENDIF

	CASE 68
PRINTL 　　　､ - _- ､　___
PRINTL 　　/ 〆~~~, '"　　｀ヽ,
PRINTL 　 l ﾉ.　 ､　!ﾉ)ﾉ)λﾉ)).
PRINTL 　 || 　　　ﾒ从i ﾟ - ﾟﾘi
PRINTL 　　ヽ.＿＿.(Oi#lﾑliづ
PRINTL 　　　 ~~~~ <#/i#i#iゝ
PRINTL 　　　　　　　''i_ﾝ_ﾝ"
	CASE 69
PRINTL 　 　　　　 /| __ /|
PRINTL .　　　　 , ´てnﾌ ヽ
PRINTL 　　　 　j （( ,ﾊﾊﾉﾉ
PRINTL .　　/´.（ﾊ))ﾟo_oﾟﾉ)
PRINTL 　　{＝-＜__i Ｈi_,>つ=ｧ
PRINTL 　　 '､==(ﾝ'ゝ--'ヽ.（酒）
PRINTL 　　　 `ｰ[]'ｒ_ｧ'ｒ_ｧ'
	CASE 70
PRINTL 　 　 ,...　　　,..
PRINTL 　 　(Q⌒⌒ヽ）
PRINTL 　　 ﾉﾊﾉﾊﾉﾊ )
PRINTL 　　(ｲ,ゝﾟ ヮﾟﾉﾊ
PRINTL 　 　/＃|益|＃ﾌつ
PRINTL 　 　て人,,,,,,)ヽ
PRINTL 　　　~~i_ﾌ_ﾌ~´
	CASE 71
PRINTL 　　　 ,---、
PRINTL 　　., ´::::::::::｀ 、
PRINTL 　 /＿＿＿＿ヽ
PRINTL 　　i　ﾉﾉﾉﾉﾉﾉ)
PRINTL 　　',(ﾘi ﾟ ヮﾟﾉﾘ
PRINTL  　　 ,´i .ｿ .j,〈つ
PRINTL 　　〈_,ﾉ二ﾆi｀
PRINTL 　　　　i_ｿ_ｿ
	CASE 72
PRINTL 　　 　 ,,....,,,__
PRINTL 　　 l´〈╋〉　`!
PRINTL . 　　>-─--.,'ヽ
PRINTL 　　〈.ｲﾙ^ﾚﾂｸ,ｲ
PRINTL .　 　ﾘ､ﾟヮ ﾟﾉiﾉｽ
PRINTL 　 と(〈｀\::::(｀).ｙﾘ
PRINTL .　　　i'::T ｀.Ui､（
PRINTL .　 　└t_t,_r┘ソ
	CASE 73
PRINTL 　　　　i｀--,,.. -- .、--'i
PRINTL 　　　　ヽ,´　　　　 ｀, ノ
PRINTL ..　　　＜i　.ﾚﾉﾉノﾉﾉ)＞
PRINTL 　　　　　ﾚ--.ﾟ--ﾟ- j
PRINTL 　　　　　＼　：三：/
PRINTL 　　　　　, く::::__ﾊ__iつ
PRINTL 　　　　.<_<_/::/::i:::i__>
PRINTL 　　　　　　ｰr_,t_ｧ'.
	CASE 74
PRINTL 　　 ∧,.-─- 、
PRINTL 　　 i_,.＞～～ヽ
PRINTL 　 　 r) (ﾉλﾉ) (
PRINTL 　　　(ｲ!) ﾟ ヮﾟﾉ)´
PRINTL 　　 　,r´i_｀Y'i〉
PRINTL 　 　〈〈,_ハﾊﾊ,〉
PRINTL 　　　 ｀'i,_ﾌi_ﾌﾞ
	CASE 75
PRINTL 　　　　　　[ >o<]ノi
PRINTL 　　　 　,.'",=" "=｀く,　 ,l><l､
PRINTL 　　 　 γ/((ﾉﾉλﾉ))　(i;_;.)l)
PRINTL 　　　　(ｲ(iﾘ ﾟ - ﾟﾉ(,　 cryっﾌ
PRINTL 　　　　　〈:(つﾈ'(つ　　/,_,_>,
PRINTL 　　　　　ｒ',_ _ _：_ヽ､.　　''"''"
PRINTL 　　　　　｀''i_ﾝ_ﾝ"´
	CASE 76
PRINTL 　　 ｯ-ﾍ｡＿_｡ﾍ 　　　 /ー- 、
PRINTL 　　 ﾚ, '´ﾟ　　 ｀,〉.　　 /==ヽ　i
PRINTL 　　　i　ﾊ)))ﾊ))ﾉ)　　/　　　.）ﾉ
PRINTL 　 　 ｲｵi ﾟ ヮﾟﾉﾍ 　/　　　 （(
PRINTL 　　　 ,ぐ｀i盃､ﾂつ'
PRINTL 　　　,メ∪ｲ-i､ゝ/
PRINTL 　　　 ﾞ'ｰi_'ｫ_ｧ"/
	CASE 77
PRINTL 　　　　_,...>Xrx
PRINTL 　　 ,ﾉ´　⌒~^ヽ
PRINTL 　　（ﾉ(（ ﾉノﾊﾉ)
PRINTL 　　（ﾊﾉ_ﾟ ヮﾟﾉl )
PRINTL 　　　/Y_｀Y‐l,〉
PRINTL 　　 (ﾝ'´''￣｀ヽ,
PRINTL 　　　~^.i_ｿi_ｿ^~
	CASE 78
PRINTL 　　　 　　 ___ _ y
PRINTL 　 　 　 ,,´cw､o8ﾟ､､
PRINTL 　　　 （_!´iノﾉﾊ)））"
PRINTL 　　　　 （(( ﾟ ヮﾟﾉゝ
PRINTL 　　　　　(_,|l全lj,)
PRINTL 　 　 　 ,<_ﾉ,; ; ;ヽ>
PRINTL 　　　　｀ーi.ﾗi.ﾗ‐''
	CASE 79
PRINTL 　　　 _,.ﾋXﾅ,、
PRINTL 　　 ,'´/~⌒^ヽ
PRINTL 　　（ ll（ ﾉﾊﾉ) )
PRINTL 　　 （ﾘ( ﾟ - ﾟﾉ)
PRINTL 　　　(,,〉,>()<i,)
PRINTL 　　 (ﾝ'´ﾊW@ヽ
PRINTL 　　　｀゛i_ﾂi_ﾂ"´
	CASE 80
PRINTL 　　　　　　_......_
PRINTL 　　　　 , ´　 <＊y　♪
PRINTL 　　　　 i,（i ﾉﾉﾊ）_）
PRINTL 　　　　ﾉ_iﾊﾟ ヮﾟﾉﾊ
PRINTL 　　　 　 ,´i'_ｿﾉj,〈つ　))
PRINTL 　　　　〈_,ﾉ＾＾＾ヽ.´
PRINTL 　　　　 .＾＾i_ｿ_ｿ^´
PRINTL 　　　　 ￣￣ ￣
	CASE 81
PRINTL 　　 ,. -── ､
PRINTL 　 _,l_-==＝=､!,_
PRINTL 　　'r.'ﾚﾉﾉハﾉ)〉
PRINTL 　　〈ﾊ.i ﾟ ｰ ﾟﾉﾘ
PRINTL 　　 .〈ﾝi.｀ﾄ|´ﾘj
PRINTL 　 　 .k:/:::::;i::|´
PRINTL 　　　ﾞ-i'_,ｨ,ｧ"
	CASE 82
PRINTL 　 　 ,.. -─- ､
PRINTL 　 ,〈　､,.､,-､,.ﾝ､
PRINTL 　 ｀iﾞ〈ﾉﾝﾊﾉｲ)ﾉ
PRINTL 　　〈ｲﾊ ﾟ ヮﾟﾉ)
PRINTL 　　 ﾞY､〉｀：´i.〉
PRINTL 　 　 (ﾝ'/~i~ﾊj
PRINTL 　　 ｀'-i'_ｨ,ｧ"´
	CASE 83
PRINTL 　　　／´￣｀ヽ,
PRINTL 　 　 !__｡ _....._｡｣_
PRINTL 　　l´ﾟｨ'´ 　　｀ヽ`';
PRINTL 　 〈　（ ﾉノ ﾊ )ﾉ） |
PRINTL 　　ヽﾉ､ﾘ ﾟ ヮﾟﾉﾘノ
PRINTL 　　　|{>|二l二ｌ]
PRINTL 　　　L.｣＿|___|｣
PRINTL 　　__ ＿ ＿　＿
	CASE 84
PRINTL 　　 r､,.--､ ,ｨ
PRINTL 　　〈 _,＞‐く_〉
PRINTL 　　i´（ノﾉﾊλ）
PRINTL 　 （ ﾚ｣ ﾟ ヮﾟﾉ｣
PRINTL 　　 Y´i｀：：'ﾄつ
PRINTL 　　（[ﾌミ爻ｼ）
PRINTL 　　 `'r_ｧｨ_ｧ'´
	CASE 85
PRINTL 　　　　　　　　　　　　　 　　～⌒ ､,
PRINTL 　 　 　 ,. -―-､　　　　～" レ-- ､ ヽ,
PRINTL 　　　 /::;;i::::::::::::i!　　　　r ｫ＼ ＝/; r'
PRINTL 　　　i::::仏'―-ｲ｝　　　　;ゝ'､ ﾟ'点ﾟ'.〉;:）
PRINTL 　 　 i:::::!ｌ ﾟ ｰﾟﾉ'ｌ 　　　　,ハ､.´,.＾_｀:;ノ
PRINTL 　 　/::r^i`＝イつ○　　　　 ｀￣　~
PRINTL 　　　,.(ﾝｲ,ｫ_仆、
PRINTL 　　　｀^'ｔ_ｧ'i_ｧ´
	CASE 86
PRINTL 　　　　/必-，
PRINTL 　 　　<_ノイ⌒ヽ.,(Ｏ)
PRINTL 　　 　 i （ ( ﾉノ),ﾊ <
PRINTL 　　7ﾄ ゝ)ﾘﾟ ヮﾟﾉﾘ'＼>
PRINTL 　 〈 ヽ_(,_,iヽYｲ(つ==(ｰ)
PRINTL .　　＼_(ノ___Ｙ_∨
PRINTL 　　 　　 ｀l_ﾌl_ﾌ´
	CASE 87
PRINTL 　　　 ,　-―- .､　 ∧
PRINTL . 　,.'", =nd)(bn、> )(
PRINTL 　,'　/_ゝ´ﾟ⌒ﾟ｀ゝ、'||
PRINTL 　i　{..彳(ﾉハヽﾊ)ゝ||
PRINTL 　∨ヽ从ﾊﾟ ヮﾟﾉ( ノ||
PRINTL 　　`＜/^i｀虫'l^ ﾌ)||
PRINTL 　　　 ん/ｰ^-ヽ丿 ||
PRINTL 　　　　 `r_ｧr_ｧ'　　||
	CASE 88
PRINTL 　　　　　 ___
PRINTL 　　　, ‐',⌒⌒ヽ:.、
PRINTL 　　ノ,,,ノノﾉλ),）,,)
PRINTL 　　　（(rﾊﾟ ヮﾟﾉ,) ||
PRINTL 　　 　 /^i :lY/}つ||
PRINTL 　　　　｀/_:l,|_l_', ,.iﾄ、
PRINTL 　 　　　｀i_ﾗi_ﾗ''/li|iﾊ
	CASE 89
PRINTL 　　　　,. -☆- 、
PRINTL 　　　（_,ｨ＜二ス
PRINTL 　 　　i ﾉﾊﾉ圀ﾉ))
PRINTL 　　　（ﾊﾊﾟ ヮﾟﾉﾊ
PRINTL 　　　　 (^iつ_})つ
PRINTL 　　　　/:::乂::ﾊ
PRINTL 　　　　`'i_ﾃi_ﾃ'
	CASE 90
PRINTL 　　　　(⌒Y⌒)
PRINTL 　　 (》-'⌒⌒ヽ-
PRINTL 　　　ﾟﾟﾉノ,ﾉλ),,）
PRINTL 　　　（(,,ﾊﾟ ヮﾟﾉ,,)
PRINTL 　　 　 <^Ll｡Liつ
PRINTL 　 　 　(ｿ_,,,_,,_,)
PRINTL 　　　　　ﾋﾉﾋﾉ
	CASE 91
PRINTL 　　　　　　,ｒ‐､
PRINTL 　　　 　 ヽ|コl|2
PRINTL .　　 　 , '´.`ｰ''｀ヽ
PRINTL 　　 　 ,!(ﾉメﾉハ)）
PRINTL 　　　 （ﾊrﾘﾟ ｰ.ﾟﾉﾊ
PRINTL  　 　 汀};;:i::爻:i:::{勿
PRINTL 　　 　 　 ,':::::::::ﾊ
PRINTL 　　　　 <品呂品〉
PRINTL 　　　　　　)_ﾒ､)
	CASE 92
PRINTL 　　　　 __
PRINTL 　　　　i_,xヽ
PRINTL 　　＞ﾉ_メ､i
PRINTL 　γ',ゝ｀´｀´ヽ
PRINTL 　 | （ ﾉメノﾘ)ﾉ）
PRINTL 　ﾉ ﾊﾊ)ﾟ ヮﾟﾉﾊ
PRINTL 　ﾍｼ ,ﾍ.i｀：'」つ
PRINTL 　＞く_,/___i::ﾊ>
PRINTL 　　 ～ﾋｦ~ﾋｦ～
	CASE 93
PRINTL 　　 　 _.._.._
PRINTL 　　 , ´;;;;;;;;;;ヽ　　　o
PRINTL 　　 iY (((）))））
PRINTL 　　ﾑｦi.ﾟ ヮﾟﾉｧ　 ｡ ﾟ
PRINTL 　 　 ﾂsi%=ﾖﾞ_》　))
PRINTL 　　 ムﾉ~≫ヽ、
PRINTL 　　　'^～ｲ"ｿ^'
PRINTL 　　　　　&'_S､
	CASE 94
PRINTL 　　　 _,.......,_
PRINTL 　　多　　　 ヽ
PRINTL 　ノﾉﾉ,,ノ)ﾉ)ヽ )
PRINTL 　　,ゞ,i ﾟ ヮﾟﾉ )
PRINTL 　ノノ( iﾝ弁くl_{つ
PRINTL 　　 ,(ｿ:　::　:ヽ.
PRINTL 　　 ｀^.i_ﾂi_ﾂ^´
	CASE 95
PRINTL 　　　_,........,_
PRINTL 　　'　 ,ヶzz､ヽ
PRINTL 　 i　ノﾉﾉ八ﾘﾉ）
PRINTL 　丶Cﾘ ﾟ ヮﾟﾉ)
PRINTL 　　.rf j ｀kj´iklつ
PRINTL 　 ,ミ(ｿﾐ彡ﾐ彡､
PRINTL 　　｀~^i_ｿi_ｿ^~
	CASE 96
PRINTL 　　　　___
PRINTL 　　, '"　　｀ヽ,
PRINTL 　　!.))ﾉλﾉﾉ,)
PRINTL 　　).ゝ ﾟ ヮﾟﾉ(
PRINTL 　　 / .l .ﾄ| liつ
PRINTL 　　(ﾝ'___Ｙ__i
PRINTL 　 〔〕-l_ﾌl_ﾌ-〔〕
	CASE 97
PRINTL 　　　　_,..,..,_,._
PRINTL 　　 ,:' A　　A ゝ
PRINTL 　 .彳.ﾉﾊλﾉヽゝ
PRINTL 　　<.从 ﾟ ヮﾟﾉ）
PRINTL 　　 〈_t__iWi__iつ
PRINTL 　　 ,(ﾝ'WWWヽ,
PRINTL 　　 ｀^'r_'ｫ_ｧ'´
	CASE 98
PRINTL 　　____ ,.....,　__
PRINTL 　 ^>､_｀>n'´ノ~
PRINTL 　　!i´ﾉノﾊλ）
PRINTL 　 （ﾉY ﾟ ヮﾟﾉｿ
PRINTL 　 （y(_iﾌi：ﾄ!〉
PRINTL 　　 ,(ﾝ;(ﾒ)':::i
PRINTL 　　 `'r_ｧｨ_ｧ'
	CASE 99
PRINTL 　　　　 _, -‐-､_
PRINTL 　　　 (´,～～iXi,)
PRINTL 　　　　i （ノノﾘ､)）
PRINTL 　　　 ﾉ ((.ﾟ ヮﾟﾉi(
PRINTL 　　　（( ( i,<：ｿi,)　ﾟ　｡
PRINTL 　　 ､_),,(ｿ'＾i：◎)
PRINTL 　　　　｀｀'i.ﾌ'i.ﾌ｀
PRINTL 　　 　 　 ￣ ￣
	CASE 100
PRINTL 　　　 __ _....._ _
PRINTL 　　 i´,ｨ｀ 　 ｀ヾ':,
PRINTL 　　ﾉ i　 ノ)ﾉヽ,） !
PRINTL 　 （_ﾉvｲ ﾟ ヮﾟﾉi_ﾉ
PRINTL 　　　　;':i:::'：::!〉
PRINTL 　　　c(ﾝ'/ ﾊヽ,
PRINTL 　　　 ｀^i_ﾌi_ﾌ´
	CASE 101
PRINTL 　　　　　　＿ .,-''ﾌ
PRINTL 　　 　 r,'´. , 、'ヾ,
PRINTL 　　 　ｲl ﾘ人ﾘλ〉
PRINTL 　　　_|从ﾘﾟ ヮﾟﾉﾘ_
PRINTL 　　　ゞ,,(O,YO)>ゝ'
PRINTL 　　　　 ,く从_.ｲ>,
PRINTL 　　　　 ｀!,ﾝ''i,ﾉ
	CASE 102
PRINTL 　　　　　　　, -､
PRINTL 　　 ,.　---oo　ﾉ
PRINTL 　 ,'　,　　 　ヽ,
PRINTL 　 i　ﾙﾉノﾊﾉ)ﾉ
PRINTL 　 | .l | ﾟ ヮﾟﾉ!|
PRINTL 　 | ,く_７不rﾚつ
PRINTL 　 Yン/　 ハ!´
PRINTL 　　く/_,.イ_､」
	CASE 103
PRINTL 　　 　 ,ｨ^i^!ｭ
PRINTL 　　　, ﾚ ⌒ ヽ
PRINTL 　　 ﾉ ﾒ ノ　）〉)
PRINTL 　 　 ｿﾉ；ﾟ ヮﾟﾉ(
PRINTL 　　(〈⊂〈{H}〉つ
PRINTL 　　　 / 《,_,_》i
PRINTL 　　　 ｀~し'ﾉ~
	CASE 104
PRINTL 　　　　　＿
PRINTL 　　　√=lＸlヽ
PRINTL 　　,r´- = ＝ ‐､
PRINTL 　（_,i ﾉﾉ((ﾊ)))）_）
PRINTL 　　ｲﾊj ﾟ ヮﾟﾉiﾄ
PRINTL 　　〈ﾝ(_)父'〉)つ
PRINTL 　　<,ｨＪ:_;:_;:>
PRINTL 　 　 ｀!_ﾝi_ﾉ´
	CASE 105
PRINTL 　　　　　「＾ヽry'＾i_
PRINTL 　　　　.く, "´⌒｀ヽ,'
PRINTL 　　　　　i ｲﾉ)ﾊﾉ)ﾉ)
PRINTL 　　（｀＼ﾙ,) ﾟ - ﾟﾉ)ノ´）
PRINTL 　　　(｀ _(,_,i_｀8´i(つ´)
PRINTL 　　　 ｀´(ﾝ/_,_,ﾊ_ゝ ｀
PRINTL 　　　　　｀''i_ﾝ_ﾝ"´
	CASE 106
PRINTL 　　 ,. -── ､
PRINTL 　 _,l_-==＝=､!,__
PRINTL 　　'r.'ﾚﾉﾉハﾉ)
PRINTL 　 ＜ﾊi'‐'ﾆ'‐'ﾉゝ
PRINTL 　　 //.i｀：：´ﾘjヽ
PRINTL 　　/(ﾝ:/:::::;i::',|　ヽ
PRINTL 　 ～～i'_,ｨ,ｧ"～'´
	CASE 107
PRINTL 　丶 /⌒ヽ,.-.、
PRINTL 　　./　　 .ミ／　_,..-、
PRINTL 　 /,,;;::Χi /__／,..--,i
PRINTL 　(__／, ' ｀　　´ヽ、
PRINTL 　　　 ,i　ノﾉﾙﾉﾘﾙ'
PRINTL 　　C(_乂_ゞﾟ ヮﾟﾉ)
PRINTL 　　　　 （,.,）,,`',,jiつ
PRINTL 　　　　,<Ｕc☆cゝ,＼
PRINTL 　　　　ﾟ｀ﾟ'i_ｦi_ｦﾟ´ﾟ
	CASE 108
PRINTL 　　　, -─- 、
PRINTL 　　（_,ｨ＜二ス
PRINTL 　　ﾉ i,ﾉﾉﾉﾉハヽ、
PRINTL 　 〈_ﾉﾘi' ﾟ ヮﾟﾉi_ﾉ
PRINTL 　　　 〈(つﾆ.!(つ
PRINTL 　　 　〈,,_,,r,_,)!
PRINTL 　　 　　i_ﾝｲﾉ
	CASE 109
PRINTL 　　　　　　 ___
PRINTL 　　　　 , ´　　 ｀ヽ,､,
PRINTL 　　　　,　ﾉﾞ^^^^⌒ヽ
PRINTL 　 　　０´', ﾚﾚ人ルﾉ
PRINTL 　　　　　 ヽ!ﾟ ーﾟﾉ!
PRINTL 　　　　　 (。) 。。〉)つ○
PRINTL 　　　　　 (ﾝ┐∴ヽ
PRINTL 　　　　　 ｀~もi_ﾗ'"
	CASE 110
PRINTL 　　　,　⌒⌒ヽ
PRINTL 　　 （,, ﾉﾉﾘｲﾊ,ゝ
PRINTL 　　 (,,Cﾘﾟξ|ﾟﾉ)
PRINTL 　　彡,i´ii　＼_)
PRINTL 　　　<∪ﾑﾑﾑ>
PRINTL 　　　　 i_ｦi_ｦ
	CASE 111
PRINTL 　　　　　 ,○.
PRINTL 　 　 ,－/ (._,)ヽ-
PRINTL 　　 ( ,/(,_,_,ソ_,_)、)
PRINTL 　　 ○/(,,ﾉﾘﾘﾊ) ○ ※
PRINTL 　　　 ( C'.ﾟ ヮﾟﾉj
PRINTL 　　　 )f｀j^个^i´jつ
PRINTL 　　 <,/∪ミl☆,ゝ
PRINTL 　　　　 ｀tﾌ~tｦ
	CASE 112
PRINTL 　　　 ／　⌒ ヽ、
PRINTL 　　§＼,へへ /§
PRINTL 　　Φﾉ<ﾉﾘﾉﾘﾘ>Φ
PRINTL 　　　( C'.ﾟ ヮﾟﾉヽ
PRINTL 　　丿/´l._英_l｀7つ
PRINTL 　　(,,<_ﾉ巡巛j ,ゝ
PRINTL 　　　　ん,_,_,_,_,ゝ
	CASE 113
PRINTL 　　　 , --- 、
PRINTL 　　　/;;;;;;;;;;;;',
PRINTL 　　　i二二二i
PRINTL 　　, '　　　　　ヽ
PRINTL 　　i　ﾉﾉﾉﾉﾉﾍ .',
PRINTL 　　〉ﾘi' ﾟ ヮﾟﾉﾚく
PRINTL ○⊂}〈lﾄ--ｲl〉{つ●
PRINTL 　　 ,ｒ/ー i-ヽヽ
PRINTL 　　　｀｀i_ﾗi_ﾗ´
ENDSELECT
SETFONT

@エロAA(ARG)
SETFONT "ＭＳ Pゴシック"
SELECTCASE ARG
	CASE 1
PRINTL 　　 　 　 　 ____　　　　　　,　---- ､
PRINTL 　　　　., '"´　　｀`' - `¨´　　　　　　゛' ,
PRINTL 　　 , '": : : : : : : : : : : : : : : : : : : : : : : : :',.
PRINTL 　 /: : : :＿＿＿＿＿, --'ﾞ´`- ､ : : : : : }, - ､
PRINTL 　 {: : :,'., '"￣￣￣゛'─-- ､___ノ : : : : ノ : : :ヽ　　　　　 .}　　 .ヽ　　　／　　　　　/
PRINTL 　 {: : :}.{: : : : : : : :__: : : : : : : : : : : , -'ﾞ: :,u､ : : : :` :--- <__＿＿,,>-＜, -- :-─-<__, --
PRINTL 　 {: : :'､ヽ､: :--:'ﾞ:´　｀゛ヾ¨ニ二二´, -'"´:::::ヽ､ノv:.: : : : : : : : : : : : : : : : : :､m,;,; : : : : : :
PRINTL 　 l : : : :ヽﾆ゛'--- ,＿乂,r'´:::::::´:::::::::::::::::::::::::::::::::::｀Y`-- ''`´⌒゛)`^'''''─` ¨ ´^',r''‐-‐
PRINTL 　 { : : : : : : :￣￣￣ヽ /:::::::::::::::::::::::::::::::::::::::::::::::::::::,'　　　　　 _,,ノ（＿＿
PRINTL 　 { : : : : : : : : : : : : : }.l.:::::::::::::::::::::::::::::::::::::::::::::::::, 'ﾞ　　 -=＝'ﾞ´￣￣¨ -､`＝-､_ノ
PRINTL 　 乂: : : : : : :､ ,___:ノ .'､::::::::::::::::::::::::::::::::::::::::::., ´　　　　　　　　　　　　　 ￣￣｀`ヽ
PRINTL 　　　.￣￣￣　　　ヾﾞ⌒＼::::::::::::::::::::::::::::_,　'　　　　　　　　　　　　　 ＿
PRINTL 　　　　　　　 　 　 　 ＞､: :＞､ _:::::::::, ＜　　　　　　　　　　　　　　　ﾌ , ｀`
PRINTL 　　　　 　 　 　 , - '"　　＞ ,: :ﾞ'＜- ,__　　　　　　　　　　　　　　　'ﾞ´-'ﾞ　　　::::::::::::::::
PRINTL 　　　　　　 　 　 　 , - '" 　　゛' -- ､: :゛-､, -ｭ__､,_ 　　　　　　　　　　　____;:;:;___;:;:;:;:;:;
PRINTL 　　　　　　　　　　　　　　　　 　 　 　 ゛>─-- ､ : : :ﾞ'`^゛'`゛' `¨`゛'`⌒ﾞ'`.:.:.:｀´.:.:.:＼;:;:;
PRINTW 　　　　　　　　　　　　　 　 　 　 　 　／　　　　　　￣￣￣＞---────ｭ: : : : : :＼
	CASE 2
PRINTL 　　　　　　　　　　 ．　　　　　　 ， … ．　　　 　 　 　 　 　 　 　 　 j――‐ｧ 「:|「:|
PRINTL .　　　　　　 　 ･ ’____’・ ，．･ ’.,　---- ､’．　　　　　　　　　　　　└‐ｧ:::::/ .L:!L:!　,.-.､
PRINTL .　　　　　 ，’, '"´　　｀`' - `¨´　　　　　　゛' ,’．　 　 　 　 　 　 　 　 /:::::〈　r――‐{::0::}
PRINTL .　 　 　 ･ , '": : : : : : : : : : : : : : : : : : : : : : : : :', ；　　　 　 　 　 　 　 /__∧__V―‐ｧ::/`ー'
PRINTL 　　　　；./: : : :＿＿＿＿＿, --'ﾞ´`- ､ : : : : : }, - ､ 　　　 　 　 　 　 　 　 　 　 /::/　ﾛﾛ/7
PRINTL .　　　　；{: : :,'., '"￣￣￣゛'─-- ､___ノ : : : : ノ : : :ヽ　　　　　 .}　　 .ヽ　　　／/_/　　／/＿__
PRINTL 　　　　；.{: : :}.{: : : : : : : :__: : : : : : : : : : : , -'ﾞ: :,从 : : : :` :--- <__＿＿,,>-＜, -- :-─￣__, --
PRINTL .　　　　；{: : :'､ヽ､: :--:'ﾞ:´　｀゛ヾ¨ニ二二´, -'"´::¨:三＝-.: : : : : : : : : : : : : : : __＿＿_, -'"´::¨:三＝-　　二二ﾆﾆ＝-
PRINTL 　　　　；l : : : :ヽﾆ゛'--- ,＿从,r'´:::::::´:::::::::::::::::::::::::::::::::::｀Y`--三＝-: : : : :,r'´:::::::´:::::::::::::::::::::::::::::::::::｀Y`--三＝-
PRINTL 　　　 ；.{ : : : : : : :￣￣￣ヽ /:::::::::::::::::::::::::::::::::::::::::::::::::::::,'　　　　──: : : /:::::::::::::::::::::::::::::::::::::::::::::::::::::,'
PRINTL 　　　　；{ : : : : : : : : : : : : : }.l.:::::::::::::::::::::::::::::::::::::::::::::::::三＝-　　　　　: : : l.:::::::::::::::::::::::::::::::::::::::::::::::::三＝-
PRINTL 　　　　　乂: : : : : : :､ ,___:ノ .'､::::::::::::::::::::::::::::::::::::::::::., ´　　　＝＝-　　: : : '､::::::::::::::::::::::::::::::::::::::::::., ´
PRINTL 　＿＿＿_. ￣￣￣　）　ヾﾞ⌒＼::::::::::::::::::::::::::::三＝-　　　──── : : : : ＼::::::::::::::::::::::::::::三＝-
PRINTL .「::::::::::::::::/　 　 　 ／´Y　.＞､: :＞､ _:::::::::, ＜　　　二二ニニ＝　　　: : : : : : :＞､ _:::::::::, ＜　　　二二ニニ＝
PRINTL 　￣ ７::::::|「:|「:|　　　　/⌒ヽ　＞ ,: :ﾞ'＜- ,__　　　　　　　　　　　　　　: : : : : : : : : : : ﾞ'＜- ,__:
PRINTL 　 　/::/|:::|LjLj　　　 /::０::/　　 /7゛' -- ､: :゛-､, -ｭ__､,_ 　　　　　　　: : : : : : ____;:;:;___;:: : : : : ゛-､, -ｭ__､,_
PRINTL 　 /:::/　|:::|「￣￣￣∧__/.　　 //　　　　　 ゛>─-- ､ : : :ﾞ'`^゛'`゛' `¨`゛'`⌒ﾞ'`.:.:.:｀´.:.:.:＼;:;:;
PRINTL . /:::/ 　 |_」￣￣/::/　ﾛﾛ/7　〈/　　 　 　 ／　　　　　　　 　 　 ￣￣￣＞---────ｭ: : : : : :＼
PRINTL . ￣ 　 　 　 　 /_:/ 　 ／/　〈〉
PRINTW 　　　　　　　　　 　 　 ￣
	CASE 3
PRINTL 　　　　　　　　　　____　　　　　　,　---- ､　　　　　　　　　|　 | |
PRINTL 　　　　　　　 , '"´　　｀`' - `¨´　　　　　　゛' ,　　　　　　　|─‐ 　 ─‐ァ ○
PRINTL 　　　　　 ., '": : : : : : : : : : : : : : : : : : : : : : : : :',.　　　　　　|　　　　　　/
PRINTL 　　　　　/: : : :＿＿＿＿＿, --'ﾞ´`- ､ : : : : : }, - ､　　　　　　 　 ..／
PRINTL 　　　　　{: : :,'., '"￣￣￣゛'─-- ､___ノ : : : : ノ : : :ヽ　　　　　 .}　　 .ヽ　　　／　　　　　/
PRINTL 　　　　　{: : :}.{: : : : : : : :__: : : : : : : : : : : , -'ﾞ: :,u､ : : : :` :--- <__＿＿,,>-＜, -- :-─-<__, --
PRINTL 　　　　　{: : :'､ヽ､: :--:'ﾞ:´　｀゛ヾ¨ニ二二´, -'"´'､::ヽ､ノv:.: : : : : : : : : : : : : : : : : :､m,;,; : : : : : :
PRINTL 　　　　 .l : : : :ヽﾆ゛'--- ,＿乂,r'´　　´ ., -'ﾞ´ヽ):::::::::::::::::::｀Y`-- ''`´⌒゛)`^'''''─` ¨ ´^',r''‐-‐
PRINTL 　　　　 { : : : : : : :￣￣￣ヽ /　　つ　, ニﾆ==ﾆニ'ﾞ⌒`っ, ' 　　　　 _,,ノ（＿＿
PRINTL 　　　　 .{ : : : : : : : : : : : : : }.l. 　　　　っ::::::::::::::::::::::｀ゝ　　 ｀ヽ -=＝'ﾞ´￣￣¨ -､`＝-､_ノ
PRINTL 　　　　　乂: : : : : : :､ ,___:ノ .'､　　　　｀ﾆつ:::::::::r(⌒´　)ヽ､　　ヽ　　　　　　　　 ￣￣｀`ヽ
PRINTL 　　　　　　 ￣￣￣　　　ヾﾞ⌒＼:　ヾヽ､ ヽ､__ノ　　3 （　　）　　 つ 　　　　 　 ＿
PRINTL 　　　|　 | |　　　　　　　　　＞､: :＞､ ｀`- ､｀`)　　　　 ｀`'´　(¨ヽ､)　　　　　　ﾌ , ｀`
PRINTL 　　　|─‐　　　　　　　, - '"　　＞ ,: :ﾞ'＜- ,_`'ﾞ　つ　　　　 , 二ニﾆ -っ　　　'ﾞ´-'ﾞ　　::::::::::::::::
PRINTL 　　　|　　─‐ァ ○　　　　, - '" 　　゛' -- ､: :゛-､, -ｭ__､,_ ⊃　　　　￣　　　　　____;:;:;___;:;:;:;:;:;
PRINTL 　　　　　　　 /　　　　　　　　　　　　　　　　゛>─-- ､ : : :ﾞ'`^゛'`゛' `¨`゛'`⌒ﾞ'`.:.:.:｀´.:.:.:＼;:;:;
PRINTW 　　　　　　／　　　　　　　　　　　　　　　　.／　　　　　　￣￣￣＞---────ｭ: : : : : :＼
	CASE 4
PRINTL 　　　　　　　　　　, ----────----: ､　　　　　　 .|　 | |
PRINTL 　　　　　　　 , '"´＿＿＿＿＿＿__: : :　: : ｀ヽ　　　　　|─‐　　 ─‐ァ ○
PRINTL 　　　　　 ., '":, '" ,ノ⌒つ o.ι-､　cヽ : : : : : }　　　　　|　　　　　　 /
PRINTL 　　　　　/: : ﾉ,ｨ'"　　　｀` ‐'⌒ヾ､_)　.{: : : : : :} - ､　　　　　　　 ..／
PRINTL 　　　　　{ : ,' ., '"￣￣￣゛'─-- ､___ノ : : : : ノ : : :ヽ　　　　　 .}　　 .ヽ　　　／　　　　　/
PRINTL 　　　　　{ : } .{: : : : : : : :__: : : : : : : : : : : , -'ﾞ: :,u､ : : : :` :--- <__＿＿,,>-＜, -- :-─-<__, --
PRINTL 　　　　　{ : '､.ヽ､: :--:'ﾞ:´　｀゛ヾ¨ニ二二´, -'"´'､::ヽ､ノv:.: : : : : : : : : : : : : : : : : :､m,;,; : : : : : :
PRINTL 　　　　 .l : : :ヽ､二｀----- ''"ﾞ´　　　´ ., -'ﾞ´ヽ):::::::::::::::::::｀Y`-- ''`´⌒゛)`^'''''─` ¨ ´^',r''‐-‐
PRINTL 　　　　 { : : : : : : :￣￣￣ヽ.　　　つ　, ニﾆ==ﾆニ'ﾞ⌒`っ, ' 　　　　 _,,ノ（＿＿
PRINTL 　　　　 .{ : : : : : : : : : : : : : }　　　　　っ::::::::::::::::::::::｀ゝ　　 ｀ヽ -=＝'ﾞ´￣￣¨ -､`＝-､_ノ
PRINTL 　　　　　乂: : : : : : :､ ,___:ノ .'､　　　　｀ﾆつ:::::::::r(⌒´　)ヽ､　　ヽ　　　　　　　　 ￣￣｀`ヽ
PRINTL 　　　　　　 ￣￣￣　　　ヾﾞ⌒＼:　ヾヽ､ ヽ､__ノ　　3 （　　）　　 つ 　　　　 　 ＿
PRINTL 　　　　　　　　　　　　　　　＞､: :＞､ ｀`- ､｀`)　　　　 ｀`'´　(¨ヽ､)　　　　　　ﾌ , ｀`
PRINTL 　　　　　　　　　　　　, - '"　　＞ ,: :ﾞ'＜- ,_`'ﾞ　つ　　　　 , 二ニﾆ -っ　　　'ﾞ´-'ﾞ　　　::::::::::::::::
PRINTL 　　　　　　　　　　　　　　, - '" 　　゛' -- ､: :゛-､, -ｭ__､,_ ⊃　　　　￣　　　　　　____;:;:;___;:;:;:;:;:;
PRINTL 　　　　 l¨l　　　　「|「|　　　　　　　　　　　　゛>─-- ､ : : :ﾞ'`^゛'`゛' `¨`゛'`⌒ﾞ'`.:.:.:｀´.:.:.:＼;:;:;
PRINTL 　　　　.l .l　　　,ィ|_||_|　　　　　　　　　　　.／　　　　　　￣￣￣＞---────ｭ: : : : : :＼
PRINTL 　　　　l .l, - '", '
PRINTL 　　　　l　, - '"　　　　　　　　　　　　　　　　　　　　　　　|　 | |
PRINTL 　　　. l .l　　　　　　　 /`--ｧ　　　 　 「¨l　　　　　,ｨ　　 |─‐
PRINTL 　　　..l .l　　　　　　　/　　./　　　　　.|　|　　　 .／/　　 |　　 ─‐ァ ○
PRINTL 　　　.l　￣￣￣ﾞl　　二7 /__　　.「¨l .|　|　　 ／　/　　　　　　　 ./
PRINTL 　　　l＿＿＿＿l　　|, -‐ '"　　 .l　l .|　|　.／　／　　　　　　 ..／
PRINTL 　　　　　　　　　　　　　　　　　　l　l .|　|／　／
PRINTL 　　　　　　　　　　　　　　　　　./ ./ |　　 .／
PRINTL 　　　　　　　　　　　　　　　　 ノ／ .|＿／
PRINTW 　　　　　　　　　　　　　　　／'"
ENDSELECT
SETFONT


code:
;=========================================================
;	連番画像アニメーション
;
;	sRes_Name	：リソースの名前文字列　この名前の後に連番数字を付ける
;	iStart		：開始番号
;	iEnd		：開始からの描画枚数
;	iAnime_Num	：全体のアニメーション繰り返し回数 省略0でオプション設定したフラグ回数になります
;	iRollback	：ロールバックさせるかフラグ
;	iWait		：1枚の表示時間
;	iSize		：一行の高さに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;	sAlign		：align属性　省略で左寄せ　left, center, rightの三種が指定できます
;=========================================================
@PRINT_IMAGE_ANIMATION(sRes_Name,iStart=0,iEnd=4,iAnime_Num=0,iRollback=1,iWait=100,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iStart
#DIM iEnd
#DIM iAnime_Num
#DIM iRollback
#DIM iWait
#DIM iSize
#DIMS sAlign

SIF !FLAG:그림표시 || sRes_Name == ""
	RETURN RESULT

SIF !FLAG:애니메이션
	RETURN RESULT

SIF !iAnime_Num
	iAnime_Num = FLAG:애니메이션

FOR LOCAL,0,iAnime_Num
	FOR LOCAL:1,iStart,(iStart+iEnd)
		CALL PRINT_IMAGE(@"%sRes_Name%{LOCAL:1}",iSize,sAlign)
		TWAIT iWait, 0
		CLEARLINE iSize/100
	NEXT

	;ロールバックさせるか
	SIF !iRollback
		CONTINUE

	FOR LOCAL:1,(iStart+iEnd)-2,iStart-1,-1
		CALL PRINT_IMAGE(@"%sRes_Name%{LOCAL:1}",iSize,sAlign)
		TWAIT iWait, 0
		CLEARLINE iSize/100
	NEXT
NEXT
RETURN RESULT

;=========================================================
;	正常位のアニメーション画像表示
;
;	sRes_Name	：最後に表示する画像のリソース名
;	iSize		：一行の高さに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;	sAlign		：align属性　省略で左寄せ　left, center, rightの三種が指定できます
;=========================================================
@PRINT_IMAGE_ANIMATION_正常位(sRes_Name,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

#DIM iStart
#DIMS sPrint_Res_Name
#DIMS sAnime_Res_Name

SIF !FLAG:그림표시 || sRes_Name == "" || !FLAG:삽화표시
	RETURN RESULT

IF sRes_Name == "正常位_射精"
	sPrint_Res_Name = %sRes_Name%_{FLAG:사정화상종류}
ELSE
	sPrint_Res_Name = %sRes_Name%
ENDIF

IF !FLAG:애니메이션
	CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)
	RETURN RESULT
ENDIF

sAnime_Res_Name = 正常位_挿入_

IF sRes_Name == "正常位_射精" || sRes_Name == "正常位_絶頂"
	iStart = 1
ELSE
	iStart= 0
ENDIF

CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,iStart,4-iStart,FLAG:애니메이션,1,,iSize,sAlign)
CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,iStart,4-iStart,1,0,,iSize,sAlign)

IF sRes_Name == "正常位_射精"
	sAnime_Res_Name = 正常位_射精_{FLAG:사정화상종류}_
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,0,2,FLAG:애니메이션,0,,iSize,sAlign)
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,2,2,FLAG:애니메이션,1,,iSize,sAlign)
ENDIF
CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)

RETURN RESULT

;=========================================================
;	後背位のアニメーション画像表示
;	コマ数など変わったので別で
;
;	sRes_Name	：最後に表示する画像のリソース名
;	iSize		：一行の高さに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;	sAlign		：align属性　省略で左寄せ　left, center, rightの三種が指定できます
;=========================================================
@PRINT_IMAGE_ANIMATION_後背位(sRes_Name,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

#DIMS sPrint_Res_Name
#DIMS sAnime_Res_Name
#DIM iAnimeCon

SIF !FLAG:그림표시 || sRes_Name == "" || !FLAG:삽화표시
	RETURN RESULT

IF sRes_Name == "後背位_射精"
	sPrint_Res_Name = %sRes_Name%_{FLAG:사정화상종류}
	SIF NOWEX:MASTER:사정 > 1
		sPrint_Res_Name = %sRes_Name%_{FLAG:사정화상종류}_9
ELSE
	sPrint_Res_Name = %sRes_Name%
ENDIF

IF !FLAG:애니메이션
	CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)
	RETURN RESULT
ENDIF

IF sRes_Name == "後背位_挿入"

	iAnimeCon = FLAG:애니메이션/2?FLAG:애니메이션/2#1
	CALL PRINT_IMAGE_ANIMATION("後背位_挿入_",0,6,iAnimeCon,1,,iSize,sAlign)

	iAnimeCon = (FLAG:애니메이션-iAnimeCon)?FLAG:애니메이션-iAnimeCon#1
	CALL PRINT_IMAGE_ANIMATION("後背位_挿入2_",0,12,iAnimeCon,0)
ELSE
	IF sRes_Name == "後背位_絶頂"
		iAnimeCon = FLAG:애니메이션/2?FLAG:애니메이션/2#1
		CALL PRINT_IMAGE_ANIMATION("後背位_挿入2_",0,12,iAnimeCon,0)
	ENDIF

	CALL PRINT_IMAGE_ANIMATION("後背位_絶頂_",0,4,FLAG:애니메이션,0)
	CALL PRINT_IMAGE_ANIMATION("後背位_絶頂_",0,2,1,0)
ENDIF
IF sRes_Name == "後背位_射精"
	sAnime_Res_Name = 後背位_射精_{FLAG:사정화상종류}_
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,0,8,1,0,,iSize,sAlign)
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,6,2,FLAG:애니메이션,1,,iSize,sAlign)

	;大量なら追加で
	IF NOWEX:MASTER:사정 > 1
		CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,8,2,FLAG:애니메이션,1,,iSize,sAlign)
	ENDIF

ENDIF
CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)

RETURN RESULT
;=========================================================
;	射精後のアニメーション画像表示
;
;	sRes_Name	：最後に表示する画像のリソース名
;	iSize		：一行の高さに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;	sAlign		：align属性　省略で左寄せ　left, center, rightの三種が指定できます
;=========================================================
@PRINT_IMAGE_ANIMATION_射精後(sRes_Name="正常位_中出し",iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

#DIM iWait
#DIMS sAnime_Res_Name
#DIMS sType
#DIM SAVE_RESULT

SIF !FLAG:그림표시 || sRes_Name == "" || !FLAG:삽화표시
	RETURN RESULT

IF !FLAG:애니메이션
	CALL PRINT_IMAGE(sRes_Name,iSize,sAlign)
	RETURN RESULT
ENDIF
SAVE_RESULT = RESULT
SPLIT sRes_Name,"_",sType

IF sType == "後背位"
	sAnime_Res_Name = %sType%_射精_{FLAG:사정화상종류}_\@NOWEX:MASTER:사정>1?9#7\@
ELSE
	sAnime_Res_Name = %sType%_射精_{FLAG:사정화상종류}_3
ENDIF

iWait = 500
CALL PRINT_IMAGE(@"%sAnime_Res_Name%",iSize,sAlign)
sAnime_Res_Name = %sType%_挿入_
TWAIT iWait, 0
CLEARLINE iSize/100

iWait = 100
FOR LOCAL,3,0,-1
	CALL PRINT_IMAGE(@"%sAnime_Res_Name%{LOCAL}",iSize,sAlign)
	TWAIT iWait, 0
	CLEARLINE iSize/100
NEXT

;後背位のみアニメ
IF sType == "後背位"
	sAnime_Res_Name = %sType%_射精後_
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,0,2,1,0,iWait,iSize,sAlign)
	CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,2,2,0,0,iWait,iSize,sAlign)
ENDIF

CALL PRINT_IMAGE(sRes_Name,iSize,sAlign)

RESULT = SAVE_RESULT
RETURN RESULT

; For Compatibility.

@PRINT_IMAGE_ANIMATION_정상위(sRes_Name, iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

CALL PRINT_IMAGE_ANIMATION_正常位(sRes_Name, iSize, sAlign)

@PRINT_IMAGE_ANIMATION_후배위(sRes_Name, iSize=1000, sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

CALL PRINT_IMAGE_ANIMATION_後背位(sRes_Name, iSize, sAlign)

@PRINT_IMAGE_ANIMATION_사정후(sRes_Name, iSize=1000, sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign

CALL PRINT_IMAGE_ANIMATION_射精後(sRes_Name, iSize, sAlign)

repo_name: purugi/eraTWKR

license: mit


code:
;CharacterNantoka
#DIM CONST CN_WIDTH = 180
#DIM CONST CN_HEIGHT = 180

#DIM CN_DEFAULT_CM,40,5,5
{
#DIMS CONST CN_COLORMATRIX_DIC = ""
+ "[青:0][紫:1][赤:2][黄:3][緑:4][水:5][白:6][灰:7][黒:8]"
+ "[栗:11][桃:12][橙:13]"
+ "[普通:31][褐色:32][黄色:33][日焼:34][不健康:35][悪魔:36]"
}

#DIMS CN_CHARAIMG_HTMLSTR
#DIM CN_CHARAIMG_HTMLPOSX

#DIMS CN_CHARAPATTERN_HTMLBUTTONSTR
#DIMS CN_CHARAPATTERNSUB_HTMLBUTTONSTR

#DIM FOREACH_ARG
#DIMS FOREACH_ARGS

#DIM _CN_DRAW_CHARASPRITE_COUNT
#DIM _CN_DRAW_CHARASPRITE_DEPTH,200
#DIMS _CN_DRAW_CHARASPRITE_NAME,200

{
#DIMS CONST CN_DICTIONARY_RESOURCES = ""

+ "[前髪_お嬢様:CN06_髪_前髪_お嬢様,]"
+ "[前髪_ぱっつん:CN06_髪_前髪_ぱっつん,]"
+ "[前髪_ウェーブ:CN06_髪_前髪_ウェーブ,]"
+ "[前髪_クセ毛:CN06_髪_前髪_クセ毛,]"
+ "[前髪_ナチュラル:CN06_髪_前髪_ナチュラル,]"
+ "[前髪_ワイルド:CN06_髪_前髪_ワイルド,]"
+ "[前髪_中分け1:CN06_髪_前髪_中分け1,]"
+ "[前髪_中分け2:CN06_髪_前髪_中分け2,]"
+ "[前髪_横分け:CN06_髪_前髪_横分け,]"
+ "[前髪_無造作:CN06_髪_前髪_無造作,]"

+ "[後髪_ウェーブショート:CN17_髪_後髪_ウェーブショート,]"
+ "[後髪_ウェーブセミロング:CN17_髪_後髪_ウェーブセミロング,]"
+ "[後髪_ウェーブロング:CN17_髪_後髪_ウェーブロング,]"
+ "[後髪_サイドテール:CN17_髪_後髪_サイドテール,CN16_他_後髪_サイドテール,]"
+ "[後髪_ショート:CN17_髪_後髪_ショート,]"
+ "[後髪_セミロング:CN17_髪_後髪_セミロング,]"
+ "[後髪_ツインテール(短):CN17_髪_後髪_ツインテール(短),CN16_他_後髪_ツインテール(短),]"
+ "[後髪_ツインテール(長):CN17_髪_後髪_ツインテール(長),CN16_他_後髪_ツインテール(長),]"
+ "[後髪_ツインドリル:CN17_髪_後髪_ツインドリル,CN16_他_後髪_ツインドリル,]"
+ "[後髪_ボブカット:CN17_髪_後髪_ボブカット,]"
+ "[後髪_ポニーテール:CN17_髪_後髪_ポニーテール,CN16_他_後髪_ポニーテール,]"
+ "[後髪_ロング:CN17_髪_後髪_ロング,]"
+ "[後髪_三つ編み:CN17_髪_後髪_三つ編み,CN16_他_後髪_三つ編み,]"
+ "[後髪_無造作:CN17_髪_後髪_無造作,]"

+ "[後髪_サイドテール【リボンなし】:CN17_髪_後髪_サイドテール]"
+ "[後髪_ツインテール(短)【リボンなし】:CN17_髪_後髪_ツインテール(短),]"
+ "[後髪_ツインテール(長)【リボンなし】:CN17_髪_後髪_ツインテール(長),]"
+ "[後髪_ツインドリル【リボンなし】:CN17_髪_後髪_ツインドリル]"
+ "[後髪_ポニーテール【リボンなし】:CN17_髪_後髪_ポニーテール]"
+ "[後髪_三つ編み【リボンなし】:CN17_髪_後髪_三つ編み,]"

+ "[頭部_普通な顔:CN09_肌_頭部_普通な顔,]"
+ "[頭部_青ざめた顔:CN09_肌_頭部_青ざめた顔,]"
+ "[頭部_黒い顔:CN09_肌_頭部_黒い顔,]"

+ "[目瞳_だる目(黒め)1:CN01_瞳_目瞳_だる目(黒め)1,]"
+ "[目瞳_だる目(黒め)2:CN01_瞳_目瞳_だる目(黒め)2,]"
+ "[目瞳_だる目(黒め)3:CN01_瞳_目瞳_だる目(黒め)3,]"
+ "[目瞳_だる目1:CN01_瞳_目瞳_だる目1,]"
+ "[目瞳_だる目2:CN01_瞳_目瞳_だる目2,]"
+ "[目瞳_だる目3:CN01_瞳_目瞳_だる目3,]"
+ "[目瞳_デフォルメ目1:CN01_瞳_目瞳_デフォルメ目1,]"
+ "[目瞳_デフォルメ目2:CN01_瞳_目瞳_デフォルメ目2,]"
+ "[目瞳_デフォルメ目3:CN01_瞳_目瞳_デフォルメ目3,]"
+ "[目瞳_デフォルメ目4:CN01_瞳_目瞳_デフォルメ目4,]"
+ "[目瞳_ワル目(黒め)1:CN01_瞳_目瞳_ワル目(黒め)1,]"
+ "[目瞳_ワル目(黒め)2:CN01_瞳_目瞳_ワル目(黒め)2,]"
+ "[目瞳_ワル目(黒め)3:CN01_瞳_目瞳_ワル目(黒め)3,]"
+ "[目瞳_ワル目1:CN01_瞳_目瞳_ワル目1,]"
+ "[目瞳_ワル目2:CN01_瞳_目瞳_ワル目2,]"
+ "[目瞳_ワル目3:CN01_瞳_目瞳_ワル目3,]"
+ "[目瞳_丸釣り目(黒め)1:CN01_瞳_目瞳_丸釣り目(黒め)1,]"
+ "[目瞳_丸釣り目(黒め)2:CN01_瞳_目瞳_丸釣り目(黒め)2,]"
+ "[目瞳_丸釣り目(黒め)3:CN01_瞳_目瞳_丸釣り目(黒め)3,]"
+ "[目瞳_丸釣り目1:CN01_瞳_目瞳_丸釣り目1,]"
+ "[目瞳_丸釣り目2:CN01_瞳_目瞳_丸釣り目2,]"
+ "[目瞳_丸釣り目3:CN01_瞳_目瞳_丸釣り目3,]"
+ "[目瞳_垂れ目(黒め)1:CN01_瞳_目瞳_垂れ目(黒め)1,]"
+ "[目瞳_垂れ目(黒め)2:CN01_瞳_目瞳_垂れ目(黒め)2,]"
+ "[目瞳_垂れ目(黒め)3:CN01_瞳_目瞳_垂れ目(黒め)3,]"
+ "[目瞳_垂れ目1:CN01_瞳_目瞳_垂れ目1,]"
+ "[目瞳_垂れ目2:CN01_瞳_目瞳_垂れ目2,]"
+ "[目瞳_垂れ目3:CN01_瞳_目瞳_垂れ目3,]"
+ "[目瞳_普通な目(黒め)1:CN01_瞳_目瞳_普通な目(黒め)1,]"
+ "[目瞳_普通な目(黒め)2:CN01_瞳_目瞳_普通な目(黒め)2,]"
+ "[目瞳_普通な目(黒め)3:CN01_瞳_目瞳_普通な目(黒め)3,]"
+ "[目瞳_普通な目1:CN01_瞳_目瞳_普通な目1,]"
+ "[目瞳_普通な目2:CN01_瞳_目瞳_普通な目2,]"
+ "[目瞳_普通な目3:CN01_瞳_目瞳_普通な目3,]"
+ "[目瞳_棒目:CN01_瞳_目瞳_棒目,]"
+ "[目瞳_釣り目(黒め)1:CN01_瞳_目瞳_釣り目(黒め)1,]"
+ "[目瞳_釣り目(黒め)2:CN01_瞳_目瞳_釣り目(黒め)2,]"
+ "[目瞳_釣り目(黒め)3:CN01_瞳_目瞳_釣り目(黒め)3,]"
+ "[目瞳_釣り目1:CN01_瞳_目瞳_釣り目1,]"
+ "[目瞳_釣り目2:CN01_瞳_目瞳_釣り目2,]"
+ "[目瞳_釣り目3:CN01_瞳_目瞳_釣り目3,]"
+ "[目瞳_閉じ目1:CN01_瞳_目瞳_閉じ目1,]"
+ "[目瞳_閉じ目2:CN01_瞳_目瞳_閉じ目2,]"
+ "[目瞳_閉じ目3:CN01_瞳_目瞳_閉じ目3,]"

+ "[表情_三角口(困り):CN04_無_表情_三角口(困り),]"
+ "[表情_三角口(怒り):CN04_無_表情_三角口(怒り),]"
+ "[表情_三角口(素):CN04_無_表情_三角口(素),]"
+ "[表情_困り(口閉じ):CN04_無_表情_困り(口閉じ),]"
+ "[表情_困り(口開き):CN04_無_表情_困り(口開き),]"
+ "[表情_怒り(口閉じ):CN04_無_表情_怒り(口閉じ),]"
+ "[表情_怒り(口開き):CN04_無_表情_怒り(口開き),]"
+ "[表情_照れ(口閉じ):CN07_無_表情_照れ(口閉じ),CN04_無_表情_照れ(口閉じ),]"
+ "[表情_照れ(口開き):CN07_無_表情_照れ(口開き),CN04_無_表情_照れ(口開き),]"
+ "[表情_猫口(口閉じ):CN04_無_表情_猫口(口閉じ),]"
+ "[表情_猫口(口開き):CN04_無_表情_猫口(口開き),]"
+ "[表情_笑い(ニッ):CN04_無_表情_笑い(ニッ),]"
+ "[表情_笑い(口閉じ):CN04_無_表情_笑い(口閉じ),]"
+ "[表情_笑い(口開き):CN04_無_表情_笑い(口開き),]"
+ "[表情_素:CN04_無_表情_素,]"
+ "[表情_驚き:CN04_無_表情_驚き,]"

+ "[身体_素体1:CN15_肌_身体_素体1,]"
+ "[身体_素体2:CN15_肌_身体_素体2,]"
+ "[身体_素体3:CN15_肌_身体_素体3,]"
+ "[身体_素体(絶壁)1:CN15_肌_身体_素体(絶壁)1,]"
+ "[身体_素体(絶壁)2:CN15_肌_身体_素体(絶壁)2,]"
+ "[身体_素体(絶壁)3:CN15_肌_身体_素体(絶壁)3,]"
+ "[身体_素体(並乳)1:CN15_肌_身体_素体(並乳)1,]"
+ "[身体_素体(並乳)2:CN15_肌_身体_素体(並乳)2,]"
+ "[身体_素体(並乳)3:CN15_肌_身体_素体(並乳)3,]"
+ "[身体_素体(巨乳)1:CN15_肌_身体_素体(巨乳)1,]"
+ "[身体_素体(巨乳)2:CN15_肌_身体_素体(巨乳)2,]"
+ "[身体_素体(巨乳)3:CN15_肌_身体_素体(巨乳)3,]"
+ "[身体_ゴスロリ1:CN15_肌_身体_ゴスロリ1,CN13_無_身体_ゴスロリ1,CN12_服_身体_ゴスロリ1,]"
+ "[身体_ゴスロリ2:CN15_肌_身体_ゴスロリ2,CN13_無_身体_ゴスロリ2,CN12_服_身体_ゴスロリ2,]"
+ "[身体_ゴスロリ3:CN15_肌_身体_ゴスロリ3,CN13_無_身体_ゴスロリ3,CN12_服_身体_ゴスロリ3,]"
+ "[身体_シスター1:CN15_肌_身体_シスター1,CN12_服_身体_シスター1,]"
+ "[身体_シスター2:CN15_肌_身体_シスター2,CN12_服_身体_シスター2,]"
+ "[身体_シスター3:CN15_肌_身体_シスター3,CN12_服_身体_シスター3,]"
+ "[身体_スク水1:CN15_肌_身体_スク水1,CN12_服_身体_スク水1,]"
+ "[身体_スク水2:CN15_肌_身体_スク水2,CN12_服_身体_スク水2,]"
+ "[身体_スク水3:CN15_肌_身体_スク水3,CN12_服_身体_スク水3,]"
+ "[身体_セーラー服1:CN15_肌_身体_セーラー服1,CN13_無_身体_セーラー服1,CN12_服_身体_セーラー服1,]"
+ "[身体_セーラー服2:CN15_肌_身体_セーラー服2,CN13_無_身体_セーラー服2,CN12_服_身体_セーラー服2,]"
+ "[身体_セーラー服3:CN15_肌_身体_セーラー服3,CN13_無_身体_セーラー服3,CN12_服_身体_セーラー服3,]"
+ "[身体_バスタオル1:CN15_肌_身体_バスタオル1,CN12_服_身体_バスタオル1,]"
+ "[身体_バスタオル2:CN15_肌_身体_バスタオル2,CN12_服_身体_バスタオル2,]"
+ "[身体_バスタオル3:CN15_肌_身体_バスタオル3,CN12_服_身体_バスタオル3,]"
+ "[身体_ブレザー1:CN15_肌_身体_ブレザー1,CN13_無_身体_ブレザー1,CN12_服_身体_ブレザー1,]"
+ "[身体_ブレザー2:CN15_肌_身体_ブレザー2,CN13_無_身体_ブレザー2,CN12_服_身体_ブレザー2,]"
+ "[身体_ブレザー3:CN15_肌_身体_ブレザー3,CN13_無_身体_ブレザー3,CN12_服_身体_ブレザー3,]"
+ "[身体_メイド服1:CN15_肌_身体_メイド服1,CN13_無_身体_メイド服1,CN12_服_身体_メイド服1,]"
+ "[身体_メイド服2:CN15_肌_身体_メイド服2,CN13_無_身体_メイド服2,CN12_服_身体_メイド服2,]"
+ "[身体_メイド服3:CN15_肌_身体_メイド服3,CN13_無_身体_メイド服3,CN12_服_身体_メイド服3,]"
+ "[身体_下着1:CN15_肌_身体_下着1,CN12_服_身体_下着1,]"
+ "[身体_下着2:CN15_肌_身体_下着2,CN12_服_身体_下着2,]"
+ "[身体_下着3:CN15_肌_身体_下着3,CN12_服_身体_下着3,]"
+ "[身体_ドロワーズ1:CN15_肌_身体_ドロワーズ1,CN12_服_身体_ドロワーズ1,]"
+ "[身体_ドロワーズ2:CN15_肌_身体_ドロワーズ2,CN12_服_身体_ドロワーズ2,]"
+ "[身体_ドロワーズ3:CN15_肌_身体_ドロワーズ3,CN12_服_身体_ドロワーズ3,]"
+ "[身体_妖精服1:CN15_肌_身体_妖精服1,CN13_無_身体_妖精服1,CN12_服_身体_妖精服1,]"
+ "[身体_妖精服2:CN15_肌_身体_妖精服2,CN13_無_身体_妖精服2,CN12_服_身体_妖精服2,]"
+ "[身体_妖精服3:CN15_肌_身体_妖精服3,CN13_無_身体_妖精服3,CN12_服_身体_妖精服3,]"
+ "[身体_和服1:CN15_肌_身体_和服1,CN13_無_身体_和服1,CN12_服_身体_和服1,]"
+ "[身体_和服2:CN15_肌_身体_和服2,CN13_無_身体_和服2,CN12_服_身体_和服2,]"
+ "[身体_和服3:CN15_肌_身体_和服3,CN13_無_身体_和服3,CN12_服_身体_和服3,]"
+ "[身体_河童服1:CN15_肌_身体_河童服1,CN13_無_身体_河童服1,CN12_服_身体_河童服1,]"
+ "[身体_河童服2:CN15_肌_身体_河童服2,CN13_無_身体_河童服2,CN12_服_身体_河童服2,]"
+ "[身体_河童服3:CN15_肌_身体_河童服3,CN13_無_身体_河童服3,CN12_服_身体_河童服3,]"
+ "[身体_私服A1:CN15_肌_身体_私服A1,CN13_無_身体_私服A1,CN12_服_身体_私服A1,]"
+ "[身体_私服A2:CN15_肌_身体_私服A2,CN13_無_身体_私服A2,CN12_服_身体_私服A2,]"
+ "[身体_私服A3:CN15_肌_身体_私服A3,CN13_無_身体_私服A3,CN12_服_身体_私服A3,]"
+ "[身体_私服B1:CN15_肌_身体_私服B1,CN13_無_身体_私服B1,CN12_服_身体_私服B1,]"
+ "[身体_私服B2:CN15_肌_身体_私服B2,CN13_無_身体_私服B2,CN12_服_身体_私服B2,]"
+ "[身体_私服B3:CN15_肌_身体_私服B3,CN13_無_身体_私服B3,CN12_服_身体_私服B3,]"
+ "[身体_私服CA1:CN15_肌_身体_私服CA1,CN13_無_身体_私服CA1,CN12_服_身体_私服CA1,]"
+ "[身体_私服CA2:CN15_肌_身体_私服CA2,CN13_無_身体_私服CA2,CN12_服_身体_私服CA2,]"
+ "[身体_私服CA3:CN15_肌_身体_私服CA3,CN13_無_身体_私服CA3,CN12_服_身体_私服CA3,]"
+ "[身体_私服CB1:CN15_肌_身体_私服CB1,CN13_無_身体_私服CB1,CN12_服_身体_私服CB1,]"
+ "[身体_私服CB2:CN15_肌_身体_私服CB2,CN13_無_身体_私服CB2,CN12_服_身体_私服CB2,]"
+ "[身体_私服CB3:CN15_肌_身体_私服CB3,CN13_無_身体_私服CB3,CN12_服_身体_私服CB3,]"
+ "[身体_私服D1:CN15_肌_身体_私服D1,CN12_服_身体_私服D1,]"
+ "[身体_私服D2:CN15_肌_身体_私服D2,CN12_服_身体_私服D2,]"
+ "[身体_私服D3:CN15_肌_身体_私服D3,CN12_服_身体_私服D3,]"
+ "[身体_バスタオル(色固定)1:CN15_肌_身体_バスタオル(色固定)1,CN13_無_身体_バスタオル(色固定)1,]"
+ "[身体_バスタオル(色固定)2:CN15_肌_身体_バスタオル(色固定)2,CN13_無_身体_バスタオル(色固定)2,]"
+ "[身体_バスタオル(色固定)3:CN15_肌_身体_バスタオル(色固定)3,CN13_無_身体_バスタオル(色固定)3,]"
+ "[身体_河童服(色固定)1:CN15_肌_身体_河童服(色固定)1,CN13_無_身体_河童服(色固定)1]"
+ "[身体_河童服(色固定)2:CN15_肌_身体_河童服(色固定)2,CN13_無_身体_河童服(色固定)2]"
+ "[身体_河童服(色固定)3:CN15_肌_身体_河童服(色固定)3,CN13_無_身体_河童服(色固定)3]"
+ "[身体_玉兎服(色固定)1:CN15_肌_身体_玉兎服(色固定)1,CN13_無_身体_玉兎服(色固定)1,]"
+ "[身体_玉兎服(色固定)2:CN15_肌_身体_玉兎服(色固定)2,CN13_無_身体_玉兎服(色固定)2,]"
+ "[身体_玉兎服(色固定)3:CN15_肌_身体_玉兎服(色固定)3,CN13_無_身体_玉兎服(色固定)3,]"
+ "[身体_天狗服(色固定)1:CN15_肌_身体_天狗服(色固定)1,CN13_無_身体_天狗服(色固定)1,]"
+ "[身体_天狗服(色固定)2:CN15_肌_身体_天狗服(色固定)2,CN13_無_身体_天狗服(色固定)2,]"
+ "[身体_天狗服(色固定)3:CN15_肌_身体_天狗服(色固定)3,CN13_無_身体_天狗服(色固定)3,]"
+ "[身体_白狼天狗服(色固定)1:CN15_肌_身体_白狼天狗服(色固定)1,CN13_無_身体_白狼天狗服(色固定)1,]"
+ "[身体_白狼天狗服(色固定)2:CN15_肌_身体_白狼天狗服(色固定)2,CN13_無_身体_白狼天狗服(色固定)2,]"
+ "[身体_白狼天狗服(色固定)3:CN15_肌_身体_白狼天狗服(色固定)3,CN13_無_身体_白狼天狗服(色固定)3,]"

+ "[装飾_なし:]"
+ "[装飾_ZUN帽:CN18_他_装飾_ZUN帽,CN00_他_装飾_ZUN帽,]"
+ "[装飾_たぬきしっぽ:CN18_他_装飾_たぬきしっぽ,]"
+ "[装飾_たぬき耳:CN18_他_装飾_たぬき耳,CN00_他_装飾_たぬき耳,]"
+ "[装飾_ネコしっぽ:CN18_他_装飾_ネコしっぽ,]"
+ "[装飾_ロザリオ:CN18_他_装飾_ロザリオ,CN00_他_装飾_ロザリオ,]"
+ "[装飾_ロザリオ(ポーズ2用):CN18_他_装飾_ロザリオ(ポーズ2用),CN00_他_装飾_ロザリオ(ポーズ2用),]"
+ "[装飾_天狗帽子:CN18_他_装飾_天狗帽子,CN00_他_装飾_天狗帽子,]"
+ "[装飾_妖精の羽:CN18_他_装飾_妖精の羽,]"
+ "[装飾_悪魔の羽:CN18_他_装飾_悪魔の羽,]"
+ "[装飾_河童帽子:CN18_他_装飾_河童帽子,CN00_他_装飾_河童帽子,]"
+ "[装飾_狐しっぽ:CN18_他_装飾_狐しっぽ,]"
+ "[装飾_狐耳:CN18_他_装飾_狐耳,CN00_他_装飾_狐耳,]"
+ "[装飾_王冠:CN18_他_装飾_王冠,CN00_他_装飾_王冠,]"
+ "[装飾_白い羽根:CN18_他_装飾_白い羽根,]"
+ "[装飾_白浪天狗帽子:CN18_他_装飾_白浪天狗帽子,CN00_他_装飾_白浪天狗帽子,]"
+ "[装飾_鬼の角:CN18_他_装飾_鬼の角,CN00_他_装飾_鬼の角,]"
+ "[装飾_黒い羽根:CN18_他_装飾_黒い羽根,]"
+ "[装飾_ウサ耳:CN00_他_装飾_ウサ耳,]"
+ "[装飾_天使の輪:CN00_他_装飾_天使の輪,]"
+ "[装飾_玉兎ヘルメット:CN00_他_装飾_玉兎ヘルメット,]"
+ "[装飾_鬼の角(一角):CN00_他_装飾_鬼の角(一角),]"
+ "[装飾_ヘアバンド(白):CN00_他_装飾_ヘアバンド(白),]"
+ "[装飾_ヘアバンド(赤):CN00_他_装飾_ヘアバンド(赤),]"
+ "[装飾_マーク(呆れ):CN00_他_装飾_マーク(呆れ),]"
+ "[装飾_マーク(困り):CN00_他_装飾_マーク(困り),]"
+ "[装飾_マーク(怒り赤):CN00_他_装飾_マーク(怒り赤),]"
+ "[装飾_マーク(怒り黄):CN00_他_装飾_マーク(怒り黄),]"
+ "[装飾_マーク(怒り):CN00_他_装飾_マーク(怒り),]"
+ "[装飾_マーク(気づき):CN00_他_装飾_マーク(気づき),]"
+ "[装飾_マーク(驚き):CN00_他_装飾_マーク(驚き),]"
+ "[装飾_メイドカチューシャ:CN00_他_装飾_メイドカチューシャ,]"
+ "[装飾_メガネ(普通):CN00_他_装飾_メガネ(普通),]"
+ "[装飾_メガネ(赤縁):CN00_他_装飾_メガネ(赤縁),]"
+ "[装飾_メガネ(黒縁):CN00_他_装飾_メガネ(黒縁),]"
+ "[装飾_涙：だる目1:CN00_他_装飾_涙：だる目1,]"
+ "[装飾_涙：だる目2:CN00_他_装飾_涙：だる目2,]"
+ "[装飾_涙：だる目3:CN00_他_装飾_涙：だる目3,]"
+ "[装飾_涙：デフォルメ目1:CN00_他_装飾_涙：デフォルメ目1,]"
+ "[装飾_涙：デフォルメ目2:CN00_他_装飾_涙：デフォルメ目2,]"
+ "[装飾_涙：ワル目1:CN00_他_装飾_涙：ワル目1,]"
+ "[装飾_涙：ワル目2:CN00_他_装飾_涙：ワル目2,]"
+ "[装飾_涙：ワル目3:CN00_他_装飾_涙：ワル目3,]"
+ "[装飾_涙：丸釣り目1:CN00_他_装飾_涙：丸釣り目1,]"
+ "[装飾_涙：丸釣り目2:CN00_他_装飾_涙：丸釣り目2,]"
+ "[装飾_涙：丸釣り目3:CN00_他_装飾_涙：丸釣り目3,]"
+ "[装飾_涙：垂れ目1:CN00_他_装飾_涙：垂れ目1,]"
+ "[装飾_涙：垂れ目2:CN00_他_装飾_涙：垂れ目2,]"
+ "[装飾_涙：垂れ目3:CN00_他_装飾_涙：垂れ目3,]"
+ "[装飾_涙：普通な目1:CN00_他_装飾_涙：普通な目1,]"
+ "[装飾_涙：普通な目2:CN00_他_装飾_涙：普通な目2,]"
+ "[装飾_涙：普通な目3:CN00_他_装飾_涙：普通な目3,]"
+ "[装飾_涙：棒目:CN00_他_装飾_涙：棒目,]"
+ "[装飾_涙：釣り目1:CN00_他_装飾_涙：釣り目1,]"
+ "[装飾_涙：釣り目2:CN00_他_装飾_涙：釣り目2,]"
+ "[装飾_涙：釣り目3:CN00_他_装飾_涙：釣り目3,]"
+ "[装飾_涙：閉じ目1:CN00_他_装飾_涙：閉じ目1,]"
+ "[装飾_涙：閉じ目2:CN00_他_装飾_涙：閉じ目2,]"
+ "[装飾_涙：閉じ目3:CN00_他_装飾_涙：閉じ目3,]"
+ "[装飾_照れ:CN00_他_装飾_照れ,]"

+ "[装飾_アホ毛(髪):CN00_髪_装飾_アホ毛(髪),]"
+ "[装飾_もみあげ片編み(髪):CN08_髪_装飾_もみあげ片編み(髪),CN05_他_装飾_もみあげ片編み(髪),]"
+ "[装飾_もみあげ普通(髪):CN10_髪_装飾_もみあげ普通(髪),CN08_髪_装飾_もみあげ普通(髪),]"
+ "[装飾_もみあげ編み(髪):CN10_髪_装飾_もみあげ編み(髪),CN08_髪_装飾_もみあげ編み(髪),]"
+ "[装飾_もみあげ長い(髪):CN10_髪_装飾_もみあげ長い(髪),CN08_髪_装飾_もみあげ長い(髪),CN05_他_装飾_もみあげ長い(髪),]"
+ "[装飾_ネコ耳(耳):CN18_耳_装飾_ネコ耳(耳),CN00_耳_装飾_ネコ耳(耳),]"
+ "[装飾_狐しっぽ(尾):CN18_尾_装飾_狐しっぽ(尾),]"
+ "[装飾_狐耳(耳):CN18_耳_装飾_狐耳(耳),CN00_耳_装飾_狐耳(耳),]"
+ "[装飾_獣しっぽ(尾):CN18_尾_装飾_獣しっぽ(尾),]"
+ "[装飾_獣耳(耳):CN18_耳_装飾_獣耳(耳),CN00_耳_装飾_獣耳(耳),]"

+ "[装飾_ヘアバンド(服):CN00_服_装飾_ヘアバンド(服),]"
+ "[装飾_ZUN帽(服):CN18_服_装飾_ZUN帽(服),CN00_服_装飾_ZUN帽(服),]"
+ "[装飾_シスター頭巾(服):CN18_服_装飾_シスター頭巾(服),CN00_服_装飾_シスター頭巾(服),]"

}


code:
;_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
;
;Module   :_Dictionary.ERB, _Dictionary.ERH
;Facility :文字列を連想配列のように扱うライブラリ
;Licence  :ライセンスフリー(CC0)。
;
;Modification Data:
;  Edit  Date          Author                   Reason
;  001   2018/08/29    MinorShift(Emueraの人)   新規作成
;_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#

;文字列を使った連想配列もどき
;[キー:値]という形式で雑多なデータを保存する。
;例えば、連想配列用文字列STRが"[髪型:ショート][髪色:緑][瞳色:青]"であるとき、DIC_GET(STR, "髪色")は"緑"を返す。
;また、STRが"[髪型:ショート][髪色:緑][瞳色:青]"であるとき、DIC_SET(STR, "髪型", "ロング")は"[髪型:ロング][髪色:緑][瞳色:青]"を返す。
;制限として、キー又は値には"[", ":", "]"が含まれていてはいけない。当然入れ子にはできない。
;標準では一つの連想配列中のキーの最大数は100個。_Dictionary.ERHを変更すれば増やせるが実行速度が実用的でないと思われる。
;少しでも高速化するためにデータ形式のチェックは省いている。そのため不正な形式のデータが送られてくると何が起こるかわからない。
;データをまとめて格納するためにどうぞ。
;_Listとは独立しているので値として可変長配列を格納する、又は連想配列の可変長配列を作成することはできる。入れ子にすると死ぬ。

;@DIC_SET(_DICTIONARY, _KEY, _VALUE) ;対象の連想配列の_KEYに_VALUEを格納した連想配列を返す。既にキーが存在するなら上書き。
;@DIC_GET(_DICTIONARY, _KEY) ;対象の連想配列の_KEYの値を取得する。キーが存在しなければ空文字列。
;@DIC_REMOVE(_DICTIONARY, _KEY) ;対象の連想配列の_KEYを削除した連想配列を返す。キーが存在しなければ入力のまま返す。
;@DIC_CONTAINSKEY(_DICTIONARY, _KEY) ;対象の連想配列に_KEYが存在するかどうか判定する。存在すれば1、しなければ0。
;@DIC_COUNT(_DICTIONARY) ;対象の連想配列に含まれるキーの数を取得する。
;@DIC_FOREACH(_DICTIONARY, _FUNCNAME);対象の連想配列に含まれる要素全てについて、CALLFORM %FUNCNAME%, _KEY, _VALUE; を実行する。

;================================================
;@DIC_SET (#FUNCTIONS)対象の連想配列の_KEYに_VALUEを格納した連想配列を返す。既にキーが存在するなら上書き。
;_DICTIONARY 対象の連想配列（文字列）
;_KEY        追加する対象のキー
;_VALUE      追加する値
;RETURNF     追加又は変更された連想配列（文字列）
;================================================
@DIC_SET(_DICTIONARY, _KEY, _VALUE)
#FUNCTIONS
#DIMS _DICTIONARY
#DIMS _KEY
#DIMS _VALUE
;_KEYが既に存在するかどうか検証
_DIC_INDEX_OPEN = STRFINDU(_DICTIONARY, "[" + _KEY + ":")
;_KEYが新規なら[KEY:VALUE]を追加した文字列を返して終了
IF _DIC_INDEX_OPEN < 0
	RETURNF _DICTIONARY + "[" + _KEY + ":" + _VALUE + "]"
ENDIF
;_KEYが既に存在するならば_DICTIONARYから既存の[KEY:VALUE]を除いた文字列に新規な[KEY:VALUE]を追加する
IF _DIC_INDEX_OPEN > 0
	_DICTIONARY_LEFT '= SUBSTRINGU(_DICTIONARY,0,_DIC_INDEX_OPEN)
ELSE
	_DICTIONARY_LEFT '= ""
ENDIF
;"[KEY:"以降の最初の"]"をサーチ
_DIC_INDEX_CLOSE = STRFINDU(_DICTIONARY, "]", _DIC_INDEX_OPEN)
;既存の[KEY:VALUE]よりも右のテキストを_DICTIONARY_RIGHTに取得
IF _DIC_INDEX_CLOSE < 0
	THROW 連想配列用文字列が正しくない→%_DICTIONARY%
ELSEIF _DIC_INDEX_CLOSE+1 < STRLENSU(_DICTIONARY)
	_DICTIONARY_RIGHT '= SUBSTRINGU(_DICTIONARY, _DIC_INDEX_CLOSE + 1 , -1)
ELSE
	_DICTIONARY_RIGHT '= ""
ENDIF
;足して返す
RETURNF _DICTIONARY_LEFT + "[" + _KEY + ":" + _VALUE + "]" + _DICTIONARY_RIGHT

;================================================
;@DIC_CONTAINSKEY (#FUNCTION) ;対象の連想配列に_KEYが存在するかどうか判定する。存在すれば1、しなければ0。
;_DICTIONARY 対象の連想配列（文字列）
;_KEY        キー
;RETURNF     追加又は変更された連想配列（文字列）
;================================================
@DIC_CONTAINSKEY(_DICTIONARY, _KEY)
#FUNCTION
#DIMS _DICTIONARY
#DIMS _KEY
RETURNF STRFINDU(_DICTIONARY, "[" + _KEY + ":") >= 0

;================================================
;@DIC_REMOVE (#FUNCTIONS)) ;対象の連想配列の_KEYを削除した連想配列を返す。キーが存在しなければ入力のまま返す。
;_DICTIONARY 対象の連想配列（文字列）
;_KEY        キー
;RETURNF     キーが削除された連想配列（文字列）
;================================================
@DIC_REMOVE(_DICTIONARY, _KEY)
#FUNCTIONS
#DIMS _DICTIONARY
#DIMS _KEY
;_KEYが既に存在するかどうか検証
_DIC_INDEX_OPEN = STRFINDU(_DICTIONARY, "[" + _KEY + ":")
;_KEYが存在しないなら入力をそのまま返して終了
IF _DIC_INDEX_OPEN < 0
	RETURNF _DICTIONARY
ENDIF
;_KEYが既に存在するならば_DICTIONARYから既存の[KEY:VALUE]を返す
IF _DIC_INDEX_OPEN > 0
	_DICTIONARY_LEFT '= SUBSTRINGU(_DICTIONARY,0,_DIC_INDEX_OPEN)
ELSE
	_DICTIONARY_LEFT '= ""
ENDIF
;"[KEY:"以降の最初の"]"をサーチ
_DIC_INDEX_CLOSE = STRFINDU(_DICTIONARY, "]", _DIC_INDEX_OPEN)
;既存の[KEY:VALUE]よりも右のテキストを_DICTIONARY_RIGHTに取得
IF _DIC_INDEX_CLOSE < 0
	THROW _Dictionary.ERB:連想配列用文字列が正しくない→%_DICTIONARY%
ELSEIF _DIC_INDEX_CLOSE+1 < STRLENSU(_DICTIONARY)
	_DICTIONARY_RIGHT '= SUBSTRINGU(_DICTIONARY, _DIC_INDEX_CLOSE + 1 , -1)
ELSE
	_DICTIONARY_RIGHT '= ""
ENDIF
;足して返す
RETURNF _DICTIONARY_LEFT + _DICTIONARY_RIGHT

;================================================
;@DIC_GET (#FUNCTIONS)) ;対象の連想配列の_KEYの値を取得する。キーが存在しなければ空文字列。
;_DICTIONARY 対象の連想配列（文字列）
;_KEY        キー
;RETURNF     キーに対応する値又は空文字列
;================================================
@DIC_GET(_DICTIONARY, _KEY)
#FUNCTIONS
#DIMS _DICTIONARY
#DIMS _KEY
;_KEYが存在するかどうか検証
_DIC_INDEX_OPEN = STRFINDU(_DICTIONARY, "[" + _KEY + ":")
;_KEYが存在しないなら空文字列を返して終了
IF _DIC_INDEX_OPEN < 0
	RETURNF ""
ENDIF
;値の開始位置のインデックスを計算
_DIC_INDEX_OPEN = _DIC_INDEX_OPEN + STRLENSU(_KEY) + 2
;"[KEY:"以降の最初の"]"をサーチ
_DIC_INDEX_CLOSE = STRFINDU(_DICTIONARY, "]", _DIC_INDEX_OPEN)
IF _DIC_INDEX_CLOSE < 0
	THROW _Dictionary.ERB:連想配列用文字列が正しくない→%_DICTIONARY%
ENDIF
RETURNF SUBSTRINGU(_DICTIONARY, _DIC_INDEX_OPEN, _DIC_INDEX_CLOSE - _DIC_INDEX_OPEN)

;================================================
;@DIC_COUNT (#FUNCTION) ;対象の連想配列に含まれるキーの数を取得する。
;_DICTIONARY 対象の連想配列（文字列）
;RETURNF     キーの数
;================================================
@DIC_COUNT(_DICTIONARY)
#FUNCTION
#DIMS _DICTIONARY
#DIM _COUNT
_DIC_INDEX_OPEN = -1
_COUNT = 0
WHILE 1
	_DIC_INDEX_OPEN = STRFINDU(_DICTIONARY, "[" , _DIC_INDEX_OPEN + 1)
	IF _DIC_INDEX_OPEN < 0
		BREAK
	ENDIF
	_COUNT ++
WEND
RETURNF _COUNT

;================================================
;@DIC_FOREACH ;対象の連想配列に含まれる要素全てについて、CALLFORM %FUNCNAME%, _KEY, _VALUE; を実行する。
;_DICTIONARY  対象の連想配列（文字列）
;_FUNCNAME    実行する関数名(CALLFORM %FUNCNAME%, _KEY, _VALUE)
;RESULT       特になし
;================================================
@DIC_FOREACH(_DICTIONARY, _FUNCNAME)
#DIMS _DICTIONARY
#DIMS _FUNCNAME
#DIM _KEYCOUNT
#DIM _CNT
#DIMS _DIC_PAIRS,_DIC_MAX

SPLIT _DICTIONARY, "[", _DIC_PAIRS
IF RESULT > _DIC_MAX
	THROW _Dictionary.ERB:連想配列のキー数が多すぎる→%_DICTIONARY%
ENDIF
_KEYCOUNT = RESULT
FOR _CNT,0,_KEYCOUNT
	;空文字列か"キー:値]"のはず
	_DIC_INDEX_OPEN = STRFINDU(_DIC_PAIRS:_CNT, ":")
	IF _DIC_INDEX_OPEN < 0
		CONTINUE
	ENDIF
	;_KEY = SUBSTRINGU(_DIC_PAIRS:_CNT, 0, _DIC_INDEX_OPEN)
	;_VALUE = SUBSTRINGU(_DIC_PAIRS:_CNT, _DIC_INDEX_OPEN + 1, STRLENSU(_DIC_PAIRS:_CNT) - (_DIC_INDEX_OPEN + 1) -1)
	;CALLFORM %_FUNCNAME%, _KEY, _VALUE
	CALLFORM %_FUNCNAME%, SUBSTRINGU(_DIC_PAIRS:_CNT, 0, _DIC_INDEX_OPEN), SUBSTRINGU(_DIC_PAIRS:_CNT, _DIC_INDEX_OPEN + 1, STRLENSU(_DIC_PAIRS:_CNT) - (_DIC_INDEX_OPEN + 1) -1)
NEXT


code:
;DIC関連で用いる一時変数

#DIM CONST _DIC_MAX = 200 ;必要に応じて適宜増やしてください

#DIMS _DICTIONARY_LEFT
#DIMS _DICTIONARY_RIGHT
#DIM _DIC_INDEX_OPEN
#DIM _DIC_INDEX_CLOSE


code:
;_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#
;
;Module   :_LIST.ERB, _LIST.ERH
;Facility :文字列を可変長配列のように扱うライブラリ
;Licence  :ライセンスフリー(CC0)。
;
;Modification Data:
;  Edit  Date          Author                   Reason
;  001   2018/08/29    MinorShift(Emueraの人)   新規作成
;_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/#

;文字列を使った可変長配列もどき
;"値,値,値,"という形式でデータを保存する。（要素数が1以上なら終端にカンマが必須）
;例えば、可変長配列用文字列STRが"ショート,セミロング,ロング,"であるとき、LIST_GET(STR, 1)は"セミロング"を返す。
;また、STRが"ショート,セミロング,ロング,"であるとき、LIST_ADD(STR, "ロングウェーブ")は"ショート,セミロング,ロング,ロングウェーブ,"を返す。
;制限として、格納する値にはカンマが含まれていてはいけない。当然入れ子にはできない。
;標準では一つの可変長配列中の要素の最大数は100個。_LIST.ERHを変更すれば増やせるが実行速度が実用的でないと思われる。
;少しでも高速化するためにデータ形式のチェックは省いている。そのため不正な形式のデータが送られてくると何が起こるかわからない。
;データをまとめて格納するためにどうぞ。
;_Dictionaryとは独立しているので値として連想配列を格納する、又は可変長配列を連想配列に格納することはできる。入れ子にすると死ぬ。

;@LIST_ADD(_LIST, _VALUE) ;対象の可変長配列の末尾に_VALUEを追加した可変長配列を返す。
;@LIST_SET(_LIST, _INDEX, _VALUE) ;対象の可変長配列の_INDEX番目の要素を_VALUEで上書きした可変長配列を返す。配列サイズが不足していれば自動的に拡張される。
;@LIST_ADDLIST(_LIST, _LIST_OTHER) ;対象の可変長配列の末尾に_LIST_OTHERを結合した可変長配列を返す。
;@LIST_GET(_LIST, _INDEX) ;対象の可変長配列の_INDEX番目の要素を返す。配列の範囲外である場合、空文字列を返す。
;@LIST_INDEXOF(_LIST, _VALUE) ;対象の可変長配列に_VALUEと完全一致する要素が存在すればその最初のINDEX、存在しなければ-1を返す。
;@LIST_COUNT(_LIST) ;対象の可変長配列のサイズ（要素数）を返す。
;@LIST_INSERTAT(_LIST, _INDEX, _VALUE) ;対象の可変長配列の_INDEX番目に_VALUEを追加した可変長配列を返す。
;@LIST_REMOVEAT(_LIST, _INDEX) ;対象の可変長配列の_INDEX番目の要素を削除した可変長配列を返す。配列の範囲外である場合、_LISTをそのまま返す。
;@LIST_REMOVEALL(_LIST, _VALUE) ;対象の可変長配列から_VALUEと一致する要素を全て削除した可変長配列を返す。
;@LIST_SORT(_LIST) ;対象の可変長配列を昇順でソートした可変長配列を返す。
;@LIST_SORT_R(_LIST) ;対象の可変長配列を逆順（降順）でソートした可変長配列を返す。
;@LIST_FOREACH(_LIST, _FUNCNAME) ;対象の可変長配列に含まれる要素全てについて、順番にCALLFORM %_FUNCNAME%, _VALUE; を実行する。

;================================================
;@LIST_SET (#FUNCTIONS);対象の可変長配列の_INDEX番目の要素を_VALUEで上書きした可変長配列を返す。配列サイズが不足していれば自動的に拡張される。
;_LIST       対象の可変長配列（文字列）
;_INDEX      追加又は変更する場所のインデックス
;_VALUE      追加又は変更する値
;RETURNF     追加又は変更された可変長配列（文字列）
;================================================
@LIST_SET(_LIST, _INDEX, _VALUE)
#FUNCTIONS
#DIMS _LIST
#DIM _INDEX
#DIMS _VALUE
#DIM _COUNT
IF _INDEX < 0
	THROW _List.ERB:_INDEXに負の値({_INDEX})が指定された→%_LIST%
ENDIF
_LIST_LENGTH = STRCOUNT(_LIST, ",")
;配列数不足なら拡張（,を増やす）して終了
IF _INDEX >= _LIST_LENGTH
	RETURNF _LIST + ("," * (_INDEX - _LIST_LENGTH)) + _VALUE + ","
ENDIF
;(_INDEX-1)番目のカンマと_INDEX番目のカンマを探索して_LIST_INDEX_LEFT,_LIST_INDEX_RIGHTに代入
_LIST_INDEX_COMMA = -1
_LIST_INDEX_LEFT = -1
_COUNT = 0
WHILE 1
	_LIST_INDEX_COMMA = STRFINDU(_LIST, "," , _LIST_INDEX_COMMA + 1)
	IF _COUNT == _INDEX
		_LIST_INDEX_RIGHT = _LIST_INDEX_COMMA
		BREAK
	ENDIF
	_LIST_INDEX_LEFT = _LIST_INDEX_COMMA
	_COUNT ++
WEND
IF _INDEX > 0
	;右端にカンマを含む形で切り取る
	_LIST_LEFT '= SUBSTRINGU(_LIST,0,_LIST_INDEX_LEFT+1)
ELSE
	_LIST_LEFT '= ""
ENDIF
;左端にカンマを含む形で切り取る
_LIST_RIGHT '= SUBSTRINGU(_LIST, _LIST_INDEX_RIGHT , -1)

;足して返す
RETURNF _LIST_LEFT + _VALUE + _LIST_RIGHT

;================================================
;@LIST_ADD (#FUNCTIONS);対象の可変長配列の末尾に_VALUEを追加した可変長配列を返す。
;_LIST       対象の可変長配列（文字列）
;_VALUE      追加する値
;RETURNF     追加された可変長配列（文字列）
;================================================
@LIST_ADD(_LIST, _VALUE)
#FUNCTIONS
#DIMS _LIST
#DIMS _VALUE
RETURNF _LIST + _VALUE + ","

;================================================
;@LIST_ADDLIST (#FUNCTIONS);対象の可変長配列の末尾に_LIST_OTHERを結合した可変長配列を返す。
;_LIST       対象の可変長配列（文字列）
;_LIST_OTHER 追加する可変長配列
;RETURNF     追加された可変長配列（文字列）
;================================================
@LIST_ADDLIST(_LIST, _LIST_OTHER)
#FUNCTIONS
#DIMS _LIST
#DIMS _LIST_OTHER
RETURNF _LIST + "," + _LIST_OTHER

;@LIST_GET(_LIST, _INDEX) ;対象の可変長配列の_INDEX番目の要素を返す。配列の範囲外である場合、空文字列を返す。
;================================================
;@LIST_GET (#FUNCTIONS);対象の可変長配列の_INDEX番目の要素を返す。配列の範囲外である場合、空文字列を返す。
;_LIST       対象の可変長配列（文字列）
;_INDEX      取得する要素のインデックス
;RETURNF     取得した要素
;================================================
@LIST_GET(_LIST, _INDEX)
#FUNCTIONS
#DIMS _LIST
#DIM _INDEX
#DIM _COUNT
IF _INDEX < 0
	THROW _List.ERB:_INDEXに負の値({_INDEX})が指定された→%_LIST%
ENDIF
;(_INDEX-1)番目のカンマと_INDEX番目のカンマを探索して_LIST_INDEX_LEFT,_LIST_INDEX_RIGHTに代入
_LIST_INDEX_COMMA = -1
_LIST_INDEX_LEFT = -1
_COUNT = 0
WHILE 1
	_LIST_INDEX_COMMA = STRFINDU(_LIST, "," , _LIST_INDEX_COMMA + 1)
	IF _COUNT == _INDEX
		_LIST_INDEX_RIGHT = _LIST_INDEX_COMMA
		BREAK
	ENDIF
	;_INDEXが配列外参照
	IF _LIST_INDEX_COMMA < 0
		RETURNF ""
	ENDIF
	_LIST_INDEX_LEFT = _LIST_INDEX_COMMA
	_COUNT ++
WEND
RETURNF SUBSTRINGU(_LIST,_LIST_INDEX_LEFT + 1, _LIST_INDEX_RIGHT - _LIST_INDEX_LEFT - 1)

;@LIST_COUNT(_LIST) ;対象の可変長配列のサイズ（要素数）を返す。
;================================================
;@LIST_COUNT (#FUNCTION);対象の可変長配列のサイズ（要素数）を返す。
;_LIST       対象の可変長配列（文字列）
;RETURNF     サイズ（要素数）
;================================================
@LIST_COUNT(_LIST)
#FUNCTION
#DIMS _LIST
RETURNF STRCOUNT(_LIST, ",")

;================================================
;@LIST_INSERTAT (#FUNCTIONS);対象の可変長配列の_INDEX番目に_VALUEを追加した可変長配列を返す。
;_LIST       対象の可変長配列（文字列）
;_INDEX      追加する場所のインデックス
;_VALUE      追加する値
;RETURNF     追加された可変長配列（文字列）
;================================================
@LIST_INSERTAT(_LIST, _INDEX, _VALUE)
#FUNCTIONS
#DIMS _LIST
#DIM _INDEX
#DIMS _VALUE
#DIM _COUNT
IF _INDEX < 0
	THROW _List.ERB:_INDEXに負の値({_INDEX})が指定された→%_LIST%
ENDIF
_LIST_LENGTH = STRCOUNT(_LIST, ",")
;配列数不足なら拡張（,を増やす）して終了。LIST_SETと同じ処理
IF _INDEX >= _LIST_LENGTH
	RETURNF _LIST + ("," * (_INDEX - _LIST_LENGTH)) + _VALUE + ","
ENDIF

;(_INDEX-1)番目のカンマと_INDEX番目のカンマを探索して_LIST_INDEX_LEFT,_LIST_INDEX_RIGHTに代入
_LIST_INDEX_COMMA = -1
_LIST_INDEX_LEFT = -1
_COUNT = 0
WHILE 1
	_LIST_INDEX_COMMA = STRFINDU(_LIST, "," , _LIST_INDEX_COMMA + 1)
	IF _COUNT == _INDEX
		_LIST_INDEX_RIGHT = _LIST_INDEX_COMMA
		BREAK
	ENDIF
	_LIST_INDEX_LEFT = _LIST_INDEX_COMMA
	_COUNT ++
WEND
IF _INDEX > 0
	;右端にカンマを含む形で切り取る
	_LIST_LEFT '= SUBSTRINGU(_LIST,0,_LIST_INDEX_LEFT+1)
ELSE
	_LIST_LEFT '= ""
ENDIF
;左端にカンマを含む形で切り取る
_LIST_RIGHT '= SUBSTRINGU(_LIST, _LIST_INDEX_LEFT , -1); _LIST_INDEX_RIGHTじゃなくてLEFT。元のINDEX番目の要素を含む

;足して返す
RETURNF _LIST_LEFT + _VALUE + _LIST_RIGHT

;================================================
;@LIST_REMOVEAT (#FUNCTIONS);対象の可変長配列の_INDEX番目の要素を削除した可変長配列を返す。配列の範囲外である場合、_LISTをそのまま返す。
;_LIST       対象の可変長配列（文字列）
;_INDEX      削除する場所のインデックス
;RETURNF     削除された可変長配列（文字列）
;================================================
@LIST_REMOVEAT(_LIST, _INDEX)
#FUNCTIONS
#DIMS _LIST
#DIM _INDEX
#DIM _COUNT
IF _INDEX < 0
	THROW _List.ERB:_INDEXに負の値({_INDEX})が指定された→%_LIST%
ENDIF
_LIST_LENGTH = STRCOUNT(_LIST, ",")
;配列外なら_LISTをそのまま返す
IF _INDEX > _LIST_LENGTH
	RETURNF _LIST
ENDIF
;配列の唯一の要素を削除しようとしているなら空配列（空文字列）を返す
IF _LIST_LENGTH == 1 && _INDEX == 0
	RETURNF ""
ENDIF
;(_INDEX-1)番目のカンマと_INDEX番目のカンマを探索して_LIST_INDEX_LEFT,_LIST_INDEX_RIGHTに代入
_LIST_INDEX_COMMA = -1
_LIST_INDEX_LEFT = -1
_COUNT = 0
WHILE 1
	_LIST_INDEX_COMMA = STRFINDU(_LIST, "," , _LIST_INDEX_COMMA + 1)
	IF _COUNT == _INDEX
		_LIST_INDEX_RIGHT = _LIST_INDEX_COMMA
		BREAK
	ENDIF
	_LIST_INDEX_LEFT = _LIST_INDEX_COMMA
	_COUNT ++
WEND
IF _INDEX > 0
	;右端にカンマを"含まない"形で切り取る
	_LIST_LEFT '= SUBSTRINGU(_LIST,0,_LIST_INDEX_LEFT)
ELSE
	_LIST_LEFT '= ""
ENDIF
;左端にカンマを含む形で切り取る
_LIST_RIGHT '= SUBSTRINGU(_LIST, _LIST_INDEX_RIGHT , -1)

;足して返す
RETURNF _LIST_LEFT + _LIST_RIGHT

;================================================
;@LIST_INDEXOF (#FUNCTION) ;対象の可変長配列に_VALUEと完全一致する要素が存在すればその最初のINDEX、存在しなければ-1を返す。
;_LIST       対象の可変長配列（文字列）
;_VALUE      探索する値
;RETURNF     発見されたINDEX又は-1
;================================================
@LIST_INDEXOF(_LIST, _VALUE)
#FUNCTION
#DIMS _LIST
#DIMS _VALUE
#DIM _KEYCOUNT
#DIM _CNT
;手抜きして「_VALUE + ","」をFINDすると_VALUEが空文字列の時に爆死する
SPLIT _LIST, ",", _LIST_ELEMENT
IF RESULT > _LIST_MAX
	THROW _List.ERB:リストの要素数が多すぎる→%_LIST%
ENDIF
_KEYCOUNT = RESULT-1 ;末尾が,なのでSPLITした末端は空文字列になる
IF _KEYCOUNT <= 0
	RETURNF -1
ENDIF
FOR _CNT,0,_KEYCOUNT
	IF _LIST_ELEMENT:_CNT == _VALUE
		RETURNF _CNT
	ENDIF
NEXT
RETURNF -1

;================================================
;@LIST_REMOVEALL (#FUNCTIONS) ;対象の可変長配列から_VALUEと一致する要素を全て削除した可変長配列を返す。
;_LIST       対象の可変長配列（文字列）
;_VALUE      削除する値
;RETURNF     削除された可変長配列（文字列）
;================================================
@LIST_REMOVEALL(_LIST, _VALUE)
#FUNCTIONS
#DIMS _LIST
#DIMS _VALUE
#DIM _KEYCOUNT
#DIM _CNT
;手抜きして「_VALUE + ","」を空文字列でREPLACEすると_VALUEが空文字列の時に爆死する
SPLIT _LIST, ",", _LIST_ELEMENT
IF RESULT > _LIST_MAX
	THROW _List.ERB:リストの要素数が多すぎる→%_LIST%
ENDIF
_KEYCOUNT = RESULT-1 ;末尾が,なのでSPLITした末端は空文字列になる
IF _KEYCOUNT <= 0
	RETURNF _LIST
ENDIF
_LIST '= ""
FOR _CNT,0,_KEYCOUNT
	IF _LIST_ELEMENT:_CNT == _VALUE
		CONTINUE
	ENDIF
	_LIST += _LIST_ELEMENT:_CNT + ","
NEXT
RETURNF _LIST

;================================================
;@LIST_SORT (#FUNCTIONS) ;対象の可変長配列を昇順でソートした可変長配列を返す。
;_LIST       対象の可変長配列（文字列）
;RETURNF     ソートされた可変長配列（文字列）
;================================================
@LIST_SORT(_LIST)
#FUNCTIONS
#DIMS _LIST
#DIMS _FUNCNAME
#DIM _KEYCOUNT
#DIM _CNT
SPLIT _LIST, ",", _LIST_ELEMENT
IF RESULT > _LIST_MAX
	THROW _List.ERB:リストの要素数が多すぎる→%_LIST%
ENDIF
_KEYCOUNT = RESULT-1 ;末尾が,なのでSPLITした末端は空文字列になる
IF _KEYCOUNT <= 0
	RETURNF _LIST
ENDIF
ARRAYSORT _LIST_ELEMENT, FORWARD, 0, _KEYCOUNT
_LIST '= ""
FOR _CNT,0,_KEYCOUNT
	_LIST += _LIST_ELEMENT:_CNT + ","
NEXT
RETURNF _LIST

;================================================
;@LIST_SORT_R (#FUNCTIONS) ;対象の可変長配列を逆順（降順）でソートした可変長配列を返す。
;_LIST       対象の可変長配列（文字列）
;RETURNF     ソートされた可変長配列（文字列）
;================================================
@LIST_SORT_R(_LIST)
#FUNCTIONS
#DIMS _LIST
#DIMS _FUNCNAME
#DIM _KEYCOUNT
#DIM _CNT
SPLIT _LIST, ",", _LIST_ELEMENT
IF RESULT > _LIST_MAX
	THROW _List.ERB:リストの要素数が多すぎる→%_LIST%
ENDIF
_KEYCOUNT = RESULT-1 ;末尾が,なのでSPLITした末端は空文字列になる
IF _KEYCOUNT <= 0
	RETURNF _LIST
ENDIF
ARRAYSORT _LIST_ELEMENT, BACK, 0, _KEYCOUNT
_LIST '= ""
FOR _CNT,0,_KEYCOUNT
	_LIST += _LIST_ELEMENT:_CNT + ","
NEXT
RETURNF _LIST

;================================================
;@LIST_FOREACH ;対象の可変長配列に含まれる要素全てについて、順番にCALLFORM %_FUNCNAME%, _VALUE; を実行する。
;_LIST  対象の連想配列（文字列）
;_FUNCNAME    実行する関数名(CALLFORM %_FUNCNAME%, _VALUE)
;RESULT       特になし
;================================================
@LIST_FOREACH(_LIST, _FUNCNAME)
#DIMS _LIST
#DIMS _FUNCNAME
#DIM _KEYCOUNT
#DIM _CNT
#DIMS _LIST_ELEMENT_P,_LIST_MAX ;ERHの変数を使うとFOREACH中に他の配列のSORTとかできなくなるので。再帰の需要はたぶんないからDYNAMICにはしない

SPLIT _LIST, ",", _LIST_ELEMENT_P
IF RESULT > _LIST_MAX
	THROW _List.ERB:リストの要素数が多すぎる→%_LIST%
ENDIF

_KEYCOUNT = RESULT-1 ;末尾が,なのでSPLITした末端は空文字列になる
IF _KEYCOUNT <= 0
	RETURN
ENDIF
FOR _CNT,0,_KEYCOUNT
	CALLFORM %_FUNCNAME%, _LIST_ELEMENT_P:_CNT
NEXT
RETURN


code:
;LIST関連で用いる一時変数

#DIM CONST _LIST_MAX = 100 ;必要に応じて適宜増やしてください
#DIMS _LIST_LEFT
#DIMS _LIST_RIGHT
#DIM _LIST_INDEX_COMMA
#DIM _LIST_INDEX_LEFT
#DIM _LIST_INDEX_RIGHT
#DIM _LIST_LENGTH

#DIMS _LIST_ELEMENT,_LIST_MAX


code:
;----------------------------------------------------------
;@COLOR(ARGS)
;----------------------------------------------------------
@COLOR, ARGS
#FUNCTION
SELECTCASE TOUPPER(ARGS)
	CASE "RED", "빨강", "赤"
		RETURNF 0xFF0000
	CASE "DARKRED"
		RETURNF 0x990000
	CASE "BLUE"
		RETURNF 0x0000FF
	CASE "P-RED", "PASTEL-RED", "파 빨강", "パ赤"
		RETURNF 0xC07070
	CASE "P_BLUE", "PASTEL-BLUE", "파 파랑", "パ青"
		RETURNF 0x7070C0
	CASE "P_GREEN", "PASTEL-GREEN", "파 초록", "パ緑"
		RETURNF 0x70C070
	CASE "MEDSPRINGGREEN"
		RETURNF 0x00FA9A
	CASE "GREEN","초록", "緑"
		RETURNF 0x00FF00
	CASE "P_PURPLE", "PASTEL-PURPLE", "파 유카리", "パ紫"
		RETURNF 0xC070C0
	CASE "P-YELLOW", "PASTEL-YELLOW", "파 노랑", "パ黄"
		RETURNF 0x505020
	CASE "P-BGREEN", "P_BLUEGREEN", "PASTEL-BLUEGREEN", "파 청록색", "パ青緑"
		RETURNF 0x205050
	CASE "WHITE", "흰색", "白"
		RETURNF 0xC0C0C0
	CASE "BLACK", "흑", "黒"
		RETURNF 0x000000
	CASE "AQUA", "물색", "水色"
		RETURNF 0x66FFFF
	CASE "GRAY", "회색", "灰色"
		RETURNF 0x404040
	CASE "LIGHT-GRAY", "명회색", "明灰色"
		RETURNF 0x777777
	CASE "PINK", "복숭아", "桃"
		RETURNF 0xFFCCFF
	CASE "DARK-PINK", "흑도", "黒桃"
		RETURNF 0x990099
	CASE "YELLOW", "노랑", "黄"
		RETURNF 0xFFFF00
	CASE "ORANGE","등","橙"
		RETURNF 0xFFA500
	CASE "CREAM"
		RETURNF 0xFFFFCC
ENDSELECT

@COLORMESSAGE(ARGS, 색, 표시형식, 폰트스타일)
;직전까지 사용하고 있던 색과 폰트를 보존해, 사용후는 그 쪽으로 복귀하도록(듯이)
;표시형식　0=통상　1=L　2=W
;폰트스타일　0=통상　1=굵은 글씨　2=이탤릭　4=부정선　8=밑줄
;(비트로 관리되고 있기 (위해)때문에 가령 3이라면 굵은 글씨＋이탤릭)
#DIM 현재지정의색
#DIM 현재지정의폰트스타일
#DIM 색
#DIM 폰트스타일
#DIM 표시형식

현재지정의색 = GETCOLOR()
현재지정의폰트스타일 = GETSTYLE()

SIF 폰트스타일
	FONTSTYLE 폰트스타일
SETCOLOR 색
SELECTCASE 표시형식
	CASE 0
	PRINTFORM %ARGS%
	CASE 1
	PRINTFORML %ARGS%
	CASE 2
	PRINTFORMW %ARGS%
ENDSELECT
SETCOLOR 현재지정의색
FONTSTYLE 현재지정의폰트스타일

;조건을 채우고 있었을 경우에 황색을 붙인다
@COND_COLORMESSAGE(COND, MESSAGE)
#DIM COND
#DIMS MESSAGE
SIF COND
	SETCOLOR C_YELLOW
PRINTFORML %MESSAGE%
RESETCOLOR

;-------------------------------------------------------------------------------
;    BAR의 색 달리하고 판
;-------------------------------------------------------------------------------
;    예  PRINTFORM %PRINT_COLORBAR(40,100,8, %UNICODE(0x2584)%, %UNICODE(0x2584)%, , 0x404040)%
;        [===     ]
;    인수는 BAR와 거의 함께 + ARGS로 묘사 문자의 변경이 가능(지정하지 않는 경우는 BAR와 같은 사양)
;    ARG:3은 바의 색(0 xFFFFFF 형식에서 지정), ARG:4는 바의 배경 색(0 xFFFFFF 형식에서 지정)
;===============================================================================
@PRINT_COLORBAR(ARG, ARG:1, ARG:2, ARGS = "*", ARGS:1 = ". ", ARG:3, ARG:4)
#LOCALSIZE 5
LOCAL:1 = ARG * ARG:2 / ARG:1
LOCAL:2 = GETCOLOR()
FOR LOCAL, 1, ARG:2 + 1
	IF LOCAL:1 >= LOCAL
		IF !LOCAL:3
			SETCOLOR ARG:3
			LOCAL:3 = 1
		ENDIF
		PRINTFORM %ARGS%
	ELSE
		IF !LOCAL:4
			SETCOLOR ARG:4
			LOCAL:4 = 1
		ENDIF
		PRINTFORM %ARGS:1%
	ENDIF
NEXT
SETCOLOR LOCAL:2
VARSET LOCAL

;-------------------------------------------------
;커스텀 바용색세트 함수 @BARCOLORSET
;PRINT_COLORBAR의 ARG:3에 이용해, ARG;4에 RESULT를 사용한다
;-------------------------------------------------
@BARCOLORSET, ARGS
#FUNCTION
 ;LOCAL에 색을 대입
SELECTCASE ARGS
	CASE "빨강", "赤"
		RESULT:1 = 0x502020
		RETURNF 0xC07070
	CASE "엷은 빨간색", "薄赤"
		RESULT:1 = 0x803040
		RETURNF 0xF07090
	CASE "파랑", "青"
		RESULT:1 = 0x202050
		RETURNF 0x7070C0
	CASE "초록", "緑"
		RESULT:1 = 0x205020
		RETURNF 0x70C070
	CASE "유카리", "紫"
		RESULT:1 = 0x502050
		RETURNF 0xC070C0
	CASE "황색", "黄色"
		RESULT:1 = 0x505020
		RETURNF 0xC0C070
	CASE "청록색", "青緑"
		RESULT:1 = 0x205050
		RETURNF 0x70C0C0
	CASE "흰색", "白"
		RESULT:1 = 0x202020
		RETURNF 0xC0C0C0
	CASE "오렌지", "オレンジ"
		RESULT:1 = 0x504010
		RETURNF 0xFF8000
	CASE "물색", "水色"
		RESULT:1 = 0x203030
		RETURNF 0x5090FF
	CASE "EXTRA"
		RESULT:1 = 0x505020
		RETURNF 0xFFFFDD
	CASE "EXTRA2"
		RESULT:1 = 0x505020
		RETURNF 0xFFFFDD
	 ;흰색
	 CASEELSE
		RESULT:1 = 0x202020
		RETURNF 0xCCFFCC
ENDSELECT

;-------------------------------------------------
;하트 마크 함수 @HEART
;	인수 0：하트의 수(생략 하면(자) 1개)
;	인수 1：사용하는 폰트명(생략 하면(자) Verdana)
;솎아내기의 하트 마크를 표시합니다
;-------------------------------------------------
@HEART(ARG = 1, ARGS)
LOCALS = %GETFONT()%
SETFONT "Times New Roman"
PRINTFORM %UNICODE(0x2665) *ARG%
;PRINTFORM %UNICODE(0x2661) *ARG%
SETFONT LOCALS

@HEARTMARK(ARG, ARGS)
GETFONT
LOCAL = GETCOLOR()
SIF ARGS != "PLAIN"
	SETCOLOR C_H_PINK
SETFONT "Times New Roman"
;PRINTFORM %UNICODE(0x2665) * ARG%
PRINTFORM %UNICODE(0x2764) * ARG%

SETFONT RESULTS
SETCOLOR LOCAL

;하트 문자를 돌려준다
;폰트는 고려하고 있지 않다
@GET_HEART()
#FUNCTIONS
RETURNF UNICODE(0x2665)

;하트 문자로 사이에 둔다
@CLIP_HEART(캐릭터라인)
#FUNCTIONS
#DIMS 캐릭터라인
캐릭터라인 = %GET_HEART() + 캐릭터라인 + GET_HEART()%
RETURNF 캐릭터라인

;미노리코 말로부터 꿀꺽
;### 하트만 다른 색으로 PRINT하기 위한 함수 ##################
;캐릭터라인중에 포함되는"HPH"를 핫 핑크 칼라의 하트로서 PRINT 해, 그 이외의캐릭터라인은 통상의 색으로 보통으로 PRINT 한다
;ARGS "W"=PRINTSW로 표시. "L"=PRINTSL로 표시. "W"도"L"도 아니면 PRINTS로 표시
@HPH_PRINT, 대상캐릭터라인, ARGS
#DIMS 대상캐릭터라인
#DIM 출력문자수
#DIM HPH인데크스치

DO
	HPH인데크스치 = STRFIND(대상캐릭터라인, "HPH")

	;대상캐릭터라인이 HPH로 시작되지 않지만 뒤로 HPH가 있는 경우
	IF HPH인데크스치 >= 1
		;HPH의 직전까지 문자 표시
		LOCALS = %SUBSTRING(대상캐릭터라인, 0, HPH인데크스치)%
		PRINTS @"%LOCALS%"
		출력문자수 = STRLENS(LOCALS)
	;대상캐릭터라인이 HPH로 시작되는 경우
	ELSEIF HPH인데크스치 == 0
		LOCALS:1 = %GETFONT()%
		SETFONT "Times New Roman"
		LOCAL = GETCOLOR()
		SETCOLOR C_H_PINK
		PRINTFORM %UNICODE(0x2764)%
		SETCOLOR LOCAL
		SETFONT LOCALS:1
		출력문자수 = 3
	;HPH가 이제 없는 경우
	ELSE
		;여기서 ARGS에 의한 분기
		SELECTCASE ARGS
		CASE "W"
			PRINTSW @"%대상캐릭터라인%"
		CASE "L"
			PRINTSL @"%대상캐릭터라인%"
		CASEELSE
			PRINTS @"%대상캐릭터라인%"
		ENDSELECT
		BREAK
	ENDIF

	;표시 끝난 문자분을 삭제해 대상캐릭터라인을 갱신한다
	대상캐릭터라인 = %SUBSTRING(대상캐릭터라인, 출력문자수, -1)%

LOOP 1


code:
;*******************************************************************************************************
;キャラクター表示用関数群
;*******************************************************************************************************
@PRINT_TARGET_IMAGE(ターゲット)
#DIM REF ターゲット
#DIM 現在ターゲット
#DIM ターゲット人数
#DIM 表示番号
#DIM iFont_Hei_mag
#DIM iSpaceSize
#DIMS sPrint_Text
#DIM CONST kFontSize = 1000	;フォントサイズ倍率
#DIM Save_RESULT			;RESULTの保護
#DIM iPrintStart = 1		;描画を開始するTARGET配列番号
#DIM CHARA
#DIMS リソース名
#DIMS リソース名_マウスオーバー
#DIMS 服装
#DIMS 表示形式
#DIMS 特殊服装
#DIMS 特殊画像

;デフォルト画像サイズ比リセット
キャラ画像表示サイズ比 = 100

SIF !ターゲット
	RETURN RESULT

SIF GETCONFIGS("描画インターフェース") == "WINAPI"
	THROW 描画インターフェースをTextRendererに変更して下さい

;RESULTの保護
SAVE_RESULT = RESULT

;ターゲット情報の取得
ターゲット人数 = GET_TARGETNUM()
現在ターゲット = FINDELEMENT(ターゲット,ターゲット:0,1)

;フォントサイズと高さとの倍率差　四捨五入
iFont_Hei_mag = GETCONFIG("一行の高さ") * kFontSize*10 / GETCONFIG("フォントサイズ")
iFont_Hei_mag = (iFont_Hei_mag/10) + (iFont_Hei_mag%10 >= 5?1#0)

;画像表示数に合わせてサイズ比を調整
IF FLAG:그림표시 * デフォルトキャラ画像横幅 > GETCONFIG("ウィンドウ幅") && FLAG:그림표시 <= ターゲット人数
	キャラ画像表示サイズ比 = GETCONFIG("ウィンドウ幅") / FLAG:그림표시 * 100 / デフォルトキャラ画像横幅
ENDIF
キャラ画像表示サイズ比 = キャラ画像表示サイズ比 * (100 + isModifier) / 100

;描画開始位置の決定
IF FLAG:그림표시 != 1
	IF 現在ターゲット >= (iPrintStart + FLAG:그림표시) || 現在ターゲット < iPrintStart
		;画面外
		iPrintStart = 現在ターゲット -1
	ELSEIF iPrintStart == 現在ターゲット
		;画面左端
		iPrintStart--
	ELSEIF (iPrintStart + FLAG:그림표시)-1 ==  現在ターゲット && ターゲット人数 > FLAG:그림표시
		;画面右端
		iPrintStart++
	ENDIF

	;始端終端
	iPrintStart = LIMIT(iPrintStart, 1, MAX(ターゲット人数-FLAG:그림표시+1, FLAG:그림표시))
ELSEIF FLAG:그림표시 == 1
	iPrintStart = 現在ターゲット
ENDIF
;-----------------
;テキストタグボタン
;-----------------
sPrint_Text =
<nobr>
FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
	SIF !ターゲット:LOCAL
		BREAK
	;左右幅合わせ　[名前] -120は[]分
	STRLENFORMU %CALLNAME:(ターゲット:LOCAL)%
	IF キャラ画像表示サイズ比 <= 60
		iSpaceSize	=	(iFont_Hei_mag-(RESULT*120)-120) / 2
	ELSEIF キャラ画像表示サイズ比 <= 70
		iSpaceSize	=	(iFont_Hei_mag-(RESULT*100)-120) / 2
	ELSEIF キャラ画像表示サイズ比 <= 80
		iSpaceSize	=	(iFont_Hei_mag-(RESULT*60)-120) / 2
	ELSEIF キャラ画像表示サイズ比 <= 90
		iSpaceSize	=	(iFont_Hei_mag-(RESULT*40)-120) / 2
	ELSEIF キャラ画像表示サイズ比 <= 120
		iSpaceSize	=	(iFont_Hei_mag-(RESULT*20)-120) / 2
	ELSE
		iSpaceSize	=	(iFont_Hei_mag-(RESULT*5)-120) / 2
	ENDIF
	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize * キャラ画像表示サイズ比 / 100}'>"

	SIF ターゲット == ターゲット:LOCAL
		sPrint_Text += @""
	sPrint_Text += @"<button value='{1000+ターゲット:LOCAL}' title='ターゲット{LOCAL}'>[%CALLNAME:(ターゲット:LOCAL)%]</button>"
	SIF ターゲット == ターゲット:LOCAL
		sPrint_Text += @""

	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize * キャラ画像表示サイズ比 / 100}'>"

NEXT
HTML_PRINT sPrint_Text

;-----------------
;画像表示
;-----------------
FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
	CHARA = ターゲット:LOCAL
	SIF !CHARA
		BREAK
	RESULT = 0
	IF FLAG:그림표시
		SIF TALENT:CHARA:스침 && !GCREATED(CFLAG:CHARA:モブ子素材CFLAG開始位置)
			CALL モブ子生成(CHARA)
		;形式をひとつずつ決めていく,表情変化は式内関数化し、マウスオーバー時はRESULTS:1を使用
		IF FLAG:스탠딩종류 && !TALENT:CHARA:스침
			表示形式 = 顔絵
		ELSE
			表示形式 = 立ち絵
		ENDIF
		IF 裸表示(CHARA)
			服装 = 裸
			特殊服装 =
		ELSE
			服装 = 服
			特殊服装 = %特殊服装(CHARA)%
		ENDIF
		特殊画像 = %特殊画像(CHARA)%
		リソース名 = %表示形式%_%服装%%特殊服装%_%表情変化(CHARA, 服装)%_{CHARA}%特殊画像%
		リソース名_マウスオーバー = %表示形式%_%服装%%特殊服装%_%RESULTS:1%_{CHARA}%特殊画像%
		;リソースのチェック 見つからない場合は通常に切り替え
		SIF !SPRITECREATED(リソース名)
			リソース名 = %表示形式%_服_通常_{CHARA}
		;時間停止時はマウスオーバー表示しない
		SIF FLAG:시간정지
			リソース名_マウスオーバー =
		;画像セット
		CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比, 1, @"{1000+CHARA}", @"ターゲット:{LOCAL}", リソース名_マウスオーバー)
	ENDIF
NEXT
CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)

;-----------------
;照れ表示
;-----------------
IF FLAG:스탠딩종류
	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		CHARA = ターゲット:LOCAL
		SIF !CHARA
			BREAK
		IF FLAG:그림표시
			RESULT = 0
			;現在は文とマミゾウの5枚表情パターン用
			IF TARGET_BLUSH_EXCEPTION(CHARA)
				;すでに照れ状態
				CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
			ELSEIF BLUSH(CHARA)
				IF TALENT:CHARA:스침
					;モブ子表示用 今はまだない
				ELSE
					リソース名 = 顔絵_%特殊照れ(CHARA, 特殊服装)%照れ_{CHARA}%特殊画像%
					CALL 画像セット(リソース名, 0, 0, キャラ画像表示サイズ比)
				ENDIF
			ELSE
				CALL 画像セット("ダミー", 0, 0, キャラ画像表示サイズ比)
			ENDIF
		ENDIF
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)
ENDIF
;----------------------------------
;	時間停止時の処理
;上から背景色と同じ色を透過度入れて重ねる
;キャラとのブレンドは出来ないので背景色に合わせる
;----------------------------------
IF FLAG:시간정지
	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		SIF !ターゲット:LOCAL
			BREAK
		CALL 画像セット("時間停止", 0, 0, キャラ画像表示サイズ比)
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)
ENDIF

;----------------------------------
;	フレーム描画
;----------------------------------
IF FLAG:화상범위표시
	FOR LOCAL, iPrintStart, FLAG:그림표시 + iPrintStart
		SIF !ターゲット:LOCAL
			BREAK
		IF TALENT:(ターゲット:LOCAL):기분 == -1
			CALL 画像セット("フレーム_怒り", 0, 0, キャラ画像表示サイズ比)
		ELSEIF TALENT:(ターゲット:LOCAL):기분 == 1
			CALL 画像セット("フレーム_笑顔", 0, 0, キャラ画像表示サイズ比)
		ELSE
			CALL 画像セット("フレーム_通常", 0, 0, キャラ画像表示サイズ比)
		ENDIF
	NEXT
	CALL 画像一斉表示(@"\@FLAG:그림표시위치?左#中央\@", 0, 0)
ENDIF
CALL 画像表示("ダミー", @"\@FLAG:그림표시위치?左#中央\@", 0, 0, キャラ画像表示サイズ比, 1)

CALL 画像描画終了
IF FLAG:화상설정
	;-----------------
	;表示設定関連
	;-----------------
	sPrint_Text =

	sPrint_Text += @"<button value='3105' title='現在：\@FLAG:스탠딩종류?顔絵#立ち絵\@'>"
	sPrint_Text += @"立ち絵種類[\@FLAG:스탠딩종류?顔絵#立ち絵\@]　</button>"
	sPrint_Text += @"<button value='3103' title='現在：\@FLAG:그림표시위치?左寄せ#中央寄せ\@'>"
	sPrint_Text += @"表示位置[\@FLAG:그림표시위치?left#center\@]　</button>"
	sPrint_Text += @"<button value='3104' title='現在：\@FLAG:화상범위표시?ON#OFF\@'>"
	sPrint_Text += @"枠表示[\@FLAG:화상범위표시?ON#OFF\@]</button>"
	sPrint_Text += "
"

	;-----------------
	;表示人数の増減　＜＜＞＞でTARGETを横に移動
	;-----------------
	sPrint_Text += @"<button value='{1000+ターゲット:(MAX(現在ターゲット-1,1))}' title='ターゲット－'>＜＜</button>"
	sPrint_Text += @"<button value='3101' title='表示人数－'>[－]</button>"
	sPrint_Text += @"表示人数[{FLAG:그림표시}]"
	sPrint_Text += @"<button value='3102' title='表示人数＋'>[＋]</button>"
	sPrint_Text += @"<button value='{1000+ターゲット:(MIN(現在ターゲット+1,ターゲット人数+1))}' title='ターゲット＋'>＞＞</button>"

	sPrint_Text += @"<button value='3106' title='画像サイズ－'>[－]</button>"
	sPrint_Text += @"画像サイズ[{100 + isModifier}％]"
	sPrint_Text += @"<button value='3107' title='表示人数＋'>[＋]</button>"
	HTML_PRINT sPrint_Text
ENDIF

RESULT = SAVE_RESULT
RETURN RESULT

;表情の設定
;マウスオーバー時も同時に判定する
@表情変化(ARG, 服装)
#FUNCTIONS
#DIMS 服装
IF TALENT:ARG:기분 == -1 || CFLAG:ARG:빡침
	RESULTS:0 = 怒り
	LOCAL = -1
ELSEIF TALENT:ARG:기분 == 1 || BASE:ARG:무드 == MAXBASE:ARG:무드 || TCVAR:ARG:만취
	RESULTS:0 = 笑顔
	LOCAL = 1
ELSE
	RESULTS:0 = 通常
	LOCAL = 0
ENDIF
;5枚表情パターン用
IF TARGET_BLUSH_EXCEPTION(ARG)
	RESULTS:1 = %RESULTS:0%
	IF CFLAG:ARG:우후후 && !FLAG:시간정지
		RESULTS:0 = LOVE
		RESULTS:1 = 赤面
	ELSE
		RESULTS:0 = 赤面
	ENDIF
	RETURNF RESULTS:0
;睡眠用
ELSEIF CFLAG:ARG:수면 && FLAG:스탠딩종류
	SELECTCASE ARG
	CASE [[映姫]], [[さとり]], [[夢子]], [[ドレミー]]
		RESULTS:0 = 睡眠
		RESULTS:1 = 睡眠
	ENDSELECT
	RETURNF RESULTS:0
ENDIF
;マウスオーバー時のRESULTS:1を設定
SIF CHECK_CHARA(ARG, "陥落")
	LOCAL ++
SIF BATHROOM(CFLAG:ARG:현재위치) && 風呂追い出し条件(ARG)
	LOCAL --
SIF MARK:ARG:반발각인
	LOCAL --
SIF BASE:ARG:분노 >= 500
	LOCAL --
SIF BASE:ARG:무드 >= 650
	LOCAL ++
SELECTCASE RESULTS:0
CASE "笑顔"
;	笑顔時は表情が固まらないように
;	IF LOCAL < 0
		RESULTS:1 = 通常
;	ELSE
;		RESULTS:1 = 笑顔
;	ENDIF
CASE "怒り"
	IF LOCAL > 0
		RESULTS:1 = 通常
	ELSE
		RESULTS:1 = 怒り
	ENDIF
CASEELSE
	IF LOCAL > 0
		RESULTS:1 = 笑顔
	ELSEIF LOCAL < 0
		RESULTS:1 = 怒り
	ELSE
		RESULTS:1 = 通常
	ENDIF
ENDSELECT
;専用の特殊表情変化
IF ARG == [[さとり]] && FLAG:스탠딩종류 && 服装 == "裸"
	;マウスオーバーのみ変化
	SELECTCASE RESULTS:1
	CASE "笑顔"
		RESULTS:1 = 裸笑顔
	CASE "怒り"
		RESULTS:1 = 裸怒り
	CASEELSE
		RESULTS:1 = 裸通常
	ENDSELECT
ELSEIF ARG == [[依姫]] && FLAG:스탠딩종류 && 服装 == "裸" && MARK:ARG:쾌락각인 < 3 && PALAM:ARG:욕정 < 200000 && !FLAG:시간정지
	SELECTCASE RESULTS:0
	CASE "笑顔"
		RESULTS:0 = 恥笑顔
	CASE "怒り"
		RESULTS:0 = 恥怒り
	CASEELSE
		RESULTS:0 = 恥通常
	ENDSELECT
	SELECTCASE RESULTS:1
	CASE "笑顔"
		RESULTS:1 = 恥笑顔
	CASE "怒り"
		RESULTS:1 = 恥怒り
	CASEELSE
		RESULTS:1 = 恥通常
	ENDSELECT
ENDIF
RETURNF RESULTS:0

;赤面する条件
@BLUSH(ARG)
#FUNCTION
SIF TCVAR:ARG:만취 || TCVAR:ARG:춘약 || TCVAR:ARG:발정
	RETURNF 1
SIF GETPALAMLV(PALAM:ARG:호의, 15) >= 10
	RETURNF 1
SIF GETPALAMLV(PALAM:ARG:욕정, 15) + CFLAG:ARG:욕구불만도 / 200 >= 8
	RETURNF 1
SIF CFLAG:ARG:우후후 && (GETPALAMLV(PALAM:ARG:욕정, 15) + CFLAG:ARG:욕구불만도 / 200 >= 5)
	RETURNF 1
RETURNF 0
;5枚表情パターン用
@TARGET_BLUSH_EXCEPTION(ARG)
#FUNCTION
SIF !BLUSH(ARG)
	RETURNF 0
SELECTCASE ARG
	CASE [[文]], [[マミゾウ]]
		SIF INRANGE(CFLAG:ARG:현재위치, 200, 299) && TEQUIP:ARG:하반신착의상황 && TEQUIP:ARG:상반신착의상황 && !BATHROOM(CFLAG:ARG:현재위치)
			RETURNF 1
ENDSELECT
SIF GROUPMATCH(CFLAG:ARG:모브얼굴패턴, 40, 41, 42)
	RETURNF 1
;SIF CFLAG:ARG:모브얼굴패턴 == 5
;	RETURNF 1
RETURNF 0

@裸表示(ARG)
#FUNCTION
SIF !TEQUIP:ARG:상반신착의상황
	RETURNF 1
SIF BATHROOM(CFLAG:ARG:현재위치)
	RETURNF 1
RETURNF 0

;キャラごとの特殊変化
@特殊服装(ARG)
#FUNCTIONS
LOCALS =
;同じ画像ファイルで拡張されているものはこっち
SELECTCASE ARG
CASE [[サニー]], [[ルナ]], [[スター]], [[お燐]], [[にとり]], [[パチュリー]], [[妹紅]], [[輝夜]], [[蓮子]], [[メリー]]
	;夏服
	SIF DAY:2 == 2
		LOCALS = 1
CASE [[魔理沙]], [[静葉]], [[穣子]], [[阿求]]
	;デート中
	SIF FLAG:데이트상대 == ARG
		LOCALS = 1
CASE [[紫]]
	;イブニングドレス
	SIF EQUIP:ARG:치마 == 7
		LOCALS = 1
CASE [[ミスティア]]
	;仕事中
	SIF CFLAG:ARG:직종 == 44 && BASE:ARG:일량 > 0
		LOCALS = 1
CASE [[文]], [[マミゾウ]]
	;人里
	SIF INRANGE(CFLAG:ARG:현재위치, 200, 299)
		LOCALS = 1
CASE [[早苗]]
	;セーラー服
	SIF EQUIP:ARG:기모노 == 2
		LOCALS = 1
CASE [[鈴仙]]
	;ブレザー『じゃない』とき
	SIF EQUIP:ARG:기모노 != 4
		LOCALS = 1
CASE [[幽々子]]
	;日替わり
	SIF DAY:3 % 2 == 0
		LOCALS = 1
CASE [[幽香]]
	;パジャマ
	SIF EQUIP:ARG:원피스 == 3
		LOCALS = 1
CASE [[響子]]
;	SIF 未定？
;		LOCALS = 1
ENDSELECT
RETURNF LOCALS

@特殊画像(ARG)
#FUNCTIONS
LOCALS =
;差分画像ファイルで拡張されているものはこっち
;ただし5枚表情パターンは除く（現在は文とマミゾウ）
SELECTCASE ARG
CASE [[霊夢]]
	;デート中
	SIF FLAG:데이트상대 == ARG
		LOCALS = _2
CASE [[咲夜]]
	;人里
	SIF INRANGE(CFLAG:ARG:현재위치, 200, 299)
		LOCALS = _1
CASE [[レミリア]]
	;低カリスマ
	SIF CHARISMA_NOW() < 200
		LOCALS = _1
CASE [[アリス]]
	;現在は画像が用意されてるだけ
	SIF 0
		LOCALS = _2
CASE [[慧音]]
	;満月の日の夜
	SIF DAY:3 == 15 && INRANGE(TIME:2, 5, 7)
		LOCALS = _2
CASE [[ヘカーティア]]
	;黄,月にいるとき（夢の世界および自室は赤）
	IF INRANGE(CFLAG:ARG:현재위치, 1050, 1099)
		LOCALS = _2
	;青,人里にいるとき
	ELSEIF INRANGE(CFLAG:ARG:현재위치, 200, 299)
		LOCALS = _1
	;残りは赤
	ENDIF
ENDSELECT
RETURNF LOCALS

;照れ画像が別にあるもの
@特殊照れ(ARG, 特殊服装)
#FUNCTIONS
#DIMS 特殊服装
LOCALS =
SELECTCASE ARG
CASE [[マミゾウ]]
	SIF !裸表示(ARG)
		LOCALS = 眼鏡
CASE [[菫子]]
;	脱いでも眼鏡かけてる
;	SIF !裸表示(ARG)
		LOCALS = 眼鏡
CASE [[魅魔]], [[ちゆり]], [[魔理沙]], [[ルーミア]], [[レミリア]], [[リリカ]], [[メルラン]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ルナサ]], [[橙]], [[藍]], [[紫]], [[リグル]], [[映姫]], [[神奈子]], [[天子]], [[こいし]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ナズーリン]], [[小傘]], [[ぬえ]], [[エレン]], [[理香子]], [[明羅]], [[ルイズ]], [[にとり]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[白蓮]], [[神子]], [[妹紅]], [[勇儀]], [[幽々子]], [[慧音]], [[レティ]], [[一輪]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ムラサ]], [[星]], [[芳香]], [[青娥]], [[屠自古]], [[布都]], [[依姫]], [[豊姫]], [[神綺]], [[夢子]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[ユキ]], [[鈴瑚]], [[サグメ]]
	SIF 裸表示(ARG)
		LOCALS = 裸
CASE [[お燐]], [[椛]]
	SIF TCVAR:ARG:발정
		LOCALS = 発情
CASE [[ルナ]], [[静葉]], [[穣子]], [[響子]]
	IF 裸表示(ARG)
		LOCALS = 裸
	ELSEIF 特殊服装 == "1"
		LOCALS = 特殊
	ENDIF
ENDSELECT
RETURNF LOCALS
;=========================================================
;	ステータス画面の画像表示
;
;	iID		：キャラIDと同じリソース名を表示します
;	iSize	：フォントに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;=========================================================
@PRINT_STATE_IMAGE(iID,iSize=1000)
#DIM iID
#DIM iSize
#DIMS リソース名
#DIMS 表示形式
#DIM 固定表示サイズ

SIF !iID
	RETURN RESULT

キャラ画像表示サイズ比 = 100 + isModifier
IF FLAG:그림표시
	SELECTCASE iID
		CASE 1 TO CHARANUM - 1
			RESULT = 0
			SIF TALENT:iID:스침 && !GCREATED(CFLAG:iID:モブ子素材CFLAG開始位置)
				CALL モブ子生成(iID)
			;形式をひとつずつ決めていく,能力表示画面では通常状態で表示
			IF FLAG:스탠딩종류 && !TALENT:iID:스침
				表示形式 = 顔絵
				固定表示サイズ = 90
			ELSE
				表示形式 = 立ち絵
				固定表示サイズ = 100
			ENDIF
			リソース名 = %表示形式%_服_通常_{iID}
			;画像セット
			CALL 画像セット(リソース名, 0, 0, 固定表示サイズ)
		CASEELSE
			CALL 画像セット("ダミー", 0, 0)
	ENDSELECT
	CALL 画像一斉表示("左", 0, 0)

	IF FLAG:화상범위표시
		IF TALENT:iID:기분 == -1
			CALL 画像セット("フレーム_怒り", 0, 0, 100)
		ELSEIF TALENT:iID:기분 == 1
			CALL 画像セット("フレーム_笑顔", 0, 0, 100)
		ELSE
			CALL 画像セット("フレーム_通常", 0, 0, 100)
		ENDIF
	ENDIF
	CALL 画像一斉表示("左", 0, 0)

	CALL 画像表示("ダミー", "左", 0, 0, 100, 1)
	CALL 画像描画終了
ENDIF
RETURN RESULT

;=========================================================
;	リソースの表示
;	表示後サイズに合わせて改行を行う
;	PRINT_IMG の拡張みたいな感じ　文中の挿絵的に使えると思う
;
;	sRes_Name	：リソースの名前文字列
;	iSize		：一行の高さに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;	sAlign		：align属性　省略で左寄せ　left, center, rightの三種が指定できます
;=========================================================
@PRINT_IMAGE(sRes_Name,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iSize
#DIMS sAlign
#DIMS sPrint_Text
#DIM iEnter_Con
#DIM iFont_Hei_mag

SIF GETCONFIGS("描画インターフェース") == "WINAPI"
	THROW 描画インターフェースをTextRendererに変更して下さい

SIF !FLAG:그림표시 || sRes_Name == ""
	RETURN RESULT

iEnter_Con = 0
iFont_Hei_mag = GETCONFIG("一行の高さ") * iSize*10 / GETCONFIG("フォントサイズ")
iFont_Hei_mag = (iFont_Hei_mag/10) + (iFont_Hei_mag%10 >= 5?1#0)

HTML_PRINT @"
<nobr>"
iEnter_Con++

IF FLAG:시간정지
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

IF FLAG:화상범위표시
	sPrint_Text =
<nobr>
	sPrint_Text += @""
	HTML_PRINT sPrint_Text
	iEnter_Con++
ENDIF

FOR LOCAL,iEnter_Con-1,(iSize/100)-1
	HTML_PRINT "
"
NEXT
RETURN RESULT


code:
@LOOK_AT
#DIM 장비부위
#DIM 착의상황
#DIMS 삽입상황
#DIMS 삽입상황2
#DIMS 표시내용
IF TARGET
	SIF !CFLAG:우후후
		PRINT --
	;타겟 상태 표기·시추에이션 강화?
	PRINTFORM %CALLNAME:TARGET% 상태
	IF !FLAG:그림표시
		PRINTBUTTON  "[AA 표시]", 816
	ELSE
		PRINTBUTTON  "[그림 표시]", 816
		SIF FLAG:AA표시
			PRINTBUTTON  "[표시 설정]", 3100
	ENDIF
	IF CFLAG:우후후
		IF FLAG:삽화표시
			PRINTBUTTON  "[애니메이션 표시-ON-]", 817
		ELSE
			SETCOLOR C_L_GRAY
			PRINTBUTTON  "[애니메이션 표시-OFF-]", 817
			RESETCOLOR
		ENDIF
	ENDIF
	PRINTL  ---------
	;PRINTL
	PRINT 【상반신】
	IF TEQUIP:1 == 0
		PRINT  알몸
		SIF PALAM:욕정 >= PALAMLV:3
			PRINTFORM  %NIPPLE_DESCRIPTION(TARGET)%가 서 있다
	ELSE
		;바깥쪽의 옷으로부터 표시
		FOR 장비부위, 17, 6, -1
			SIF GROUPMATCH(장비부위, 15, 12, 11)
				CONTINUE
			표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
			SIF !STRLENS(표시내용)
				CONTINUE
			PRINTFORM %표시내용%
			BREAK
		NEXT
		IF TEQUIP:상반신은만상태 > 0
			IF TALENT:가슴사이즈 == 2
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 비져 나왔다
				;PRINTFORM  터질 듯한 가슴이 비져 나왔다
			ELSEIF TALENT:가슴사이즈 == 1
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 툭 나왔다
				;PRINTFORM  풍만한 가슴이 비져 나왔다
			ELSEIF TALENT:가슴사이즈 == 0
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 드러나왔다
				;PRINTFORM  모양 좋은 가슴이 드러나왔다
			ELSEIF TALENT:가슴사이즈 == -1
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 드러나왔다
				;PRINTFORM  작은 축의 가슴이 드러나왔다
			ELSEIF TALENT:가슴사이즈 == -2
				PRINTFORM  %OPPAI_DESCRIPTION(TARGET, 1)%이 드러나왔다
				;PRINTFORM  귀여운 유두가 드러나왔다
			ENDIF
			SIF EQUIP:TARGET:보디슈트== 0 && PALAM:욕정 >= PALAMLV:5
				PRINTFORM  %NIPPLE_DESCRIPTION(TARGET)%가 서 있다
		ELSE
			SIF EQUIP:TARGET:보디슈트== 0 && PALAM:욕정 >= PALAMLV:(4 + 2 * (GET_INT(TARGET, "상반신속옷_은만불가", EQUIP:TARGET:상반신속옷1, "옷감 두께")))
				PRINTFORM  옷 밖으로도 %NIPPLE_DESCRIPTION(TARGET)%가 발기한 것을 알 수 있다
		ENDIF
	ENDIF
	IF TEQUIP:유두캡 && TEQUIP:가슴주무르기
		PRINTFORM  유두캡이 %NIPPLE_DESCRIPTION(TARGET)%를 빨아내고 %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르고 있다
	ELSEIF TEQUIP:유두빨기 && TEQUIP:가슴주무르기
		IF ABL:MASTER:혀 > 2
			PRINTFORM  %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르는 상태에 %NIPPLE_DESCRIPTION(TARGET)%가 빨리고 있다
		ELSE
			PRINTFORM  %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르는 상태에 %NIPPLE_DESCRIPTION(TARGET)%가 빨리고 있다
		ENDIF
	ELSEIF TEQUIP:유두캡
		PRINTFORM  유두캡이 %NIPPLE_DESCRIPTION(TARGET)%에 붙어 있다
	ELSEIF TEQUIP:착유기
		PRINT  착유기가 모유를 빨아들이고 있다
	ELSEIF TEQUIP:유두빨기
		IF ABL:MASTER:혀 > 2
			PRINTFORM  %마스터가% %NIPPLE_DESCRIPTION(TARGET)%를 핥고 있다
		ELSE
			PRINTFORM  %마스터가% %NIPPLE_DESCRIPTION(TARGET)%를 빨고 있다
		ENDIF
	ELSEIF TEQUIP:가슴주무르기
		PRINTFORM  %마스터가% %OPPAI_DESCRIPTION(TARGET)%을 주무르고 있다
	ENDIF
	SIF CFLAG:구내정액 == 1
		PRINT  입가에서 정액이 흐르고 있다
	SIF CFLAG:안면정액 == 1
		PRINT  얼굴에 정액이 뿌려져 있다
	SIF CFLAG:손에정액 == 1
		PRINT  손이 정액 범벅이다
	PRINTL
	PRINT 【하반신】
	;TEQUIP:하반신착의상황 아래 반신 착의상황(비트0=치마1=비켜 놓아 가능 2=비켜 놓아 불가 3=비켜 놓을 수 없는 하반신윗도리)
	;	(비트를 사용하고 싶지 않은 인용 0=이루어 1=노팬티 치마2=팬티뿐 3=치마+팬티
	;	4=스패츠(속옷) 혹은 노팬티 바지5=치마+스패츠 6=바지+팬티 7=풀 장비(이 바리안트에서는 무리))
	;CFLAG:팬티 팬티 플래그
	;0 팬티 입고 있다
	;1 팬티 입지 않다

	;하반신착의 이루어, 혹은 팬티 입지 않았다
	IF TEQUIP:하반신착의상황 == 0 || CFLAG:노팬티 > 0
	;	하반신착의가 있지만 노팬티이다
		IF CFLAG:노팬티 && TEQUIP:하반신착의상황 != 0
			착의상황 = 0
			FOR 장비부위, 15, 4, -1
				SIF GROUPMATCH(장비부위, 8, 7)
					CONTINUE
				표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
				SIF !STRLENS(표시내용)
					CONTINUE
				PRINTFORM %표시내용%
				BREAK
			NEXT
			;팬티는 입지 않지만 안보이기 때문에 표시하지 않는다
			;PRINT  (팬티 안 입음)
			IF PREVCOM == 330
				IF PALAM:윤활 >= PALAMLV:5
					PRINT  허벅지까지 축축하게 젖어있다
				ELSEIF PALAM:윤활 >= PALAMLV:3
					PRINT  부끄러운 부분에 덩그러니 얼룩이 져 있다
				ENDIF
				IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
					PRINTFORM  넘친 정액이 꿀럭꿀럭 소리와 함께 역류하고 있다
				ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
					PRINTFORM  넘친 정액이 허벅지를 타고 흘러떨어지고 있다
				ENDIF
			ELSEIF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
				PRINTFORM  넘친 \@TALENT:MASTER:농후정액 ? 풀 같은 정액이 발 밑에 산을 이루고 있다 # 정액이 발 밑에 정액 웅덩이를 만들고 있다\@
			ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
				PRINTFORM  넘친 \@TALENT:MASTER:농후정액 ? 풀 같은 정액이 허벅지에 들러붙어있다 # 정액이 허벅지를 타고 흘러떨어지고 있다\@
			ENDIF
		ELSEIF EQUIP:하반신속옷1 || EQUIP:하반신속옷2
			IF EQUIP:하반신속옷2
				표시내용 '= PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)
				PRINTFORM %표시내용%
				IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
					PRINTFORM  %표시내용%는 흘러넘치고 돌아간 정액으로 이제 완전하게 용무를 없음 않다
				ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
					PRINTFORM  %표시내용%는 정액을 흡수 다 할 수 있지 않았다
				ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
					PRINTFORM  %표시내용%에 얼룩이 되어있다
				ELSEIF PALAM:윤활 >= PALAMLV:2
					PRINTFORM  %표시내용%가 습기차 있다
				ENDIF
			ELSE
				표시내용 '= GET_STR(TARGET, "하반신속옷_비켜놓아불가", EQUIP:TARGET:하반신속옷1, "이름")
				PRINTFORM %표시내용%
				SELECTCASE 표시내용
				CASE "곤", "스패츠"
					IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
						PRINTFORM  %표시내용%는 넘쳐난 정액으로 이미 완전하게 용무를 없음 않다
					ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
						PRINTFORM  %표시내용%는 정액을 흡수 다 할 수 있지 않았다
					ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
						PRINTFORM  %표시내용%에 얼룩이 되어있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM  %표시내용%가 습기차 있다
					ENDIF
				CASE "전쳐", "반창고"
					IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
						PRINTFORM  %표시내용%는 보는 앞으로 벗겨져 하복부에 다시 폈다
					ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
						PRINTFORM  %표시내용%는 이미 걸리고 있을 뿐이다
					ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:5
						PRINTFORM  %표시내용%가 벗겨져 가고 있다
					ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
						PRINTFORM  %표시내용%에 얼룩이 되어있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM  %표시내용%가 습기차 있다
					ENDIF
				CASE "정조대", "라비아피아스", "구리 피어스(귀걸이)"
					IF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
						IF 표시내용 == "정조대"
							PRINTFORM  %표시내용%는 넘쳐나는 정액을 멈출 수 없다
						ELSE
							PRINTFORM  %표시내용%는 넘쳐난 정액으로 안보이게 되고 있다
						ENDIF
					ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
						PRINTFORM  %표시내용%는 넘쳐난 정액을 매달고 있다
					ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
						PRINTFORM  %표시내용%에 물방울이 되어있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM  %표시내용%가 습기차 있다
					ENDIF
				ENDSELECT
			ENDIF
		;하반신착의가 없다
		ELSE
			PRINT  알몸
			SIF TEQUIP:클리캡
				PRINT  클리캡이 클리토리스에 달라붙고 있다
			SIF TEQUIP:오나홀
				PRINT  페니스가 오나홀을 박고 있다
			IF !CFLAG:우후후
				IF CFLAG:TARGET:질내사정
					IF CFLAG:TARGET:애널사정 == 1
						IF 충전율(TARGET, 1) >= 1000 || 충전율(TARGET, 2) >= 1000
							PRINT  두 구멍으로부터 정액이 분화 같아 보여 날아오르며 있다
						ELSEIF 충전율(TARGET, 1) >= 100 || 충전율(TARGET, 2) >= 100
							PRINT  두 구멍으로부터 정액이 폭포처럼 흘러넘치고 있다
						ELSEIF 충전율(TARGET, 1) >= 30 || 충전율(TARGET, 2) >= 30
							PRINT  두 구멍으로부터 정액이 흘러넘치고 있다
						ELSE
							PRINT  비렬과 항문으로부터 정액이 흘러나오고 있다
						ENDIF
					ELSEIF EX:처녀상실체크
						PRINT  비렬로부터 파과혈이 섞인 정액이 넘쳐 나오고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINT  비렬로부터 정액과 애액의 서로 섞인 국물이 넘쳐 나오고 있다
					ELSE
						PRINT  비렬로부터 정액이 흘러나오고 있다
					ENDIF
				ELSEIF CFLAG:TARGET:애널사정 == 1
					PRINT  항문으로부터 정액이 흘러나오고 있다
				ELSEIF PALAM:윤활 >= PALAMLV:2
					IF PALAM:윤활 >= PALAMLV:6
						PRINTFORM  비렬로부터 애액\@ EX:처녀상실체크? 이 섞인 파과혈# \@이 뚝뚝 떨어지고 있다
					ELSEIF EX:처녀상실체크
						PRINT  비렬로부터 파과혈이 흐르고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:4
						PRINT  허벅지를 애액이 타고 있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINT  비렬이 애액으로 습기차 있다
					ENDIF
				ENDIF
			ELSEIF PALAM:윤활 >= PALAMLV:2 && !(CFLAG:TARGET:질내사정 == 1 || TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)
				IF PALAM:윤활 >= PALAMLV:4
					PRINTFORM  비렬로부터 애액\@ EX:처녀상실체크? 이 섞인 파과혈# \@이 뚝뚝 떨어지고 있다
				ELSEIF EX:처녀상실체크
					PRINT  비렬로부터 파과혈이 흐르고 있다
				ELSEIF PALAM:윤활 >= PALAMLV:3
					PRINTFORM  허벅지를 애액이 타고 있다
				ELSEIF PALAM:윤활 >= PALAMLV:2
					PRINTFORM  비렬이 애액으로 습기차 있다
				ELSEIF TALENT:처녀 == 1
					PRINTFORM 미사유기 딱 닫은 줄기가 이슬 악어 되어 있다
				ENDIF
			ENDIF
		ENDIF
		CALL LOOK_BELLY(TARGET)
	;하반신벌을 입고 있다, 한편 속옷도 붙이고 있다
	ELSE
		착의상황 = 0
	;	윗도리가 상하 연결이 되어 있는 옷을 입고 있는 경우, 그것을 표시한다
	;	없으면, 치마나 바지를 표시한다
	;	특별히 열중한 차례로도 되어 있지 않았기 때문에 루프를 통합
		FOR 장비부위, 15, 4, -1
			SIF GROUPMATCH(장비부위, 8, 7)
				CONTINUE
			표시내용 '= LOOK_AT_CLOTHNAME(TARGET, 장비부위)
			SIF !STRLENS(표시내용)
				CONTINUE
			PRINTFORM %표시내용%
			BREAK
		NEXT
		IF !CFLAG:우후후
			;어쩐지 분기 들어갔지만 TEQUIP:하반신착의상황 == 0은↑으로 처리되므로 죽어 분기
			;IF TEQUIP:하반신착의상황 != 0
			;ENDIF
			IF PALAM:윤활 >= PALAMLV:5
				PRINT  넙적다리까지 흠뻑젖어(줄줄)에 젖고 있다
			ELSEIF PALAM:윤활 >= PALAMLV:3
				PRINT  부끄러운 부분에 툭하고 얼룩이 되어있다
			ENDIF
			;난쟁이
			IF TALENT:TARGET:100 == -5
				LOCAL = 200
			;유아 체형, 작은 체형
			ELSEIF TALENT:TARGET:100 < 0
				LOCAL = 300
			;장신 이상
			ELSEIF TALENT:TARGET:100 >= 1
				LOCAL = 500
			;보통 체형
			ELSE
				LOCAL = 400
			ENDIF
			SIF EX:TARGET:질내정액 > LOCAL || EX:TARGET:애널내정액 > LOCAL
				PRINTFORM  넘쳐 나온\@TALENT:MASTER:농후정액 ?  풀과 같은 정액이 허벅지에 달라붙어 있는 # 정액이 허벅지를 타 늘어지고 떨어지고 있다\@
		;여기에서는 우후후 안
		ELSEIF TEQUIP:하반신착의상황 & 4
			IF PALAM:윤활 >= PALAMLV:5
				PRINT  가랑이의 부분이 흠뻑젖어(줄줄)에 젖고 있다
			ELSEIF PALAM:윤활 >= PALAMLV:3
				PRINT  부끄러운 부분에 툭하고 얼룩이 되어있다
			ENDIF
		ELSE
			PRINTFORM  걷어 올릴 수 있는 %HIP(TARGET)%가 훤히 들여다 보이게 하고 있는
			IF PALAM:윤활 >= PALAMLV:1 || CFLAG:TARGET:애널사정 == 1 || CFLAG:TARGET:질내사정 == 1 && !((CFLAG:TARGET:애널사정 == 1 && CFLAG:TARGET:질내사정 == 1) || TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
				;이것 하반신속옷1이 개미로 하반신속옷2가 없어라고 어떻게 됩니까
				;IF (EQUIP:하반신속옷1 || EQUIP:하반신속옷2)
				;수정을 시도 가필;해 두어입니다만 하반신속옷1을 실개 하는 선택지도 있어요
				IF EQUIP:하반신속옷2
					표시내용 '= PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)
					IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
						PRINTFORM  %표시내용%에 얼룩이 되어있다
					ELSEIF PALAM:윤활 >= PALAMLV:2
						PRINTFORM  %표시내용%가 습기차 있다
					ENDIF
				ELSE
					표시내용 '= GET_STR(TARGET, "하반신속옷_비켜놓아불가", EQUIP:TARGET:하반신속옷1, "이름")
					SELECTCASE 표시내용
					CASE "곤", "스패츠"
						IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM  %표시내용%에 얼룩이 되어있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM  %표시내용%가 습기차 있다
						ENDIF
					CASE "전쳐", "반창고"
						IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:5
							PRINTFORM  %표시내용%가 벗겨져 가고 있다
						ELSEIF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM  %표시내용%에 얼룩이 되어있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM  %표시내용%가 습기차 있다
						ENDIF
					CASE "정조대", "라비아피아스", "구리 피어스(귀걸이)"
						IF CFLAG:TARGET:질내사정 == 1 || CFLAG:TARGET:애널사정 == 1 || PALAM:윤활 >= PALAMLV:3
							PRINTFORM  %표시내용%에 물방울이 되어있다
						ELSEIF PALAM:윤활 >= PALAMLV:2
							PRINTFORM  %표시내용%가 습기차 있다
						ENDIF
					ENDSELECT
				ENDIF
			ENDIF
			IF !EQUIP:하반신속옷2
			ELSEIF TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극
				PRINTFORM  %PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)%를 비켜 놓아지고 있다
			ELSEIF CFLAG:TARGET:애널사정 == 1 && CFLAG:TARGET:질내사정 == 1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
				PRINTFORM  %PANTSNAME(EQUIP:TARGET:하반신속옷2, TARGET)%에 큰 얼룩이 되어있다
			ENDIF
			IF CFLAG:TARGET:질내사정 == 1 && PALAM:윤활 >= PALAMLV:1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)  && (TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
				PRINT  비렬로부터 정액과 애액의 서로 섞인 국물이 넘쳐 나오고 있다
			ELSEIF CFLAG:TARGET:질내사정 == 1 && !(TEQUIP:V섹스 == PLAYER || TEQUIP:바이브 || PALAM:윤활 >= PALAMLV:1) && (TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극)
				PRINT  비렬로부터 정액이 흘러나오고 있다
			ELSEIF CFLAG:TARGET:애널사정 == 1 && !(TEQUIP:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈 || TEQUIP:관장 || TEQUIP:확장벌룬 || TEQUIP:애널전극) && (TEQUIP:V섹스 == PLAYER || TEQUIP:바이브)
				PRINT  항문으로부터 정액이 흘러나오고 있다
			ENDIF
		ENDIF
		CALL LOOK_BELLY(TARGET)
	ENDIF

	IF (TCVAR:TARGET:V삽입관리플래그 == PLAYER || TCVAR:TARGET:A삽입관리플래그 == PLAYER) && TALENT:PLAYER:형상 == 10
		PRINTL
		PRINT 삽입된 페니스의 형태가 복부에 떠오르고 있다…
	ENDIF
	;================================
	SELECTCASE TEQUIP:TARGET:체위
		CASE 1
			삽입상황 = 정상위
		CASE 2
			삽입상황 = 후배위
		CASE 3
			삽입상황 = 기승위
		CASE 4
			삽입상황 = 대면좌위
		CASE 5
			삽입상황 = 후배위
		CASE 6
			삽입상황 = 오나홀과 같이 취급해
	ENDSELECT

	IF TEQUIP:TARGET:V섹스 == PLAYER || TEQUIP:바이브
		PRINTL
		PRINT 【질내】
		IF TCVAR:TARGET:V삽입관리플래그 == PLAYER
			IF TCVAR:V에질내사정된플래그
				PRINTFORM  %삽입상황%로\@ EX:처녀상실체크?  처녀질에# \@\@TALENT:MASTER:농후정액 ? 농후한 # \@정액을{NOWEX:TARGET:질내정액}쏟아지고 있다
			ELSEIF CFLAG:TARGET:생리주기 == 7
				PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로\@ EX:처녀상실체크?  처녀질에# \@교배되고 있다
			ELSEIF SHIRAHU(TARGET) && TALENT:TARGET:연모
				IF EX:처녀상실체크
					PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로 처녀를 바치고 있다
				ELSE
					PRINTFORM  %마스터와%%삽입상황%로 서로 사랑하고 있다
				ENDIF
			ELSEIF CFLAG:우후후 == 2
				PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로\@ EX:처녀상실체크?  처녀질을# \@범해지고 있다
			ELSE
				PRINTFORM  %CALLNAME:MASTER%에%삽입상황%로\@ EX:처녀상실체크?  처녀질을# \@범해지고 있다
			ENDIF
		ELSEIF TEQUIP:바이브
			PRINT  바이브가 삽입되고 있다
		ENDIF
		SELECTCASE TEQUIP:자궁
			CASE 1
 				SETCOLOR C_PINK
 					PRINT  자궁이 내려와 있다
 				RESETCOLOR
 				;리셋하지 않으면 Act_COM행과 [V]까지 핑크가 되었기 때문에 추가
			CASE 2
				FONTBOLD
 				SETCOLOR C_PINK
 					PRINT  자궁이 내려와 있다
 				RESETCOLOR
 				FONTREGULAR
		ENDSELECT
	ENDIF
	IF TEQUIP:TARGET:A섹스 == PLAYER || TEQUIP:애널바이브 || TEQUIP:애널비즈
		PRINTL
		PRINT 【애널】
		IF TCVAR:TARGET:A삽입관리플래그 == PLAYER
			IF TCVAR:A에질내사정된플래그
				PRINTFORM  \@TALENT:MASTER:농후정액 ? 농후한 # \@정액을{NOWEX:TARGET:애널내정액}쏟아지고 있다
			ELSEIF !FLAG:시간정지 && !CFLAG:수면 && TALENT:TARGET:연모
				PRINTFORM  %CALLNAME:MASTER%에 %삽입상황%로 삽입되고 있다
			ELSEIF CFLAG:우후후 == 2
				PRINTFORM  %CALLNAME:MASTER%에 %삽입상황%로 범해지고 있다
			ELSE
				PRINTFORM  %CALLNAME:MASTER%에 %삽입상황%로 범해지고 있다
			ENDIF
		ELSEIF TEQUIP:애널바이브
			PRINT  애널바이브가 삽입되고 있다
		ELSEIF TEQUIP:애널비즈
			PRINT  애널비즈가 삽입되고 있다
		ELSEIF TEQUIP:관장
			PRINT  플러그로 막혀 있다
		ELSEIF TEQUIP:확장벌룬
			PRINT  벌룬으로 확장되고 있다
		ELSEIF TEQUIP:애널전극
			PRINT  전극이 삽입되고 있다
		ENDIF
	ENDIF
	IF FLAG:AA표시 && !FLAG:그림표시
		PRINTL
		CALL PRINT_AA(TARGET)
	ELSEIF FLAG:AA표시 && FLAG:그림표시
		PRINTL
		CALL PRINT_TARGET_IMAGE(TARGET)
	ENDIF

	IF TEQUIP:PLAYER:V섹스 == TARGET || TEQUIP:PLAYER:A섹스 == TARGET
		SELECTCASE TEQUIP:MASTER:체위
			CASE 1
				삽입상황2 = 정상위로
			CASE 2
				삽입상황2 = 후배위로
			CASE 3
				삽입상황2 = 기승위로
			CASE 4
				삽입상황2 = 대면좌위로
			CASE 5
				삽입상황2 = 배면좌위로
			CASE 6
				삽입상황2 = 오나홀 같은 취급으로
			CASEELSE
				삽입상황2 =
		ENDSELECT

		PRINTL
		PRINT 【페니스】
		IF TEQUIP:PLAYER:V섹스 == TARGET
			PRINTFORM %CALLNAME:PLAYER%의 질내에 %삽입상황2% 삽입되고 있다
		ELSE
			PRINTFORM %CALLNAME:PLAYER%의 애널에 %삽입상황2% 삽입되고 있다
		ENDIF
	ENDIF
ENDIF

@LOOK_AT_CLOTHNAME(C_ID, E_ID)
#FUNCTIONS
#DIM C_ID;대상 캐릭터
#DIM E_ID;대상이 되는 EQUIP의 부위
SIF !EQUIP:C_ID:E_ID
	RETURNF
IF CSTR:C_ID:(50 + E_ID) != "" && !CFLAG:C_ID:파자마
	RETURNF CSTR:C_ID:(50 + E_ID)
ELSEIF EQUIPNAME:E_ID == "상반신속옷1"
	RETURNF BRANAME(EQUIP:C_ID:E_ID, C_ID)
ELSEIF EQUIPNAME:E_ID == "하반신속옷2"
	RETURNF PANTSNAME(EQUIP:C_ID:E_ID, C_ID)
ELSE
	RETURNF CLOTHNAME(E_ID, EQUIP:C_ID:E_ID)
ENDIF

; 일판 버전 호완용
@充填率(캐릭터등록번호, 몸부위)
#FUNCTION
#DIM 캐릭터등록번호
#DIM 몸부위
RETURNF 충전율(캐릭터등록번호, 몸부위)

;몸부위 1=V, 2=A, 3=VA 4= 자궁
@충전율(캐릭터등록번호, 몸부위)
#FUNCTION
#DIM 캐릭터등록번호
#DIM 몸부위
#DIM 정액량
#DIM 몸용량

VARSET 정액량

;해당 부위의 정액량의 취득
SELECTCASE 몸부위
	CASE 1
		정액량 = EX:캐릭터등록번호:질내정액
	CASE 2
		정액량 = EX:캐릭터등록번호:애널내정액
	CASE 3
		정액량 = EX:캐릭터등록번호:질내정액 + EX:캐릭터등록번호:애널내정액
	CASE 4
		정액량 = EX:캐릭터등록번호:자궁내정액
ENDSELECT

;해당 부위의 용량을 취득
SELECTCASE TALENT:캐릭터등록번호:체형
	CASE -5
		몸용량 = 300
	CASE -4 TO -2
		몸용량 = 600
	CASE -1
		몸용량 = 1000
	CASE 0
		몸용량 = 1200
	CASE IS > 0
		몸용량 = 1500
ENDSELECT

;자궁이라면 용량 반감
IF 몸부위 == 4
	몸용량 /= 2
ENDIF
RETURNF 100 * 정액량 / 몸용량
;배묘사
@LOOK_BELLY(ARG)
IF CFLAG:ARG:임신경과일수 >= 40
		PRINT  출산을 가까이 둔 배는 터질 것만 같다
ELSEIF CFLAG:ARG:임신경과일수 >= 30
		PRINT  생명을 숨어 배는 크게 부풀어 오르고 있다
ELSEIF CFLAG:ARG:임신경과일수 >= 20
		PRINT  배의 부푼 곳이 눈에 띄어 왔다
ELSEIF CFLAG:ARG:임신경과일수 >= 15
		PRINT  배가 부풀어 오르기 시작했다
ELSEIF 충전율(ARG, 3) >= 1000
		PRINT  고간으로부터 정액이 폭포처럼 분출하고 있다
ELSEIF 충전율(ARG, 3) >= 200
		PRINT  체내에 정액은 들어가 자르지 않고, 한없이 분출하고 있다
ELSEIF 충전율(ARG, 3) >= 100
		PRINT  배는 정액으로 임산부와 같이 부풀어 오르고 있다
ELSEIF 충전율(ARG, 3) >= 50
		PRINT  배는 정액으로 조금 부풀어 올라 버리고 있다
ENDIF


code:
;-------------------------------------------------
;함수명 :MOON_WATCH
;개요:어떤 달이 보일까를 돌려주는 함수
;ARG	DAY:3=날
;RETURN -1:월의 안보이는 상태, 0:달은 나와 있지 않은, 1:초생달, 2:이틀월, 3:초승달, 4:4~7 세월, 5:상현달, 6:9~12 세월, 7:십삼야, 8:음력 8월 14일 밤, 9:만월, 10:십육야, 11:17~22밤, 12:하현, 13:24~29밤, 14:30일월
;-------------------------------------------------
@MOON_WATCH(ARG)
#FUNCTION
;밤＋맑음＋옥외 or신사내의 실외
IF TIME:2 >= 5 && TIME:2 <= 7 && TIME:5 < 2 && MOON_WATCH_POINT(CFLAG:MASTER:현재위치)
	;달이 보이는 시간
	SELECTCASE ARG
	;초생달
	CASE 1,31
		RETURNF 1
	;이틀월(19시~20시)
	CASE 2
		SELECTCASE TIME:0
		CASE 1140 TO 1200
		RETURNF 2
		CASEELSE
		RETURNF 0
		ENDSELECT
	;초승달(19시~21시)
	CASE 3
		SELECTCASE TIME:0
		CASE 1140 TO 1260
		RETURNF 3
		CASEELSE
		RETURNF 0
		ENDSELECT
	;4, 5(19시~22시)
	CASE 4,5
		SELECTCASE TIME:0
		CASE 1140 TO 1320
		RETURNF 4
		CASEELSE
		RETURNF 0
		ENDSELECT
	;6, 7(19시~23시)
	CASE 6,7
		SELECTCASE TIME:0
		CASE 1140 TO 1380
		RETURNF 4
		CASEELSE
		RETURNF 0
		ENDSELECT
	;상현달(19시~24시)
	CASE 8
		SELECTCASE TIME:0
		CASE 1140 TO 1440
		RETURNF 5
		CASEELSE
		RETURNF 0
		ENDSELECT
	;9, 10(19시~25시)
	CASE 9,10
		SELECTCASE TIME:0
		CASE 0 TO 60,1140 TO 1440
		RETURNF 6
		CASEELSE
		RETURNF 0
		ENDSELECT
	;11, 12(19시~26시)
	CASE 11,12
		SELECTCASE TIME:0
		CASE 0 TO 120,1140 TO 1440
		RETURNF 6
		CASEELSE
		RETURNF 0
		ENDSELECT
	;십삼야(19시~27시)
	CASE 13
		SELECTCASE TIME:0
		CASE 0 TO 180,1140 TO 1440
		RETURNF 7
		CASEELSE
		RETURNF 0
		ENDSELECT
	;음력 8월 14일 밤(19시~27시 반)
	CASE 14
		SELECTCASE TIME:0
		CASE 0 TO 210,1140 TO 1440
		RETURNF 8
		CASEELSE
		RETURNF 0
		ENDSELECT
	;만월(19시~28시)
	CASE 15
		RETURNF 9
	;십육야(19시 반~28시)
	CASE 16
		SELECTCASE TIME:0
		CASE 0 TO 240,1170 TO 1440
		RETURNF 10
		CASEELSE
		RETURNF 0
		ENDSELECT
	;17, 18, 19(20시 반~28시)
	CASE 17,18,19
		SELECTCASE TIME:0
		CASE 0 TO 240,1230 TO 1440
		RETURNF 11
		CASEELSE
		RETURNF 0
		ENDSELECT
	;20, 21, 22(22시 반~28시)
	CASE 20,21,22
		SELECTCASE TIME:0
		CASE 0 TO 240,1350 TO 1440
		RETURNF 11
		CASEELSE
		RETURNF 0
		ENDSELECT
	;하현(24시~28시)
	CASE 23
		SELECTCASE TIME:0
		CASE 0 TO 240
		RETURNF 12
		CASEELSE
		RETURNF 0
		ENDSELECT
	;24, 25, 26(25시~28시)
	CASE 24,25,26
		SELECTCASE TIME:0
		CASE 60 TO 240
		RETURNF 13
		CASEELSE
		RETURNF 0
		ENDSELECT
	;27, 28, 29(26시~28시)
	CASE 27,28,29
		SELECTCASE TIME:0
		CASE 120 TO 240
		RETURNF 13
		CASEELSE
		ENDSELECT
	;30(27시 반~28시)
	CASE 30
		SELECTCASE TIME:0
		CASE 180 TO 240
		RETURNF 14
		CASEELSE
		RETURNF 0
		ENDSELECT
	ENDSELECT
	ELSE
	RETURNF -1
ENDIF

@NAME_MOON(MOON)
#FUNCTIONS
#DIM  MOON;MOON에는 DAY:3을 건네주는 것
#DIMS CONST NAME_MOON = "", "삭월", "신월", "초승달", "초승달", "상현달", "차가는 달", "십삼야", "음력 8월 14일 밤", "만월", "십육야", "기울어가는 달", "기울어가는 달", "하현달", "그믐달", "그믐달"

MOON = MAX(MOON_WATCH(MOON), 0)
SIF DAY:2 == 3 && MOON == 9
	RETURNF "보름 -중추의 명월- "
RETURNF NAME_MOON:MOON