Acme-RTB
view release on metacpan or search on metacpan
RobotsLeft
Collision
Warning
Dead
GameFinishes
Unknown
$robot->modify_action( Radar => \&my_radar );
$robot->modify_action( GameStarts => \&my_gamestart);
$robot->modify_action( Collision => \&my_collision);
Here are the parameters that you recieve from the server:
=head3 Initialize [first? (int)]
This is the very first message the robot will get. If the argument is one, it is the first sequence in the tournament and it should send Name and Colour to the server, otherwise it should wait for YourName and YourColour messages (see below).
=head3 YourColour [colour (hex)]
Current colour of the robot, change it if you find it ugly.
=head3 GameOption [optionnr (int)] [value (double)]
At the beginning of each game the robots will be sent a number of settings, which can be useful for the robot. For a complete list of these, look in the file Messagetypes.h for the game_option_type enum. In the options chapter you can get more detail...
=head3 GameStarts
This message is sent when the game starts (surprise!)
=head3 Radar [distance (double)] [observed object type (int)] [radar angle (double)]
This message gives information from the radar each turn. Remember that the radar-angle is relative to the robot front; it is given in radians.
=head3 Info [time (double)] [speed (double)] [cannon angle (double)]
The Info message does always follow the Radar message. It gives more general information on the state of the robot. The time is the game-time elapsed since the start of the game. This is not necessarily the same as the real time elapsed, due to time ...
=head3 Coordinates [x (double)] [y (double)] [angle (double)]
Tells you the current robot position. It is only sent if the option Send robot coordinates is 1 or 2. If it is 1 the coordinates are sent relative the starting position, which has the effect that the robot doesn't know where it is starting, but only ...
=head3 RobotInfo [energy level (double)] [teammate? (int)]
If you detect a robot with your radar, this message will follow, giving some information on the robot. The opponents energy level will be given in the same manner as your own energy (see below). The second argument is only interesting in team-mode (w...
=head3 RotationReached [what has reached(int)]
When the robot option SEND_ROTATION_REACHED is set appropriately, this message is sent when a rotation (with RotateTo or RotateAmount) has finished or the direction has changed (when sweeping). The argument corresponds to 'what to rotate' in e.g. Rot...
=head3 Energy [energy level(double)]
When a robot hits (or is hit by) something it gets this message. In the file Messagetypes.h you can find a list of the object types. You get the angle from where the collision occurred (the angle relative the robot) and the type of object hitting you...
=head3 Warning [warning type (int)] [message (string)]
A warning message can be sent when robot has to be notified on different problems which have occured. Currently seven different warning messages can be sent, namely
UNKNOWN_MESSAGE: The server received a message it couldn't recognize.
PROCESS_TIME_LOW: The CPU usage has reached the CPU warning percentage. Only in competition-mode.
MESSAGE_SENT_IN_ILLEGAL_STATE: The message received couldn't be handled in this state of the program. For example Rotate is sent before the game has started.
UNKNOWN_OPTION: The robot sent a robot option with either illegal option name or illegal argument to that option.
OBSOLETE_KEYWORD: The keyword sent is obsolete and should not be used any more, see the ChangeLog file for information on what to use instead.
NAME_NOT_GIVEN: The robot has not sent its name before the game begins. This happens if the robot startup time is too short or the robot does not send its name early enough.
COLOUR_NOT_GIVEN: The robot has not sent its colour before the game begins.
=head3 Dead
Robot died. Do not try to send more messages to the server until the end of the game, the server doesn't read them.
=head3 GameFinishes
Current game is finished, get prepared for the next!
Print message on the message window if in debug-mode.
=over 4
=head2 DebugLine [angle1 (double)] [radius1 (double)] [angle2 (double)] [radius2 (double)]
=back
Draw a line direct to the arena. This is only allowed in the highest debug level(5), otherwise a warning message is sent. The arguments are the start and end point of the line given in polar coordinates relative to the robot.
=over 4
=head2 DebugCircle [center angle (double)] [center radius (double)] [circle radius (double)]
=back
Similar to DebugLine above, but draws a circle. The first two arguments are the angle and radius of the central point of the circle relative to the robot. The third argument gives the radius of the circle.
use Acme::RTB;
my $robot = Acme::RTB->new({ Name => 'Killer Montses',
Colour => 'ff0000 ff0000',
Log => '/home/anarion/perl/rtb/anarion.log'} );
$robot->modify_action( Radar => \&my_radar );
$robot->modify_action( GameStarts => \&my_gamestart);
$robot->modify_action( Collision => \&my_collision);
$robot->Start;
sub my_radar
{
my ($self, $dist, $obj, $angle) = @_;
for($obj)
{
/0/ && do { robot($dist,$angle) };
/1/ && do { dodge($dist,$angle) };
/2/ && do { turn($dist,$angle) };
/3/ && do { cookie($dist,$angle) };
/4/ && do { mine($dist,$angle) };
}
}
sub my_gamestart
{
my $self = shift;
my $speed = rand(1)+1;
my $angle = rand(0.4)-0.8;
$self->Accelerate($speed);
$self->RotateAmount(7,rand(2),rand(5));
}
sub my_collision
STDOUT->autoflush(1);
STDERR->autoflush(1);
my $select = IO::Select->new();
$select->add(*STDIN);
my %actions = ( Initialize => \&initialize,
YourName => \&your_name,
YourColour => \&your_color,
GameOption => \&game_option,
GameStarts => \&game_starts,
Radar => \&radar,
Info => \&info,
RobotInfo => \&robot_info,
RotationReached => \&rotation_reached,
Energy => \&energy,
RobotsLeft => \&robots_left,
Collision => \&collision,
Warning => \&warning,
Dead => \&dead,
GameFinishes => \&game_finish,
}
###
sub game_option
{
my $self = shift;
%options = split' ',shift;
}
###
sub game_starts
{
}
###
sub radar
{
# Objects: Robot=0, Shot=1, Wall=2, Cookie=3, Mine=4, LAST=5
my ($self, $dist, $obj, $angle) = @_;
( run in 0.289 second using v1.01-cache-2.11-cpan-0d8aa00de5b )