blob: 60d3b2877c0a42e6ed4c9e885ad4b4f5a399c516 [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001// MorgenGrauen MUDlib
2//
3// room/description.c -- room description handling
4//
5// $Id: description.c 9468 2016-02-19 21:07:04Z Gloinson $
6
7#pragma strong_types
8#pragma save_types
9#pragma pedantic
10#pragma range_check
11#pragma no_clone
12
13inherit "/std/container/description";
14
15#define NEED_PROTOTYPES
16
17#include <properties.h>
18#include <defines.h>
19#include <wizlevels.h>
20#include <language.h>
21#include <doorroom.h>
22
23void create()
24{
25 ::create();
26 SetProp(P_NAME, "Raum");
27 SetProp(P_INT_SHORT,"<namenloser Raum>");
28 SetProp(P_INT_LONG,0);
29 SetProp(P_ROOM_MSG, ({}) );
30 SetProp(P_FUNC_MSG, 0);
31 SetProp(P_MSG_PROB, 30);
32 AddId(({"raum", "hier"}));
33}
34
35void init()
36{
37 // Wenn P_ROOM_MSG gesetzt oder P_FUNC_MSG und kein Callout laeuft,
38 // Callout starten.
39 mixed roommsg = QueryProp(P_ROOM_MSG);
40 if( ( (roommsg && sizeof(roommsg)) ||
41 QueryProp(P_FUNC_MSG) ) &&
42 (find_call_out("WriteRoomMessage")==-1))
43 call_out("WriteRoomMessage", random(QueryProp(P_MSG_PROB)));
44}
45
46varargs void AddRoomMessage(string *mesg, int prob, mixed func)
47{
48 if (mesg && !pointerp(mesg))
49 raise_error(sprintf(
50 "AddRoomMessage(): wrong argument type, expected Array or 0, "
51 "got %.20O",mesg));
52
53 SetProp(P_ROOM_MSG, mesg);
54
55 if (prob>0)
56 SetProp(P_MSG_PROB, prob);
57
58 if (func)
59 SetProp(P_FUNC_MSG, func);
60}
61
62static void WriteRoomMessage()
63{
64 int tim, msgid;
65 string *room_msg,func;
66 mixed *func_msg;
67
68 room_msg = (string *)QueryProp(P_ROOM_MSG);
69 func_msg = QueryProp(P_FUNC_MSG);
70 if ((!room_msg || !sizeof(room_msg)) && !func_msg)
71 return;
72
73 if (room_msg&&sizeof(room_msg))
74 {
75 msgid = random(sizeof(room_msg));
76 // Defaultwerte sind fuer Altcode schwierig
77 send_room(this_object(), room_msg[msgid],
78 MT_LOOK|MT_LISTEN|MT_FEEL|MT_SMELL|
79 MSG_DONT_STORE|MSG_DONT_BUFFER|MSG_DONT_WRAP);
80 }
81
82 if (func_msg)
83 {
84 if (stringp(func_msg))
85 func=(string)func_msg;
86 else
87 func=func_msg[random(sizeof(func_msg))];
88 if (func && function_exists(func))
89 call_other (this_object(), func, msgid);
90 }
91
92 while (remove_call_out("WriteRoomMessage")!=-1);
93 tim=QueryProp(P_MSG_PROB);
94 if(this_object() && sizeof(filter(
95 deep_inventory(this_object()), #'interactive))) //')))
96 call_out("WriteRoomMessage", (tim<15 ? 15 : tim));
97}
98
99varargs string int_long(mixed viewer,mixed viewpoint,int flags)
100{
101 string descr, inv_descr;
102
103 flags &= 3;
104 if( IS_LEARNER(viewer) && viewer->QueryProp( P_WANTS_TO_LEARN ) )
105 descr = "[" + object_name(ME) + "]\n";
106 else
107 descr = "";
108
109 descr += process_string(QueryProp(P_INT_LONG)||"");
110
111 // ggf. Tueren hinzufuegen.
112 if (QueryProp(P_DOOR_INFOS)) {
113 string tmp=((string)call_other(DOOR_MASTER,"look_doors"));
114 if (stringp(tmp) && sizeof(tmp))
115 descr += tmp;
116 }
117
118 // ggf. Ausgaenge hinzufuegen.
119 if ( viewer->QueryProp(P_SHOW_EXITS) && (!QueryProp(P_HIDE_EXITS)
120 || pointerp(QueryProp(P_HIDE_EXITS))) )
121 descr += GetExits(viewer) || "";
122
123 // Viewpoint (Objekt oder Objektarray) sind nicht sichtbar
124 inv_descr = (string) make_invlist(viewer, all_inventory(ME)
125 - (pointerp(viewpoint)?viewpoint:({viewpoint})) ,flags);
126
127 if ( inv_descr != "" )
128 descr += inv_descr;
129
130 if(environment() && (inv_descr=QueryProp(P_TRANSPARENT)))
131 {
132 if(stringp(inv_descr)) descr += inv_descr;
133 else descr += "Ausserhalb siehst Du:\n";
134
135 descr += environment()->int_short(viewer,ME);
136 }
137
138 return descr;
139}
140
141string int_short(mixed viewer,mixed viewpoint)
142{
143 string descr, inv_descr;
144
145 descr = process_string( QueryProp(P_INT_SHORT)||"");
146 if( IS_LEARNER(viewer) && viewer->QueryProp( P_WANTS_TO_LEARN ) )
147 descr += " [" + object_name(ME) + "].\n";
148 else
149 descr += ".\n";
150
151 if ( ( viewer->QueryProp(P_SHOW_EXITS)
152 || ( environment(viewer) == ME && !viewer->QueryProp(P_BRIEF) ) )
153 && (!QueryProp(P_HIDE_EXITS) || pointerp(QueryProp(P_HIDE_EXITS))) )
154 descr += GetExits(viewer) || "";
155
156 // Viewpoint (Objekt oder Objektarray) sind nicht sichtbar
157 inv_descr = (string) make_invlist( viewer, all_inventory(ME)
158 - (pointerp(viewpoint)?viewpoint:({viewpoint})) );
159
160 if ( inv_descr != "" )
161 descr += inv_descr;
162
163 return descr;
164}
165
166/** Roommessages abschalten, wenn keine Interactives mehr da sind.
167 */
168// TODO: Irgendwann das varargs loswerden, wenn in der restlichen Mudlib
169// TODO::exit() 'richtig' ueberschrieben wird.
170varargs void exit(object liv, object dest) {
171 // fall erbende Objekte das liv nicht uebergeben. Pruefung nur auf
172 // previous_object(). Wenn Magier da noch irgendwelche Spielchen mit
173 // call_other() & Co treiben, haben wir Pech gehabt, macht aber nicht viel,
174 // weil die Raummeldungen dann im naechsten callout abgeschaltet werden.
175 if (!living(liv=previous_object())) return;
176
177 object *interactives = filter(all_inventory(), #'interactive);
178 // liv wurde noch nicht bewegt, ggf. beruecksichtigen.
179 if ( !sizeof(interactives) ||
180 (interactive(liv) && sizeof(interactives) < 2) )
181 while (remove_call_out("WriteRoomMessage")!=-1);
182}
183
184static string _query_int_long() {return Query(P_INT_LONG, F_VALUE);}
185
186
187// Querymethode fuer P_DOMAIN - gibt die Region an, in der Raum liegt, sofern
188// er unter /d/ liegt...
189static string _query_lib_p_domain()
190{
191 string fn = object_name();
192 if (strstr(fn, "/d/") == 0)
193 {
194 return capitalize(explode(fn, "/")[2]);
195 }
196
197 return "unbekannt";
198}
199
200<string|string*>* _set_harbour_name( <string|string*>* desc)
201{
202 if ( sizeof(desc)!=2 )
203 {
204 raise_error(sprintf("Unacceptable data in P_HARBOUR, sizeof() was %d, "
205 "expected 2.", sizeof(desc)));
206 }
207 else if ( !stringp(desc[0]) )
208 {
209 raise_error("Wrong data type in P_HARBOUR[0]: expected 'string'.");
210 }
211 else if ( pointerp(desc[1]) && sizeof(desc[1])<1 )
212 {
213 raise_error("Insufficient data in P_HARBOUR[1]: expected 'string*', "
214 "got '({})'.");
215 }
216 else if ( stringp(desc[1]) )
217 {
218 desc[1] = ({desc[1]});
219 }
220 return Set(P_HARBOUR, desc, F_VALUE);
221}
222