options:
	p: &3[&6しそ&3]&f
	k: &3[&d彼女&3]
	w: wait 1 seconds


on load:
	if {story} is not set:
		set {story} to true
		clear(all players)

command /start:
	trigger:
		clear(player)
		{@w}
		send "僕は彼女とデートすることになった。"
		{@w}
		send "お腹がすいたからご飯を食べることにした"
		{@w}
		send "{@k} お腹すいたね"
		{@w}
		send "{@k} どこで食事する？"
		{@w}
		send "{@k} {@p}君が決めていいよ"
		{@w}
		send "1:マック 2:ファミレス 3:高いお店 (選択肢を番号で選ぼう！)"
		stop

on chat:
	if {chat} is false:
		cancel event
	if {date} is "none":
		if message is "1" or "マック":
			set {chat} to false
			{@w}
			send "{@k} 嘘でしょ？"
			{@w}
			send "{@k} 初デートがマックなんて信じられない..."
			{@w}
			send "{@k} 失望したわ、さようなら。"
			{@w}
			set {date} to "none"
			send "&c(デート失敗) -> あなたは彼女を失望させてしまった"
			set {chat} to true
			stop
		else if message is "2" or "ファミレス":
			set {chat} to false
			{@w}
			send "{@k} いいわね！"
			{@w}
			send "{@k} そこならゆっくり食事ができそうだわ！"
			{@w}
			send "{@k} 早速行きましょう"
			{@w}
			send "{@k} そういえば{@p}君は休日何をしてるの？"
			{@w}
			send "1:運動 2:読書 3:ゲーム (選択肢を番号で選ぼう！)"
			set {chat} to true
			set {date} to "n.step1"
			stop
		else if message is "3":
			set {chat} to false
			{@w}
			send "{@k} えっ、私のために高いお店を押さえておいたの？"
			{@w}
			send "{@k} すごい嬉しい！"
			{@w}
			send "{@k} {@p}君ってお金持ちなんだね！"
			{@w}
			send "1:""うん、お金は結構持ってるかな"" 2:""いや、そうでもないよ！"" 3:""まぁ僕は年収1億だからね"" (選択肢を番号で選ぼう！)"
			set {date} to "t.step1"
		else:
			send "選択肢を選ぼう！"
			stop
	if {date} is "n.step1":
		if message is "1":
			set {chat} to false
			{@w}
			send "{@k} へぇ、運動してるんだね！"
			{@w}
			send "{@k} 健康的でいいね"
			{@w}
			send "{@k} 今度一緒に運動しない？"
			{@w}
			send "{@k} 1:いいよ！ 2:うーん... (選択肢を番号で選ぼう！)"
			set {date} to "n.step2.sport"
			set {chat} to true
			stop
		else if message is "2":
			set {chat} to false
			{@w}
			send "{@k} 読書をしてるんだね"
			{@w}
			send "{@k} 私も読書好きなんだ"
			{@w}
			send "{@k} おすすめの本とかある？"
			{@w}
			send "{@k} 1:エモい本を渡す 2:キモいラノベを渡す (選択肢を番号で選ぼう！)"
			set {date} to "n.step2.book"
			set {chat} to true
			stop
		else if message is "3":
			set {chat} to false
			{@w}
			send "{@k} えっ"
			{@w}
			send "{@k} そうなんだ... (きもっ)"
			{@w}
			send "&c(デート失敗) -> あなたは彼女からキモいと思われてしまった"
			set {chat} to true
			stop
	if {date} is "n.step2.sport":
		if message is "1":
			set {chat} to false
			{@w}
			send "{@k} うれしい！"
			{@w}
			send "{@k} 今度一緒に運動しようね！！"
			{@w}
			send "&6(デート成功！！) -> 彼女とともに健康になった"
			set {chat} to true
			stop
		if message is "2":
			set {chat} to false
			{@w}
			send "{@k} え？どうして？"
			{@w}
			send "{@k} もしかして私より筋肉の方が大事なの？"
			{@w}
			send "{@k} 信じられない！さようなら！"
			{@w}
			send "&c(デート失敗) -> あなたは彼女より筋肉を取ってしまった"
			set {chat} to true
			stop
	if {date} is "n.step2.book":
		if message is "1":
			set {chat} to false
			{@w}
			send "{@k} いいねこの本！"
			{@w}
			send "{@k} 私の好みかも！"
			{@w}
			send "{@k} いい本を紹介してくれてありがとう！！"
			{@w}
			send "&6(デート成功！！) -> 彼女とともに読書家になった"
			set {chat} to true
			stop
		if message is "2":
			set {chat} to false
			{@w}
			send "{@k} えっ何この本は..."
			{@w}
			send "{@k} ごめんなさいあなたとは付き合えません"
			{@w}
			send "{@k} さようなら"
			{@w}
			send "&c(デート失敗) -> キモオタが読む本を渡してしまった"
			set {date} to "end"
			set {chat} to true
			stop
#yanndere End
	if {date} is "bad":
		if message is "No":
			{@w}
			send "{@k} ねぇ。"
			{@w}
			send "{@k} 私のこと嫌いなの？"
			{@w}
			send "{@k} なんで？"
			{@w}
			send "{@k} どうして？"
			{@w}
			send "{@k} どうしてなの？"
			{@w}
			send "{@k} なんで？"
			wait 15 tick
			loop 15 times:
				set {timespan.num} to 15
				set {timespan} to "%{timespan.num}% tick" parsed as timespan
				remove 1 from {timespan}
				wait {timespan}
				send "{@k} なんで？"
				if {timespan} is 0:
					delete {timespan}
			clear(player)
			send "        &4&lな ん で ?"
			send ""
			send ""
			loop 30 times:
				set {_e} to random 50 char string from charset `a-zA-Z` hashed with md5
				wait 1 tick
				send "&4&l&k%{_e}%"
			kick player due to "なんで？"




function clear(p: player):
	loop 30 times:
		send "" to {_p}