… | |
… | |
389 | pl->ob->enter_exit (dummy); |
389 | pl->ob->enter_exit (dummy); |
390 | dummy->destroy (); |
390 | dummy->destroy (); |
391 | new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned."); |
391 | new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned."); |
392 | new_draw_info (NDI_UNIQUE, 0, op, "OK."); |
392 | new_draw_info (NDI_UNIQUE, 0, op, "OK."); |
393 | |
393 | |
394 | return 1; |
|
|
395 | } |
|
|
396 | |
|
|
397 | /** |
|
|
398 | * Teleport next to target player. |
|
|
399 | */ |
|
|
400 | |
|
|
401 | /* mids 01/16/2002 */ |
|
|
402 | int |
|
|
403 | command_teleport (object *op, char *params) |
|
|
404 | { |
|
|
405 | int i; |
|
|
406 | object *dummy; |
|
|
407 | player *pl; |
|
|
408 | |
|
|
409 | if (!op) |
|
|
410 | return 0; |
|
|
411 | |
|
|
412 | if (params == NULL) |
|
|
413 | { |
|
|
414 | new_draw_info (NDI_UNIQUE, 0, op, "Usage: teleport <player>."); |
|
|
415 | return 1; |
|
|
416 | } |
|
|
417 | |
|
|
418 | pl = get_other_player_from_name (op, params); |
|
|
419 | if (!pl) |
|
|
420 | return 1; |
|
|
421 | |
|
|
422 | i = find_free_spot (pl->ob, pl->ob->map, pl->ob->x, pl->ob->y, 1, 9); |
|
|
423 | if (i == -1) |
|
|
424 | { |
|
|
425 | new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to teleport to."); |
|
|
426 | return 1; |
|
|
427 | } |
|
|
428 | |
|
|
429 | dummy = object::create (); |
|
|
430 | EXIT_PATH (dummy) = pl->ob->map->path; |
|
|
431 | EXIT_X (dummy) = pl->ob->x + freearr_x[i]; |
|
|
432 | EXIT_Y (dummy) = pl->ob->y + freearr_y[i]; |
|
|
433 | op->enter_exit (dummy); |
|
|
434 | dummy->destroy (); |
|
|
435 | if (!op->contr->hidden) |
|
|
436 | new_draw_info (NDI_UNIQUE, 0, pl->ob, "You see a portal open."); |
|
|
437 | new_draw_info (NDI_UNIQUE, 0, op, "OK."); |
|
|
438 | return 1; |
394 | return 1; |
439 | } |
395 | } |
440 | |
396 | |
441 | /** |
397 | /** |
442 | * This function is a real mess, because we're stucking getting |
398 | * This function is a real mess, because we're stucking getting |