Miscellany

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
	case LowerCase(GetPiece(Text,' ',0)) of
		'!pause': begin
			Command('/pause');
		end;
		'!unpause': begin
			Command('/say 3...');
			Sleep(1000);
			Command('/say 2...');
			Sleep(1000);
			Command('/say 1...');
			Sleep(1000);
			Command('/unpause');
		end;
		'!unbanlast': begin
			Command('/unbanlast');
		end;
		'!map': begin
			Command('/map '+Copy(Text,6,Length(Text)-4));
		end;
	end;
end;