#-----------------------------------------------------------------------------
# http://nh.pv.to/test/read.cgi/unyu/1097819382/45 へのサンプルプログラム
# Ver0.9
# 製作：うにゅう ◆WOtWz3y1ak
#-----------------------------------------------------------------------------
#・要保存のエントリ(?はG〜S)
# Senario?_Episode : 各シナリオでトークしたエピソードの回数。(0〜)
# Tatal_Episode    : 全シナリオでトークしたエピソードの総数。(0〜87)
# OpTkCount        : オープニングトークの回数記憶用
# OpTkQixCount     : 簡易オープニングトークの回数記憶用
# EdTkCount        : エンディングトークの回数記憶用
# EdTkQuitCount    : 簡易エンディングトークの回数記憶用
# EndX             : 簡易エンディング時、次回起動時に簡易オープニングにするた
#                    めのフラグ
# ReTkQixCount     : 最小化から復帰トークの回数記憶用
#-----------------------------------------------------------------------------
#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
##############============= 初回起動時のエントリ初期化処理
Initialize.Entry : $(
  set SenarioG_Episode "0" ;
  set SenarioH_Episode "0" ;
  set SenarioI_Episode "0" ;
  set SenarioJ_Episode "0" ;
  set SenarioK_Episode "0" ;
  set SenarioL_Episode "0" ;
  set SenarioM_Episode "0" ;
  set SenarioN_Episode "0" ;
  set SenarioO_Episode "0" ;
  set SenarioP_Episode "0" ;
  set SenarioQ_Episode "0" ;
  set SenarioR_Episode "0" ;
  set SenarioS_Episode "0" ;
  set Tatal_Episode    "0" ;
  set OpTkCount        "0" ;
  set OpTkQixCount     "0" ;
  set EdTkCount        "0" ;
  set EdTkQuitCount    "0" ;
  set ReTkQixCount     "0" ;
  )

#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
##############============= 起動
event.OnBoot : "\t"${Load}$(
  set TalkCount      "0" ;
  set SenarioG_Count "0" ;
  set SenarioH_Count "0" ;
  set SenarioI_Count "0" ;
  set SenarioJ_Count "0" ;
  set SenarioK_Count "0" ;
  set SenarioL_Count "0" ;
  set SenarioM_Count "0" ;
  set SenarioN_Count "0" ;
  set SenarioO_Count "0" ;
  set SenarioP_Count "0" ;
  set SenarioQ_Count "0" ;
  set SenarioR_Count "0" ;
  set SenarioS_Count "0" ;
  if ${EndX} ${CXX} else ${BXX})
  )

#=============================================================================●
BXX : $(
  if $[ ${OpTkQixCount} >= 6 ] ${CXX} else $(
    get OpeningTalk_Quick[${OpTkQixCount}] ;
    inc OpTkQixCount 1 6 ;
    )
  )

#=============================================================================●
CXX : $(
  get OpeningTalk[${OpTkCount}] ;
  set OpTkCount $[ (${OpTkCount} + 1) % 4 ] ;
  set OpTkQixCount "0"
  )

#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
##############============= 終了
event.OnClose , Select.DXX , Select.EXX , EXX:"\t"$(
  if $[ (${Tatal_Episode} >= 87) || (${Tatal_Episode} < ((${EdTkCount} * 9) + 9))] ${DXX} else $(
    get EndingTalk[${EdTkCount}] ;
    set EdTkCount $[ (${EdTkCount} + 1) % 9 ] ;
    set EndX "1"
    )
  )${Save}"\-"

DXX : "\t"$(
  get EndingTalk_Quick[${EdTkCount}] ;
  inc EdTkQixCount 1 8 ;
  set EndX "0"
  )${Save}"\-"

#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
##############============= 最小化
event.OnWindowStateMinimize : "\t"$(
  setstr minimambegin ${CallMinCalc} ;
  setstr MinCaptionCtrl "on"
  )${countfreeze}${Save}

#=============================================================================●
TalkRestore : "\t"$(
  get RestoreTalk[${ReTkCount}] ;
  inc ReTkQixCount 1 4
  )

