code:
@PRINT_AA(ARG)
SETFONT "ＭＳ Ｐゴシック"
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 "ＭＳ Ｐゴシック"
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
#DIM TEMP
#DIMS sAlign

SIF !FLAG:화상표시 || sRes_Name == ""
	RETURN RESULT

SIF !FLAG:애니메이션
	RETURN RESULT

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

TEMP = CURRENTREDRAW()
REDRAW 0

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
REDRAW TEMP

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 insType

#DIM iStart
#DIMS sPrint_Res_Name
#DIMS sAnime_Res_Name

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

IF STRCOUNT(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 = %\@ STRCOUNT(sRes_Name,"Ａ") ? Ａ # \@%正常位_挿入_

IF STRCOUNT(sRes_Name,"_射精") || STRCOUNT(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 STRCOUNT(sRes_Name,"_射精")
	sAnime_Res_Name = %sRes_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	：最後に表示する画像のリソース名
;	iTarget		：射精した人物(0:あなた, 1:それ以外)
;	iSize		：一行の高さに対するサイズ％数値　縦基準　縦横比維持　省略で1000(10倍)
;	sAlign		：align属性　省略で左寄せ　left, center, rightの三種が指定できます
;=========================================================
@PRINT_IMAGE_ANIMATION_후배위(sRes_Name,iTarget=0,iSize=1000,sAlign="left")
#DIMS sRes_Name
#DIM iTarget
#DIM iSize
#DIMS sAlign

#DIMS sPrint_Res_Name
#DIMS sAnime_Res_Name
#DIM iAnimeCon
#DIMS ins_Type

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

IF STRCOUNT(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 STRCOUNT(sRes_Name,"_挿入")

	iAnimeCon = FLAG:애니메이션/2?FLAG:애니메이션/2#1
	CALL PRINT_IMAGE_ANIMATION(@"%sRes_Name%_",0,6,iAnimeCon,1,,iSize,sAlign)

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

	CALL PRINT_IMAGE_ANIMATION(@"%ins_Type%後背位_絶頂_",0,4,FLAG:애니메이션,0)
	CALL PRINT_IMAGE_ANIMATION(@"%ins_Type%後背位_絶頂_",0,2,1,0)
ENDIF
IF STRCOUNT(sRes_Name,"_射精")
	sAnime_Res_Name = %sRes_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 iTarget == 0
		IF NOWEX:MASTER:사정 > 1
			CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,8,2,FLAG:애니메이션,1,,iSize,sAlign)
		ENDIF
	ELSE
		IF NOWEX:TARGET:사정 > 1
			CALL PRINT_IMAGE_ANIMATION(sAnime_Res_Name,8,2,FLAG:애니메이션,1,,iSize,sAlign)
		ENDIF
	ENDIF

ENDIF
CALL PRINT_IMAGE(sPrint_Res_Name,iSize,sAlign)

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

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

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 STRCOUNT(sType,"後背位")
	IF iTarget == 0
		sAnime_Res_Name = %sType%_射精_{FLAG:사정화상종류}_\@NOWEX:MASTER:사정>1?9#7\@
	ELSE
		sAnime_Res_Name = %sType%_射精_{FLAG:사정화상종류}_\@NOWEX:TARGET:사정>1?9#7\@
	ENDIF
ELSE
	sAnime_Res_Name = %sType%_射精_{FLAG:사정화상종류}_3
ENDIF
TEMP = CURRENTREDRAW()
REDRAW 0
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 STRCOUNT(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)
REDRAW TEMP
RESULT = SAVE_RESULT
RETURN RESULT

repo_name: DNS/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_髪_前髪_無造作,]"
+ "[前髪_巻きタオル: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,]"
+ "[目瞳_デフォルメ目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,]"
+ "[目瞳_普通な目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_無_表情_怒り(口閉じ)(太眉),]"
+ "[表情_怒り(口開き):CN04_無_表情_怒り(口開き),]"
+ "[表情_怒り(口開き)(太眉):CN04_無_表情_怒り(口開き)(太眉),]"
+ "[表情_照れ(口閉じ):CN07_無_表情_照れ(口閉じ),CN04_無_表情_照れ(口閉じ),]"
+ "[表情_照れ(口開き):CN07_無_表情_照れ(口開き),CN04_無_表情_照れ(口開き),]"
+ "[表情_猫口(口閉じ):CN04_無_表情_猫口(口閉じ),]"
+ "[表情_猫口(口開き):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]"
+ "[身体_巫女服(緑)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_他_装飾_たぬき葉っぱ,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_他_装飾_バニープリム,]"
+ "[装飾_バニープリム(ポーズ2用):CN00_他_装飾_バニープリム(ポーズ2用),]"
+ "[装飾_メガネ(普通):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

;----------------------------------------------------------
;着色プリント関数
;直前まで使用していた色とフォントを保存し、使用後はそちらに復帰するように
;表示形式           0=通常,1=PRINTL,2=PRINTW,3=PRINTPLAIN
;フォントスタイル   0=通常,1=太字,2=斜体,4=打ち消し線,8=下線
;(ビットで管理されているため例えば3なら太字＋斜体)
;----------------------------------------------------------
@COLORMESSAGE(ARGS, 색, 표시형식, 폰트스타일)
#DIM 현재지정의색
#DIM 현재지정의폰트스타일
#DIM 색
#DIM 폰트스타일
#DIM 표시형식

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

SIF 폰트스타일
	FONTSTYLE 폰트스타일
SETCOLOR 색
SELECTCASE 표시형식
	CASE 0
		PRINTFORM %ARGS%
	CASE 1
		PRINTFORML %ARGS%
	CASE 2
		PRINTFORMW %ARGS%
	CASE 3
		PRINTPLAINFORM %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
SIF ARG:1 <= 0
	ARG:1 = 1
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 iSpaceSize
#DIMS sPrint_Text
#DIM SAVE_RESULT			;RESULTの保護
#DIM iPrintStart = 1		;描画を開始するTARGET配列番号
#DIM 最大レイヤー数
#DIM CHARA
#DIM DYNAMIC 縦位置 = 0

SIF !ターゲット
	RETURN RESULT
SIF !FLAG:화상표시
	RETURN RESULT

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

;RESULTの保護
SAVE_RESULT = RESULT

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

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

SIF FLAG:멀티사이즈
	デフォルトキャラ画像横幅 = 0
;各キャラの初期処理
FOR LOCAL, iPrintStart, FLAG:화상표시 + iPrintStart
	SIF !ターゲット:LOCAL
		BREAK
	;モブで画像未生成の場合作製する
	IF TALENT:(ターゲット:LOCAL):스침 && !GCREATED(CFLAG:(ターゲット:LOCAL):モブ子素材CFLAG開始位置)
		CALL モブ子生成(ターゲット:LOCAL, 0)
		CALL モブ子生成(ターゲット:LOCAL, 1)
	ENDIF
	IF FLAG:멀티사이즈
		CALL GET_BASE_RESOURCE(ターゲット:LOCAL)
		各キャラ画像サイズ:(ターゲット:LOCAL):0 = SPRITEHEIGHT(RESULTS)
		;サイズ比調整で画像サイズ最大のキャラに合わせるように
		SIF デフォルトキャラ画像横幅 < 各キャラ画像サイズ:(ターゲット:LOCAL):0
			デフォルトキャラ画像横幅 = 各キャラ画像サイズ:(ターゲット:LOCAL):0
	ENDIF
NEXT

;画像サイズ比セット
キャラ画像表示サイズ比 = 100 + isModifier
;画像表示数に合わせてサイズ比を調整
SIF MIN(FLAG:화상표시,ターゲット人数) * (デフォルトキャラ画像横幅 * キャラ画像表示サイズ比/100) > GETCONFIG("ウィンドウ幅")
	;切捨て保護のため先に掛け算
	キャラ画像表示サイズ比 =  100 * GETCONFIG("ウィンドウ幅") / MIN(FLAG:화상표시,ターゲット人数) / デフォルトキャラ画像横幅

;縦位置計測の処理
TEMP_HTML_MAX_HEIGHT = デフォルトキャラ画像横幅 * キャラ画像表示サイズ比 / 100
;最大レイヤー数初期化
最大レイヤー数 = FLAG:화상범위표시 + FLAG:시간정지

;-----------------
;テキストタグボタン
;-----------------
sPrint_Text =
<nobr>
FOR LOCAL, iPrintStart, FLAG:화상표시 + iPrintStart
	SIF !ターゲット:LOCAL
		BREAK
	SIF FLAG:멀티사이즈
		デフォルトキャラ画像横幅 = 各キャラ画像サイズ:(ターゲット:LOCAL):0

	;左右幅合わせ　[名前]
	STRLENFORMU %CALLNAME:(ターゲット:LOCAL)%
	;[]分を足す
	RESULT += 1
	iSpaceSize = (デフォルトキャラ画像横幅 * キャラ画像表示サイズ比/GETCONFIG("フォントサイズ") - (RESULT*100)) / 2
	iSpaceSize = MAX(iSpaceSize, 0)

	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize}'>"

	IF ターゲット:LOCAL == ターゲット
		sPrint_Text += @""
	ELSEIF CFLAG:(ターゲット:LOCAL):동행
		sPrint_Text += @""
	ENDIF

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

	SIF (ターゲット:LOCAL == ターゲット) || CFLAG:(ターゲット:LOCAL):동행
		sPrint_Text += @""

	sPrint_Text += @"<shape type = 'space' param = '{iSpaceSize}'>"

