… | |
… | |
33 | $bird->insert_ob_in_map_at ($map, $caster, cf::INS_ON_TOP, $x + $dx, $y + $dy) |
33 | $bird->insert_ob_in_map_at ($map, $caster, cf::INS_ON_TOP, $x + $dx, $y + $dy) |
34 | or last; |
34 | or last; |
35 | |
35 | |
36 | $pl->set_viewpoint ($bird); |
36 | $pl->set_viewpoint ($bird); |
37 | $caster->speed_left (-1); |
37 | $caster->speed_left (-1); |
38 | cf::wait_for_tick; |
38 | $cf::WAIT_FOR_TICK->wait; |
39 | } |
39 | } |
40 | |
40 | |
41 | $pl->set_viewpoint (undef); |
41 | $pl->set_viewpoint (undef); |
42 | $caster->speed_left (0); |
42 | $caster->speed_left (0); |
43 | $bird->destroy; |
43 | $bird->destroy; |