22 lines
410 B
Perl
22 lines
410 B
Perl
#!/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");
|
|
|