NEXT
HTML_PRINT sPrint_Text

;-----------------
;화상표시
;-----------------
FOR LOCAL, iPrintStart, FLAG:화상표시 + iPrintStart
	CHARA = ターゲット:LOCAL
	SIF !CHARA
		BREAK
	RESULT = 0
    VARSET RESULTS
	;マルチサイズ時の処理
	IF FLAG:멀티사이즈
		デフォルトキャラ画像横幅 = 各キャラ画像サイズ:CHARA:0
		縦位置 = TEMP_HTML_MAX_HEIGHT - デフォルトキャラ画像横幅 * キャラ画像表示サイズ比 / 100
	ENDIF

	;基本画像　表示形式_服装_表情_キャラ番号_差分 (RESULTS:0に格納、RESULTS:1にマウスオーバー画像格納)
	CALL GET_BASE_RESOURCE(CHARA)
	;リソースが見つからない場合は通常服状態の通常顔に切り替え
	IF !RESULT
		;PRINTFORML リソース「%RESULTS:0%」が見つからないから通常顔だよ
		RESULTS:0 = %GET_BASESTYLE(CHARA)%_服_通常_{CHARA}
		RESULTS:1 =
	ENDIF
    ;時間停止時はマウスオーバー画像を表示しない
	SIF FLAG:시간정지
		RESULTS:1 =
	;0番レイヤーに基本画像をセット
	CALL 画像セット(RESULTS:0, 縦位置, 0, キャラ画像表示サイズ比, 0, 1, @"{1000+CHARA}", CALLNAME:CHARA, RESULTS:1)

	;エフェクト画像　表示形式_エフェクト_キャラ番号_差分 (RESULTS配列に格納、RESULTにエフェクト数格納)
	CALL GET_EFFECT_RESOURCE(CHARA)
	;最大レイヤー数 < RESULT の場合、これまでのターゲットに超過したレイヤー分のダミーをセット
	FOR LOCAL:1, 最大レイヤー数, RESULT + (FLAG:화상범위표시+FLAG:시간정지)
		FOR LOCAL:2, iPrintStart, LOCAL
			;マルチサイズ時の処理
			IF FLAG:멀티사이즈
				デフォルトキャラ画像横幅 = 各キャラ画像サイズ:(ターゲット:(LOCAL:2)):0
				縦位置 = TEMP_HTML_MAX_HEIGHT - デフォルトキャラ画像横幅 * キャラ画像表示サイズ比 / 100
			ENDIF
			CALL ダミーセット(縦位置, 0, キャラ画像表示サイズ比, LOCAL:1 + 1)
		NEXT
		最大レイヤー数 += 1
	NEXT
	;マルチサイズ時の処理
	IF FLAG:멀티사이즈
		デフォルトキャラ画像横幅 = 各キャラ画像サイズ:CHARA:0
		縦位置 = TEMP_HTML_MAX_HEIGHT - デフォルトキャラ画像横幅 * キャラ画像表示サイズ比 / 100
	ENDIF
	;最大レイヤー数までエフェクトをセット、エフェクトがなければダミーをセット
	FOR LOCAL:1, 0, 最大レイヤー数 - (FLAG:화상범위표시+FLAG:시간정지)
		IF RESULTS:(LOCAL:1) == ""
			CALL ダミーセット(縦位置, 0, キャラ画像表示サイズ比, LOCAL:1 + 1)
		ELSE
			CALL 画像セット(RESULTS:(LOCAL:1), 縦位置, 0, キャラ画像表示サイズ比, LOCAL:1 + 1)
		ENDIF
	NEXT

	;フレーム描画
	IF FLAG:화상범위표시
		IF TALENT:(ターゲット:LOCAL):기분 == -1
			CALL 画像セット(@"フレーム\@ターゲット:LOCAL==ターゲット?_ターゲット#\@_怒り", 縦位置, 0, キャラ画像表示サイズ比, 最大レイヤー数 - FLAG:시간정지)
		ELSEIF TALENT:(ターゲット:LOCAL):기분 == 1
			CALL 画像セット(@"フレーム\@ターゲット:LOCAL==ターゲット?_ターゲット#\@_笑顔", 縦位置, 0, キャラ画像表示サイズ比, 最大レイヤー数 - FLAG:시간정지)
		ELSE
			CALL 画像セット(@"フレーム\@ターゲット:LOCAL==ターゲット?_ターゲット#\@_通常", 縦位置, 0, キャラ画像表示サイズ比, 最大レイヤー数 - FLAG:시간정지)
		ENDIF
	ENDIF
	;時間停止時の処理　上から背景色と同じ色を透過度入れて重ねる
	SIF FLAG:시간정지
		CALL 画像セット("時間停止", 縦位置, 0, キャラ画像表示サイズ比, 最大レイヤー数)
