#-----------------------------------------------------------------------------
# uؘavCxgpȈՃXNvg
#  (Kawari Easy Event Programmed Script)
#@@uBvΉ\tgECxgp
#
#  Phase 3.99 (2002/2/28)
#
# O  FuؘavPhase 7.3.1 yяʌ݊łgpB
#         uBvMATERIA period 465 yяʌ݊\tggpB
#
# gF̎t@CƁÁuDict-KEEPS.txtvuDict-KEEPSs.txtv
# @@@@uDict-KEEPS_URL.txtvuGhost-KEEPS.txtvuGhost-KEEPSp.txtv
# @@@@ukawari.inivɓo^BuGhost-KEEPSp.txtṽXNvgKv
# @@@@ďւB
#
# ҁF܁ ( akira-k@blue.interq.or.jp )
# @@@@@@@@@@@ @( http://www.interq.or.jp/blue/akira-k/keeps/ )
#
# l  FpubNhCƂĎRɉρAĔzzB
# @@@@ρAĔzz̍ہA҂ɘA̕KvȂB
#
# Secial Thanks F
#  Main Application uBv: Քni & LH
#  @@@@@@@@@@@@@@@@@@@@@ ( http://futaba.mikage.to/ )
#  Main Application urrov: DOIchan!
#  @@@@@@@@@@@@@@@@@( http://doichan.netbank.co.jp/ssp/ )
#  SHIORI Module uؘav : Meister
#  @@@@@@@@@@@@@@@@@@( http://meister-d-i.hoops.ne.jp/ )
#  uؘav (Phase 7.3.1) : Ɓ[
#  @@@@@@@@@@@@@@@@@@@( http://users.goo.ne.jp/shobu/ )
#  Script EditeruԂĂv : pipe().vqf
#  @@@@@ ( http://www.geocities.co.jp/SiliconValley-Cupertino/4430/ )
#  Script EditeruKEEPS-Editerv : Mizki_F
#  @@@@@@@@@@@@@@@@ ( http://www02.so-net.ne.jp/~mff_hp/ )
#  AppricationûvF{E
#  @@@@@@@@@@@@@@@@@@( http://clearbrain.khsoft.gr.jp/ )
#  AppricationuLǂӁvF~s
#  @@@@@@@@@@@@@@ ( http://members.jcom.home.ne.jp/umeici/ )
#  AppricationuUDSensorvF
#  @@@@@@@@@@@@ ( http://www2.airnet.ne.jp/~sirataki/nanika/ )
#  Shellu``Zweiv(for private test) F s򐬖
#@@@@@@@@@@@@@@@@@@@( http://www.din.or.jp/~sentence/ )
#
#  Debug Support : ݂ЂƂA߂AqR~AA-01AyouAbossA
#                   ͂݁AtovetaAMizki_F AteataAGAЂŁA
#                  ߂ĂƁA]F A݂Ⴀ AKaz@KpA
#                  ^ixgqR & N
#  Programming Idea & Support : nakajisoAuAUMeisterAskyAA
#                               T & AN
#                                                         (sEh̗)
#-----------------------------------------------------------------------------
#Phase 3.70  3.90 ̕ύX_
#NeBJ[hɑΉB(Cxg𖳌)
#-----------------------------------------------------------------------------
#Phase 3.90  3.99 ̕ύX_
#|NeBJ[h폜B
#-----------------------------------------------------------------------------
##Œp[^(uGhost-KEEPSp.txtvŒ`)
#-----------------------------------------------------------------------------
#LǂӗΏ۔pTuS[Xg

#Keroname : ɂイ

#-----------------------------------------------------------------------------
##gpϐ
#-----------------------------------------------------------------------------

kinokoname : NoName
kinokotype : Typeless

drifname : NoName
driftype : Typeless

target : Which
defended : 0

kinokobattery : 100
kinokoresource : 100

#-----------------------------------------------------------------------------
##ʃTu[`
#-----------------------------------------------------------------------------
##p[^f[^o (CallGetData)
#̓p[^
#param1 : p[^
#߂p[^
#answer : ϊp[^(ŏ̃J}܂ŁA${ctrlword}ɂL͍폜)
#ϐ
#temp0 : param1̕
#temp1 : ʒu
#temp2 : rpɎoP
#f[^ϐ
#ctrlword : Lf[^
#-----------------

