blob: 3e07c0a4f336a92898bca2b175860a78b14ad069 [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001
2/* 'reise' handling
3 *
4 * Ueberarbeitete und
5 * erweiterte Version: Tilly@MorgenGrauen, 10.01.02
6 * Basierend auf : base.c@SilberLand,
7 * Revision 3.55, Woody@SilberLand, 11.05.99
8 */
9#pragma strong_types
10#pragma save_types
11#pragma range_check
12#pragma no_clone
13#pragma pedantic
14
15#define NEED_PROTOTYPES
16#include <player.h>
17#include <living/moving.h>
18#include <thing/properties.h>
19#undef NEED_PROTOTYPES
20
21#include <properties.h>
22#include <config.h>
23#include <wizlevels.h>
24#include <moving.h>
25#include <living.h>
26#include <attributes.h>
27#include <defines.h>
28#include <new_skills.h>
29#include <combat.h>
30#include <transport.h>
31
32void create(){}
33
34private string _traveller(string *s)
35{
36 switch (sizeof(s))
37 {
38 case 1 : return s[0];
39 case 2 : return s[0]+" oder "+s[1];
40 }
41 return efun::implode(s[0..<2],", ")+" oder "+s[<1];
42}
43
44static int reise(string str)
45{
46 mixed t, ship, dstr;
47 string mit, nach, s1, s2;
48 int i;
49
50 _notify_fail("Syntax: reise mit <transportmittel> nach <zielort>\n\n"
51 "Weitere Syntaxen moeglich, bitte 'hilfe reise' lesen.\n");
52
53 t = QueryProp(P_TRAVEL_INFO);
54
55 if (!pointerp(t) || (sizeof(t) < 4) || !objectp(t[0]) || !objectp(t[1]))
56 {
57 SetProp(P_TRAVEL_INFO, t = 0);
58 }
59/* * * *
60 * REISE
61 * * * */
62 if (!str)
63 {
64 if (!t)
65 {
66 write("Du hast keine Reiseroute festgelegt.\n");
67 }
68 else if (t[0] == environment())
69 {
70 if (environment()->id("Transporter"))
71 {
72 write(sprintf("Du reist mit %s%s.\n",environment()->name(WEM,1),
73 t[2]?" "+t[3]:""));
74 }
75 else
76 {
77 write(sprintf("Du wirst mit %s%s reisen.\n",t[1]->name(WEM,1),
78 t[2]?" "+t[3]:""));
79 }
80 }
81 else
82 {
83 write(sprintf("Deine letzte Route (mit %s%s) ist hier nicht wirksam.\n",
84 t[1]->name(WEM,1),
85 t[2]?" "+t[3]:""));
86 }
87 return 1;
88 }
89
90 str = lower_case( _unparsed_args() );
91/* * * * * * *
92 * REISE ROUTE
93 * * * * * * */
94 if (str == "route")
95 {
96 string *harbours;
97
98 if (environment()->id("Transporter"))
99 {
100 if (environment()->QueryProp(P_NO_TRAVELING))
101 {
102 write(break_string(
103 capitalize(environment()->name(WER,1))+" hat gar keine "
104 "Reiseroute. Wo Dich das wohl hinfuehrt?",78));
105 return 1;
106 }
107
108 harbours = environment()->QueryHarbours(1);
109
110 if (!sizeof(harbours) || !stringp(harbours[0]))
111 {
112 write("Die Reiseroute "+environment()->name(WESSEN,1)+" ist "
113 +"leider nicht bekannt.\n");
114 }
115 else
116 {
117 write(break_string(capitalize(efun::implode(harbours," - "))+".",78,
118 "Reiseroute "+environment()->name(WESSEN,1)+": ",BS_INDENT_ONCE));
119 }
120 return 1;
121 }
122 if (environment()->QueryProp(P_NO_TRAVELING))
123 {
124 write(break_string("Hier kannst Du leider keine Reiseroute waehlen. "
125 "Was nicht heisst, dass hier kein Transportmittel "
126 "verkehrt.",78));
127 return 1;
128 }
129 if (!pointerp(ship = TRAVELD->HasTransporter(environment())))
130 {
131 _notify_fail("Hier verkehrt kein Transportmittel.\n");
132 return 0;
133 }
134
135 write("Hier verkehren folgende Transportmittel \n"
136 "--------------------------------------- \n");
137
138 for (i = 0; i < sizeof(ship); i++)
139 {
140 if (!ship[i]->Query(P_SHORT)) continue;
141
142 harbours = ship[i]->QueryHarbours(1);
143
144 if (sizeof(harbours) && stringp(harbours[0]))
145 {
146 write(break_string(efun::implode(harbours," - ")+".",78,
147 ship[i]->Query(P_SHORT)+": ",BS_INDENT_ONCE));
148 }
149 else
150 {
151 write(ship[i]->Query(P_SHORT)+": Route unbekannt.\n");
152 }
153 }
154 return 1;
155 }
156/* * * * * * *
157 * REISE AUS
158 * REISE NICHT
159 * * * * * * */
160 if (member((["aus","nicht"]),str))
161 {
162 if (!t)
163 {
164 write("Du hattest keine Reiseroute eingestellt.\n");
165 }
166 else
167 {
168 write("Du loeschst Deine Reiseroute.\n");
169 }
170 SetProp(P_TRAVEL_INFO, 0);
171 return 1;
172 }
173
174 str = regreplace(str,"\\<(zu|zum|zur|ins|ans)\\>","nach",0);
175/* * * * * * * * *
176 * REISE MIT NACH
177 * REISE NACH MIT
178 * * * * * * * * */
179 if ((sscanf(str, "mit %s nach %s", mit, nach) == 2) ||
180 (sscanf(str, "nach %s mit %s", nach, mit) == 2))
181 {
182 _notify_fail("Hier kannst Du leider keine Reiseroute waehlen.\n");
183
184 if (environment()->QueryProp(P_NO_TRAVELING))
185 {
186 return 0;
187 }
188 if (!sizeof(nach))
189 {
190 _notify_fail("Syntax: reise mit <transportmittel> nach <zielort>\n"
191 " reise nach <zielort> mit <transportmittel>\n");
192 return 0;
193 }
194 if (environment()->id("Transporter"))
195 {
196 if (environment()->id(mit))
197 {
198 command("reise nach "+nach);
199 return 1;
200 }
201 else
202 {
203 _notify_fail("Beende erstmal Deine aktuelle Reise mit "+
204 environment()->name(WEM,1)+".\n");
205 return 0;
206 }
207 }
208 if (!pointerp(ship = TRAVELD->HasTransporter(environment(), mit)))
209 {
210 _notify_fail("So ein Transportmittel verkehrt hier nicht.\n");
211 return 0;
212 }
213 for (i = sizeof(ship) -1 ; i >= 0; i--)
214 if (!ship[i]->HasRoute(nach))
215 {
216 ship[i] = 0;
217 }
218
219 ship -= ({0});
220
221 if (pointerp(t) && objectp(t[1]) && (member(ship,t[1]) != -1))
222 {
223 ship = ({ t[1] });
224 }
225 if (sizeof(ship) > 1)
226 {
227 if (object_name(environment()) == ship[0]->HasRoute(nach)[0])
228 {
229 _notify_fail("Aber da bist Du doch bereits.\n");
230 return 0;
231 }
232 write("Dorthin kannst Du mit "+CountUp(map_objects(ship,"name",WEM))
233 +"reisen.\n");
234
235
236 dstr = filter( filter_objects(ship,"short"), lambda( ({'x}),
237 ({ #'==, ({#'environment, 'x}), environment() }) ) );
238
239 if (sizeof(dstr))
240 {
241 ship = dstr[0];
242 }
243 else
244 {
245 ship = ship[0];
246 }
247
248 dstr = ship->HasRoute(nach);
249
250 write(sprintf("Du entscheidest Dich fuer %s und reist %s.\n",
251 ship->name(WEN,1),dstr[1]));
252 }
253 else if (sizeof(ship) < 1)
254 {
255 _notify_fail("Nach '"+capitalize(nach)+"' kann Dich das angegebene "
256 +"Transportmittel leider nicht bringen.\n");
257 return 0;
258 }
259 else
260 {
261 ship = ship[0];
262 dstr = ship->HasRoute(nach);
263
264 if (object_name(environment()) == dstr[0])
265 {
266 _notify_fail("Aber da bist Du doch bereits.\n");
267 return 0;
268 }
269 if (t && stringp(t[2]))
270 {
271 if (t[2] == dstr[0])
272 {
273 _notify_fail("Aber das tust Du doch bereits.\n");
274 return 0;
275 }
276 }
277 write(sprintf("Ok, Du reist nun mit %s %s.\n",
278 ship->name(WEM,1),dstr[1]));
279 }
280 if (environment(ship)==environment() && ship->short())
281 {
282 ship->Enter(this_object());
283 }
284 SetProp(P_TRAVEL_INFO, ({ environment(), ship, dstr[0], dstr[1] }) );
285 return 1;
286 }
287/* * * * * * *
288 * REISE NACH
289 * * * * * * */
290 if (sscanf(str,"nach %s",nach))
291 {
292 _notify_fail("Hier kannst Du leider keine Reiseroute waehlen.\n");
293
294 if (environment()->QueryProp(P_NO_TRAVELING))
295 {
296 return 0;
297 }
298 if (environment()->id("Transporter"))
299 {
300 if (!dstr = environment()->HasRoute(nach))
301 {
302 _notify_fail("Dorthin kann Dich "+environment()->name(WER,1)+
303 " leider nicht bringen.\n");
304 return 0;
305 }
306 if (t && stringp(t[2]))
307 {
308 if (t[2] == dstr[0])
309 {
310 _notify_fail("Aber das tust Du doch bereits.\n");
311 return 0;
312 }
313 }
314 write(sprintf("Ok, Du reist jetzt mit %s %s.\n",
315 environment()->name(WEM,1),dstr[1]));
316
317 if (IS_WIZARD(this_object()))
318 {
319 write("Als Magier nimmst Du natuerlich die Abkuerzung.\n");
320 move(dstr[0],M_NOCHECK);
321 return 1;
322 }
323 SetProp(P_TRAVEL_INFO,({ environment(),
324 environment(),
325 dstr[0],
326 dstr[1] }) );
327
328 if (object_name(environment(ship = environment())) == dstr[0] &&
329 ship->short())
330 {
331 environment()->Leave(this_object());
332
333 if (environment() != ship)
334 {
335 SetProp(P_TRAVEL_INFO, 0);
336 }
337 }
338 return 1;
339 }
340 if (!pointerp(ship = TRAVELD->HasTransporter(environment())))
341 {
342 _notify_fail("Von hier aus kannst Du nicht reisen.\n");
343 return 0;
344 }
345 for (i = sizeof(ship) - 1; i >= 0; i--)
346 if (!ship[i]->HasRoute(nach))
347 {
348 ship[i] = 0;
349 }
350
351 ship -= ({ 0 });
352
353 if (pointerp(t) && objectp(t[1]) && (member(ship,t[1]) != -1))
354 {
355 ship = ({ t[1] });
356 }
357 if (sizeof(ship) > 1)
358 {
359 if (object_name(environment()) == ship[0]->HasRoute(nach)[0])
360 {
361 _notify_fail("Aber da bist Du doch bereits.\n");
362 return 0;
363 }
364
365 write(break_string("Dahin kannst Du mit "
366 +_traveller(map_objects(ship, "name", WEM))+" gelangen.",78));
367
368 dstr = filter(filter_objects(ship,"short"),lambda( ({'x}),
369 ({ #'==, ({#'environment, 'x}), environment() }) ) );
370
371 if (sizeof(dstr))
372 {
373 ship = dstr[0];
374 }
375 else
376 {
377 ship = ship[0];
378 }
379
380 dstr = ship->HasRoute(nach);
381
382 write(sprintf("Du waehlst %s und reist %s.\n",ship->name(WEN,1),
383 dstr[1]));
384 }
385 else if (sizeof(ship) < 1)
386 {
387 _notify_fail("Nach '"+capitalize(nach)+"' kann Dich leider keines der "
388 +"hier verkehrenden Transportmittel bringen.\n");
389 return 0;
390 }
391 else
392 {
393 ship = ship[0];
394 dstr = ship->HasRoute(nach);
395
396 if (object_name(environment()) == dstr[0])
397 {
398 _notify_fail("Aber da bist Du ja bereits.\n");
399 return 0;
400 }
401 else if (t && stringp(t[2]))
402 {
403 if (t[2] == dstr[0])
404 {
405 _notify_fail("Aber das tust Du doch bereits.\n");
406 return 0;
407 }
408 }
409 write(sprintf("Ok, Du reist nun mit %s %s.\n",ship->name(WEM),
410 dstr[1]));
411 }
412 if (IS_WIZARD(this_object()))
413 {
414 write("Als Magier nimmst Du natuerlich die Abkuerzung.\n");
415 move(dstr[0],M_NOCHECK);
416 return 1;
417 }
418 if (environment(ship)==environment() && ship->short())
419 {
420 ship->Enter(this_object());
421 }
422 SetProp(P_TRAVEL_INFO, ({ environment(), ship, dstr[0], dstr[1] }) );
423 return 1;
424 }
425/* * * * * *
426 * REISE MIT
427 * * * * * */
428 if (sscanf(str, "mit %s", mit))
429 {
430 _notify_fail("Hier kannst Du leider keine Reiseroute waehlen.\n");
431
432 if (environment()->QueryProp(P_NO_TRAVELING))
433 {
434 return 0;
435 }
436 if (environment()->id("Transporter"))
437 {
438 if (environment()->id(mit))
439 {
440 _notify_fail("Aber das tust Du doch bereits.\n");
441 return 0;
442 }
443 else
444 {
445 _notify_fail("Beende erstmal Deine aktuelle Reise mit "+
446 environment()->name(WEM,1)+".\n");
447 return 0;
448 }
449 }
450 if (t && objectp(t[1]) && t[1]->id(mit) && t[0] == environment())
451 {
452 _notify_fail("Aber das tust Du doch bereits.\n");
453 return 0;
454 }
455 if (!pointerp(ship = TRAVELD->HasTransporter(environment(),mit)))
456 {
457 _notify_fail("So ein Transportmittel verkehrt hier nicht.\n");
458 return 0;
459 }
460 if (sizeof(ship) > 1)
461 {
462 write("'"+capitalize(mit)+"' koennte "
463 +_traveller(map_objects(ship,"name",WER))+" sein.\n");
464
465 dstr = filter(filter_objects(ship,"short"),lambda( ({'x}),
466 ({ #'==, ({#'environment, 'x}), environment() }) ) );
467
468 if (sizeof(dstr))
469 {
470 ship = dstr[0];
471 }
472 else
473 {
474 ship = ship[0];
475 }
476 write(sprintf("Du waehlst %s.\n", ship->name(WEN,1)));
477 }
478 else if (sizeof(ship) < 1)
479 {
480 notify_fail("So ein Transportmittel verkehrt hier nicht.\n");
481 return 0;
482 }
483 else
484 {
485 ship = ship[0];
486 write(sprintf("Du reist nun mit %s.\n",ship->name(WEM,1)));
487 }
488 if (environment(ship)==environment() && ship->short())
489 {
490 ship->Enter(this_object());
491 }
492 if (pointerp(t) && stringp(t[2]) && stringp(t[3]) &&
493 member(ship->QueryHarbours(),t[2]) != -1)
494 {
495 write("Du behaeltst Dein bisheriges Reiseziel ("+t[3]+") bei.\n");
496 SetProp(P_TRAVEL_INFO, ({ environment(), ship, t[2], t[3] }) );
497 }
498 else
499 {
500 SetProp(P_TRAVEL_INFO, ({ environment(), ship, 0, 0 }) );
501 }
502 return 1;
503 }
504 return 0;
505}
506