I had some fun with obj_dude:
procedure description_p_proc begin
reg_anim_func(2, dude_obj);
reg_anim_func(1, 1);
reg_anim_animate(dude_obj, 49, -1);
float_msg(dude_obj, message_str(1, random(200, 207)), 8);
metarule3(100, self_obj, 21, 0);
add_timer_event(dude_obj...