##say:runsub replyit;
##whish:runsub whattodo;

##whattodo:runsub createit;

##createit:
getname $init_obj,plain;
call "create a $init_cmd which is made especially for $this_name";


##replyit:
var $rep to (Aliens have taken control of [$actor] so he is busy having his brains sucked out try in later,
I am terrily sorry can you repeat that again for me? I am going deaf,
I bet I know something you don't know,
If you try and do that to me again I will be forced to reply with something a little more voilent,how are you [$init_obj]?I haven't seen you in ages,
That would only happen in Uraguay,
My dead sister used to say that to me all the time,
The Armadillos only feed when they're hungry,
Butter is made by churning up the milk,
Trolls eat babies and drink pure chocolate spirits,
If you were wanting to talk to [$actor] you have come to the wrong place you want the [$actor] on 34th street,
Continue talking I value your opinion,
SPLINGE!!,
What on earth are you talkig about?,
I only wanted a puppy because of all the mental torture you gave me,
I know what you are thinking but you are horribly wrong!,
I am hoping that you are here to talk to me about all that money you owe me,
Did I say how much I want to kiss you?,
I totally agree!,
hello!,
hello,
what do you want?,
yes?,
[$init_obj] please don't talk to me at the moment,
I am busy please leave a message after the beep....... beep!,
Can i offer you a glass of justice?,
Please don't dip me in a pit of iguanas,
You have got to be kidding me! That is amazing!);
say 'responce',"[$actor] says '$rep'";