sub pay_daily_wages {
	
	#check the user is logged in
	if($settings[1]) {

	######## Begin Gold ########

	#open user's gold information file
	fopen(FILE, "$memberdir/$username.gold");
	@c_gold=<FILE>;
	close(FILE);
	
	#Find the date the gold was last payed
	($before,$middle,$after) = split(/\//, $c_gold[1]);
	($after_2,$c_time) = split(/\ at /, $after);
	$day = $before;
	$month = $middle;
	$year = $after_2;

	#Find today's date to compare
	($before1,$middle1,$after1) = split(/\//, $date);
	($after_3,$c_time2) = split(/\ at /, $after1);
	$day1 = $before1;
	$month1 = $middle1;
	$year1 = $after_3;

		#Check it's a new day, month or year
		if($day1 > $day || $month1 > $month || $year1 > $year) {

			#Make things easier and define a gold scalar
			$gold = $c_gold[0];
	
			#add the gold
			$n_gold = $gold + 90;

			#Change user's gold file
			fopen(FILE, ">$memberdir/$username.gold");
			print FILE "$n_gold\n"; #The new amout of gold
			print FILE "$date";	#Today's date
			close(FILE);

			###### End Gold	########

			###### Reduce stats by 2% #######
			fopen(FILE, "$memberdir/$username.HP");
			@c_HP=<FILE>;
			close(FILE);

			fopen(FILE, "$memberdir/$username.MP");
			@c_MP=<FILE>;
			close(FILE);

				#calculate HP
 				$HPperc = $c_HP[0] / 100 * 2;
 				$newHP = $c_HP[0] - $HPperc; 
				if($newHP > 1) { @c = split(/\./, $newHP); $newHP = "$c[0]"; }
 				if($newHP < 1) { $newHP = "1"; }

			fopen(FILE, ">$memberdir/$username.HP");
			print FILE "$newHP";
			close(FILE);

  				#calculate MP
 				$MPperc = $c_MP[0] / 100 * 2;
 				$newMP = $c_MP[0] - $MPperc;
 				if($newMP > 1) { @c = split(/\./, $newMP); $newMP = "$c[0]"; } 
				if($newMP < 1) { $newMP = "1"; } 

			fopen(FILE, ">$memberdir/$username.MP");
			print FILE "$newMP";
			close(FILE);
		}
 	}

}
1;