use lib "../../HollyGame";

package Ultima8::WorldObject;

sub WorldObject {
        my ($class, $x, $y, $z, $w, $h, $d) = @_;

        $self = { x => $x, y => $y, z => $z, w => $w, h => $h, d => $d };

        return bless $self, ref($class) || $class;
}


##</code><code>##

$self->{octtree} = Ultima8::OctTree->OctTree(4000,4000,200,(WorldObject->WorldObject(100,100,100,100,100,100)));

##</code><code>##

$self->{rootnodes}{$level} .= $obj;