1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
psyced/place/telex.c
psyc://psyced.org/~lynX 47395d9962 the spiegel is broken
2009-01-27 22:42:29 +01:00

29 lines
538 B
C

#define NAME "TELEX"
#define PLACE_HISTORY
#define ON_ANY telexify(&data, &vars);
/*
#ifdef BRAIN
# define MASTER
#else
# define CONNECT_DEFAULT
#endif
*/
#include <place.gen>
/*** 6-BIT ROOM FOR 60S/70S COMPUTER *** ONLY SUPPORTS UPPER CASE TEXT ***/
mapping cache = ([ "lynX" : "lynX" ]);
telexify(data, vars) {
string k, val;
foreach (k, val: vars) if (stringp(val)) {
if (cache[val]) vars[k] = cache[val];
else vars[k] = cache[val] = upper_case(val);
}
if (stringp(data)) {
data = upper_case(data);
}
}