NEXT

;画像表示
CALL 画像一斉表示(@"\@FLAG:화상표시위치?左#中央\@", 0, 1, -1)

IF FLAG:화상표시설정 ;1041
	;-----------------
	;表示設定関連
	;-----------------
	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 += @"　<button value='3108' title='현재: \@FLAG:거유차이표시?ON#OFF\@'>"
	sPrint_Text += @"거유대체화상[\@FLAG:거유차이표시?ON#OFF\@]</button>"
	sPrint_Text += @"　<button value='3109' title='현재: \@FLAG:追加エフェクト?ON#OFF\@'>"
	sPrint_Text += @"이펙트[\@FLAG:追加エフェクト?ON#OFF\@]</button>"
	IF CFLAG:TARGET:별도얼굴있음 || CFLAG:TARGET:별도스탠딩있음
		sPrint_Text += @"　<button value='3110' title='현재: \@CFLAG:TARGET:대체적용?ON#OFF\@'>"
		sPrint_Text += @"대체화상[{CFLAG:TARGET:대체적용}]</button>"
	ENDIF
	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 += @"<button value='3111' title='현재: \@FLAG:멀티사이즈?멀티#{デフォルトキャラ画像横幅}\@'>"
	sPrint_Text += @"화상사이즈[\@FLAG:멀티사이즈?멀티#{デフォルトキャラ画像横幅}\@:{100 + isModifier}％]</button>"
	sPrint_Text += @"<button value='3107' title='표시인수＋'>[＋]</button>"
	HTML_PRINT sPrint_Text
ENDIF

RESULT = SAVE_RESULT
RETURN RESULT

;=========================================================
;	ステータス画面の화상표시
;
;	iID		：キャラIDと同じリソース名を表示します
;=========================================================
@PRINT_STATE_IMAGE(iID)
#DIM iID
VARSET RESULTS

SIF !iID
	RETURN RESULT
