@last_post      = split (/||/, $rev_this_topic[0]);
	$last_post_num  = $last_post[1];

	# Minutes after first reply before we allow a second
	# Set to 0 to disable time constraints
	my $time_to_allow_spam = 60;
	my $allow_staff_bypass = true;
	
	if(
		( $last_post[11] eq $user_number ) && 
		!( (&is_admin_or_mod($in{f}, @user_profile) eq 'true') && ($allow_staff_bypass == true) ) 
	)
	{
		# Last post was made by same account as this user
		if( $time_to_allow_spam > 0 )
		{
			$that_unix = &ConvertPostTimeToUnixEpoch( $last_post[3], $last_post[4] );
			if( ($GotTime{CurrentEpoch} - ($time_to_allow_spam * 60)) < $that_unix )
			{
				&StandardHTML("I'm sorry, but you cannot make another post without someone replying first, or until $time_to_allow_spam minutes have passed");
			}			
		}
		else
		{
			&StandardHTML("I'm sorry, but you cannot make another post without someone replying first.");
		}		
	}
	# End no double post mod

	# Begin no double post mod

	# Minutes after first reply before we allow a second
	# Set to 0 to disable time constraints
	my $time_to_allow_spam = 60;
	my $allow_staff_bypass = true;

	if(
		( $last_post[11] eq $user_number ) && 
		!( (&is_admin_or_mod($in{f}, @user_profile) eq 'true') && ($allow_staff_bypass == true) ) 
		&& ($in{f} !~ /^(1|3|23)$/i )
	)
	{
		# Last post was made by same account as this user
		if( $time_to_allow_spam > 0 )
		{
			$that_unix = &ConvertPostTimeToUnixEpoch( $last_post[3], $last_post[4] );
			if( ($GotTime{CurrentEpoch} - ($time_to_allow_spam * 60)) < $that_unix )
			{
				&StandardHTML("I'm sorry, but you cannot make another post without someone replying first, or until $time_to_allow_spam minutes have passed");
			}			
		}
		else
		{
			&StandardHTML("I'm sorry, but you cannot make another post without someone replying first.");
		}		
	}
	
	# End no double post mod

##################################################
# Title: No Double Posting by Username or IP Hack
# Author: Ben (Phoenix-Flame/PF)
# Email: Phoenix-Flame@ffaddicts.com
# Date: 6th April 2002
#
#
# Files Modified:
#  ubb_new_reply.cgi
#  vars_wordlets_err.cgi
#
# Disclaimer:
#  Simple: You can't blame/sue me for anything whilst using (or trying to use) this hack.
###########################

#############
#
# In vars_wordlets_err.cgi
#
# Find:
##

invalid_number => "You have entered a value that is not a number for:",

##
# Add these after it
##

double_post_user => "Sorry, we do not allow double posting, please use the edit button to add to your previous message.",
double_post_ip => "Sorry, someone using the same IP address as you was the last person to post in this message",

##
# Save and Upload
##############

#############
#
# In ubb_new_reply.cgi
#
# Find:

if ($vars_misc{FloodCheck} eq 'ON') {
# floodcheck courtesy of Michael Farris
chomp($user_profile[8]);
   &floodcheck unless (($user_profile[8] eq 'Administrator') || ($user_profile[8] eq 'MegaModerator') || ($user_profile[8] eq 'Moderator'));
   }
   
##
# or (if MegaMod hack isn't installed)
##

if ($vars_misc{FloodCheck} eq 'ON') {
# floodcheck courtesy of Michael Farris
chomp($user_profile[8]);
   &floodcheck unless (($user_profile[8] eq 'Administrator') || ($user_profile[8] eq 'Moderator'));
   }
   
##
# Add this afterwards (remove the MegaMod part if you dont have the MegaMod hack installed)
##

# grab topic (a bit earlier now) ;)
@this_topic = &OpenTopic($in{t}, $in{f});

# grab last post (a bit earlier now) ;)
@rev_this_topic = reverse(@this_topic);
@last_post = split(/||/, $rev_this_topic[0]);

if ($username eq $last_post[2])
{
	&StandardHTML("$vars_wordlets_err{double_post_user}") unless (($user_profile[8] eq 'Administrator') || ($user_profile[8] eq 'MegaModerator') || ($user_profile[8] eq 'Moderator') || (length($last_post[6]) > 10000));
} else {
	if ($ip_number eq $last_post[7])
	{
		&StandardHTML("$vars_wordlets_err{double_post_ip}") unless (($user_profile[8] eq 'Administrator') || ($user_profile[8] eq 'MegaModerator') || ($user_profile[8] eq 'Moderator'));
	}
}

##
# Find and Remove
##

# grab topic
@this_topic = &OpenTopic($in{t}, $in{f});

##
# Find and Remove
##

# grab last post
@rev_this_topic = reverse(@this_topic);
@last_post = split(/||/, $rev_this_topic[0]);

##
# Save and Upload
##############

# And you're all done