/* -*- LPC -*- */
/*
* $Locker: $
* $Id: common.c,v 1.1 1998/01/06 04:27:40 ceres Exp $
* $Log: common.c,v $
* Revision 1.1 1998/01/06 04:27:40 ceres
* Initial revision
*
*/
/*
* The standard language unit.
*/
string long() {
return
"This is the normal language spoken by most creatures.\n";
}
mixed garble_tell(string start, string mess) {
int i;
string ret;
ret = "";
for (i=0;i<strlen(mess);i++)
if (mess[i] != ' ')
ret += "*";
else
ret += " ";
return ({ start, ret });
}
mixed garble_shout(string start, string mess) {
int i;
string ret;
ret = "";
for (i=0;i<strlen(mess);i++)
if (mess[i] != ' ')
ret += "*";
else
ret += " ";
return ({ start, ret });
}
mixed garble_say(string start, string mess) {
int i;
string ret;
ret = "";
for (i=0;i<strlen(mess);i++)
if (mess[i] != ' ')
ret += "*";
else
ret += " ";
return ({ start, ret });
}