;画像表示 ;KR판 구잔재 AA표시 의 오리지날 살리기
IF !FLAG:화상표시 && !FLAG:AA표시
	LOCALS = 없음
ELSEIF !FLAG:화상표시 && FLAG:AA표시
	LOCALS = AA화상
ELSEIF !FLAG:스탠딩종류
	LOCALS = 스탠딩
ELSE
	LOCALS = 얼굴
ENDIF
PRINTFORMLC [99] 화상 변환:%LOCALS%
SIF ((FLAG:스탠딩종류 == 1 && CFLAG:iID:별도얼굴있음) || (FLAG:스탠딩종류 == 0 && CFLAG:iID:별도스탠딩있음)) && FLAG:화상표시
	PRINTFORMLC [98] 대체 화상:\@CFLAG:iID:대체적용?ON({CFLAG:iID:대체적용})#OFF\@
PRINTL

IF !FLAG:화상표시 && !FLAG:AA표시
	RETURN RESULT
ELSEIF !FLAG:화상표시 && FLAG:AA표시
	CALL PRINT_AA(iID)
	RETURN RESULT
ENDIF

;画像表示
キャラ画像表示サイズ比 = 100
IF iID < CHARANUM
	IF TALENT:iID:스침 && !GCREATED(CFLAG:iID:モブ子素材CFLAG開始位置)
		CALL 모브코생성(iID,0)
		CALL 모브코생성(iID,1)
	ENDIF
	CALL GET_BASE_RESOURCE(iID, "", "服", "通常")
	SIF FLAG:멀티사이즈
		デフォルトキャラ画像横幅 = SPRITEHEIGHT(RESULTS)
	CALL 画像セット(RESULTS, 0, 0, キャラ画像表示サイズ比, 0)
[SKIPSTART]
	CALL GET_BASE_RESOURCE(iID, "", "裸", "通常")
	CALL 画像セット(RESULTS, 0, 0, キャラ画像表示サイズ比, 0)
[SKIPEND]
ELSE
	CALL ダミーセット(0, 0, キャラ画像表示サイズ比)
ENDIF

SIF FLAG:화상범위표시
	CALL 画像セット("フレーム_通常", 0, 0, キャラ画像表示サイズ比, 1)

CALL 画像一斉表示(0, 0, 1, -1)

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

;=========================================================
;	AFTERTRAニー화상표시を関数化
;	オナバレックスなんかにも使う
;=========================================================
@PrintOnanismImage(C_ID)
#DIM C_ID

SIF !C_ID
	RETURN RESULT
SIF !FLAG:화상표시
	RETURN RESULT

キャラ画像表示サイズ比 = 100

CALL GET_BASE_RESOURCE(C_ID, "顔絵", "裸", "オナニー")
;無ければ発情、なお無ければ通常表情
IF !RESULT
	CALL GET_BASE_RESOURCE(C_ID, "顔絵", "裸", "発情")
	SIF !RESULT
		CALL GET_BASE_RESOURCE(C_ID, "顔絵", "裸", "通常")
ENDIF
SIF FLAG:멀티사이즈
	デフォルトキャラ画像横幅 = SPRITEHEIGHT(RESULTS)

CALL 画像セット(RESULTS, 0, 0, キャラ画像表示サイズ比, 0)

CALL GET_EFFECT_RESOURCE(C_ID, "吐息")
SIF RESULT
	CALL 画像セット(RESULTS, 0, 0, キャラ画像表示サイズ比, 1)

TRYCCALLFORM IMAGE_I{C_ID}_自慰エフェクト(C_ID)
	FOR LOCAL, 0, RESULT
		SIF SPRITECREATED(RESULTS:LOCAL)
			CALL 画像セット(RESULTS:LOCAL, 0, 0, キャラ画像表示サイズ比, LOCAL + 2)
	NEXT
CATCH
ENDCATCH

CALL 画像一斉表示(0, 0, 1, -1)

;=========================================================
;@GET_BASE_RESOURCE(CHARA, 表示形式, 服装, 表情, 表情_マウスオーバー, 差分)
;	基本画像のリソースを返却する
;		RETURNS:0 にリソース、RETURNS:1 にマウスオーバーリソースをそれぞれ格納
;		CHARAにキャラクタ番号、その他の引数を入力でリソースを指定できる
;		引数を省略または空文字入力で現在のステータスから自動決定
;	リソースがあれば1を返却、無ければ0を返却
;=========================================================
@GET_BASE_RESOURCE(CHARA, 表示形式 = "", 服装 = "", 表情 = "", 表情_マウスオーバー = "", 差分 = "")
#DIM CHARA
#DIMS 表示形式
#DIMS 服装
#DIMS 表情
#DIMS 表情_マウスオーバー
#DIMS 差分
#DIMS 乳型 = "絶壁", "貧乳", "並乳", "巨乳", "爆乳"
#DIM CHARA_CSV_乳型
#DIM LOOP_乳型
RESULT = 0
;表示形式
表示形式 = %GET_BASESTYLE(CHARA, 表示形式)%
;差分
IF 差分 == ""
    TRYCCALLFORM IMAGE_I{CHARA}_差分(CHARA)
        差分 = %RESULTS%
	CATCH
    ENDCATCH
ENDIF

;服装
IF 服装 == ""
    IF CHECK_NUDE(CHARA)
        服装 = 裸
    ELSE
        服装 = 服
    ENDIF
	TRYCCALLFORM IMAGE_I{CHARA}_特殊服装(CHARA)
		服装 += RESULTS
	CATCH
	ENDCATCH
ENDIF
;-------PRINTFORML %CALLNAME:CHARA%の服装：%服装%、表情：%表情%、MO表情：%表情_マウスオーバー%、差分：%差分%を確認
IF FLAG:거유차이표시
	CHARA_CSV_乳型 = CSVTALENT(CHARA, GETNUM(TALENT, "가슴사이즈"))
	LOOP_乳型 = TALENT:CHARA:가슴사이즈
	RESULT = 0

	FOR LOCAL, 0, 4
		LOOP_乳型 = MAX(-2, LOOP_乳型)
		LOOP_乳型 = MIN(2, LOOP_乳型)

		CALL GET表情体形完整(CHARA, 表示形式, 服装, 表情, 表情_マウスオーバー, 差分, 乳型:(LOOP_乳型+2))
		SIF !RESULT
			CALL GET表情体形拆分组合(CHARA, 表示形式, 服装, 表情, 表情_マウスオーバー, 差分, 乳型:(LOOP_乳型+2))

		SIF RESULT || LOOP_乳型==CHARA_CSV_乳型
			BREAK

		IF CHARA_CSV_乳型 > LOOP_乳型
			LOOP_乳型++
		ELSE
			LOOP_乳型--
		ENDIF
	NEXT
ELSE
	RESULT = 0
ENDIF

IF !RESULT
	CALL GET表情体形完整(CHARA, 表示形式, 服装, 表情, 表情_マウスオーバー, 差分)
ENDIF
RETURN RESULT

@GET表情体形完整(CHARA, 表示形式, 服装, 表情, 表情_マウスオーバー, 差分, 乳量 = "")
#DIM CHARA
#DIMS 表示形式
#DIMS 服装
#DIMS 表情
#DIMS 表情_マウスオーバー
#DIMS 差分
#DIMS 乳量
#DIMS TEMP_服装

TEMP_服装 = %服装%
服装 = %乳量%%服装%
TRYCCALLFORM IMAGE_I{CHARA}_体形(CHARA)
	服装 = %RESULTS%%服装%
	TEMP_服装 = %RESULTS%%TEMP_服装%
CATCH
ENDCATCH

;表情(RESULTSに格納)
IF 表情 == ""
    CALL GET_FACETYPE(CHARA, 表示形式, TEMP_服装, 差分)
ELSE
    RESULTS:0 = %表情%
    RESULTS:1 = %表情%
ENDIF
SIF 表情_マウスオーバー != ""
    RESULTS:1 = %表情_マウスオーバー%
;PRINTFORML 表情「%RESULTS:0%」を確認

RESULTS:0 = %表示形式%_%服装%_%RESULTS:0%_{CHARA}%差分%
RESULTS:1 = %表示形式%_%服装%_%RESULTS:1%_{CHARA}%差分%

;リソースのチェック 見つからない場合は0を返す
IF !SPRITECREATED(RESULTS:0)
;	PRINTFORML リソース「%RESULTS:0%」が見つからない
    RETURN 0
ENDIF
IF !SPRITECREATED(RESULTS:1)
    RETURN 0
ENDIF
RETURN 1

@GET表情体形拆分组合(CHARA, 表示形式, 服装, 表情, 表情_マウスオーバー, 差分, 乳量)
#DIM GID
#DIM CHARA
#DIMS 表示形式
#DIMS 服装
#DIMS 表情
#DIMS 表情_マウスオーバー
#DIMS 差分
#DIMS 乳量
#DIMS SET_RESOURCE = "BASE巨乳拆分", "マウスオーバー巨乳拆分", "BASE", "マウスオーバー", "BASE巨乳", "マウスオーバー巨乳"

SET_RESOURCE:4 = %乳量%%服装%
TRYCCALLFORM IMAGE_I{CHARA}_体形(CHARA)
	服装 = %RESULTS%%服装%
	SET_RESOURCE:4 = %RESULTS%%SET_RESOURCE:4%
CATCH
ENDCATCH

;表情(RESULTSに格納)
IF 表情 == ""
    CALL GET_FACETYPE(CHARA, 表示形式, 服装, 差分)
	SET_RESOURCE:2 = %RESULTS:0%
	SET_RESOURCE:3 = %RESULTS:1%
ELSE
    SET_RESOURCE:2 = %表情%
    SET_RESOURCE:3 = %表情%
ENDIF
SIF 表情_マウスオーバー != ""
    SET_RESOURCE:3 = %表情_マウスオーバー%

;get 巨乳拆分
SET_RESOURCE:0 = %表示形式%_%服装%_%SET_RESOURCE:2%_%乳量%拆分_{CHARA}%差分%
IF !SPRITECREATED(SET_RESOURCE:0)
	SET_RESOURCE:0 = %表示形式%_%服装%_%乳量%拆分_{CHARA}%差分%
	SIF !SPRITECREATED(SET_RESOURCE:0)
		RETURN 0
ENDIF
SET_RESOURCE:1 = %表示形式%_%服装%_%SET_RESOURCE:3%_%乳量%拆分_{CHARA}%差分%
IF !SPRITECREATED(SET_RESOURCE:1)
	SET_RESOURCE:1 = %表示形式%_%服装%_%乳量%拆分_{CHARA}%差分%
	SIF !SPRITECREATED(SET_RESOURCE:1)
		RETURN 0
