0,0 → 1,159 |
############################################################################### |
# |
# map.pl - Map definition |
# |
## Copyright (C) 2009 Rainer Walther (rainerwalther-mail@web.de) |
# |
# Creative Commons Lizenz mit den Zusaetzen (by, nc, sa) |
# |
# Es ist Ihnen gestattet: |
# * das Werk vervielfältigen, verbreiten und öffentlich zugänglich machen |
# * Abwandlungen bzw. Bearbeitungen des Inhaltes anfertigen |
# |
# Zu den folgenden Bedingungen: |
# * Namensnennung. |
# Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen. |
# * Keine kommerzielle Nutzung. |
# Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden. |
# * Weitergabe unter gleichen Bedingungen. |
# Wenn Sie den lizenzierten Inhalt bearbeiten oder in anderer Weise umgestalten, |
# verändern oder als Grundlage für einen anderen Inhalt verwenden, |
# dürfen Sie den neu entstandenen Inhalt nur unter Verwendung von Lizenzbedingungen |
# weitergeben, die mit denen dieses Lizenzvertrages identisch oder vergleichbar sind. |
# |
# Im Falle einer Verbreitung müssen Sie anderen die Lizenzbedingungen, unter welche dieses |
# Werk fällt, mitteilen. Am Einfachsten ist es, einen Link auf diese Seite einzubinden. |
# |
# Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie die Einwilligung |
# des Rechteinhabers dazu erhalten. |
# |
# Diese Lizenz lässt die Urheberpersönlichkeitsrechte unberührt. |
# |
# Weitere Details zur Lizenzbestimmung gibt es hier: |
# Kurzform: http://creativecommons.org/licenses/by-nc-sa/3.0/de/ |
# Komplett: http://creativecommons.org/licenses/by-nc-sa/3.0/de/legalcode |
# |
############################################################################### |
## |
# 2009-03-06 0.0.1 rw created |
# 2009-04-01 0.1.0 rw RC1 |
# 2009-04-18 0.1.1 rw Select default map, if configured map does not exist |
# 2009-07-22 0.1.2 rw Offset_x and Offset_y for adjustment of map calibration |
# 2009-08-15 0.1.3 rw Tracking Antenne Home position added |
# Player home position added |
# Read map definition from XML file |
# |
############################################################################### |
|
$Version{'map/map.pl'} = "0.1.3 - 2009-08-15"; |
|
use XML::Simple; # http://search.cpan.org/dist/XML-Simple-2.18/lib/XML/Simple.pm |
|
%Maps = |
( |
Default => { |
'Name' => "Default", |
'Size_X' => '800', |
'Size_Y' => '600', |
'File' => 'default-800.gif', |
|
'P1_x' => '71', # calibration P1, P2 |
'P1_y' => '472', |
'P2_x' => '500', |
'P2_y' => '103', |
'P1_Lat' => '48.856253', |
'P1_Lon' => '2.3500000', |
'P2_Lat' => '54.090153', |
'P2_Lon' => '12.133249', |
|
# 'Offset_x' => 5, # Optional Pixel offset MK to right |
# 'Offset_y' => 5, # Optional pixel offset MK to top |
|
# 'Home_Lat' => '54.090153', # Optional home position for player |
# 'Home_Lon' => '12.133249', # Optional home position for player |
|
|
# 'Track_Lat' => '49.685333', # Optional Tracking Antenna pos |
# 'Track_Lon' => '10.950134', # Optional Tracking Antenna pos |
# 'Track_Alt' => '500', # Optional Tracking Antenna altitude |
# 'Track_Bearing' => 10, # Optional Tracking antenne direction |
|
# 'Border' => [ 555, 430, # airfield border |
# 516, 555, |
# 258, 555, |
# 100, 300, |
# 580, 260, |
# 530, 94, |
# 627, 130, |
# 735, 300, |
# 680, 400, |
# 757, 470, |
# 720, 515, |
# 575, 420, |
# ], |
}, |
); |
|
|
# |
# load additional Maps from XML files |
# |
my $MapDir = $Cfg->{'map'}->{'MapDir'} || "map"; |
if ( -d $MapDir ) |
{ |
opendir DIR, $MapDir; |
my @Files = readdir DIR; |
@Files = grep /\.xml$/, @Files; |
closedir DIR; |
|
foreach $Xml (@Files) |
{ |
my $MapConfigFile = "$MapDir/$Xml"; |
if ( -f $MapConfigFile ) |
{ |
my $XmlMap = XMLin($MapConfigFile); |
|
foreach $Location (keys %{$XmlMap}) |
{ |
foreach $Key (keys %{$XmlMap->{$Location}} ) |
{ |
my $Value = $XmlMap->{$Location}->{$Key}; |
if ( $Key =~ /Border/i ) |
{ |
$Value =~ s/\s//g; |
my @Border = split ',', $Value; |
@{$Maps{$Location}->{$Key}} = @Border; |
} |
else |
{ |
$Maps{$Location}->{$Key} = $Value; |
} |
} |
} |
} |
} |
} |
|
|
# |
# Die verwendete Karte |
# |
my $MapDefault = $Cfg->{'map'}->{'MapDefault'}; |
if ( defined $Maps{$MapDefault} ) |
{ |
$Maps{'Current'} = $Maps{$MapDefault}; |
} |
else |
{ |
$Maps{'Current'} = $Maps{'Default'}; |
print "Map \"$MapDefault\" not found in map.pl. Using \"Default\" map\n"; |
} |
|
|
# |
# Todo: Karte automatisch anhand der aktuellen GPS Position auswählen |
# |
|
1; |
|
__END__ |