#!/usr/bin/perl -w

# (c) Copyright by Tels 1999-2000. All Rights Reserved.
# file to be called via "perl vtutorial.pl 2"

sub createWorld
  {
  my ($txt,$gf) = @_; # get texture mapping and gamfile as params
  print "Tutorial Section 2\n\n";

  $room = { texture => $txt->texture("wood"), 
            floortexture => $txt->texture('brick'),
            ceilingtexture => $txt->texture('rufgry'),
    };                                                     # line 1

  $room1 = cell ( name => "Room 1", size => 16 );          # line 2
  $room2 = cell ( name => "Room 2", size => 16 );          # line 3
  $world = cell ( name => "Hello World", room => $room, 
    div => inX(),                                          # line 4 
    cells => [ $room1, $room2, ]);                         # line 5

  $world->{debug} = 1;
  $bunch = worldAsBunch ( 0, 0, 0, 32, 32, 16, $world );   # line 3

  return $bunch;
  }

# EOF
1;