ENDIF

;name of combined image
SET_RESOURCE:5 = %表示形式%_%SET_RESOURCE:4%_%SET_RESOURCE:3%_{CHARA}%差分%
SET_RESOURCE:4 = %表示形式%_%SET_RESOURCE:4%_%SET_RESOURCE:2%_{CHARA}%差分%

;get body
SET_RESOURCE:2 = %表示形式%_%服装%_%SET_RESOURCE:2%_{CHARA}%差分%
SET_RESOURCE:3 = %表示形式%_%服装%_%SET_RESOURCE:3%_{CHARA}%差分%

SIF !SPRITECREATED(SET_RESOURCE:2) || !SPRITECREATED(SET_RESOURCE:3)
	RETURN 0

GID = 0
CALL 画像合成(GID, SET_RESOURCE:2)
CALL 画像合成(GID, SET_RESOURCE:0)
CALL リソース登録(SET_RESOURCE:4, GID)

GID = 0
CALL 画像合成(GID, SET_RESOURCE:3)
CALL 画像合成(GID, SET_RESOURCE:1)
CALL リソース登録(SET_RESOURCE:5, GID)

RESULTS:0 = %SET_RESOURCE:4%
RESULTS:1 = %SET_RESOURCE:5%

RETURN 1

;표시 형식을 반환하다
@GET_BASESTYLE(CHARA, 表示形式 = "")
#FUNCTIONS
#DIM CHARA
#DIMS 表示形式

IF 表示形式=="顔絵" || (FLAG:스탠딩종류 && 表示形式=="")
	IF CFLAG:CHARA:대체적용 && CFLAG:CHARA:별도얼굴있음
		表示形式 = %\@CFLAG:CHARA:대체적용 >= 2 ?別顔{CFLAG:CHARA:대체적용}#別顔\@%
	ELSE
		表示形式 = 顔絵
	ENDIF
ELSEIF 表示形式=="立ち絵" || (!FLAG:스탠딩종류 && 表示形式=="")
	IF CFLAG:CHARA:대체적용 && CFLAG:CHARA:별도스탠딩있음
		表示形式 = %\@CFLAG:CHARA:대체적용 >= 2 ?別立ち{CFLAG:CHARA:대체적용}#別立ち\@%
	ELSE
		表示形式 = 立ち絵
	ENDIF
ENDIF

RETURNF 表示形式

;裸表示条件を返却する
@CHECK_NUDE(CHARA)
#FUNCTION
#DIM CHARA

SIF FLAG:스탠딩종류 && !TEQUIP:CHARA:상반신착의상황
	RETURNF 1
SIF !FLAG:스탠딩종류 && !TEQUIP:CHARA:상반신착의상황 && !TEQUIP:CHARA:하반신착의상황
	RETURNF 1
SIF BATHROOM(CFLAG:CHARA:현재위치) && !TFLAG:거품목욕
	RETURNF 1
RETURNF 0

;=========================================================
;@GET_FACETYPE(CHARA, 表示形式, 服装, 差分 )
;	表情を現在のステータスから自動決定する
;		RETURNS:0 にリソース、RETURNS:1 にマウスオーバーリソースをそれぞれ格納
;=========================================================
@GET_FACETYPE(CHARA, 表示形式, 服装, 差分)
#DIM CHARA
#DIMS 表示形式
#DIMS 服装
#DIMS 差分
#DIMS TEMP, 2

IF TALENT:CHARA:기분 == -1 || CFLAG:CHARA:빡침
	RESULTS:0 = 怒り
	LOCAL = -1
ELSEIF TALENT:CHARA:기분 == 1 || BASE:CHARA:무드 == MAXBASE:CHARA:무드 || TCVAR:CHARA:만취
	RESULTS:0 = 笑顔
	LOCAL = 1
ELSE
	RESULTS:0 = 通常
	LOCAL = 0
ENDIF
SIF CHECK_CHARA(CHARA, "陥落")
	LOCAL ++
SIF BATHROOM(CFLAG:CHARA:현재위치) && 목욕탕추방조건(CHARA)
	LOCAL --
SIF MARK:CHARA:반발각인
	LOCAL --
SIF BASE:CHARA:분노 >= 500
	LOCAL --
SIF BASE:CHARA:무드 >= 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

;表情がなければ通常
SIF !SPRITECREATED(@"%表示形式%_%服装%_%RESULTS:0%_{CHARA}%差分%")
	RESULTS:0 = 通常
SIF !SPRITECREATED(@"%表示形式%_%服装%_%RESULTS:1%_{CHARA}%差分%")
	RESULTS:1 = 通常

;発情用
IF TCVAR:CHARA:발정 && SPRITECREATED(@"%表示形式%_%服装%_発情_{CHARA}%差分%")
	RESULTS:0 = 発情
	RESULTS:1 = 発情
ENDIF

;睡眠用
IF CFLAG:CHARA:수면 && SPRITECREATED(@"%表示形式%_%服装%_睡眠_{CHARA}%差分%")
	RESULTS:0 = 睡眠
	RESULTS:1 = 睡眠
ENDIF
IF CFLAG:CHARA:우후후 && GETPALAMLV(PALAM:CHARA:욕정, 10) >= 7 && SPRITECREATED(@"%表示形式%_%服装%_トロ顔_{CHARA}%差分%")
	RESULTS:0 = トロ顔
	RESULTS:1 = トロ顔
	IF NOWEX:CHARA:TotalEX >= 5
		RESULTS:0 = イキ顔
		RESULTS:1 = イキ顔
	ENDIF
