view release on metacpan or  search on metacpan

RTB/RTB.pm  view on Meta::CPAN

}

###
sub process_lines
{
        my $self = shift;
        while(my @l = $select->can_read(0.1))
        {
                my $hd = $l[0];
                my $msg = <$hd>;
                chomp($msg);
                print LOG "<--- $msg\n" if $self->{Log};
                my ($cmd, @options) = split' ',$msg;
                $cmd = 'Unknown' unless exists $actions{ $cmd };
                $actions{ $cmd }->($self, @options)
        }
}

###
sub initialize
{
        my ($self, $num) = @_;
        if ($num == 1)
        {
                $self->Name;
                $self->Colour;
        }
}

###
sub your_name
{
        my ($self, $name) = @_;
        $self->{Name} = $name;
}

###
sub your_colour
{
        my ($self, $name) = @_;
        $self->{Colour} = $name;
}

###
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) = @_;

}

###
sub info
{
        my ($self, $time, $speed, $cannon_angle) = @_;
}

###
sub robot_info
{
        my ($self, $energy, $teammate) = @_;
        $self->{Energy} = $energy;
}

###
sub rotation_reached
{
        my ($self, $what) = @_;
}

###
sub energy
{
        my ($self, $energy) = @_;
        $self->{Energy} = $energy;
}

###
sub robots_left
{
        my ($self, $robotsleft) = @_;
}

###
sub collision
{
        my ($self, $object_type, $angle) = @_;
}

###
sub warning
{
        my ($self, $warning_type, $msg) = @_;
}

###
sub dead
{

}

###
sub game_finish
{

}