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

my $screen_width = 1024;
my $screen_height = 768;

LogData(STATUS, "Starting up");
PerlRPG::Game::ScanDirectory('.');
my $app = PerlRPG::Game::InitApp($screen_width, $screen_height);
{
	my $a=PerlRPG::Game::GetAsset('aka.vs');
	$a->start();
	
}
PerlRPG::Game::RunScript('__init__');
PerlRPG::Game::Run();

LogData(STATUS, "Tearing down");