{
	superuser=>0,
	syntax=>qr/slots/,
	addressed => 1,
	code => sub {
		my( $self, $said, $callback, $one, $two, $three ) = @_;
		
		$random=int(rand(1)+1);
		$random2=int(rand(1)+1);
		$random3=int(rand(1)+1);
		if ($random) {

		if (($random == $random2) && ($random == $random3)) {
			if ($random == 1) {
 			$callback->( "4,1[ $random ][ $random2 ][ $random3 ] You won x2" ); }
	elsif ($random == 2) {
	$callback->( "7,1[ $random ][ $random2 ][ $random3 ] You won x4" ); }
}

		else { $callback->( "1,0[ $random ][ $random2 ][ $random3 ] Loser..." ); }




 }
	
	},
}