#!/usr/bin/perl
use strict;
use PerlRPG::Game;
use PerlRPG::Console;
use PerlRPG::Assets;
use PerlRPG::Drawing;
use PerlRPG::Script;

my $screen_width = 1024;
my $screen_height = 768;
my $asset_directory = 'Resources';

LogData(STATUS, "Starting up");
ScanDirectory($asset_directory);
my $app = InitApp($screen_width, $screen_height);
CompileScripts();
RunScript('__init__');
Run();

LogData(STATUS, "Tearing down");