#-----------------------------------------------------------------------------
# http://nh.pv.to/test/read.cgi/unyu/1097819382/27 へのサンプルプログラム
# Ver1.2 (>>45に伴う修正版)
# 製作：うにゅう ◆WOtWz3y1ak
#-----------------------------------------------------------------------------
#エントリ解説
#・保存しないエントリ(?はG〜S)
# TalkCount        : トークした回数を数える。(0(ヌル)、"1"〜"11")
# Senario?_Count   : 各シナリオをトークしたかのフラグ。(ヌルか"1")
#
#・要保存のエントリ(?はG〜S)
# Senario?_Episode : 各シナリオでトークしたエピソードの回数。(0〜)
# Tatal_Episode : 全シナリオでトークしたエピソードの総数。(0〜87)
#-----------------------------------------------------------------------------

##############============= メニュー
event.OnMouseDoubleClick : (\t
  $(if $[${TalkCount} < 11] "\q[◇話を聞く　　,Talk]\n")
"　\q[◇終了　　　　,DXX]\n"
"　\q[◇なにもしない,TheEnd]"
)

#=============================================================================●
##############============= トーク
Select.Talk : "\t"$(
  if $[ ( ${SenarioG_Episode} >= $(size SenarioG ) )
     && ( ${SenarioH_Episode} >= $(size SenarioH ) )
     && ( ${SenarioI_Episode} >= $(size SenarioI ) )
     && ( ${SenarioJ_Episode} >= $(size SenarioJ ) )
     && ( ${SenarioK_Episode} >= $(size SenarioK ) )
     && ( ${SenarioL_Episode} >= $(size SenarioL ) )
     && ( ${SenarioM_Episode} >= $(size SenarioM ) )
     && ( ${SenarioN_Episode} >= $(size SenarioN ) )
     && ( ${SenarioO_Episode} >= $(size SenarioO ) )
     && ( ${SenarioP_Episode} >= $(size SenarioP ) )
     && ( ${SenarioQ_Episode} >= $(size SenarioQ ) )
     && ( ${SenarioR_Episode} >= $(size SenarioR ) ) ] $(
      get SenarioS[${SenarioS_Episode}] ;
      inc SenarioS_Episode ;
      if $[${SenarioS_Episode} >= $(size SenarioS) ] $(set TalkCount "11" ; set SenarioS_Episode "1")
      ) else $(
    set @Temp $(
      if $[ ( ${SenarioG_Episode} < $(size SenarioG) ) && ( ${SenarioG_Count} != "1" ) ] "G" ;
      if $[ ( ${SenarioH_Episode} < $(size SenarioH) ) && ( ${SenarioH_Count} != "1" ) ] "H" ;
      if $[ ( ${SenarioI_Episode} < $(size SenarioI) ) && ( ${SenarioI_Count} != "1" ) ] "I" ;
      if $[ ( ${SenarioJ_Episode} < $(size SenarioJ) ) && ( ${SenarioJ_Count} != "1" ) ] "J" ;
      if $[ ( ${SenarioK_Episode} < $(size SenarioK) ) && ( ${SenarioK_Count} != "1" ) ] "K" ;
      if $[ ( ${SenarioL_Episode} < $(size SenarioL) ) && ( ${SenarioL_Count} != "1" ) ] "L" ;
      if $[ ( ${SenarioM_Episode} < $(size SenarioM) ) && ( ${SenarioM_Count} != "1" ) ] "M" ;
      if $[ ( ${SenarioN_Episode} < $(size SenarioN) ) && ( ${SenarioN_Count} != "1" ) ] "N" ;
      if $[ ( ${SenarioO_Episode} < $(size SenarioO) ) && ( ${SenarioO_Count} != "1" ) ] "O" ;
      if $[ ( ${SenarioP_Episode} < $(size SenarioP) ) && ( ${SenarioP_Count} != "1" ) ] "P" ;
      if $[ ( ${SenarioQ_Episode} < $(size SenarioQ) ) && ( ${SenarioQ_Count} != "1" ) ] "Q" ;
      if $[ ( ${SenarioR_Episode} < $(size SenarioR) ) && ( ${SenarioR_Count} != "1" ) ] "R" ;
      ) ;
    if $[ $(length ${@Temp}) = 1 ] $(set TalkCount "11") ;
    set SenarioType $(substr ${@Temp} $(rand $(length ${@Temp})) "1") ;
    get Senario${SenarioType}[${Senario${SenarioType}_Episode}] ;
    set Senario${SenarioType}_Count "1" ;
    inc Senario${SenarioType}_Episode ;
    inc TalkCount
    ) ;
  inc Tatal_Episode
  )

