Roxen.git/
server/
base_server/
roxen.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2000-02-25
2000-02-25 16:14:38 by Martin Nilsson <mani@lysator.liu.se>
089364616a37e162ef93c3d505f3fa37cc47193e (
67
lines) (+
30
/-
37
)
[
Show
|
Annotate
]
Branch:
5.2
Less code and less noise.
Rev: server/base_server/roxen.pike:1.441
4:
// Per Hedbor, Henrik Grubbström, Pontus Hagland, David Hedbor and others. // ABS and suicide systems contributed freely by Francesco Chemolli
-
constant cvs_version="$Id: roxen.pike,v 1.
440
2000/02/
23
16:
50
:
30
nilsson Exp $";
+
constant cvs_version="$Id: roxen.pike,v 1.
441
2000/02/
25
16:
14
:
38
nilsson Exp $";
object backend_thread; ArgCache argcache;
1657:
#else multiset choices=(<>); string version=QUERY(default_ident)?real_version:QUERY(ident);
-
array
brag=({});
-
while
(
sizeof(choices)<5)
{
-
int choice=random(26);
-
if(!choices[choice]) {
-
choices[choice]=1;
-
brag+= ({ ({
+
return
version+",
"+
({
"Applier of Templates", "Beautifier of Layouts", "Conqueror of Comdex",
1689:
"Xylem of Services", "Yielder of Information", "Zenith of Extensibility"
-
})[
choice] });
-
}
-
}
-
return version+", "+String.implode_nicely
(
brag
);
+
})[
random
(
26
)
]
;
#endif }