sub world_location
{
        my ($self) = @_;
        return ($self->{x}, $self->{y});
}