psyced/place/zwirbel.c
2009-03-04 12:21:53 +01:00

76 lines
1.8 KiB
C

// vim:syntax=lpc
//
// still fails in some unusual cases, like
// "Comments? Suggestions? Submissions? Fire away!"
#define ON_CONVERSE \
if (stringp(data)) data = zwirbel(0, data); \
walk_mapping(vars, #'zwirbel);
#include <place.gen>
mixed* randomize(mixed* abs) {
int size = sizeof(abs);
int c, i;
mixed temp;
if (size > 3) {
for (i = 0; i != size - 1; i++) {
// das hier ist definitiv noch nicht perfekt.. vielleicht kann man sich
// die for auch sparen, man changed ja eh.. also.. hmm
while (c == i)
c = random(size-1);
// die if da tut mir wirklich leid... hehe :)
if (((abs[c] >= 65 && abs[c] <= 90) || (abs[c] >= 97 && abs[c] <= 122)) && ((abs[i] >= 65 && abs[i] <= 90) || (abs[i] >= 97 && abs[i] <= 122))) {
temp = abs[c];
abs[c] = abs[i];
abs[i] = temp;
}
}
} else {
while (c == i) {
i = random(size-1);
c = random(size-1);
}
temp = abs[c];
abs[c] = abs[i];
abs[i] = temp;
}
return abs;
}
mixed zwirbel(mixed name, mixed data) {
string* words;
int c = 0;
if (!stringp(data) || strlen(data) < 5
|| name == "_nick" || name == "_color") return data;
words = explode(data, " ");
foreach (string w : words) {
// hier nochmal nach irgendwelchen satzzeichen am ende gucken
// hmmm
if (((w[0] >= 65 && w[0] <= 90) || (w[0] >= 97 && w[0] <= 122)) && strlen(w) >= 4) {
words[c] = w[0..0] + to_string(randomize(to_array(w[1..<2]))) + w[<1..<1];
}
c++;
}
data = implode(words, " ");
//debug_message(sprintf("%O - %O\n", ME, data));
return data;
}
htget(prot, query, headers, qs) {
htok3(prot, "text/html", "");
unless(query["s"]) {
write("<form method='get'>\n"
"<input name='s' type='text' maxlength='512'>\n"
"<input type='submit'>\n"
"</form>\n");
P2(("done1\n"))
} else {
write(zwirbel(0, query["s"]));
}
}