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

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);
#GetAsset('aka.vs')->start();
SetBackgroundColor(128, 128, 128, 255);
ShowSprite('aka', 'aka.vs', 10, 10, 1);
ShowSprite('aka2', 'aka.vs', 200, 10, 1);

Run();

LogData(STATUS, "Tearing down");