my $auction = 0;

sub auction {

	my ($name) = @_;

	if ($name eq 'a_timer') {
		$world->EnableTimer('a_timer', 0);
		$world->ResetTimer('a_timer');
		$world->setstatus('Ready');
	}
	else {
		my $a = $world->GetTriggerInfo($name,101);
		my $b = $world->GetTriggerInfo($name,102);
		my $c = $world->GetTriggerInfo($name,103);

		if ($name eq 'a_new') {
			$b =~ s/,//g;
			$b =~ s/for //;
			$world->setstatus('Auction: (0) '.$b.' for '.$a);
			$auction = $b;
			$world->EnableTimer('a_timer', 0);
			$world->ResetTimer('a_timer');
		}
		elsif ($name eq 'a_bid') {
			$a =~ s/,//g;
			$a =~ s/for //;
			$world->setstatus('Auction: (0) '.$a.' for '.$b);
			$auction = $a;
		}
		elsif ($name eq 'a_once') {
			if ($b eq '(bid not received yet)') { $world->setstatus('Auction: (1) '.$auction.' for '.$a); }
			else {
				$b =~ s/,//g;
				$b =~ s/for //;
				$world->setstatus('Auction: (1) '.$b.' for '.$a);
			}
		}
		elsif ($name eq 'a_twice') {
			if ($b eq '(bid not received yet)') { $world->setstatus('Auction: (2) '.$auction.' for '.$a); }
			else {
				$b =~ s/,//g;
				$b =~ s/for //;
				$world->setstatus('Auction: (2) '.$b.' for '.$a);
			}
		}
		elsif ($name eq 'a_sale') {
			$c =~ s/,//g;
			$c =~ s/for //;
			$world->setstatus('Auction: (S) '.$c.' for '.$a.' to '.$b);
			$auction=0;
			#$world->EnableTimer('a_timer', 1);
		}
		elsif ($name eq 'a_nosale') {
			$world->setstatus('Auction: (X) '.$auction.' for '.$a);
			$auction=0;
			#$world->EnableTimer('a_timer', 1);
		}
		else { }
	}
}