/////Switching Core//////////////////////////////////////////////////////////
TranslateSystemChar
{
  _text = TOSTR(_argv[0])
  _text = RE_REPLACE(_text,"[ !%(CHR(0x22))%(CHR(0x25))#$&()*+,-/:;<=>?@\[\]`{|}~]","_")
  _text
}

ExecuteChangeCallTalk
{
  if STRLEN(reference2) {
    _ghostname = TranslateSystemChar(reference2)
    
    _funcname = "%(_argv[0])_%(_ghostname)"
    if ISFUNC(_funcname) {
      _script = EVAL(_funcname)
      if STRLEN(_script) != 0 {
        _script
        return
      }
    }
  }

  _ghostname = TranslateSystemChar(reference0)
  
  _funcname = "%(_argv[0])_%(_ghostname)"
  if ISFUNC(_funcname) {
    _script = EVAL(_funcname)
    if STRLEN(_script) != 0 {
      _script
      return
    }
  }

  _funcname = "%(_argv[0])Other"
  if ISFUNC(_funcname) {
    _script = EVAL(_funcname)
    if STRLEN(_script) != 0 {
      _script
      return
    }
  }

  if _argc >= 2 {
    _script = EVAL(_argv[1])
    if STRLEN(_script) != 0 {
      REPLACE(_script,"\-","")
      return
    }
  }
}
 
OnGhostChanging
{
	ExecuteChangeCallTalk("OnGhostChanging","OnClose")
}

OnGhostChanged
{
	起動共通スクリプト
	--
	ExecuteChangeCallTalk("OnGhostChanged","OnBoot")
}

OnGhostCalling
{
	ExecuteChangeCallTalk("OnGhostCalling")
}

OnGhostCalled
{
	起動共通スクリプト
	--
	ExecuteChangeCallTalk("OnGhostCalled","OnBoot")
}

OnGhostCallComplete
{
	ExecuteChangeCallTalk("OnGhostCallComplete")
}

OnOtherGhostClosed
{
	ExecuteChangeCallTalk("OnOtherGhostClosed")
}
/////Switching Core//////////////////////////////////////////////////////////

//---- Switch to other ghost -----------------------------------------------------------
OnGhostChangingOther
{
	engaged = RAND(255) + 1 // Number of random betrothals. Random.
	//Idea from Ukikoya and Tomahawk. Thank you very much.
	"\0\s[33]%reference0-chan is、\w5\n\s[46]my %engaged fiancee〜。\n\n\w8\w8\1\s[12]Won't that be a bother to you、%reference0-san？\n\n\w8\w8\0\s[40]Eh、is that so？\w9\n\s[33]Then、\w5%keroname's fiancee〜\w8\w8\1\s[10]・・・\s[12]whew。\w9\e"
}


//---- Switching from another ghost ---------------------------------------------------------
OnGhostChangedOther
{
	挨拶
}

//--- Rabbit Kingdom on the Dark Side of the Moon

OnGhostChanging_らんらん
{
	"\1\s[10]\0\s[0]I'm heading out for a bit。\w9\e"
}


OnGhostChanged_らんらん
{
	"\1\s[10]\0\s[5]I'm backー。\e"
}