rendered paste body{
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..." ); }
}
},
}