#!/usr/bin/perl
use strict;
use warnings;
use lib 'lib';
use Games::PangZero;
eval {
Games::PangZero::Initialize();
#Games::PangZero::DoDemo() while 1;
#while (1) { Games::PangZero::DoRecordDemo(); $Games::PangZero::App->delay(2000); }
while (1) {
Games::PangZero::MainLoop();
}
};
if ($@) {
my $errorMessage = $@;
Games::PangZero::ShowErrorMessage($errorMessage);
die $errorMessage;
}