| … | |
… | |
| 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; |
