// 1
//$list_title=アフターファイブは……
//$pre_cmnd=	kd2ik();
//
bg(255,255,167);
bs(b,r);
p(ura_10.gif,5,0);
s(私は某社の\nサラリーマン\n普段は\n目立たない親父\nとして\n仕事をしている);
f(7,10,90,t);
	bg(168,227,255);
	p(ura_4.gif,5,0);
	s(しかし\nアフター\nファイブは\n違う);
	f(7,10,90,t);
		bg(255,185,185);
		fl(80,50);
		p(ura_2.gif,0,0);
		s(占い親父と\nなるんだよ！);
		f(7,10,45,n);
			bg(197,255,159);
			fl(80,50);
			p(ura_6.gif,-12,0);
			s(今日の$keyの運勢は $rndm_proverb[0]\nそれで間違いない!);
			f(7,10,55,n);
// 2
//$list_title=今日の運勢
//$pre_cmnd=	kd2ik();
//
bg(255,255,167);
bs(b,r);
p(ura_1.gif,0,0);
s(私は某社の\nサラリーマン\n占い親父で\nあることは\n世間では秘密だ);
f(7,10,90,t);
	bg(255,185,185);
	p(taroto_1.gif,5,0,80);
	s(浦内課長\n$keyさんの今日の運勢は何ですか？);
	f(7,10,45);
		bg(255,209,165);
		fl(80,50);
		p(ura_3.gif,0,0);
		s(ああ 多呂戸くん\n$rndm_adjctv[0]だよ（5段階評価）);
		f(5,10,53,n);
			bg(129,120,208);
			p(ura_7.gif,10,3);
			s(はっ！\n社内では\n占いは\n秘密だった);
			f(7,10,45,c);
// 3
//$list_title=ラッキーアイテム
//$pre_cmnd=	kd2ik();
//
bg(255,255,167);
bs(b,r);
p(ura_1.gif,0,0);
s(私は某社の\nサラリーマン\n占い親父で\nあることは\n秘密にしている);
f(7,10,90,t);
	bg(168,227,255);
	p(taroto_2_s.gif,7,-3);
	s(浦内課長\n$keyさんの 今日のラッキーアイテムを知りたいんですけど);
	f(7,10,55);
		bg(197,255,159);
		fl(80,50);
		p(ura_6_s.gif,0,0);
		s(多呂戸くん\nずばり $rndm_noun[0]だよ);
		f(7,10,49,n);
			bg(129,120,208);
			p(ura_6_s.gif,0,-10);
			s(しまった！\n私が占い親父だと\nばれてしまうでは\nないか);
			f(5,10,52,c);
// 3
//$list_title=姓名判断 簡易編
//
bg(255,255,167);
bs(b,r);
p(ura_5.gif,0,0);
s(姓名判断だ！\n$keyを占うぞ！);
f(7,50,45,n);
s(今日は本格的に\n占いをしよう);
f(7,10,50);
	bg(255,185,185);
	fl(80,50);
	p(ura_2.gif,0,0);
	s(成功運を表す天格は「$seimei[ten_str]」で$seimei[ten_no]画\n$seimei[ten_res]);
	f(7,10,55);
		bg(168,227,255);
		fl(80,50);
		p(ura_2.gif,0,0);
		s(人生の前半を表す地格は「$seimei[ti_str]」で$seimei[ti_no]画\n$seimei[ti_res]);
		f(7,10,55);
			bg(255,209,165);
			fl(80,50);
			p(ura_6_s.gif,0,0);
			s(人生の後半を表す総画は$seimei[sou_no]画で\n$seimei[sou_res]\n今後の参考に\nしてくれたまえ！);
			f(7,10,55);
// 4
//$list_title=姓名判断 詳細編
//
bg(255,255,167);
bs(b,r);
p(ura_1.gif,0,0);
s(今日は 社内で\n密かに占いだ\n \n$keyの\n姓名判断を\nするぞ！);
f(7,10,50,t);
	bg(255,209,165);
	p(ura_1.gif,0,0);
	bg(233,242,241,64);
	s(成功運を表す天格は「$seimei[ten_str]」で$seimei[ten_no]画 $seimei[ten_res]\n \n人生の前半を表す地格は「$seimei[ti_str]」で$seimei[ti_no]画 $seimei[ti_res]);
	f(5,10,95,t);
		bg(197,255,159);
		p(ura_1.gif,0,0);
		bg(233,242,241,64);
		s(人生全般の運を表す人格は「$seimei[jin_str]」で$seimei[jin_no]画 $seimei[jin_res]\n \n人生の後半を表す総画は$seimei[sou_no]画で $seimei[sou_res]……);
		f(5,10,95,t);
			bg(255,185,185);
			p(taroto_3.gif,10,3);
			s(あの\n浦内課長…\n仕事をして\nください);
			f(7,10,45);