##arrives:runsub checkplayer;

##checkplayer:
if $init_obj's material = "player" then runsub checkfaction else end;

##checkfaction:
if $init_obj's material = "valhalla" then runsub Valhyes else runsub Valhno;

##Valhyes:
say , 'msg' "$actor smiles at $init_obj";
say , 'msg' "$actor says 'Hello $init_obj! Pleased to see that you're back!'";

##Valhno:
say , 'msg' "$actor looks at you with with a puzzled expression";
say , 'msg' "$actor says 'I don't seem to know you. I'm Valkyrie. Hope to see you around!'";
say , 'msg' "$actor says 'Are you considering becoming a member of Valhalla Halls?'";
say , 'msg' "$actor says 'You better not be thinking of joining the Egyptians or Greeks!'";