#!/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;
}