ENDIF
;専用の特殊表情変化
TRYCALLFORM IMAGE_I{CHARA}_特殊表情(CHARA)
SIF RESULTS:0 == ""
	RESULTS:0 = 通常
SIF RESULTS:1 == ""
	RESULTS:1 = 通常
;以下コマンドから追加される表情
SIF FLAG:시간정지 || CHARA != TARGET || CFLAG:CHARA:수면
	RETURN 0

;現在の表情を一時保存
TEMP:0 = %RESULTS:0%
TEMP:1 = %RESULTS:1%

;挿入中なら性交表情
SIF IS_SEXING(CHARA) && SPRITECREATED(@"%表示形式%_%服装%_性交_{CHARA}%差分%")
	RESULTS:0 = 性交

SELECTCASE SELECTCOM
	;愛撫系
	CASE 0 TO 15
		IF SELECTCOM == 9
			RESULTS:0 = オナニー
		ELSE
			RESULTS:0 = 愛撫
		ENDIF
	;性交系
	CASE 60 TO 79, 317 TO 323
		RESULTS:0 = 性交
	;カウンターまたは日常系愛撫
	CASE 313 TO 316
		IF CFLAG:CHARA:우후후
			RESULTS:0 = 愛撫
		ELSEIF MARK:CHARA:괘씸각인 == 3
			RESULTS:1 = 愛撫
		ENDIF
ENDSELECT
;PRINTFORML 表情チェック　%表示形式%_%服装%_%RESULTS:0%_{CHARA}%差分%
;表情がなければ戻す
SIF !SPRITECREATED(@"%表示形式%_%服装%_%RESULTS:0%_{CHARA}%差分%")
	RESULTS:0 = %TEMP:0%
SIF !SPRITECREATED(@"%表示形式%_%服装%_%RESULTS:1%_{CHARA}%差分%")
	RESULTS:1 = %TEMP:1%

;発情時2/3でマウスオーバーと表情交代
SIF RAND:3 && TCVAR:CHARA:발정 && SPRITECREATED(@"%表示形式%_%服装%_発情_{CHARA}%差分%")
	SWAP RESULTS:0, RESULTS:1

;専用の特殊表情変化
TRYCALLFORM IMAGE_I{CHARA}_特殊表情COM(CHARA, SELECTCOM)

;性交中判定
@IS_SEXING(ARG)
#FUNCTION

SIF !ARG
	ARG = TARGET
SIF TEQUIP:ARG:V섹스 == MASTER || TEQUIP:ARG:A섹스 == MASTER || TEQUIP:MASTER:V섹스 == ARG || TEQUIP:MASTER:A섹스 == ARG
	RETURNF 1
RETURNF 0

;=========================================================
;@GET_EFFECT_RESOURCE(CHARA, エフェクト, 表示形式, 差分)
;	エフェクト画像のリソースを返却する
;		RETURNS配列 にリソースをそれぞれ格納
;		CHARAにキャラクタ番号、エフェクトに入力
;		引数を省略または空文字入力で現在のステータスから自動決定
;	リソースがあればエフェクト数を返却、無ければ0を返却
;=========================================================
@GET_EFFECT_RESOURCE(CHARA, エフェクト = "", 表示形式 = "", 差分 = "")
#DIM CHARA
#DIMS 表示形式
#DIMS エフェクト
#DIMS 差分
#DIM DYNAMIC エフェクト数 = 0
#DIMS DYNAMIC リソース, 100
#DIMS DYNAMIC エフェクト名

;PRINTFORML 이펙트가 달리고 있어

SIF !FLAG:追加エフェクト
	RETURN 0
VARSET RESULTS

表示形式 = %GET_BASESTYLE(CHARA, 表示形式)%
IF 差分 == ""
    TRYCCALLFORM IMAGE_I{CHARA}_差分(CHARA)
        差分 = %RESULTS%
	CATCH
    ENDCATCH
ENDIF

;照れ
IF STRFIND(エフェクト, "照れ") != -1 || (エフェクト == "" && CHECK_BLUSH(CHARA, 表示形式, 差分))
	エフェクト名 = 照れ
	TRYCCALLFORM IMAGE_I{CHARA}_特殊照れ(CHARA)
		エフェクト名 '= RESULTS + エフェクト名
	CATCH
	ENDCATCH
	SIF (CHECK_NUDE(CHARA) || STRFIND(エフェクト, "照れ") != -1) && SPRITECREATED(@"%表示形式%_裸%エフェクト名%_{CHARA}%差分%")
		エフェクト名 '= "裸" + エフェクト名
	IF SPRITECREATED(@"%表示形式%_%エフェクト名%_{CHARA}%差分%")
		リソース:(エフェクト数) = %表示形式%_%エフェクト名%_{CHARA}%差分%
		エフェクト数 += 1
	ENDIF
ENDIF

;吐息
IF STRFIND(エフェクト, "吐息") != -1 || (エフェクト == "" && CHECK_EXHALATION(CHARA))
	エフェクト名 = 吐息
	TRYCCALLFORM IMAGE_I{CHARA}_特殊吐息(CHARA)
		エフェクト名 '= RESULTS + エフェクト名
	CATCH
	ENDCATCH
	SIF (CHECK_NUDE(CHARA) || STRFIND(エフェクト, "吐息") != -1) && SPRITECREATED(@"%表示形式%_裸%エフェクト名%_{CHARA}%差分%")
		エフェクト名 '= "裸" + エフェクト名
	IF SPRITECREATED(@"%表示形式%_%エフェクト名%_{CHARA}%差分%")
		リソース:(エフェクト数) = %表示形式%_%エフェクト名%_{CHARA}%差分%
		エフェクト数 += 1
	ENDIF
