… | |
… | |
18 | my ($tr, $ob) = @_; |
18 | my ($tr, $ob) = @_; |
19 | |
19 | |
20 | return unless $ob->type == cf::PLAYER; |
20 | return unless $ob->type == cf::PLAYER; |
21 | |
21 | |
22 | if ($ob->contr->attached ("transport_player_steer")) { |
22 | if ($ob->contr->attached ("transport_player_steer")) { |
23 | $ob->message ("You stop steering the " . $tr->name . "."); |
23 | $ob->message ("You stop steering the " . $tr->name . ".", cf::NDI_ORANGE | cf::NDI_REPLY); |
24 | $ob->contr->detach ("transport_player_steer"); |
24 | $ob->contr->detach ("transport_player_steer"); |
25 | } else { |
25 | } else { |
26 | $ob->message ("You now steer the " . $tr->name . "."); |
26 | $ob->message ("You now steer the " . $tr->name . ".", cf::NDI_ORANGE | cf::NDI_REPLY); |
27 | $ob->contr->attach ("transport_player_steer"); |
27 | $ob->contr->attach ("transport_player_steer"); |
28 | } |
28 | } |
29 | |
29 | |
30 | cf::override; |
30 | cf::override; |
31 | }, |
31 | }, |