#!/usr/bin/perl -w

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

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

  $room = { texture => $txt->texture("blustn"), };         # line 1
  $world = cell ( name => "Hello World", room => $room );  # line 2
  $world->{debug} = 1;
  $bunch = worldAsBunch ( 0, 0, 0, 32, 32, 16, $world );   # line 3

  return $bunch;
  }

# EOF
1;

