pl.pl

#Parser.pm
elsif ($kw eq 'rndxy')      {$ret = getRandomCoords($arg); $randomized = 1}


#Utilities.pm
sub getRandomCoords {
	return ((int(rand(($_[0]+$_[2])-($_[0]-$_[2])+1))+($_[0]-$_[2]))." ".
			(int(rand(($_[1]+$_[2])-($_[1]-$_[2])+1))+($_[1]-$_[2]))
		   ) if (@_ = split(/,\s*/, $_[0])) or return "0 0";
}

# @rndxy(150,150,5)
# u get random <145to155> <145to155>
#
#
#
#

sub getRandomCoords {
    return join ' ', (@_ = split /,/, $_[0]) ? ($_[0] - $_[2] + int rand 1 + 2 * $_[2], $_[1] - $_[2] + int rand 1 + 2 * $_[2]) : (0, 0);
}