24 lines
509 B
Perl
Executable File
24 lines
509 B
Perl
Executable File
#!/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");
|
|
|