#! perl

# wrapper to run the urlader-packaged client

our $URLADER = 1;

@INC = (
   "pm",
   ".", # AutoLoader requires this in newer versions. yup. yup. yup :(
   sub {
      return if $_[1] eq "Log/Agent.pm"; # Storable has this idiotic optional dependency
      warn "$_[1]: file not found, packaging error?\n";
      ()
   },
);

#############################################################################
# splash-screen

our @STARTUP_DONE;

if ($^O eq "MSWin32") {
   require Win32::GUI::SplashScreen;

   Win32::GUI::SplashScreen::Show (
      -file => "SPLASH.bmp",
   );

   push @STARTUP_DONE, sub {
      Win32::GUI::SplashScreen::Done (1);
   };
}

$ENV{PANGO_RC_FILE} = "pango.rc";

require "bin/deliantra";