| 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__ |