MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame^] | 1 | |
| 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 | |
| 32 | void create(){} |
| 33 | |
| 34 | private 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 | |
| 44 | static 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 | |