#-------------------------------------------------------------------#
# ^Cイpl^{̂PE{ݒyCommunicateBoxn@@#
# 쐬ҁFfME\hEUr@@@@@@@@@@@@@@@@@@@@#
#-------------------------------------------------------------------#

:crypt
#\IȖ
myname : Cイ
unyuname : 
unyuname.shogun : R
friendname.umi : o
friendname.shogun : a
friendname2.umi : _イ
friendname2.shogun : {ia
flagmyname : o
flagmyname.kuromi : Cイ
flagunyuname : ɂイ
kurominame.umi : Co
unyuname.umi : ɂイ
kurominame.shogun : C
kurootoko.unyuname : ^̊ɂイ
kurootoko.umi : ɂイZ
manaminame.umi : Co
manaminame.shogun : C
usayuname.umi : イ
usayuname.shogun : イ
julianame.umi : WA
julianame.shogun : WA
pochiname.umi : |`
pochiname.shogun : |`
nudianame.umi : k[fBA
nudianame.shogun : k[fBA
pattyname.umi : peB
pattyname.shogun : peB
chieminame.umi : qbC
chieminame.shogun : qbC
honaminame.umi : ۓފC
honaminame.shogun : ۓފC
pumpyuname.umi : |vイ
pumpyuname.shogun : ̒|v
hirominame.umi : TCo
hirominame.shogun : TC

#Ȗ
hme : jVr,̐i,ʎY^

#{T[tFXԍ
SakuraBase : 0
KeroBase : 10


#-------------------------------------------------------------------#
# fobOpXNvg(CommunicateBoxɓ邱ƂŔ)@@@@@@#
#-------------------------------------------------------------------#
#-------------------------------------------------------------------#
# ̂P@o^PꐔmFp(Box͏Fdict) @@@@@@@@@@@#
#-------------------------------------------------------------------#
Comm.user : "dict,${dicttotal}"
dicttotal : \1\s[10]\0\s[5]${countzero}ɓo^Ă閼̂̐\_q\w8\w8\nl@@@@F$(size npw)l\w8\w8\nn@@@@F$(size npp)ӏ\w8\w8\nn@@@@F$(size npp)ӏ\w8\w8\ngD@@@@F$(size npo)c\w8\w8\nV@@@@F$(size n.magazine)\w8\w8\n{@@@@@F$(size n.book)\w8\w8\nAj@@@F$(size n.anime)^Cg\w8\w8\nQ[@@@F$(size n.game)^Cg\w8\w8\nȖ@@@@F$(size n.song)\w8\w8\nTϖ@@F$(size ns)\w8\w8\n蕨@@@F$(size n.vehicle)@\w8\w8\nACe@@F$(size n.tool)\w8\w8\nZ@@@@@F$(size n.waza)Z\w8\w8\nHו@@@F$(size n.food)\w8\w8\nݕ@@@F$(size n.drink)\w8\w8\n@@@@@F$(size n.medicine)\w8\w8\n@@@@F$(size n.animal)C\w8\w8\nEƁ@@@@F$(size work)E\w8\w8\n[t@F$(size speech)䎌\w8\w8\n`eꊲ@F$(size adj)\w8\w8\n`eꊲF$(size adv)\w8\w8\nߋ@@F$(size ntp)\w8\w8\nݎ@@F$(size ntn)\w8\w8\n@@F$(size ntf)\w8\w8\nȂF$(size nte)\w8\w8\n`e@@F$(size dms)\w8\w8\n{g[NF$(size UmyuTalk)\w8\w8\n^̊g[NF$(size Kurootoko.UmyuTalk)\w8\w8\n`cg[N@F$(size AdultUmyu.UmyuTalk)ctg[N@F$(size DoubleUmyu.UmyuTalk)\_q\w8\s[0]\nc\w2c\w2c\w5āB\w8\1c\w2c\w2c\w2c\w4o^͂悤\w2c\w2c\w4ʂĂǂꂾۂɎgĂ邩B\w8\0\n\n\s[7]͋֋傾II\e
#-------------------------------------------------------------------#
# ̂Q@p[^mFp(Box͏Fpara) @@@@@@@@@@@#
#-------------------------------------------------------------------#
Comm.user : "para,${kurodegwinparam}"
kurodegwinparam : \_q\0t[YF${parafreeze}F${pararandomtalk}\ng[NFOb${cnttalk}b^${parainterval}\n؂F${paramikire}F${cntmikire}^60bF${paraflagmikire}\ndȂF${parakasanari}F${cntkasanari}^60b\nŎwF${paravanish}\nOSNԁF${worktime}\n[UiSakurajF${username}${keisyo}\n[UiKerojF${username}a\1g[^NF${time.desktop.total}\nN񐔁F${count.boot}\e
parafreeze : $(if $([ ${freeze} == $(NULL) ]) "t[YtOOFF" $(if $([ ${freeze} == "0" ]) "t[YtOOFF" $(if $([ ${freeze} == "1" ]) "t[YtOON")))
pararandomtalk : $(if $([ ${sw.randomtalk} == $(NULL) ]) "_g[N" $(if $([ ${sw.randomtalk} == "0" ]) "_g[N" $(if $([ ${sw.randomtalk} == "1" ]) "_g[NȂ")))
parainterval : $(if $([ ${interval} == "29" ]) "30bԊu" $(if $([ ${interval} == "59" ]) "PԊu" $(if $([ ${interval} == "89" ]) "P30bԊu" $(if $([ ${interval} == "179" ]) "RԊu" $(if $([ ${interval} == "599" ]) "10Ԋu" $(if $([ ${interval} == "999" ]) "Ȃ"))))))
paramikire : $(if $([ ${sw.mikire} == $(NULL) ]) "" $(if $([ ${sw.mikire} == "0" ]) "" $(if $([ ${sw.mikire} == "1" ]) "Ȃ")))
paraflagmikire : $(if $([ ${flagmikire} == $(NULL) ]) "؂ĂȂ" $(if $([ ${flagmikire} == "0" ]) "؂ĂȂ" $(if $([ ${flagmikire} == "1" ]) "݌؂ꒆ")))
parakasanari : $(if $([ ${sw.kasanari} == $(NULL) ]) "" $(if $([ ${sw.kasanari} == "0" ]) "" $(if $([ ${sw.kasanari} == "1" ]) "Ȃ")))
paravanish : $(if $([ ${sw.vanish} == $(NULL) ]) "\Ȃ" $(if $([ ${sw.vanish} == "0" ]) "\Ȃ" $(if $([ ${sw.vanish} == "1" ]) "\")))

#-------------------------------------------------------------------#
# ̂R@eI_CNgp(Box͏FꂼQ) @@@#
#-------------------------------------------------------------------#
#P@
#Comm.user : 
#
#Comm.user : 
#
#-------------------------------------------------------------------#
# o[W\p@@@@@@@@@@@@@@@@@@@@@@@#
# ͂PO؂ƂčsB@@@@@@@@@@@@@@@@@#
#-------------------------------------------------------------------#
Select.Version : \1\s[10]\0\s[0]\w4̎̃o[W\w2c\w2c\w4\n\n\s[5]uVer.0.0560v\w4\n\nā`\w6\1\s[10]܂܂n܂΂肾ȁB${v001}
v001 : \w6\0\n\n\s[5]vA\w6$(? "Uɂイ" "fM")񂪉ƂĂ邩`B\w8\1\ncc\w6ɕGȋCȁA\w6̌񂵁B\e
v001 : \w6\0\n\n\s[4]$(? "Uɂイ" "fM")́u܂eXgo[WȁvƂ]Ă`H\w8\1\ncc\w6Ȏqɉ]Ă񂾁A\w6̒j́B\e
v001 : \w6\0\n\n҂Ă΂ƂƂ`\w8\1\ncc\w6܂҂ƃc̐iƃwRނB\w8\0\n\n\s[4]Ȃ́`H\e

Select.Rireki : \1\s[10]\0\s[5]̍XVꂽjāB\w8\1\s[10]Ver.0.0551ȑO̗͍҂̂goɂuXVvQƂɂĂB\w8\0\n\s[0]\_q\w8\w8\nVer.0.0542Fl^EP̒ǉAg[Nl^t@C̕Ãl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0552Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0553Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0554Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0555Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0556Fl^EP̒ǉA}EXt@C̑啝ύXÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0557Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0558Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0559Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\w8\w8\nVer.0.0560Fl^EP̒ǉÃl^ES[Xg֎̑䎌̒ǉCyшꕔXNvg̏C\_q\w8\n\nc\w3c\w3c\w3c\w3c\w5ā`B${rireki1}
rireki1 : \w8\1\n\s[10]$(? "" "܂܂")$(? "zq" "܂" "Ŏq" "̍o" "T" "" "gt" "ot" "q" "狽" "" "t" "gg" "Q" "ʋ")aɂ$(? "قǉ" "y΂")\w2c\w2c\w2B\w8\0\n\n\s[4]͂c\w6͎dȂƎv\w2c\w2c\w2B\e
rireki1 : \w8\1\n\s[10]ӂ\w2c\w2c\w5΂炭͓悤Ȃ̂Ȃ\w2c\w2c\w2B\w8\0\n\n\s[4]${unyuname}A\w6́u񂭁v\w6Ȃ񂾂ā`B\e

#-------------------------------------------------------------------#
# lbg[NXVI㗚\p@@@@@@@@@@@@@@@@@#
# 킴킴o܂łȂXVe\@@@@(2003.07.21)#
#-------------------------------------------------------------------#
networkrireki : \1\s[10]\c\0\s[0]\c${countzero}`Ɓ`cc\w5\s[5]POPOɂ̂[͂Ȃ`B\_q\w8\niPjg[Nl^ǉ\w8\niQjɒPǉ\w8\niRj̃g[Nl^ɒǉEC\w8\niSj̃S[Xg֎̑䎌ɒǉEC\w8\niTjꕔXNvg̏C\_q\w8\1\s[10]cc\w3ӂށcc\w5Ȃ̂ȁB\w8\0\n\n\s[3]fȂ˂`ccB\e
kurootokonetworkrireki : \1\s[50]\c\0\s[0]\c${countzero}`Ɓ`cc\w5\s[5]POPOɂ̂[͂Ȃ`B\_q\w8\niPjg[Nl^ǉ\w8\niQjɒPǉ\w8\niRj̃g[Nl^ɒǉEC\w8\niSj̃S[Xg֎̑䎌ɒǉEC\w8\niTjꕔXNvg̏C\_q\w8\1\s[50]炢҂CoƉ]B\w8\0\n\n\s[3]A\w5߂Ȃ`ccB\e
adultumyunetworkrireki : \1\s[10]\c\0\s[7000]\c${countzero}`Ɓcc\w5\s[7005]POPO̍XV͂Ȃ`B\_q\w8\niPjg[Nl^ǉ\w8\niQjɒPǉ\w8\niRj̃g[Nl^ɒǉEC\w8\niSj̃S[Xg֎̑䎌ɒǉEC\w8\niTjꕔXNvg̏C\_q\w8\1\s[10]cc\w3ӂށcc\w5Ȃ̂ȁB\w8\0\n\n\s[7003]fȂ˂`ccB\e
DoubleUmyunetworkrireki : \1\s[1000]\c\0\s[7000]\c${countzero}`Ɓcc\w5\s[7005]POPO̍XV͂Ȃ`B\_q\w8\niPjg[Nl^ǉ\w8\niQjɒPǉ\w8\niRj̃g[Nl^ɒǉEC\w8\niSj̃S[Xg֎̑䎌ɒǉEC\w8\niTjꕔXNvg̏C\_q\w8\1\s[1003]񂾂`H\w8\0\n\n\s[7003]fȂ˂`ccB\e

#-------------------------------------------------------------------#
# {g[Nid[`ʂĔbj@@@@@@@@@@#
#-------------------------------------------------------------------#
# m[}ł̃g[N
sentence : ${TalkSelect}

# tO[hi^̊[hjł̃g[N
Kurootoko.sentence : ${KurootokoTalkSelect}

#tO[hiA_eB[hjł̃g[N
AdultUmyu.sentence : ${AdultUmyuTalkSelect}

#tO[hi_uCイ񃂁[hjł̃g[N
DoubleUmyu.sentence : ${DoubleUmyuTalkSelect}

sentlanguage : p,tX,VA,|gK,Xq,hCc,Ñネ[},ÑorjA,OM
sentlanguage : d͌,oo̐p,֐,Ìy,B,Ì,m|WWa`rhb,b{{,`c`,bnank
sentlanguage : `kfnk,enqsq`m,ok^P,WIȂ܂,}V

#-------------------------------------------------------------------#
# g[Nnl^H@@@@@@@@@@@@@@@@@@@@@@@@#
#-------------------------------------------------------------------#
UmyuTalk : \0\s[0]̂ccB\w8\1\s[10]ǂ̂H\w8\0\n\n\s[5]IgiɂȂǂȊȂĎv񂾂ǁ`\w8\1\ncc\w3Ă݂邩H\w8\0\n\n\s[0]ӂɁH$(set ChainTalk EtcXXXC1)\e
chain.EtcXXXC1 : \1\s[11]$(clear ChainTalk)sbII\w8\0\s[4]ɂIH\w3\s[-1]\w7\1\n\s[10]ccccB\w8\0\s[7000]ccc\w4́ccB\w8\1\nǂ炩ȂʧʧɂȂĂ܂悤ccB\w8\0\n\n\s[7006]cc\w4\s[7007]͂bII\w8\1\ncc\w6ő̓_́ccB\w8\0\n\n\s[7000]ӂɁH\w8\1\nɖ߂Ă܂ƂB\w8\0\n\ncccc\w7\s[4]͂H\w8\1\n]ccB\w8\0\n\n\s[3]`ccB\e
UmyuTalk : \0\s[7]```II\1\s[11]Ȃ艽肾bII\w8\0\n\n\s[77]II\w3\s[-1]\w7\s[7006]ccccB\w8\1\n\s[10]cc\w3ȂlccB\w8\0\n\n\s[7000]ꂾ${username}${keisyo}[킭ł邩Ȃ`ccH\w8\1\ncc\w3̑OɂO͂׋Ă炾ȁB\w8\0\n\n\s[7006]cc\w4\s[-1]\w6\s[6]cc\w4\s[3]ˁ`ccB\e
UmyuTalk : \0\s[0]΂`B\w8\1\s[10]ȂǂB\w8\0\n\n\s[5]Ȃ炠炵[hƂĂł`B\w8\1\n܂A\w5ۂ炸Ԃo߂ȁB\w8\0\n\n\s[0]AłȂ҂ځ[[ɂ͂ႪƂ񂾂ǁ`B\w8\1\ncc\w5c͂Ƃ͂邩ȂccB\w8\0\n\n\s[3]ĂȂƂ[Ƃv肵Ȃˁ`ccB\w8\1\nA\w3ӊOƂłȂȁB\0\n\nB\e
UmyuTalk : \0\s[3]Ȃ񂩂Ȃ炿ƃAˁ`ccB\w8\1\s[10]ȂǂB\w8\0\n\nҐ펀񂶂ȂĂ񂶂񂾂ǁ`B\w8\1\ncc\w3Ӗ펀͂ĂȁB\w8\0\n\nA\w4ς`ccB$(set ChainTalk EtcXXXC2)\e
chain.EtcXXXC2 : \1\s[10]$(clear ChainTalk)ŁA\w3c͂܂ƂɐĂ̂H\w8\0\s[3]`cc\w3قƂǎł[ˁ`ccB\w8\1\n͂邪ȁcc\w5ȏɂCȂȂĂĂ悤ȋC邼B\0\n\n͂Ђā[Ȃ`ccB\e
UmyuTalk : \0\s[0][]΂B\w8\1\s[10]ǂH\w8\0\n\n\s[5]Ȃ[ɂȂĂ炯[񂪂ˁ`B\w8\1\nAō҂ȂӋCgXƂĂ悤Ȃ̂B\w8\0\n\n\s[0]͂Ȃ񂩂悻[łǂˁ`B\w8\1\nő̖͍ŏ͊m${housoukinsi}Ă܂Ƃ̂ƂB\0\n\n\s[3]B$(set ChainTalk EtcXXXC3)\e
chain.EtcXXXC3 : \1\s[10]$(clear ChainTalk)ƂŁB\w8\0\s[0]ӂɁH\w8\1\nǍ҂͂ǂĂ񂾁H\w8\0\n\n`cc\w4\s[5]Ȃ񂩍ʧʧł̂Ă񂾂ā`B\w8\1\nӖ悭񂪁cc\w3ꂪ΂Ӗ肾낤ȁB\0\n\n\s[3]Ȃ̂[Ȃ`ccB\e
UmyuTalk : \0\s[0][΍̂l^Ăǂ񂭂炢`H\w8\1\s[10]cc\w4{I$(size UmyuTalk)g[NɂȂĂ͂B\w8\0\n\ncc\w3\s[3]Ȃɂ`H\w8\1\nmȃTCYԈႢ͂Ȃ낤cc\w7mɑȁccB$(set ChainTalk EtcXXXC4)\e
chain.EtcXXXC4 : \0\s[0]$(clear ChainTalk)A\w3[΁ccB\w8\1\s[10]H\w5\0\n\n\s[5]񂶂Ⴀ${kurootoko.umi}Ƃ̂bƂ́`H\w8\1\ncc\w4${kurootoko.unyuname}Ƃ̘b́cc\w4$(size Kurootoko.UmyuTalk)g[NŁA\w5Igi΁[$(size AdultUmyu.UmyuTalk)g[NȁB\w8\0\n\n\s[5][A\w3Ƃ킩񂾂`B\w8\1\nꉞ͂ȁB\e
UmyuTalk : \0\s[3][΂`ccB\w8\1\s[10]ȂǂB\w8\0\n\n\s[4]Ȃ񂩂Ȃ͂Ȃ΂ł킩ȂƂӂĂ񂾂ǁ`ccB\w8\1\ncc\w2͍҂ɉ]B\0\n\n\s[3]Ă̵݉񂪂Ă邩킩Ȃ`ccB\1\nƂOgB$(set ChainTalk EtcXXXC5)\e
chain.EtcXXXC5 : \1\s[10]$(clear ChainTalk)ŁA\w3̂ȂH\w8\0\s[3]`cc\w3[Ƃ܂Ƃɂȁ`Ƃv肵Ă񂾂ǂˁ`ccB\w8\1\ncc\w4ᖳȘbȁB\0\n\nB\e
UmyuTalk : \0\s[3]Ȃ񂩂ȂƂƂƂ[񂵂[Ƃ]񂾂ǁ`B\w8\1\s[10]Ӗdld܂B\w8\0\n\ncc\w6܂ɂ͋x݂Ă΁`ccB\w8\1\ncc\w3܂A\w5̕ӂ͏󋵂ɂ肯肾炠܂CɂȁB\e

#-------------------------------------------------------------------#
# ֗ȃ[`Rci{Iɉؘanf̈płBj@@@#
#-------------------------------------------------------------------#
#-------------------------------------------------------------------#
# ̂PEPd[` By ܁a@@@@@@@#
#-------------------------------------------------------------------#
#@${param1}ɎoP̐A${param2}ɎoP̃G
#gāu${GetWords}vƂƁA${answer1}A${answer2}cƁA
#ꂼ̃GgɁAقȂPꂪ܂B
#@ȂAϐƂāAtempAtemp1Atemp2gĂ܂B
# ${answerX}ɈقȂPꂪdg݂ɂȂĂB
# ĹuXv${param1}Ŏ擾uoPꐔvB
#-------------------------------------------------------------------#
#
# $(set param1 (oPꐔ) ; set param2 (oGg))${GetWords}cc
#
GetWords : $(set temp $(entry ${param2}) ; set temp1 $(entry ${param2}) ; set temp2 0)$(loop ${param1} $(while $(expr find ${temp} ${temp1}) $(set temp1 $(entry ${param2})))$(set temp ${temp}${temp1} ; inc temp2)$(eval "$(set answer"${temp2}" ${temp1})"))
#-------------------------------------------------------------------#
#-------------------------------------------------------------------#
# ̂QEAIg[Nd`F[g[NΉ[` By a@#
# @@@@@@@@@@@@@@@@@@@@@ρFfME\hEUr#
#-------------------------------------------------------------------#
# KvȏꏊŁuTalkSelectvĂяo
# @̓Iɂ͔bŁu${TalkSelect}v}B
# `F[͔b̏I蓙i\eOƂjChainTalkGgɃ`F[Ggusetv
#
# $(set ChainTalk `F[Gg)  chain.`F[Gg : XNvg
#@@ȂAu$(clear ChainTalk)vNULLlɂ邱ƁB
#
#-------------------------------------------------------------------#
#`F[Gg
ChainTalk :$(NULL)
#sentenceio[
sentence.nmb0 :$(NULL)
sentence.nmb1 :$(NULL)
sentence.nmb2 :$(NULL)
sentence.nmb3 :$(NULL)
# <TalkSelect> `F[AdAb
TalkSelect :$(if ${ChainTalk} ${TalkSelect0} ${TalkSelect1})
TalkSelect0:$(set kp.entryname "chain."${ChainTalk})${CallTalk}
TalkSelect1:$(echo ${TalkSelect2}${TalkSelect3}${TalkSelect4}${TalkSelect5}${TalkSelect6} ; array UmyuTalk ${sentence.nmb0})
TalkSelect2:$(set sentence.nmb0 $(rand $(size UmyuTalk)))
TalkSelect3:$(while $([ ${sentence.nmb0} -eq ${sentence.nmb1} ]) ${TalkSelect2})
TalkSelect4:$(while $([ ${sentence.nmb0} -eq ${sentence.nmb2} ]) ${TalkSelect2}${TalkSelect3})
TalkSelect5:$(while $([ ${sentence.nmb0} -eq ${sentence.nmb3} ]) ${TalkSelect2}${TalkSelect3}${TalkSelect4})
TalkSelect6:$(set sentence.nmb3 ${sentence.nmb2} ; set sentence.nmb2 ${sentence.nmb1} ; set sentence.nmb1 ${sentence.nmb0})
#-------------------------------------------------------------------#
#-------------------------------------------------------------------#
# ̂RE胋[` By Ɓ[a@@@@@@@@@@@@@@@#
# @@@@@@@@@@@@@@@@@@@@@ρFfME\hEUr#
#-------------------------------------------------------------------#
#KvȕŌĂяoB
# ł̓[UύX̂ƂɁAĥtɂł悤ɂ̂ړIB
#
# $(set wordtailword 薼)${wordtail}
#
# 
# wordtailword : 肷
# wordtailtaillist : L^Gg̖O
#
# ߂l
# wQɊYꍇ${wordtailtailtail}Ɍ
# YȂ͖߂l
#
# gpGg
# i : [vϐ i=$(size wordtailtaillist)ŏI
# j : getindexׂ̕]p_~[BB
# wordtaillength : ̒
# wordtailpos : ڂẮuƂ̎n܂ꏊv
# wordtailtail : ڂẮuȂv
#
#-------------------------------------------------------------------#
# Gg
wordtailword : $(NULL)
i : $(NULL)
j : $(NULL)
wordtaillength : $(NULL)
wordtailpos : $(NULL)
wordtailtail : $(NULL)

wordtailtaillist :  ,  ,  , l ,  , a , ǂ ,  , N

wordtail : $(clear wordtailtailtail)$(set i 0 ; while $([ ${i} -lt $(size wordtailtaillist) ]) ${wordtail0})
wordtail0 : ${wordtail1}${wordtail2}${wordtail3}${wordtail4}${wordtail5}
wordtail1 : $(set j $(get wordtailtaillist ${i}))
wordtail2 : $(set wordtaillength $(expr length ${j}))
wordtail3 : $(set wordtailpos $(expr "(" length ${wordtailword} ")" - ${wordtaillength} + 1))
wordtail4 : $(if $([ ${wordtailpos} -lt 1 ]) $(set wordtailtail "$(NULL)") $(set wordtailtail $(expr substr ${wordtailword} ${wordtailpos} ${wordtaillength})))
wordtail5 : $(if $([ ${j} == ${wordtailtail} ]) $(set wordtailtailtail ${j} ; set i $(size wordtailtaillist)) $(inc i))
#-------------------------------------------------------------------#
#-------------------------------------------------------------------#
# ̂SEAIg[Nd`F[g[NΉ[` By a@#
# @@@@@@@@@@@@@@@@@@@@@ρFfME\hEUr#
#-------------------------------------------------------------------#
# KvȏꏊŁuKurootokoTalkSelectvĂяo
# @̓Iɂ͔bŁu${KurootokoTalkSelect}v}B
# `F[͔b̏I蓙i\eOƂjKurootokoChainTalkGgɃ`F[Ggusetv
#
# $(set KurootokoChainTalk `F[Gg)  kurootokochain.`F[Gg : XNvg
#@@ȂAu$(clear KurootokoChainTalk)vNULLlɂ邱ƁB
#
# @͐^̊[hg[Np
#
#-------------------------------------------------------------------#
#`F[Gg
KurootokoChainTalk :$(NULL)
#sentenceio[
Kurootokosentence.nmb0 :$(NULL)
Kurootokosentence.nmb1 :$(NULL)
Kurootokosentence.nmb2 :$(NULL)
Kurootokosentence.nmb3 :$(NULL)
# <TalkSelect> `F[AdAb
KurootokoTalkSelect :$(if ${KurootokoChainTalk} ${KurootokoTalkSelect0} ${KurootokoTalkSelect1})
KurootokoTalkSelect0:$(set kp.entryname "kurootokochain."${KurootokoChainTalk})${CallTalk}
KurootokoTalkSelect1:$(echo ${KurootokoTalkSelect2}${KurootokoTalkSelect3}${KurootokoTalkSelect4}${KurootokoTalkSelect5}${KurootokoTalkSelect6} ; array Kurootoko.UmyuTalk ${Kurootokosentence.nmb0})
KurootokoTalkSelect2:$(set Kurootokosentence.nmb0 $(rand $(size Kurootoko.UmyuTalk)))
KurootokoTalkSelect3:$(while $([ ${Kurootokosentence.nmb0} -eq ${Kurootokosentence.nmb1} ]) ${KurootokoTalkSelect2})
KurootokoTalkSelect4:$(while $([ ${Kurootokosentence.nmb0} -eq ${Kurootokosentence.nmb2} ]) ${KurootokoTalkSelect2}${KurootokoTalkSelect3})
KurootokoTalkSelect5:$(while $([ ${Kurootokosentence.nmb0} -eq ${Kurootokosentence.nmb3} ]) ${KurootokoTalkSelect2}${KurootokoTalkSelect3}${KurootokoTalkSelect4})
KurootokoTalkSelect6:$(set Kurootokosentence.nmb3 ${Kurootokosentence.nmb2} ; set Kurootokosentence.nmb2 ${Kurootokosentence.nmb1} ; set Kurootokosentence.nmb1 ${Kurootokosentence.nmb0})
#-------------------------------------------------------------------#
#-------------------------------------------------------------------#
# ̂TE^a͓XNvgiؘaVŗpj@@@@@@@#
# 쐬ҁFfME\hEUr@@@@@@@@@@@@@@@@@@@@#
#-------------------------------------------------------------------#
# ϐ
birthtemp : $(NULL)
birthtypemiss : $(NULL)
# a͊Jn
Select.birthdayinput : ${Select.birthinputbox}
#Select.birthdayinput : \0\s[0]\cA\w5\s[5]aˁB\w8\1\s[10]ꂩЂƂĂ炻ɓĂ񂩁B\w8\0\n\nȁH\n\n\*\q["nj,birthinputok"]\n\q["łł,birthinputno"]\e
#Select.birthinputok : \0\s[0]\cꂶႠA\w6͌`͂ǂgH\n\n\*\q["InputBoxŁB,birthinputbox"]\n\q["IŁB,birthinputchoice"]\e
#Select.birthinputno : \0\s[8]\c`c\w7ꂶႠA\w5ŝƂɋĂƂɂoɋāc\w8\s[5]˂\w8\1\s[10]c\w4Ȃ񂩂͂ŖG悤ȊccB\e

# a͂̂PEInputBox
Select.birthinputbox : \0\s[0]\c$(clear birthtypemiss)$(clear birthtemp)$(clear birthdayfull)$(clear birthmonth1)$(clear birthdai1)A\w4񂶂[ыĂ`H\w8\1\s[10]܂ʂInput BoxoA\w3ɔp̂SŐlĂB\w8\0\n\n\s[5]ƂЂƂu03vƂ݂ɂĂā`B\w8\1\nA\w3ĂȁB\w8\0\n\n񂶂ႠЂ炭`B\!["open,inputbox,Birthday,-1"]\e
TalkInput.Birthday : ${birthdayinputcalc}\0\s[0]`Ɓcc\w3\s[5]${birthmonth1}${birthdai1}Ȃ񂾂ˁ`B\w8\1\s[10]悵A\w3oB\e
Inputbirthday2 : $(clear birthtypemiss)\0\s[3]\c`cc\w6[ǓĂ`H\w8\1\s[10]cc\w3́cc\w3͌`ႤƂƂB\!["open,inputbox,Birthday,-1"]\e
Kurootoko.Select.birthinputbox : \1\s[50]\ca񂾂ʏ탂[hłĂB\w8\0\s[3]Ȃ肻[]Ă̂Ȃ`ccB\e

birthdayinputcalc : $(set birthtemp ${system.Reference1})$(set birthlength $(expr length ${system.Reference1}))${birthdayinputcalc1}
birthdayinputcalc1 : $(if $([ ${birthlength} -eq 4 ]) ${birthdayinputcalc2} ${birthdayinputcalc22})
birthdayinputcalc2 : $(set birthdayfull ${birthtemp})$(set birthmonth1 $(expr substr ${birthtemp} 1 2")")$(set birthdai1 $(expr substr ${birthtemp} 3 2")")${birthdayinputcalc3}
birthdayinputcalc22 : $(set birthtypemiss 1)${birthdayinputcalc3}
birthdayinputcalc3 : $(if $([ ${birthtypemiss} -eq 1 ]) ${Inputbirthday2} ${birthdayinputcalc4})
#birthdayinputcalc4 : $(if $([ $(expr substr ${birthmonth1} 1 1) == "0" ]) $(set birthmonth1 $(expr substr ${birthmonth1} 2 1) $(NULL)))${birthdayinputcalc5}
birthdayinputcalc4 : ${birthdayinputcalc5}
birthdayinputcalc5 : $(set birthdaybirth ${birthmonth1}""${birthdai1}"")
#-------------------------------------------------------------------#
#-------------------------------------------------------------------#
# ̂UEAIg[Nd`F[g[NΉ[` By a@#
# @@@@@@@@@@@@@@@@@@@@@ρFfME\hEUr#
#-------------------------------------------------------------------#
# KvȏꏊŁuAdultUmyuTalkSelectvĂяo
# @̓Iɂ͔bŁu${AdultUmyuTalkSelect}v}B
# `F[͔b̏I蓙i\eOƂjAdultUmyuChainTalkGgɃ`F[Ggusetv
#
# $(set AdultUmyuChainTalk `F[Gg)  adultumyuchain.`F[Gg : XNvg
#@@ȂAu$(clear AdultUmyuChainTalk)vNULLlɂ邱ƁB
#
# @͊Cイ񃂁[hg[Np
#
#-------------------------------------------------------------------#
#`F[Gg
AdultUmyuChainTalk :$(NULL)
#sentenceio[
AdultUmyusentence.nmb0 :$(NULL)
AdultUmyusentence.nmb1 :$(NULL)
AdultUmyusentence.nmb2 :$(NULL)
AdultUmyusentence.nmb3 :$(NULL)
# <TalkSelect> `F[AdAb
AdultUmyuTalkSelect :$(if ${AdultUmyuChainTalk} ${AdultUmyuTalkSelect0} ${AdultUmyuTalkSelect1})
AdultUmyuTalkSelect0:$(set kp.entryname "adultumyuchain."${AdultUmyuChainTalk})${CallTalk}
AdultUmyuTalkSelect1:$(echo ${AdultUmyuTalkSelect2}${AdultUmyuTalkSelect3}${AdultUmyuTalkSelect4}${AdultUmyuTalkSelect5}${AdultUmyuTalkSelect6} ; array AdultUmyu.UmyuTalk ${AdultUmyusentence.nmb0})
AdultUmyuTalkSelect2:$(set AdultUmyusentence.nmb0 $(rand $(size AdultUmyu.UmyuTalk)))
AdultUmyuTalkSelect3:$(while $([ ${AdultUmyusentence.nmb0} -eq ${AdultUmyusentence.nmb1} ]) ${AdultUmyuTalkSelect2})
AdultUmyuTalkSelect4:$(while $([ ${AdultUmyusentence.nmb0} -eq ${AdultUmyusentence.nmb2} ]) ${AdultUmyuTalkSelect2}${AdultUmyuTalkSelect3})
AdultUmyuTalkSelect5:$(while $([ ${AdultUmyusentence.nmb0} -eq ${AdultUmyusentence.nmb3} ]) ${AdultUmyuTalkSelect2}${AdultUmyuTalkSelect3}${AdultUmyuTalkSelect4})
AdultUmyuTalkSelect6:$(set AdultUmyusentence.nmb3 ${AdultUmyusentence.nmb2} ; set AdultUmyusentence.nmb2 ${AdultUmyusentence.nmb1} ; set AdultUmyusentence.nmb1 ${AdultUmyusentence.nmb0})
#-------------------------------------------------------------------#

#-------------------------------------------------------------------#
# ̂UEAIg[Nd`F[g[NΉ[` By a@#
# @@@@@@@@@@@@@@@@@@@@@ρFfME\hEUr#
#-------------------------------------------------------------------#
# KvȏꏊŁuDoubleUmyuTalkSelectvĂяo
# @̓Iɂ͔bŁu${DoubleUmyuTalkSelect}v}B
# `F[͔b̏I蓙i\eOƂjDoubleUmyuChainTalkGgɃ`F[Ggusetv
#
# $(set DoubleUmyuChainTalk `F[Gg)  doubleumyuchain.`F[Gg : XNvg
#@@ȂAu$(clear DoubleUmyuChainTalk)vNULLlɂ邱ƁB
#
# @̓_uCイ񃂁[hg[Np
#
#-------------------------------------------------------------------#
#`F[Gg
DoubleUmyuChainTalk :$(NULL)
#sentenceio[
DoubleUmyusentence.nmb0 :$(NULL)
DoubleUmyusentence.nmb1 :$(NULL)
DoubleUmyusentence.nmb2 :$(NULL)
DoubleUmyusentence.nmb3 :$(NULL)
# <TalkSelect> `F[AdAb
DoubleUmyuTalkSelect :$(if ${DoubleUmyuChainTalk} ${DoubleUmyuTalkSelect0} ${DoubleUmyuTalkSelect1})
DoubleUmyuTalkSelect0:$(set kp.entryname "doubleumyuchain."${DoubleUmyuChainTalk})${CallTalk}
DoubleUmyuTalkSelect1:$(echo ${DoubleUmyuTalkSelect2}${DoubleUmyuTalkSelect3}${DoubleUmyuTalkSelect4}${DoubleUmyuTalkSelect5}${DoubleUmyuTalkSelect6} ; array DoubleUmyu.UmyuTalk ${DoubleUmyusentence.nmb0})
DoubleUmyuTalkSelect2:$(set DoubleUmyusentence.nmb0 $(rand $(size DoubleUmyu.UmyuTalk)))
DoubleUmyuTalkSelect3:$(while $([ ${DoubleUmyusentence.nmb0} -eq ${DoubleUmyusentence.nmb1} ]) ${DoubleUmyuTalkSelect2})
DoubleUmyuTalkSelect4:$(while $([ ${DoubleUmyusentence.nmb0} -eq ${DoubleUmyusentence.nmb2} ]) ${DoubleUmyuTalkSelect2}${DoubleUmyuTalkSelect3})
DoubleUmyuTalkSelect5:$(while $([ ${DoubleUmyusentence.nmb0} -eq ${DoubleUmyusentence.nmb3} ]) ${DoubleUmyuTalkSelect2}${DoubleUmyuTalkSelect3}${DoubleUmyuTalkSelect4})
DoubleUmyuTalkSelect6:$(set DoubleUmyusentence.nmb3 ${DoubleUmyusentence.nmb2} ; set DoubleUmyusentence.nmb2 ${DoubleUmyusentence.nmb1} ; set DoubleUmyusentence.nmb1 ${DoubleUmyusentence.nmb0})
#-------------------------------------------------------------------#

:endcrypt
#-------------------------------------------------------------------#
# {t@CɋLqĂP͊{IɑSĉˋ̂̂łA@@#
# ݂̐lAćAnAAiƂ͈؊֌W܂B@@\e@#
#-------------------------------------------------------------------#
