
voc{ textfill

: job-maker args( chara )
	0 stack
		($ "经常用" .. <- chara xhis .. "舌头发出'嘚噜嘚噜'的声音. " $) shove
		"真的极其适合在世界末日里生存. 因为他就是个彻头彻尾的混蛋. " shove
		"一直紧张地环顾四周. " shove
		($ "声称" .. <- chara xhe .. "曾经是名人. " $) shove
		"满身污垢. " shove
		"闻起来很有趣. 那种让人笑不出来的有趣. " shove
		"真的很占车里的空间. " shove
		"举止高贵. " shove
		"似乎从不出汗. " shove
		"汗流浃背. " shove
		($ "打鼾, 但醒来后否认" .. <- chara xhe .. "打鼾. " $) shove
		"瞪着眼睛. " shove
		"不想进行任何的眼神交流. " shove
		"是某个领域的隐藏大佬. " shove
		"的跑步方式有种难以言表的滑稽感. " shove
		"真的很讨厌罐头食品. " shove
		"希望看到一只真正的驼鹿. " shove
		"看起来异常平静. " shove
		"不停地嚼口香糖. " shove
		($ "声称" .. <- chara xhe .. "是一名在执行绝密任务的超级士兵. " $) shove
		"总是在玩一些流行梗. " shove
		"似乎总是有点心不在焉. " shove
		"声称知道一门古老的反僵尸武术. " shove
		"觉得整个北上加拿大的计划不太可行, 但还是跟过来了. " shove
		"——尽管没人意识到——对加拿大的一切东西过敏. " shove
		($ "声称" .. <- chara xhe .. "曾是一位明星运动员. " $) shove
		($ "此时" .. <- chara xhis .. "正在用两只手的拇指不停地绕圈圈. " $) shove
		"有一副优美的歌声. " shove
		"一提起培根就滔滔不绝. " shove
		"一直在想念有热水器的日子. " shove
		"不介意僵尸, 但　真　的　很讨厌鬼魂. " shove
		"害怕骷髅, 但用某种方法克服了恐惧. " shove
		"希望能找到一个火焰喷射器. " shove
		($ "喜欢谈论关于" .. <- chara xhis .. "最喜欢的罐头小宝贝们. " $) shove
		($ "感觉就像是幸运女神站在" .. <- chara xhis .. "这边! " $) shove
		"自称是链锯专家. " shove
		"想要找到一把完美的武士刀. " shove
		"喜欢骨头, 喜欢木头块, 讨厌被吃. " shove
		"害怕鸡. " shove
		"觉得这次肯定可以成功进入加拿大. " shove
		($ "不停地翻" .. <- chara xhis .. "应急计划. " $) shove
		"相信圣诞老人是真实存在的. " shove
		"闻起来不臭, 在僵尸狂潮中不发臭是一件不可思议的事情. " shove
		"希望开一辆豪华轿车去加拿大. " shove
		"讨厌下雨的时候. " shove
		($ "说" .. <- chara xhe .. "是一个著名的电子游戏主播. " $) shove
		($ "每天早上都会练习" .. <- chara xhis .. "那一套对付僵尸的动作. " $) shove
		"计划训练一群反僵尸精英犬. " shove
		($ "写关于" .. <- chara xhis .. "冒险经历, 在" .. <- chara xhe .. "不忙的时候. " $) shove
		"正在制作一首关于这次加拿大之旅的歌曲. " shove
		($ "正在画一本关于" .. <- chara xhis .. "人生经历的漫画. " $) shove
		"的发型明显是上个季度已经落伍的风格. " shove
		"还穿着早已过时的裤子. " shove
		// "" shove
	shuffles pops nip
;

: blahblah menu_selected_charid #character args( chara )
	// "嗨, 我是" +text +purple <- chara .name@ +text +white "好吧, 你这个笨蛋. " +text
	// "我喜欢" +text +red <- chara .seed@ 1 & if "CATS?" else "狗! " then +text +white "就这样. " +text
	<- chara .trait@ $len 0= not if
		"特质: " +text +purple <- chara .trait@ +text
		+white " 天赋: " +text +purple <- chara .perk@ +text +white +cr
	then
	<- chara .weapona@ <- chara .weaponb@ <- chara .weaponc@ + + 0 > if
		"持有物: " +text 0
		<- chara .weapona@ if " " +text +purple <- chara .weapona@ weaponid$ +text 1+ then
		<- chara .weaponb@ if dup if ", " else " " then +text +purple <- chara .weaponb@ weaponid$ +text 1+ then
		<- chara .weaponc@ if dup if ", " else " " then +text +purple <- chara .weaponc@ weaponid$ +text then
		drop
		+cr
	then +cr
	<- chara .job@ $len 0= if
		<- chara job-maker <- chara .job!
	then
	<- chara .job@ $len 0= not if
		<- chara .colourname +text " " +text <- chara .job@ +text
	then
;

last to textfill-stats-tab

}