CallGetData :$(clear answer ; set temp0 $(expr length ${param1}) ; set temp1 0 ; until $([ ${temp0} -eq ${temp1} ]) $(inc temp1 ; set temp2 $(expr substr ${param1} ${temp1} 1) ; if $([ ${temp2} == "," ]) $(set temp1 ${temp0})  $(if $([ $(NULL) == $(expr find ${ctrlword} \${temp2}) ]) $(set answer ${answer}${temp2}))))
#-----------------------------------------------------------------------------
##ûv

event.OnKinokoObjectCreate : $(set paramT1 "TalkKinokoCreate")${CallKinokoCheki}

event.OnKinokoObjectDestroy : $(set paramT1 "TalkKinokoDestroy")${CallKinokoCheki}

event.OnKinokoObjectChanged : $(set paramT1 "TalkKinokoCreate")${CallKinokoCheki})

event.OnKinokoObjectInstalled : $(set paramT1 "TalkKinokoInstalled")${CallKinokoCheki}

event.OnBatteryLow : $(if $([ ${system.Reference0} -lt ${kinokobattery} ]) $(set paramT1 "TalkKinokoBatteryLow")${countzero}${CallTalk})$(set kinokobattery ${system.Reference0})

event.OnBatteryCritical : $(if $([ ${system.Reference0} -lt ${kinokobattery} ]) $(set paramT1 "TalkKinokoBatteryCritical")${countzero}${CallTalk})$(set kinokobattery ${system.Reference0})

event.OnSysResourceLow : $(if $([ ${system.Reference0} -lt ${kinokoresource} ]) $(set paramT1 "TalkKinokoSystemLow")${countzero}${CallTalk})$(set kinokoresource ${system.Reference0})

event.OnSysResourceCritical : $(if $([ ${system.Reference0} -lt ${kinokoresource} ]) $(set paramT1 "TalkKinokoSystemCritical")${countzero}${CallTalk})$(set kinokoresource ${system.Reference0})

CallKinokoCheki : $(set param1 ${system.Reference0})${CallGetData}$(set kinokoname ${answer} ; set param1 ${system.Reference2})${CallGetData}$(set kinokotype ${answer})${CallKinokoCheki1}

CallKinokoCheki1 : ${countzero}$(set paramT2 "Name."${kinokoname} ; if ${CallTalk2} ${CallTalk2}  $(set paramT2 "Type."${Kinokotype} ; if ${CallTalk2} ${CallTalk2}  $(set paramT2 "Type.Etc")${CallTalk2}))

#-------------------------------------
##uLǂӁv

event.OnNekodorifObjectEmerge : ${CallGetSubName}${countfreeze}$(set paramT1 "TalkNekodrifEmerge"${target})${CallDrifCheck}

event.OnNekodorifObjectHit : $(if ${system.Reference3} $(set paramT1 "TalkNekodrifDefend"${target} ; set defended 0)  $(set paramT1 "TalkNekodrifHit"${target}))${CallDrifCheck}

event.OnNekodorifObjectDrop : $(if ${defended} $(set paramT1 "TalkNekodrifDrop"${target})${CallDrifCheck})

event.OnNekodorifObjectVanish : ${countzero}$(if ${defended} $(set paramT1 "TalkNekodrifVanish"${target})${CallDrifCheck})

event.OnNekodorifObjectDodge : ${countzero}$(set paramT1 "TalkNekodrifDodge"${target})${CallDrifCheck}

CallDrifCheck : $(set paramT2 "Name."${drifname} ; if ${CallTalk2} ${CallTalk2} $(set paramT2 "Type."${driftype} ; if ${CallTalk2} ${CallTalk2} $(set paramT2 "Type.Etc" ; if ${CallTalk2} ${CallTalk2})))

CallGetSubName : ${CallGetSubName1}${CallGetSubName2}$(set defended 1)

CallGetSubName1 : $(set param1 ${system.Reference0})${CallGetData}$(set drifname ${answer} ; set param1 ${system.Reference2})${CallGetData}$(set driftype ${answer})

CallGetSubName2 : $(if $([ ${system.Reference4} == ${Keroname} ]) $(set target "Kero")  $(set target "Sakura"))

#-------------------------------------
##ȉAΉ
#-------------------------------------
##ûv
#event.OnKinokoObjectChanging : \_q\u\s[10](x)̂XLĂ܂B${DataResult}\_q\e
#-----------------------------------------------------------------------------
