#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;

	# Make sure that this command is not spoofed, just in case.
	if ($_{avatar} != $this) {
		fail "No!";
	}
	
	my ($stat, $msg) = $this->safechange(
		object => $_{direct_object},
		field => $_{quote}.".cmd",
		unset => 1,

		object => $_{direct_object},
		field => $_{quote}.".msg",
		unset => 1,
	);

	if (! $stat) {
		fail $msg;
	}
	else {
		$_{session}->write("Command removed.");
	}
}
