[ghanja]

This assumes you have Perl DBI installed.


/plugins/statusupdate.pl

sub UpdateStatus {
	my $idargument = $_[0];
	my $statuslevel = $_[1];
	my $dbh = plugin::MySQL_Connect();
	my $query = "UPDATE account SET status = ".$statuslevel." WHERE id = ".$idargument.";";
	$dbh->do($query);
	$dbh->disconnect();
	$client->UpdateAdmin();
}

return 1;

sub EVENT_SAY {
	if ($status == 0) {
		UpdateStatus($client->AccountID(),1);
	}
}

You could substitute 1 for whatever status level you want of course (0-255 anyway).