#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
# ↓ここよりトーク辞書エリア
#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
##_シナリオG：闇と月の神楽_##

SenarioG : "シナリオＧの１回目のトーク。"
SenarioG : "シナリオＧの２回目のトーク。"
SenarioG : "シナリオＧの３回目のトーク。"
SenarioG : "シナリオＧの４回目のトーク。"
SenarioG : "シナリオＧの５回目のトーク。"
SenarioG : "シナリオＧの６回目のトーク。"
SenarioG : "シナリオＧの７回目のトーク。"

#=============================================================================●
##_シナリオH：紅い衝動_##

SenarioH : "シナリオＨの１回目のトーク。"
SenarioH : "シナリオＨの２回目のトーク。"
SenarioH : "シナリオＨの３回目のトーク。"
SenarioH : "シナリオＨの４回目のトーク。"
SenarioH : "シナリオＨの５回目のトーク。"
SenarioH : "シナリオＨの６回目のトーク。"
SenarioH : "シナリオＨの７回目のトーク。"

#=============================================================================●
##_シナリオI：蒼い欲求_##

SenarioI : "シナリオＩの１回目のトーク。"
SenarioI : "シナリオＩの２回目のトーク。"
SenarioI : "シナリオＩの３回目のトーク。"
SenarioI : "シナリオＩの４回目のトーク。"
SenarioI : "シナリオＩの５回目のトーク。"
SenarioI : "シナリオＩの６回目のトーク。"
SenarioI : "シナリオＩの７回目のトーク。"

#=============================================================================●
##_シナリオJ：賢者の理論_##

SenarioJ : "シナリオＪの１回目のトーク。"
SenarioJ : "シナリオＪの２回目のトーク。"
SenarioJ : "シナリオＪの３回目のトーク。"
SenarioJ : "シナリオＪの４回目のトーク。"
SenarioJ : "シナリオＪの５回目のトーク。"
SenarioJ : "シナリオＪの６回目のトーク。"
SenarioJ : "シナリオＪの７回目のトーク。"

#=============================================================================●
##_シナリオK：少女の秘密_##

SenarioK : "シナリオＫの１回目のトーク。"
SenarioK : "シナリオＫの２回目のトーク。"
SenarioK : "シナリオＫの３回目のトーク。"
SenarioK : "シナリオＫの４回目のトーク。"
SenarioK : "シナリオＫの５回目のトーク。"
SenarioK : "シナリオＫの６回目のトーク。"
SenarioK : "シナリオＫの７回目のトーク。"

#=============================================================================●
##_シナリオL：識閾の術式_##

SenarioL : "シナリオＬの１回目のトーク。"
SenarioL : "シナリオＬの２回目のトーク。"
SenarioL : "シナリオＬの３回目のトーク。"
SenarioL : "シナリオＬの４回目のトーク。"
SenarioL : "シナリオＬの５回目のトーク。"
SenarioL : "シナリオＬの６回目のトーク。"
SenarioL : "シナリオＬの７回目のトーク。"

#=============================================================================●
##_シナリオM：異邦人_##

SenarioM : "シナリオＭの１回目のトーク。"
SenarioM : "シナリオＭの２回目のトーク。"
SenarioM : "シナリオＭの３回目のトーク。"
SenarioM : "シナリオＭの４回目のトーク。"
SenarioM : "シナリオＭの５回目のトーク。"
SenarioM : "シナリオＭの６回目のトーク。"
SenarioM : "シナリオＭの７回目のトーク。"

#=============================================================================●
##_シナリオN：魔女の娘_##

