--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/28 19:25:55	1.8
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/29 19:30:28	1.9
@@ -68,10 +68,25 @@
 sub user_send {
    my ($self, $command) = @_;
 
+   if ($self->{record}) {
+      push @{$self->{record}}, $command;
+   }
+
    $self->send_command ($command);
    ::status $command;
 }
 
+sub start_record {
+   my ($self) = @_;
+
+   $self->{record} = [];
+}
+
+sub stop_record {
+   my ($self) = @_;
+   return delete $self->{record};
+}
+
 sub map_scroll {
    my ($self, $dx, $dy) = @_;