blob: d4b602ac0de9e450ab050bec231e6767752e57ea [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001/* a finger
2 * Original (c) 14.03.1993 by Taube @Nightfall
3 * Umsetzung fuer Morgengrauen 09.08.1993 by Loco
4
5 Verwendung ausserhalb von Morgengrauen ist gestattet unter folgenden
6 Bedingungen:
7 - Benutzung erfolgt auf eigene Gefahr. Jegliche Verantwortung wird
8 abgelehnt.
9 - Auch in veraenderten oder abgeleiteten Objekten muss ein Hinweis auf
10 die Herkunft erhalten bleiben.
11 Ein Update-Service besteht nicht.
12
13 * 29.Okt 1993 Seherversion.
14 * spaeter auch fuer externen Aufruf verwendbar gemacht
15 * 13.Okt .plan und .project koennen auch in ~loco/plans sein.
16 * 15.Jan 1994 angepasst an neues Speicherformat
17 * 02-05.Dez94 -n, -p
18 *
19 * Gelegentlich minor changes, zuletzt 04.Okt.95
20 */
21
22#pragma strong_types,save_types
23#pragma no_clone, no_shadow
24
25#include <config.h>
26#include <properties.h>
27#include <wizlevels.h>
28#include <new_skills.h>
29#include <userinfo.h>
30#include <config.h>
31
32#define HBINT 2 /* interval between two heart_beats in seconds */
33#define MINIDLE 60 /* minimum idle time in seconds to be stated idle */
34#define TBANISH_EXTRACT 71.. /* Der benoetigte Teil des TBanish-strings */
35
36#define TP this_player()
37#define wiz (local && IS_LEARNER(TP))
38#define seer (local && IS_SEER(TP))
39#define IN ((properties[P_GENDER]==2)?"in":"")
40
41
42#define FLAG_NOPLAN 1
43#define FLAG_LONG 2
44#define FLAG_SPONSOR 4
45#define FLAG_VIS_LOGOUT 8
46#define FLAG_AVATAR 16
47
48
49mapping properties;
50int age,invis,hc_play;
51int filetime;
52mapping relatives;
53
54
55void create()
56{
57 seteuid(getuid());
58 filetime=0;
59}
60
61
62string timediff(int time)
63{
64 string ret;
65
66 ret="";
67 if ( time >= 86400*365 ) {
68 ret+=time/(86400*365)+"a ";
69 time%=(86400*365);
70 }
71 if(time>=86400) {
72 ret+=time/86400+"d ";
73 time%=86400;
74 }
75 if(time<36000) ret+="0";
76 ret+=time/3600+":";
77 time%=3600;
78 if(time<600) ret+="0";
79 ret+=time/60+":";
80 time%=60;
81 if(time<10) ret+="0";
82 ret+=time+"";
83 return ret;
84}
85
86string sponsoring(string name)
87{
88 int i,w;
89 string *s,s2,s3,s4;
90 // Daten einlesen, wenn die daten aelter als 1 Tag sind oder sich
91 // /log/SPONSORS geaendert hat.
92 if ((time() > filetime+86400) ||
93 filetime!=file_time("/log/SPONSOR"))
94 {
95 relatives=m_allocate(0,2);
96 filetime=file_time("/log/SPONSOR");
97 s=explode(read_file("/log/SPONSOR"),"\n");
98 foreach(string str: s) {
99 sscanf(str,"%s: %s macht %s zum Learner.",s2,s3,s4);
100 if (IS_LEARNER(lower_case(s3)) && IS_LEARNER(lower_case(s4)))
101 {
102 relatives[lower_case(s4),0]=s3;
103 s3=lower_case(s3);
104 s4+=" ("+query_wiz_level(lower_case(s4))+")";
105 if (!relatives[s3,1]) relatives[s3,1]=({s4});
106 else relatives[s3,1]+=({s4});
107 }
108 }
109 }
110 s2="";
111 if (relatives[name,0])
112 s2+="Vorfahre: "+relatives[name,0]+"\n";
113 if (relatives[name,1])
114 s2+="Nachfahre(n): "+break_string(implode(relatives[name,1],", "),78,14)[14..];
115 return s2;
116}
117
118varargs string finger_single(string str,int local)
119{
120 mixed *userinfo;
121 string ip,text,ipnum,filename,away;
122 int wizlevel,playerlevel,idle,pos,flags,last;
123 mixed h,data,tmp;
124 object player,ob;
125
126 /*DEBUG### tell_object((find_player("loco")||this_object()),"Finger request: '"+str+"'("+local+")\n");/**/
127 str=lower_case(str);
128 text="";
129 away="";
130 hc_play=0;
131
132 h=explode(str," ");
133 if (sizeof(h)==1) h=explode(str,"+");
134 if (member(h,"-n")>=0) flags=FLAG_NOPLAN;
135 if (member(h,"-p")>=0) flags=0;
136 if (member(h,"-l")>=0) flags|=FLAG_LONG;
137 if (member(h,"-s")>=0) flags|=FLAG_SPONSOR;
138 if (member(h,"-v")>=0) flags|=FLAG_VIS_LOGOUT;
139 if (member(h,"-a")>=0) flags|=FLAG_AVATAR;
140
141 h=(h-({"-n","-p","-l","-s", "-v","-a"}));
142 if (!sizeof(h)) {
143 text="Du solltest schon sagen, wer Dich interessiert!\n";
144 if (local) return write(text),0;
145 else return text;
146 }
147 str=h[0];
148 if (!sizeof(str) || str[0]<'a' || str[0]>'z') {
149 text="Also, so ("+str+") heisst bestimmt kein Spieler hier!\n";
150 if (local) return write(text),0;
151 else return text;
152 }
153
154 /* does this player exist? */
155 str=old_explode(str,".")[0];
156 userinfo=MASTER->get_userinfo(str);
157 player=find_player(str)||find_netdead(str);
158
159 if( (!pointerp(userinfo) || userinfo[USER_LEVEL+1]==-1)
160 && !player) {
161 text="Hmm... diesen Namen gibt es im "MUDNAME" nicht.\n";
162 if (tmp="/secure/master"->QueryBanished(str)){
163 text="Hoppla - dieser Name ist reserviert oder gesperrt (\"gebanisht\")!\n";
164 if ( tmp != "Dieser Name ist gesperrt." )
165 text += "Grund fuer die Sperrung: " + tmp +
166 (member( ({'!','?','.'}), tmp[<1] ) != -1 ? "" : ".") + "\n";
167 }
168 if (local) return write(text),0;
169 else return text;
170 }
171
172 if (player) {
173 hc_play=player->query_hc_play();
174 properties=player->QueryProperties();
175 properties[P_RACE]=player->QueryProp(P_RACE);
176 properties[P_VISIBLE_GUILD]=player->QueryProp(P_VISIBLE_GUILD);
177 properties[P_TITLE]=player->QueryProp(P_TITLE);
178 tmp = player->QueryProp(P_PRESAY);
179 properties[P_PRESAY]=(stringp(tmp) && sizeof(tmp)>1) ? tmp[0..<2] : 0;
180 }
181 else
182 restore_object("/save/"+str[0..0]+"/"+str);
183 if (!properties)
184 {
185 text+="Mist!!! Das Einlesen der Daten klappt nicht wie es soll :-(\n";
186 properties=0;
187 if (!local)
188 return text;
189 write(text);
190 return "";
191 }
192 if ( player && interactive(player) )
193 ipnum = query_ip_number(player);
194 else
195 ipnum = properties[P_CALLED_FROM_IP];
196 // frueher stand in P_CALLED_FROM_IP evtl. auch der Name direkt drin
197 // anstelle der numerischen IP
198 ip=query_ip_name(ipnum)||properties[P_CALLED_FROM_IP];
199 if(player) {
200 if (!interactive(player) || (idle=query_idle(player))<MINIDLE)
201 idle=0;
202 if (!(invis=age=player->QueryProp(P_INVIS)))
203 age=player->QueryProp(P_AGE);
204 } else {
205 if (properties[P_INVIS]) age=properties[P_INVIS];
206 idle=properties[P_LAST_LOGOUT];
207 }
208
209 wizlevel=query_wiz_level(str);
210 if ( (tmp = file_time("/save/"+str[0..0]+"/"+str+".o")) <= 0 )
211 // Hack, um bei ganz "frischen" Spielern (noch kein Savefile vorhanden)
212 // die Ausgabe von 1.1.1970 zu verhindern
213 tmp = time();
214 last=properties[P_LAST_LOGOUT];
215 if ( last <= 0 || (!(flags&FLAG_VIS_LOGOUT) && wiz && wizlevel > 10
216 && properties[P_INVIS] && tmp - last > 300) )
217 last = tmp;
218
219 /* output routine for all */
220 if(player) {
221 h=player->QueryProp(P_RACE);
222 if(interactive(player) && (wiz || !invis)) {
223 text+=capitalize(str)+" ist anwesend,\n"+
224 "und zwar von: "+
225 (wiz ? (ip+(ipnum?" ("+ipnum+")":"")):"")+
226 (stringp(properties[P_LOCATION]) ? (wiz ? "\n [" : "")
227 +capitalize(properties[P_LOCATION])+
228 ((properties[P_LOCATION] != country(ip, ipnum))
229 ? " (ueber "+country(ip, ipnum)+")" : "" )
230 : (wiz?" [":"")+country(ip, ipnum))+(wiz ? "]":"")+".\n";
231 if(idle)
232 text+="Passiv seit: "+timediff(idle)+"\n";
233 if (local)
234 text+="Eingeloggt seit: "+dtime(properties[P_LAST_LOGIN])+"\n";
235 if (properties[P_AWAY])
236 away="z.Z. abwesend, Grund : "+properties[P_AWAY]+"\n";
237 } else
238 text+=capitalize(str)+" ist nicht anwesend.\nZuletzt eingeloggt von: "+
239 (wiz ? (ip+(ipnum&&ipnum!=ip?" ("+ipnum+")":"")):"")+
240 (stringp(properties[P_LOCATION]) ?
241 (wiz ? "\n [": "")
242 +capitalize(properties[P_LOCATION])+" (ueber "+country(ip, ipnum)+")":
243 (wiz?" [":"")+country(ip, ipnum))+(wiz ? "]":"")+".\n"+
244 "Zuletzt ausgeloggt: "+dtime(last)+" ("+timediff(time()-last)+").\n";
245 }
246 else {
247 text+=capitalize(str)+" ist nicht anwesend.\nZuletzt eingeloggt von: "+
248 (wiz ? (ip+(ipnum&&ipnum!=ip?" ("+ipnum+")":"")):"")+
249 (stringp(properties[P_LOCATION]) ?
250 (wiz ? "\n [": "")
251 +capitalize(properties[P_LOCATION])+" (ueber "+country(ip, ipnum)+")":
252 (wiz?" [":"")+country(ip, ipnum))+(wiz ? "]":"")+".\n"+
253 "Zuletzt ausgeloggt: "+dtime(last)+" ("+timediff(time()-last)+").\n";
254 }
255 text+="Voller Name: "+(((h=properties[P_PRESAY]) && h!="") ? h+" " : "")+
256 capitalize((h=properties[P_NAME]) ? h : str)+" "+
257 ((h=properties[P_TITLE]) ? h :
258 ((mappingp(h=properties["guild_title"]) && (h=(h[properties[P_GUILD]?properties[P_GUILD]:"abenteurer"])) ) ? h : "") )
259 +"\n";
260
261 if (properties[P_GHOST]) text+="Hoppla, ein Geist!\n";
262 if ((flags&FLAG_LONG)&&properties[P_LONG])
263 text+="Beschreibung: \n"+break_string(properties[P_LONG],78,2);
264
265 if(wiz ||
266 (properties[P_SHOWEMAIL]=="alle") ||
267 ( (properties[P_SHOWEMAIL]=="freunde") &&
268 objectp(player) &&
269 this_player() &&
270 (ob=present("\n\bfband",player)) &&
271 pointerp(tmp=ob->QueryProp(P_AUTOLOADOBJ)) &&
272 pointerp(tmp=tmp[1]) &&
273 (member(tmp,getuid(this_player()))!=-1))) tmp = 1;
274 else tmp=0;
275
276
277 if (!(h=properties[P_RACE]) && userinfo && pointerp(userinfo) && sizeof(userinfo)>4 &&
278 stringp(userinfo[4]) && sizeof(h=old_explode(userinfo[4],"/"))>2) {
279 h=capitalize(h[2]);
280 h=(["Human":"Mensch","Dwarf":"Zwerg","Darkelf":"Dunkelelf","Orc":"Ork"])[h] || h;
281 }
282
283 if (!stringp(h)) h="<keine>";
284
285 text+="Rasse: "+h+", Gilde: "+
286 ((h=properties[P_VISIBLE_GUILD])?capitalize(h):((h=properties[P_GUILD])?capitalize(h):"Abenteurer"))+
287 ((h=properties[P_VISIBLE_SUBGUILD_TITLE])?" ("+capitalize(h)+")":((h=properties[P_SUBGUILD_TITLE])?" ("+capitalize(h)+")":""))+
288 ", Geschlecht: "+({"neutral ?!","maennlich","weiblich","<verdammt seltsam>"})[properties[P_GENDER]]+"\n"+
289 (seer ? "Alter: "+timediff(age*HBINT)+", " : "")+
290 (wizlevel>=10?"Magierlevel: "+wizlevel+
291 (wizlevel>=GOD_LVL?" (Mudgott)":str=="boing"?" (Mudgott a.D.)":str=="muadib"?" (Apostolischer Visitator)":wizlevel>=ARCH_LVL?" (Erzmagier)":IS_DEPUTY(str)?" (Hilfssheriff)":wizlevel>=ELDER_LVL?" (Weiser)":wizlevel>=LORD_LVL?" (Regionsmagier)":wizlevel>=SPECIAL_LVL?" (Hilfsmagier)":wizlevel>=DOMAINMEMBER_LVL?" (Regionsmitarbeiter)":wizlevel>WIZARD_LVL?" (Vollmagier)":" (Lehrling)"):
292 ("Spielerlevel: "+properties[P_LEVEL]+( wizlevel ? " (Seher"+IN+")" : "" )+
293 (((h=properties[P_GUILD_LEVEL]) && h=h[properties[P_GUILD]]) ?
294 (", Gildenlevel: "+h) : "" )
295 ))+((userinfo&&pointerp(userinfo))?
296 (sprintf("\nDatum des ersten Login: %s",
297 (userinfo[5] > 0) ? dtime(userinfo[5]) : "vor dem 10. Nov 1995")):"")+
298 (tmp ? ("\nE-Mail-Adresse: "+((h=properties[P_MAILADDR]) ? h : "keine")+"\n") : "\n");
299
300 if (properties[P_HOMEPAGE])
301 text+="Homepage: "+properties[P_HOMEPAGE]+"\n";
302
303 if (stringp(data=properties[P_MESSENGER])) {
304 text+=sprintf("Messenger: %s", data);
305 if (intp(data=properties[P_ICQ])) {
306 if (data<0 && IS_WIZARD(this_player())) data*=-1;
307 if (data>0) text += sprintf(", ICQ: %d", data);
308 }
309 text+="\n";
310 } else
311 if (intp(data=properties[P_ICQ])) {
312 if (data<0 && IS_WIZARD(this_player()))
313 data*=-1;
314 if (data>0)
315 text+=sprintf("ICQ: %d\n",data);
316 }
317
318 if (properties[P_MARRIED])
319 text+="Verheiratet mit: "+capitalize(properties[P_MARRIED])+"\n";
320
321 if ( pointerp(properties[P_SIBLINGS]) )
322 text += ({ "Es", "Er", "Sie" })[properties[P_GENDER]] + " ist Bluts" +
323 ({ "verwandt mit ", "bruder von ", "schwester von " })
324 [properties[P_GENDER]] +
325 CountUp(properties[P_SIBLINGS]) + ".\n";
326
327 text+=away;
328
329 if(MASTER->check_late_player(str))
330 {
331 text+=capitalize(str)+" hat uns leider fuer immer verlassen.\n";
332 }
333 else
334 {
335 if (h=MASTER->QueryTBanished(str))
336 text+=capitalize(str)+" will fruehestens "+h[TBANISH_EXTRACT];
337 }
338
339 if (h=properties[P_TESTPLAYER])
340 {
341 text+=capitalize(str)+" ist Testspieler"+IN;
342 if (stringp(h)) text+=" ("+h+")";
343 text+=".\n";
344 }
345 if ( h=properties[P_SECOND])
346 {
347 if (IS_WIZARD(this_player())) {
348 text+=capitalize(str)+" ist";
349 switch((int)properties[P_SECOND_MARK]) {
350 case -1: text+=" unsichtbar markierte"
351 +((int)properties[P_GENDER]!=FEMALE ? "r": "");
352 break;
353 case 0: text+=" nicht namentlich markierte"
354 +((int)properties[P_GENDER]!=FEMALE ? "r": "");
355 break;
356 default:
357 }
358 text+=" Zweitspieler"+IN;
359 if (stringp(h))
360 text+=" ("+capitalize(h)+")";
361 text+=".\n";
362 }
363 else if ((int)properties[P_SECOND_MARK]>0)
364 {
365 text+=capitalize(str)+" ist Zweitspieler"+IN;
366 if (stringp(h))
367 text+=" ("+capitalize(h)+")";
368 text+=".\n";
369 }
370 else if ((int)properties[P_SECOND_MARK]>-1)
371 text+=capitalize(str)+" ist Zweitspieler"+IN+".\n";
372 }
373 if (properties[P_DEADS])
374 {
375 text+="Bisher bereits "+properties[P_DEADS]+" mal gestorben\n";
376 // Bezieht sich nur auf den Zeitraum ab dem 30.11.'94
377 }
378 if(hc_play==1)
379 {
380 text+=capitalize(str)+" ist sehr mutig.\n";
381 }
382 if(hc_play>1)
383 {
384 text+=capitalize(str)+" ist am "+dtime(hc_play)+" in das Nirvana eingegangen.\n";
385 }
386
387 if (/*wiz && */userinfo) {
388 data=userinfo[3];
389 if (sizeof(data))
390 text+="Regionsmagier"+IN+" von : "+implode(map(data,#'capitalize),", ")+".\n";
391 data="/secure/master"->get_domain_homes(str);
392data=filter(data-({"erzmagier"}),#'stringp);
393 if ((wizlevel>=DOMAINMEMBER_LVL) && (sizeof(data)))
394 text+="Regionsmitarbeiter"+IN+" von: "+implode(map(data,#'capitalize),", ")+".\n"; /* #' */
395 }
396
397 if (userinfo) {
398 data=userinfo[8];
399 if (sizeof(data))
400 text += "Gildenmagier"+IN+" von : "+implode(map(data, #'capitalize), ", ")+".\n"; /* #' */
401 }
402
403 // ggf. Avatar-URI mit ausgeben.
404 if (flags & FLAG_AVATAR
405 && stringp(properties[P_AVATAR_URI]))
406 text += "Avatar-URI: " + properties[P_AVATAR_URI] + "\n";
407
408 if (flags & FLAG_SPONSOR)
409 text+=sponsoring(str);
410
411 filename="/players/"+str+"/.project";
412 if(file_size(filename)>=0)
413 text+="Projekt: "+explode(read_file(filename), "\n")[0]+"\n";
414 else {
415 filename="/p/service/loco/plans/"+str+".project";
416 if(file_size(filename)>=0)
417 text+="Projekt: "+explode(read_file(filename), "\n")[0]+"\n";
418 }
419 if (seer && !(flags&FLAG_NOPLAN)) {
420 filename="/players/"+str+"/.plan";
421 if(file_size(filename)>=0)
422 text+="Plan:\n"+read_file(filename);
423 else {
424 filename="/p/service/loco/plans/"+str+".plan";
425 if(file_size(filename)>=0)
426 text+="Plan:\n"+read_file(filename);
427// else
428// text+="Keine .plan-Datei.\n";
429 }
430 }
431 properties=0;
432 if (!local)
433 return text;
434 this_player()->More(text);
435 return "";
436}
437
438string Finger(string str)
439{
440 if(!str || str=="") { notify_fail("Wen denn?\n"); return 0; }
441 else
442 return finger_single(str,1);
443}