SenarioN : "シナリオＮの１回目のトーク。"
SenarioN : "シナリオＮの２回目のトーク。"
SenarioN : "シナリオＮの３回目のトーク。"
SenarioN : "シナリオＮの４回目のトーク。"
SenarioN : "シナリオＮの５回目のトーク。"
SenarioN : "シナリオＮの６回目のトーク。"
SenarioN : "シナリオＮの７回目のトーク。"

#=============================================================================●
##_シナリオO：聖都の魔人_##

SenarioO : "シナリオＯの１回目のトーク。"
SenarioO : "シナリオＯの２回目のトーク。"
SenarioO : "シナリオＯの３回目のトーク。"
SenarioO : "シナリオＯの４回目のトーク。"
SenarioO : "シナリオＯの５回目のトーク。"
SenarioO : "シナリオＯの６回目のトーク。"
SenarioO : "シナリオＯの７回目のトーク。"

#=============================================================================●
##_シナリオP：廃頽の深淵_##

SenarioP : "シナリオＰの１回目のトーク。"
SenarioP : "シナリオＰの２回目のトーク。"
SenarioP : "シナリオＰの３回目のトーク。"
SenarioP : "シナリオＰの４回目のトーク。"
SenarioP : "シナリオＰの５回目のトーク。"
SenarioP : "シナリオＰの６回目のトーク。"

#=============================================================================●
##_シナリオQ：偽りの黒き神_##

SenarioQ : "シナリオＱの１回目のトーク。"
SenarioQ : "シナリオＱの２回目のトーク。"
SenarioQ : "シナリオＱの３回目のトーク。"
SenarioQ : "シナリオＱの４回目のトーク。"

#=============================================================================●
##_シナリオR：魔導文書_##

SenarioR : "シナリオＲの１回目のトーク。"
SenarioR : "シナリオＲの２回目のトーク。"
SenarioR : "シナリオＲの３回目のトーク。"
SenarioR : "シナリオＲの４回目のトーク。"

#=============================================================================●
##_シナリオS：言霊遊戯_##

SenarioS : "シナリオＳの１回目のトーク。"
SenarioS : "シナリオＳの２回目のトーク。"
SenarioS : "シナリオＳの３回目のトーク。"
SenarioS : "シナリオＳの４回目のトーク。"
SenarioS : "シナリオＳの５回目のトーク。"
SenarioS : "シナリオＳの６回目のトーク。"
SenarioS : "シナリオＳの７回目のトーク。"
SenarioS : "シナリオＳの８回目のトーク。"
SenarioS : "シナリオＳの９回目のトーク。"
SenarioS : "シナリオＳの10回目のトーク。"

#=============================================================================●
##_オープニングトーク_##

OpeningTalk : ${C01}
OpeningTalk : ${C02}
OpeningTalk : ${C03}
OpeningTalk : ${C04}

#=============================================================================●
##_簡易オープニングトーク_##

OpeningTalk_Quick : ${B01}
OpeningTalk_Quick : ${B02}
OpeningTalk_Quick : ${B03}
OpeningTalk_Quick : ${B04}
OpeningTalk_Quick : ${B05}
OpeningTalk_Quick : ${B06}

#=============================================================================●
##_エンディングトーク_##

EndingTalk : ${E01}
EndingTalk : ${E02}
EndingTalk : ${E03}
EndingTalk : ${E04}
EndingTalk : ${E05}
EndingTalk : ${E06}
EndingTalk : ${E07}
EndingTalk : ${E08}
EndingTalk : ${E09}

#=============================================================================●
##_簡易エンディングトーク_##

EndingTalk_Quick : ${D01}
EndingTalk_Quick : ${D02}
EndingTalk_Quick : ${D03}
EndingTalk_Quick : ${D04}
EndingTalk_Quick : ${D05}
EndingTalk_Quick : ${D06}
EndingTalk_Quick : ${D07}
EndingTalk_Quick : ${D08}
EndingTalk_Quick : ${D09}

#=============================================================================●
##_最小化より復帰したときのトーク_##

RestoreTalk : ${F01}
RestoreTalk : ${F02}
RestoreTalk : ${F03}
RestoreTalk : ${F04}
RestoreTalk : ${F05}