… | |
… | |
66 | } |
66 | } |
67 | |
67 | |
68 | sub user_send { |
68 | sub user_send { |
69 | my ($self, $command) = @_; |
69 | my ($self, $command) = @_; |
70 | |
70 | |
|
|
71 | if ($self->{record}) { |
|
|
72 | push @{$self->{record}}, $command; |
|
|
73 | } |
|
|
74 | |
71 | $self->send_command ($command); |
75 | $self->send_command ($command); |
72 | ::status $command; |
76 | ::status $command; |
|
|
77 | } |
|
|
78 | |
|
|
79 | sub start_record { |
|
|
80 | my ($self) = @_; |
|
|
81 | |
|
|
82 | $self->{record} = []; |
|
|
83 | } |
|
|
84 | |
|
|
85 | sub stop_record { |
|
|
86 | my ($self) = @_; |
|
|
87 | return delete $self->{record}; |
73 | } |
88 | } |
74 | |
89 | |
75 | sub map_scroll { |
90 | sub map_scroll { |
76 | my ($self, $dx, $dy) = @_; |
91 | my ($self, $dx, $dy) = @_; |
77 | |
92 | |