トップ 差分 一覧 ソース 検索 ヘルプ PDF RSS ログイン

postoffice-sound-answer.hsp



postoffice-sound-answer.hsp(7)
po.png(6)
po.mp3(9)

; Post Office sound
; copyleft 2017-06-23 sugiura@nagoya-u.jp


#pack "po.png"
#pack "po.mp3"

mmload "po.mp3", 0


*settei
screen 0, 640, 680

notesel log

*main
	pos 50, 180
	picload "po.png", 1
	color 255,255,204
	boxf 0, 0, 640, 80

	pos 150, 10
	font "ゴシック", 18, 1
		color 0,0,0
	mes "Now, you are at the red star."
	mes "A woman is asking you a question."
	mes "---------------------------------"
	font "ゴシック", 18, 1
	mes "Woman: \"Excuse me.\""
	mes "You: "
	pos 230, 80
	button gosub "Yes?", *po


	color 255,255,204
	boxf 0, 560, 640, 680

	pos 100, 560
		color 0,0,0
	mes "Write the instruction to the post office."	
	
	ans = ""										; 解答欄の提示
	mesbox ans, 500, 80, 1, 0
	button goto "Finish", *owari

	stop

; end
*owari
	noteadd ans
	notesave "ans.txt"
	cls
	pos 300, 400
		font "ゴシック", 18, 1
	mes "Bye!"
	wait 200
	end



; sub
*po
		mmplay 0, 2
		return