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

##############============= メニュー
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
    )
  )

#●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
##_シナリオ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回目のトーク。"