function &cheat_char_choices(MC, T) {
var $title, $c_ans, $is_emp, $not_story, $shared_job, $can_heal, $allow_pick_image, $is_eternal, $log;
var $info, $info2, $info3, $info4, $degree, $major;
var $is_romantic, $is_poly, $is_loyal;
var $is_hourly, $curr_sal;
obj %c, %mc_c, %cj, %rel;
cont @EMP[];
set $c_ans = decision MC, T {
choiceif "e", $allow_pick_image & $not_story, 1, "cheat.main.opt.e"
elsif ($c_ans == "e") {
&cheat_change_appearance(MC, T);
function &cheat_change_appearance(MC, T) {
var $ans, $curr, $sel, $count, $opt_cnt, $i, $j, $pose_id;
cont $pose_split[];
char X;
cont $img_names[];
$img_names = &all_images_for_char(T, true);
$count = &size($img_names);
if($count == 0) {
$ans = decision T {
title "pick_img.t"
body "cheat.appearance.phys.no_choices"
choice "ok", 1, "toobad"
}
return;
}