ENDIF

;汗
IF STRFIND(エフェクト, "汗") != -1 || (エフェクト == "" && CHECK_SWEAT(CHARA))
	エフェクト名 = 汗
	TRYCCALLFORM IMAGE_I{CHARA}_特殊汗(CHARA)
		エフェクト名 '= RESULTS + エフェクト名
	CATCH
	ENDCATCH
	SIF (CHECK_NUDE(CHARA) || STRFIND(エフェクト, "汗") != -1) && SPRITECREATED(@"%表示形式%_裸%エフェクト名%_{CHARA}%差分%")
		エフェクト名 '= "裸" + エフェクト名
	IF SPRITECREATED(@"%表示形式%_%エフェクト名%_{CHARA}%差分%")
		リソース:(エフェクト数) = %表示形式%_%エフェクト名%_{CHARA}%差分%
		エフェクト数 += 1
	ENDIF
ENDIF

;特殊
RESULT = 0
TRYCALLFORM IMAGE_I{CHARA}_特殊エフェクトチェック(CHARA, エフェクト)
IF RESULT || エフェクト == ""
	TRYCALLFORM IMAGE_I{CHARA}_特殊エフェクト(CHARA)
	FOR LOCAL, 0, RESULT
		IF SPRITECREATED(@"%表示形式%_%RESULTS:LOCAL%_{CHARA}%差分%")
			リソース:(エフェクト数) = %表示形式%_%RESULTS:LOCAL%_{CHARA}%差分%
			エフェクト数 += 1
		ENDIF
	NEXT
ENDIF
;PRINTFORML 汎用エフェクトチェックが走ってるよ
IF CSTR:CHARA:범용이펙트 != ""
	;PRINTFORML エフェクト「汎用エフェクト_%CSTR:CHARA:汎用エフェクト%」を確認
	IF SPRITECREATED(@"汎用エフェクト_%CSTR:CHARA:범용이펙트%")
		;PRINTFORML あったよ
		リソース:(エフェクト数) = 汎用エフェクト_%CSTR:CHARA:범용이펙트%
		エフェクト数 += 1
	ENDIF
ENDIF

ARRAYCOPY "リソース", "RESULTS"
RETURN エフェクト数

;照れの条件
@CHECK_BLUSH(CHARA, 表示形式, 差分)
#FUNCTION
#DIM CHARA
#DIMS 表示形式
#DIMS エフェクト
#DIMS 差分

SIF SPRITECREATED(@"%表示形式%_裸_発情_{CHARA}%差分%") && TCVAR:CHARA:발정
	RETURNF 0

SIF TCVAR:CHARA:만취 || TCVAR:CHARA:미약 || TCVAR:CHARA:발정
	RETURNF 1
SIF GETPALAMLV(PALAM:CHARA:호의, 15) >= 10
	RETURNF 1
SIF GETPALAMLV(PALAM:CHARA:욕정, 15) + CFLAG:CHARA:욕구불만도 / 200 >= 8
	RETURNF 1
SIF CFLAG:CHARA:우후후 && (GETPALAMLV(PALAM:CHARA:욕정, 15) + CFLAG:CHARA:욕구불만도 / 200 >= 5)
	RETURNF 1
RETURNF 0

;吐息の条件
@CHECK_EXHALATION(CHARA)
#FUNCTION
#DIM CHARA

SIF FLAG:시간정지
	RETURNF 0

SIF BATHROOM(CFLAG:CHARA:현재위치)
	RETURNF 1
SIF GETPALAMLV(PALAM:CHARA:욕정, 5) + CFLAG:CHARA:욕구불만도 / 200 >= 8
	RETURNF 1
SIF CFLAG:CHARA:우후후 && (GETPALAMLV(PALAM:CHARA:욕정, 5) + CFLAG:CHARA:욕구불만도 / 200 >= 5)
	RETURNF 1
RETURNF 0

;汗の条件
@CHECK_SWEAT(CHARA)
#FUNCTION
#DIM CHARA
#DIM SPENT_TIME

;夏の12~15時で晴れと晴天かつ屋外か地底なら常時汗エフェクト
;04/07/06画像加工者より。時間帯 = 3 となっていたのを 時間帯 == 3 と修正しました
SIF DAY:2 == 2 && 시간대 == 3 && INRANGE(날씨, 0, 1) && (OUTROOF(CFLAG:CHARA:현재위치) || GET_MAPID(CFLAG:CHARA:현재위치) == 9)
	RETURNF 1

SIF FLAG:시간정지
	RETURNF 0

;うふふ1時間以上
SPENT_TIME = (TIME - UFUFU_START_TIME) / 60
SIF SPENT_TIME < 0
	SPENT_TIME += 24
SIF SPENT_TIME > 0 && CFLAG:CHARA:우후후
	RETURNF 1
;체력3/4かつ기력1/4
SIF BASE:CHARA:체력 < MAXBASE:CHARA:체력*3/4 && BASE:CHARA:기력 < MAXBASE:CHARA:기력/4
	RETURNF 1
RETURNF 0