COWbrowse

You are looking at a little old man wich has long gray hairs and glasses on his noze. He seems to know a lot

This realy an old, old, little man. He wears an worn military jacket of the Galactic Navy's officers corps. You can also see a tatoo on his left hand, it looks like the Enterprise spaceship. You can talk to him.

Created by xiii, last updated 17 Jul 2012

Code

##talk:runsub checkgemtalk;
##checkgemtalk:
foreach in $loc do findgemtalk;
if $foreachstop eq 1 then finished else nogemtalk;

##findgemtalk:
if $for_class like gem then gotgemtalk;

##gotgemtalk:
var $foreachstop to 1;
var $msg to "This ocult gem comes from a very far place.

I never realy found what was it power.

It is not to sell, but now I am too old to keep it.

If you want it, I give it to you.

Just say yes and it is yours.";
say 'nothing',"[$actor] says '$msg'";
runsub finished;

##nogemtalk:
var $msg to "I had a gem, it was so cold...

I gave it and now it miss me.

Help me, bring it back to me please.";
say 'nothing',"[$actor] says '$msg'";
runsub finished;

##say:runsub checkgemsay;
##checkgemsay:
foreach in $loc do findgemsay;
if $foreachstop eq 1 then finished else nogemsay;

##findgemsay:
if $for_class like gem then whattext;
##whattext:
if $init_cmd eq yes then mesggive;

##mesggive:
var $foreachstop to 1;
var $msg to "This gem is yours now.

Go, explore COWland's meanders, and try not to get lost.";
say 'nothing',"[$actor] says '$msg'";
clear $for_id,all;
set $for_id's loc to $init_obj;
look $loc;
runsub finished;

##nogemsay:
var $actn to (sighs...,ponders eternity,scratches his beard,looks at you with emptiness in his eyes,blinks slowly,yawns);
say 'nothing',"[$actor] $actn";

##finished: