#!/usr/bin/perl --

#-------------------------------------------------------------------------------
# Program: ramses.pl
# Desc.  : Generate dynamic web-frontend for ramses  internet pages
# Author : Christian Awizio
# Version: V0.1 14.10.2003 Awizio
#          - Initial sourcecode generated
#          V1.0 23.10.2003 Awizio
#          - Finish version 1.0
#          V1.1 05.06.2007 Awizio
#          - several correction and address change
#
#-------------------------------------------------------------------------------

#use lib "d:/Projekte/Homepage";
#use lib "/";
use CGI;
#use awimodules;

$cgibase= new CGI('');
$FontColor='#000000';
#$BGColorout='#A3D6FF';
$BGColorout='white';

#$BGColorin='#DDDDDD';
$BGColorin='#A8C4DC';
$titlestring='@wizio Software Services';

$MODULE='ramses.pl';
$VERSION='1.0 (23.09.12)';

#$ENV{'NLS_LANG'}='ENGLISH_AMERICA.WE8ISO8859P1';

#Get Environmentvalues and connect to the database
&GetParameter();
my $var=$FORM{'page'};

# Generate the given page

if( $var eq 'ramses')
{
	if($FORM{'lang'} eq 'eng')
	{
		&PPCRamses_E();
	} else
	{
		&PPCRamses();
	}
	exit();
} elsif( $var eq 'sokoex')
{
	if($FORM{'lang'} eq 'eng')
	{
		&SokoEx_E();
	} else
	{
		&SokoEx();
	}
	exit();
} elsif( $var eq 'ramsessymbole')
{
	&PPCRamsesSymb();
	exit();
} elsif( $var eq 'datenschutz')
{
	&datenschutz();
	exit();
} else
{
    &PPCRamses();
    
    #	print STDOUT $cgibase->header;
	#print STDOUT "<html>\n";
	#print STDOUT "<head>\n";
	#print STDOUT "   <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n";
	#print STDOUT "   <meta name=\"Author\" content=\"Christian Awizio\">\n";
	#print STDOUT "   <meta name=\"keywords\" content=\"Awizio,JAVA,HTML,CGI,Anwendungssoftware, Individualsoftware,EURO,Jahr-2000,Android, IPhone, IPad\">\n";
    ##	print STDOUT "   <meta http-equiv=\"refresh\" content=\"5; www.awizio.net/cgi-bin/awihome.pl?page=home\">\n";
	#print STDOUT "   <TITLE>$titlestring</TITLE>\n";
	#print STDOUT "</head>\n";
    #print STDOUT "<BODY onLoad=\"javascript: document.location.href='$MODULE?page=ramses&lang='\">\n";
	#&PrintEnd();
}

#-------------------------------------------------------------------------------
#---------------------------------  Subroutines --------------------------------
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
# Function    : PlotHead
# Description : This function show the top html-page
#-------------------------------------------------------------------------------
sub PlotHead
{
	print STDOUT $cgibase->header;
	print STDOUT "<html>\n";
	print STDOUT "<head>\n";
	print STDOUT "<title>$titlestring</title>\n";
    #	print STDOUT "<style type=\"text/css\">\n";
    #	print STDOUT "<!--\n";
    #	print STDOUT "body { }\n";
    #	print STDOUT "#box1 { position:absolute; top:10px; left:10px; width:150px; height:150px; z-index:1; }\n";
    #	print STDOUT "#box2 { position:absolute; top:40px; left:40px; width:100px; height:100px; z-index:2; }\n";
    #	print STDOUT "#box3 { position:absolute; top:80px; left:50px; width:150px; height:150px; z-index:3; }\n";
    #	print STDOUT "#box4 { position:absolute; top:40px; left:20px; width:70px; height:70px; z-index:1;  }\n";
    #	print STDOUT "#box5 { position:absolute; top:60px; left:10px; width:80px; height:80px; z-index:2; }\n";
    #	print STDOUT "#box6 { position:absolute; top:20px; left:50px; width:90px; height:90px; z-index:-1; }\n";
    #	print STDOUT "-->\n";
    #	print STDOUT "</style>\n";
	print STDOUT "</head>\n";
	print STDOUT "<body>\n";
}

#-------------------------------------------------------------------------------
# Function    : TableTop
# Description : This function show the upper side of the background-table
#-------------------------------------------------------------------------------
sub TableTop
{
	print STDOUT "<br>\n";
	print STDOUT "<center>\n";
	print STDOUT "<table border=0 width=80% height=70% cellborder=0 cellspacing=0>\n";
	print STDOUT "<tr><td background=\"pics/contend_ul.png\" width=30 height=32 >&nbsp;</td><td background=\"pics/contend_t.png\" height=32 >&nbsp;</td><td background=\"pics/contend_tr.png\" width=30 height=32 >&nbsp;</td></tr>\n";
	print STDOUT "<tr><td background=\"pics/contend_l.png\" width=30 >&nbsp;</td><td background=\"pics/contend_bg.png\" valign=top>\n";
}
#-------------------------------------------------------------------------------
# Function    : TableBottom
# Description : This function show the lower side of the background-table
#-------------------------------------------------------------------------------
sub TableBottom
{
	print STDOUT "</td><td background=\"pics/contend_r.png\" width=30 >&nbsp;</td></tr>\n";
	print STDOUT "<tr><td background=\"pics/contend_bl.png\" width=30 height=32 >&nbsp;</td><td background=\"pics/contend_b.png\" height=30></td><td background=\"pics/contend_br.png\" width=30 height=30 >&nbsp;</td></tr>\n";
	print STDOUT "<tr><td colspan=3><p align=\"center\"><font face=\"Verdana\" size=\"1\">Copyright &copy; 2003-2019 \@wizio software services UG (haftungsbeschr&auml;nkt). Alle Rechte vorbehalten.</font>\n";
	print STDOUT "</table>\n";
	print STDOUT "</center>\n";
}

#-------------------------------------------------------------------------------
# Function    : PPCRamses
# Description : This function show the frame: informations about Ramses 4 PPC
#-------------------------------------------------------------------------------
sub PPCRamses
{
	print STDOUT $cgibase->header;
	print STDOUT "<html>\n";
	print STDOUT "<head>\n";
	print STDOUT "<title>$titlestring</title>\n";
	print STDOUT "   <script language=\"JavaScript\">\n";
	print STDOUT "   function ShowIcon()\n";
	print STDOUT "   {\n";
	print STDOUT "		var NewWindow;\n";
	print STDOUT "      NewWindow = window.open(\"$MODULE?page=ramsessymbole\",\"ramsessym\",\"height=550,width=300,resizable=no,status=no\");\n";
	print STDOUT "      NewWindow.focus();\n";
	print STDOUT "   }\n";
	print STDOUT "   </script>\n";
	print STDOUT "</head>\n";
	print STDOUT "<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" LINK=\"#008080\" VLINK=\"#004080\" ALINK=\"#008080\">\n";
	print STDOUT "<a name=\"top\"></a>\n";
    
	&TableTop();
	print STDOUT "<center>\n";
    print STDOUT "<font face=\"Verdana\" size=\"2\"><b><a href=\"$MODULE?page=ramses&lang=\">Deutsch</a></font>&nbsp;&nbsp;<font face=\"Verdana\" size=\"1\"><a href=\"$MODULE?page=ramses&lang=eng\">English</a></font></b><br><br>\n";
	print STDOUT "<font face=\"Verdana\" size=\"3\"><b>Ramses f&uuml;r Android / IPhone</font></b><br>\n";
	print STDOUT "<br><img src=\"pics/ppc_ramses.jpg\" align=bottom border=0></img><br></center>\n";
	print STDOUT "<center><table border=0><tr><td witdh=\"350\">\n";
	print STDOUT "<br><ul type=\"square\">\n";
	print STDOUT "<li><a href=\"#hist\"><b><font face=\"Verdana\" size=\"2\">Historie</a>\n";
	print STDOUT "<li><a href=\"#anleitung\"><b><font face=\"Verdana\" size=\"2\">Anleitung</a>\n";
	print STDOUT "<li><a href=\"#download\"><b><font face=\"Verdana\" size=\"2\">Download</a>\n";
	print STDOUT "</ul>\n";
	print STDOUT "</td></tr></table></center>\n";
	print STDOUT "<br><a name=\"hist\"></a>\n";
	print STDOUT "<i><b><font face=\"Verdana\" size=\"3\">Historie</font></b></i><br>\n";
	print STDOUT "<br><font face=\"Verdana\" size=\"2\">\n";
	print STDOUT "Urspr&uuml;nglich wurde das Spiel 'RAMSES' 1992 auf dem Amiga von mir entwickelt und einige Jahre sp&auml;ter\n";
	print STDOUT "auf den PC portiert (~1994). Entsprechend der damaligen Spiele war das Grunddesign und Spielkonzept\n";
	print STDOUT "einfach, aber durchdacht und 'Rund', was den Spielfluss betraf. Es wurde von Anfang an nicht auf\n";
	print STDOUT "eine 100%ige Detailtreue hinsichtlich der geschichtlichen Grundlagen und reelen Tatsachen geachtet.\n";
	print STDOUT "Vielmehr wollten wir einen lustigen Zeitvertreib bieten, der grob im Zeitbereich der Pharaonen\n";
	print STDOUT "liegt und sich Ansatzweise in dem Thema bewegt. Alle Grafiken und Musiken sind dementsprechend eher\n";
	print STDOUT "so gestaltet, dass 'RAMSES' im Bereich der ersten Fun-Simulationen angesiedelt ist; im Rahmen\n";
	print STDOUT "der damaligen M&ouml;glichkeiten.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "F&uuml;r die Umsetzung f&uuml;r Android bzw. IPhone/IPad wurden die original Grafik und Programmdaten verwendet, die leider\n";
	print STDOUT "nur in einem Diskette-Backup vorlagen, dass von 1992 stammte (und noch funktionierte!). Es hat\n";
	print STDOUT "allerdings gute zwei Tage gedauert, das alte Backup zur&uuml;ckzuspielen und die Grafikdaten entsprechend \n";
	print STDOUT "zu konvertieren. Und ich musste feststellen, nachdem die ersten Grafiken auf dem Bildschirm zu sehen\n";
	print STDOUT "waren, dass das Spiel nichts von seinem eigenen Charme verloren hatte und auch heute wirklich\n";
	print STDOUT "noch ansehnlich ist.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Um dem Spiel auch noch den Orignal Soundtrack verpassen zu k&ouml;nnen, war mein alter Freund\n";
	print STDOUT "Rudolf Stember (<b><a href=\"http://www.stember.com\" target=\"_top\">www.stember.com</a></b>), der vor vielen Jahren nach Amerika ausgewandert ist, so nett,\n";
	print STDOUT "die alten Soundtracks auszupacken und mir als .wav zur Verf&uuml;gung zu stellen. An dieser Stelle\n";
	print STDOUT "nochmals ein 'Thx' daf&uuml;r an Ihn.<br>\n";
    #	print STDOUT "<br>\n";
    #	print STDOUT "F&uuml;r das Spiel wurde die kostenlose Grafikengine von PocketFrog benutzt, deren Lizenzbeschreibung \n";
    #	print STDOUT "ich hier kurz auff�hren m�chte:<br>\n";
    #	print STDOUT "<br>\n";
    #	print STDOUT "<font face=\"Verdana\" size=\"1\"><i>PocketFrog - The Game Library for Pocket PC Devices<br>\n";
    #	print STDOUT "Copyright 2002  Thierry Tremblay<br><br>\n";
    #	print STDOUT "\n";
    #	print STDOUT "Permission to use, copy, modify, distribute and sell this software<br>\n";
    #	print STDOUT "and its documentation for any purpose is hereby granted without fee,<br>\n";
    #	print STDOUT "provided that the above copyright notice appear in all copies and<br>\n";
    #	print STDOUT "that both that copyright notice and this permission notice appear<br>\n";
    #	print STDOUT "in supporting documentation.  Thierry Tremblay makes no representations<br>\n";
    #	print STDOUT "about the suitability of this software for any purpose.<br>\n";
    #	print STDOUT "It is provided \"as is\" without express or implied warranty.</i></font><br>\n";
	print STDOUT "<br><font face=\"Verdana\" size=\"2\">\n";
	print STDOUT "<br><a href=\"#top\"><b>Top</b></a><br><br>\n";
	print STDOUT "<br><a name=\"anleitung\"></a>\n";
	print STDOUT "<i><b><font face=\"Verdana\" size=\"3\">Anleitung</font></b></i></font><br>\n";
	print STDOUT "<table border=0><tr><td witdh=\"350\">\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><br><ul type=\"square\">\n";
	print STDOUT "<li><a href=\"#gesch\"><b>Geschichte: Was geschehen ist</a>\n";
	print STDOUT "<li>Das Spiel:\n";
	print STDOUT "<br><a href=\"#ziel\">Ziel des Spiels</a>\n";
	print STDOUT "<br><a href=\"#bedie\">Bedienung</a>\n";
	print STDOUT "<br><a href=\"#haupt\">Das Hauptmen&uuml;</a>\n";
	print STDOUT "<br><a href=\"#schiff\">Das Schiffkauf-Men&uuml;</a>\n";
	print STDOUT "<br><a href=\"#finanz\">Das Finanz-Men&uuml;</a>\n";
	print STDOUT "<br><a href=\"#pyra\">Das Pyramidenbau-Men&uuml;</a>\n";
	print STDOUT "<br><a href=\"#tipps\">Tipps zum Spiel</a></b>\n";
	print STDOUT "</ul>\n";
	print STDOUT "</td></tr></table>\n";
	print STDOUT "<br><a name=\"gesch\"></a>\n";
	print STDOUT "<i>Was geschehen ist...</i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Schwer hallten die Schritte durch die langen G&auml;nge des Hauses. 'Warum kann \n";
	print STDOUT "ich nie alleine sein', dachte Ramses bedauernd. 'Auch ein Pharao braucht \n";
	print STDOUT "hin und wieder Ruhe.' Die Schritte n&auml;herten sich langsam dem Ruheraum, \n";
	print STDOUT "z&ouml;gernd, als wollte der Verursacher doch lieber nicht eintreten.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "'Bitte entschuldigt mein St&ouml;ren' er&ouml;ffnet die Wache, nachdem sie vorsichtig \n";
	print STDOUT "angeklopft hatte. 'Aber Euer Gelehrter und Astronom bat mich, Euch zu bitten, \n";
	print STDOUT "ihn zu empfangen. Er sagte, es sei sehr sehr wichtig.'<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "'Dieser Astronom. Immer kommt er mit angeblich wichtigen Sachen', dachte \n";
	print STDOUT "Ramses. 'Aber wer weiss'. 'Gut, wenn es so wichtig ist, wie er sagt, soll er \n";
	print STDOUT "unverz&uuml;glich kommen' sagte Ramses. 'Ja Herr, ich werde ihn sofort holen.'. \n";
	print STDOUT "Schnell hastete die Wache davon, um den Befehl auszuf&uuml;hren. Ramses indes \n";
	print STDOUT "versank wieder in stilles Gr&uuml;beln, abwartend, was dem Astronom so \n";
	print STDOUT "Kopfzerbrechen machte.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Nach einiger Zeit klopfte es erneut. 'Ja, komm herein', befahl Ramses. \n";
	print STDOUT "Langsam &ouml;ffnete sich die T&uuml;r, und ein kleiner untersetzter Mann trat \n";
	print STDOUT "langsam und bed&auml;chtig durch die T&uuml;r&ouml;ffnung in den Raum. 'Bitte verzeiht \n";
	print STDOUT "meine St&ouml;rung, aber die Sterne k&uuml;ndigen ein unheilbringendes Ereignis an. \n";
	print STDOUT "Und bei Ra, es wird eintreten'. Erstaunt bemerkte der Astronom, das Ramses \n";
	print STDOUT "keine Anstalten mache, ihn nach dem Ereignis zu fragen. 'Herr, ihr m&uuml;sst \n";
	print STDOUT "mir glauben', flehte der Astronom. 'Ich kann es beweisen.'. <br>\n";
	print STDOUT "<br>\n";
	print STDOUT "'Es scheint dir ernst zu sein. Von welchem Ereignis sprichst Du?', fragte \n";
	print STDOUT "Rames. 'Von eurem Tod. Ich sah Euch durch eine unbekannte Krankheit \n";
	print STDOUT "sterben. Und ich sah auch den Zeitpunkt... Es wird an Eurem 57. Geburtstag \n";
	print STDOUT "geschehen.'. Anschliessend zeigte der Astronom viele Karten und Zeichnungen \n";
	print STDOUT "und bewies damit seine Ank&uuml;ndigung.<br> \n";
	print STDOUT "<br>\n";
	print STDOUT "Es war still im Ruheraum. Der Astronom war schon lange gegangen, nachdem \n";
	print STDOUT "er versprechen musste, niemanden davon zu erz&auml;hlen. Ramses dachte noch \n";
	print STDOUT "lange &uuml;ber die Worte des Astronoms nach. 'So sei es. Den Tod f&uuml;rchte \n";
	print STDOUT "ich nicht, er ist nur der &Uuml;bergang in die n&auml;chste Welt. Doch will ich, wie es \n";
	print STDOUT "einem Pharao geb&uuml;rt, sterben. Also werde ich eine Pyramide bauen lassen, \n";
	print STDOUT "welche gr&ouml;sser und sch&ouml;ner ist, als alle bisher gesehenen. Es wird lange \n";
	print STDOUT "dauern und viel Arbeit kosten, doch will ich sofort beginnen...'. <br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Zur&uuml;ck</b></a><br><br>\n";
	print STDOUT "<a name=\"ziel\"></a>\n";
	print STDOUT "<i><b>Ziel des Spiels:</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Ziel des Spiels ist das Errichten einer Pyramide, bevor der Pharao 57 Jahre alt geworden ist. \n";
	print STDOUT "Daf&uuml;r muss Handel getrieben werden um genug Gold zur Verf&uuml;gung zu haben, um Baumaterial \n";
	print STDOUT "kaufen zu k&ouml;nnen. Das Spiel ist gewonnen, wenn dieses Ziel erreicht wird.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Zur&uuml;ck</b></a><br><br>\n";
	print STDOUT "<a name=\"bedie\"></a>\n";
	print STDOUT "<i><b>Bedienung</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Titel:</i><br>\n";
	print STDOUT "Im Titel erscheint durch antippen des Displays bzw. dr&uuml;cken der Aktionstasten das Auswahlmen&uuml;. \n";
	print STDOUT "Hier kann man die Sprache w&auml;hlen (Deutsch/English) bzw. das Spiel verlassen (Exit). Ein vorher \n";
	print STDOUT "gespeicherter Spielstand kann nur innerhalb des Hauptmen&uuml;s nachgelanden werden.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Allgemein:</i><br>\n";
	print STDOUT "Das Spiel wird durch Anklicken von verschiedenene Symbol-Feldern gesteuert. Betr&auml;ge oder \n";
	print STDOUT "Werte werden durch Pfeile (links f&uuml;r weniger, rechts f&uuml;r mehr) eingestellt. Das Spiel \n";
	print STDOUT "wird solange unterbrochen, wie man sich in den Untermen&uuml;s aufh&auml;lt, oder Informationen \n";
	print STDOUT "der jeweiligen H&auml;fen angeschaut werden. Durch Dr&uuml;cken des grossen Exit/Pause-Feldes \n";
	print STDOUT "werden die Untermen&uuml;s verlassen bzw. die Spielzeit l&auml;uft weiter. <br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Aufbau:</i><br>\n";
	print STDOUT "Die linke Seite werden die verschiedenen Men&uuml;s und auf der rechten Seite zugeh&ouml;rige Texte angezeigt. Im unteren Bereich \n";
	print STDOUT "befindet sich die Tastatur (nur dann aktiviert, wenn die Namen der Schiffe eingegeben werden m&uuml;ssen), \n";
	print STDOUT "das grosse Exit/Pause-Feld und eine Uhr, die die vergehende Zeit symbolisiert.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Zur&uuml;ck</b></a><br><br>\n";
	print STDOUT "<a name=\"haupt\"></a>\n";
	print STDOUT "<i><b>Das Hauptmen&uuml;:</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Die Karte:</i><br>\n";
	print STDOUT "Auf der Karte werden <br>\n";
	print STDOUT "<br><ul>\n";
	print STDOUT "<li>alle Schiffe auf dem Weg zu den verschiedenen H&auml;fen,<br>\n";
	print STDOUT "<li>eine Markierung des entsprechenden Hafen beim Anklicken in der Hafentabelle und<br>\n";
	print STDOUT "<li>ein Zeiger auf die Schiffe, welche durch Ungl&uuml;cke betroffen sind<br>\n";
	print STDOUT "</ul>\n";
	print STDOUT "angezeigt.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Die Hafentabelle:</i><br>\n";
	print STDOUT "Durch Angklicken eines aufgef&uuml;hrten Hafen k&ouml;nnen die ANEBOTS-WERTE abgerufen werden. Hier \n";
	print STDOUT "werde die Waren, die jeweiligen Preise pro Tonne, die angebotenen Mengen und die gew&uuml;nschte \n";
	print STDOUT "Menge angezeigt (diese Mengen sind nur als unverbindliche Bestellung zu sehen, welche bei \n";
	print STDOUT "neuen Angeboten gel&ouml;scht werden). <br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Durch Anklicken der entsprechenden Pfeile wird die gew&uuml;nschte Menge eingestellt; es kann \n";
	print STDOUT "entsprechend des Angebotes bei jeder Ware eine beliebige Menge gew&auml;hlt werden. Man sollte \n";
	print STDOUT "aber auch die zur Verf&uuml;gung stehende Ladefl&auml;che und die n&ouml;tige Menge an Goldst&uuml;cke \n";
	print STDOUT "ber&uuml;cksichtigen.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Anschliessend kann die eingestellte Menge durch Anklicken des neben der Tabelle stehenden \n";
	print STDOUT "<a href=\"javascript:ShowIcon()\"><b>KAUF</b></a>-Symbols gekauft und den im Heimathafen vorhandenen Schiffen zugeteilt werden. Die \n";
	print STDOUT "ben&ouml;tigte Ladefl&auml;che wird entsprechend der Ladefl&auml;che des angew&auml;hlten Schiffes verringert. \n";
	print STDOUT "'OK' best&auml;tigt den Kauf endg&uuml;ltig, 'CANCEL' bricht den Vorgang ab (schon gew&auml;hlte Schiffe \n";
	print STDOUT "werden wieder freigegeben).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Durch nochmaliges Anklicken des gleichen Hafens in der Hafentabelle wechselt die Darstellung \n";
	print STDOUT "zu den NACHFRAGE-WERTEN. Diese k&ouml;nnen entrpechend der Angebots-Werte eingestellt werden. \n";
	print STDOUT "Hinzu kommt eine Auflistung der im eingenen Lager vorhandenen Mengen der jeweiligen Waren. \n";
	print STDOUT "Die eingestellten Mengen der zu verkaufendenn Waren kann entsprechend der Angebots-Werte \n";
	print STDOUT "zugeteilt und verkauft werden (<a href=\"javascript:ShowIcon()\"><b>VERKAUF</b></a>-Symbol).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Der Hafen 'Kanapos':</i><br>\n";
	print STDOUT "Nach Anklicken des Hafens Kanapos in der Hafentabelle werden einige Daten &uuml;ber den \n";
	print STDOUT "Heimathafen abgerufen (die Schiffe im Hafen und die Menge der Waren im Lager). <br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Die Men&uuml;-Symbole:</b></a></i><br>\n";
	print STDOUT "Durch Anklicken des jweiligen Symbols kann das Men&uuml; gewechselt werden. Die <a href=\"javascript:ShowIcon()\"><b>Symbole</b></a> sind \n";
	print STDOUT "auch in den anderen Men&uuml;s vorhanden und erm&ouml;glichen das schnelle wechseln der Men&uuml;s \n";
	print STDOUT "ohne &uuml;ber das Haupt-Men&uuml; gehen zu m&uuml;ssen.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Spielstand laden:</b></a></i><br>\n";
	print STDOUT "Hier besteht die M&ouml;glichkeit, einen alten SPielstand nachzulanden (es ist nur EIN Spielstand \n";
	print STDOUT "m&ouml;glich).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Spielstand speichern:</b></a></i><br>\n";
	print STDOUT "Hier besteht die M&ouml;glichkeit, einen neuen Spielstand abzuspeichern (es ist nur EIN Spielstand \n";
	print STDOUT "m&ouml;glich).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Pause:</i><br>\n";
	print STDOUT "Durch Anklicken des Pause-Symbols wird das Spiel unterbrochen und kann durch nochmaliges \n";
	print STDOUT "Anklicken wieder fortgesetzt werden. Das Spiel wird automatisch beim verlassen der \n";
	print STDOUT "Untermen&uuml;s fortgesetzt.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Exit:</b></a></i><br>\n";
	print STDOUT "Das Spiel wird nach einer Sicherheitsabfrage verlassen (ohne Sichern des Spielstandes).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Zur&uuml;ck</b></a><br><br>\n";
	print STDOUT "<a name=\"schiff\"></a>\n";
	print STDOUT "<b><i>Das Schiffkauf-Men&uuml;:</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Schiffkauf:</i><br>\n";
	print STDOUT "Hier k&ouml;nnen die Schiffe durch Anklicken der Schiff-Art ausgew&auml;hlt und durch Anklicken des \n";
	print STDOUT "<a href=\"javascript:ShowIcon()\"><b>KAUFEN</b></a>-Sybols gekauft werden. Nach der Eingabe des Schiffnamens \n";
	print STDOUT "(durch die Tastatur im unteren Bildschirmbereiches) besitzt man ein neues, mehr oder weniger \n";
	print STDOUT "stolzes Schiff.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Schiffverkauf:</i><br>\n";
	print STDOUT "Durch Anklicken des <a href=\"javascript:ShowIcon()\"><b>Schiffverkauf</b></a>-Symbols gelangt man in das Schiffverkauf-Men&uuml;. Hier \n";
	print STDOUT "werden alle vorhandenen Schiffe aufgelistet und k&ouml;nnen angew&auml;hlt werden. Durch nochmaliges \n";
	print STDOUT "Anklicken des <a href=\"javascript:ShowIcon()\"><b>Verkauf</b></a>-Symbols wird das Schiff endg&uuml;ltig verkauft.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "ACHTUNG!!! Die Schiffe werden auch dann verkaufen, wenn sie gerade unterwegs sind. Die \n";
	print STDOUT "Ladung ist dann verloren.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Durch Anklicken des EXIT-Symbols gelangt man wieder in das Schiffkauf-Men&uuml;.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Exit:</b></a></i><br>\n";
	print STDOUT "Man gelangt wieder in das Hauptmen&uuml;.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Zur&uuml;ck</b></a><br><br>\n";
	print STDOUT "<a name=\"finanz\"></a>\n";
	print STDOUT "<b><i>Das Finanz-Men&uuml;:</i></b><br>\n";
	print STDOUT "Das Finanz-Men&uuml; gibt eine &uuml;bersicht &uuml;ber die Finanzen und der Bev&ouml;lkerung. \n";
	print STDOUT "Hier k&ouml;nnen Steuern durch Ver&auml;ndern der Steuerrate (Anklicken der Pfeile) erhoben werden. \n";
	print STDOUT "Bedenkt aber, dass eine h&ouml;here Steuerrate die Zuwachsrate der Bef&ouml;lkerung deutlich \n";
	print STDOUT "beeinflusst.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Zur&uuml;ck</b></a><br><br>\n";
	print STDOUT "<a name=\"pyra\"></a>\n";
	print STDOUT "<b><i>Das Pyramidenbau-Men&uuml;:</b></i><br>\n";
	print STDOUT "Nun wohl das wichtigste Men&uuml;. Hier k&ouml;nnen Arbeiter f&uuml;r den Pyramidenbau eingesetzt \n";
	print STDOUT "und das Baustadium der Pyramide &uuml;berpr&uuml;ft werden. Bitte bedenken Sie, dass diese \n";
	print STDOUT "Arbeiter auch Bau-Material ben&ouml;tigen.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Weiterhin kann Anbau-Fl&auml;che f&uuml;r die Versorgung der Bev&ouml;lkerung gekauft bzw. verkauft werden.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Der Tempel:</i><br>\n";
	print STDOUT "Hier kann Getreide bzw. Gold den G&ouml;ttern geopfert werden. Das mindert das Risiko, von \n";
	print STDOUT "Ungl&uuml;cken betroffen zu werden und beruhigt den Schlaf...<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Exit:</b></a></i><br>\n";
	print STDOUT "Man gelangt wieder in das Hauptmen&uuml;.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Zur&uuml;ck</b></a><br><br>\n";
	print STDOUT "<a name=\"tipps\"></a>\n";
	print STDOUT "<b><i>Tips zum Spiel:</i></b><br><ul>\n";
	print STDOUT "<li>Am Anfang reichen 100 Anbaufl&auml;che vollkommen aus<br>\n";
	print STDOUT "<li>Man sollte immer mindesten 2000-3000 Gold zur Verf&uuml;gung haben<br>\n";
	print STDOUT "<li>Beim Verkaufen von Schiffen ruhig mehrmals versuchen, der Preis k&ouml;nnte sich ja mal &auml;ndern<br>\n";
	print STDOUT "<li>In der Anfangsphase sollte man nach M&ouml;glichkeit immer nur mit den n&auml;chst gelegenen H&auml;fen \n";
	print STDOUT "Handel treiben.<br>\n";
	print STDOUT "<li>Es sollten die Schiffnamen immer so gew&auml;hlt werden, dass eindeutig zu erkennen ist, welche \n";
	print STDOUT "Ladefl&auml;che zur Verf&uuml;gung steht.<br>\n";
	print STDOUT "</ul>\n";
	print STDOUT "<br><a href=\"#top\"><b>Top</b></a><br><br>\n";
	&TableBottom();
    
    #	print STDOUT "<center><table border=0><tr><td><a href=\"#top\">Top</a></center>\n";
	&PrintEnd();
}
#-------------------------------------------------------------------------------
# Function    : PPCRamses_E
# Description : This function show the frame: informations about Ramses 4 PPC (english version)
#-------------------------------------------------------------------------------
sub PPCRamses_E
{
	print STDOUT $cgibase->header;
	print STDOUT "<html>\n";
	print STDOUT "<head>\n";
	print STDOUT "<title>$titlestring</title>\n";
	print STDOUT "   <script language=\"JavaScript\">\n";
	print STDOUT "   function ShowIcon()\n";
	print STDOUT "   {\n";
	print STDOUT "		var NewWindow;\n";
	print STDOUT "      NewWindow = window.open(\"$MODULE?page=ramsessymbole&lang=eng\",\"ramsessym\",\"height=550,width=300,resizable=no,status=no\");\n";
	print STDOUT "      NewWindow.focus();\n";
	print STDOUT "   }\n";
	print STDOUT "   </script>\n";
	print STDOUT "</head>\n";
	print STDOUT "<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" LINK=\"#008080\" VLINK=\"#004080\" ALINK=\"#008080\">\n";
	print STDOUT "<a name=\"top\"></a>\n";
	&TableTop();
	print STDOUT "<center>\n";
    print STDOUT "<font face=\"Verdana\" size=\"1\"><b><a href=\"$MODULE?page=ramses&lang=\">Deutsch</a></font>&nbsp;&nbsp;<font face=\"Verdana\" size=\"2\"><a href=\"$MODULE?page=ramses&lang=eng\">English</a></font></b><br><br>\n";
	print STDOUT "<b><font face=\"Verdana\" size=\"3\">Ramses for Android / IPhone</font></b><br>\n";
	print STDOUT "<br><img src=\"pics/ppc_ramses.jpg\" align=bottom border=0></img><br></center>\n";
	print STDOUT "<center><table border=0><tr><td witdh=\"350\">\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><br><ul type=\"square\">\n";
	print STDOUT "<li><a href=\"#hist\"><b>History</a>\n";
	print STDOUT "<li><a href=\"#anleitung\"><b>Instruction</a>\n";
	print STDOUT "<li><a href=\"#download\"><b>Download</a>\n";
	print STDOUT "</ul>\n";
	print STDOUT "</td></tr></table></center>\n";
	print STDOUT "<br><a name=\"hist\"></a>\n";
	print STDOUT "<i><b><font face=\"Verdana\" size=\"3\">History</font></b></i><br>\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><br>\n";
	print STDOUT "Originally, the game 'RAMSES' was developed 1992 for the Amiga and ported to the PC on or about 1994. \n";
	print STDOUT "According the games developed at that time the design and gameconcept are simple, but easy to play \n";
	print STDOUT "and feels 'well-done'. We don't want to give you real historical informations. This game will offer \n";
	print STDOUT "you only a nice time and a little bit of egyptian feelings. So all graphics and musics are quite \n";
	print STDOUT "cute and push the game into the fun-simulation genre (one of the first i think).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "For the Android / IPhone version of 'Ramses' we use the original graphic and sourcecodes found on a very old \n";
	print STDOUT "floppy-disk backup created 1992 (still working! :) ). After 2 days working on this backup i was able \n";
	print STDOUT "to restore the data and convert the needed graphics.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "To give the game the real original soundtrack, my old friend Rudolf Stember (<b><a href=\"http://www.stember.com\" target=\"_top\">www.stember.com</a></b>), left \n";
	print STDOUT "germany years ago heading USA, restores the old soundtracks into .wav-files and send them to me.<br> \n";
	print STDOUT "I like to say 'Thx' again to him.<br>\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<br><a href=\"#top\"><b>Top</b></a><br><br>\n";
	print STDOUT "<br><a name=\"anleitung\"></a>\n";
	print STDOUT "<i><b><font face=\"Verdana\" size=\"3\">Instruction</font></b></i><br>\n";
	print STDOUT "<table border=0><tr><td witdh=\"350\">\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><br><ul type=\"square\">\n";
	print STDOUT "<li>The game:\n";
	print STDOUT "<br><a href=\"#ziel\"><b>Target of the game</a>\n";
	print STDOUT "<br><a href=\"#bedie\"><b>How to play</a>\n";
	print STDOUT "<br><a href=\"#haupt\"><b>Main menu</a>\n";
	print STDOUT "<br><a href=\"#schiff\"><b>Submenu buy/sell Ship</a>\n";
	print STDOUT "<br><a href=\"#finanz\"><b>Submenu Financial-Report</a>\n";
	print STDOUT "<br><a href=\"#pyra\"><b>Submenu Pyramid</a>\n";
	print STDOUT "<br><a href=\"#tipps\"><b>Some hints</a>\n";
	print STDOUT "</ul>\n";
	print STDOUT "</td></tr></table>\n";
	print STDOUT "<a name=\"ziel\"></a>\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><i><b>Target of the game:</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Target of the game is to build a pyramid until the pharao reach his 57th birthday. \n";
	print STDOUT "To reach this target, you have to do business and earn enough money to buy building material. You have win \n";
	print STDOUT "the game, if you reach this target.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Back</b></a><br><br>\n";
	print STDOUT "<a name=\"bedie\"></a>\n";
	print STDOUT "<i><b>How to play</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Titel:</i><br>\n";
	print STDOUT "After hit the screen or press any button a menu appear. Here you can select the language or you can \n";
	print STDOUT "exit the game. Start the game to load a previous saved game at the main panel.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Common:</i><br>\n";
	print STDOUT "You will find some buttons to do some actions in the game. To change amounts and values use the \n";
	print STDOUT "left/right arrows (left for less, right for more). The game will be paused during open the \n";
	print STDOUT "submenu's or view informations of the harbour. Press the large exit/pause-button to continue.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Layout:</i><br>\n";
	print STDOUT "On the left side you will find the different menu's and on the right side all necessary informations. On \n";
	print STDOUT "the bottom you will find a keyboard (only active to insert the name(s) of your ship(s)), the large \n";
	print STDOUT "exit/pause-button and a clock (symbol for time passed).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Back</b></a><br><br>\n";
	print STDOUT "<a name=\"haupt\"></a>\n";
	print STDOUT "<i><b>Main menu:</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>The Map:</i><br>\n";
	print STDOUT "You see on the map<br>\n";
	print STDOUT "<br><ul>\n";
	print STDOUT "<li>all your ships on they way<br>\n";
	print STDOUT "<li>the selected harbour<br>\n";
	print STDOUT "<li>selected ship, if there run into some problems<br>\n";
	print STDOUT "</ul>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>The Harbours:</i><br>\n";
	print STDOUT "After you tap on a harbour, you will see the OFFERS of the selected harbour. Here you see the price/t, \n";
	print STDOUT "the quantity of existing goods and the quantity of your selection (your choice will be erased, after new offers \n";
	print STDOUT "given).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Hit the arrows to raise/lower the quantity of your selection up to the offered maximum. Have a look at your \n";
	print STDOUT "actual existing loadingspace and gold. <br>\n";
	print STDOUT "<br>\n";
	print STDOUT "After select the \n";
	print STDOUT "<a href=\"javascript:ShowIcon()\"><b>BUY</b></a>-button, you will see a list of the ships actually ride at anchor and wait for loading. \n";
	print STDOUT "The needed loadingspace will be lowered regarding the selected ship. Hit 'OK' to buy or 'CANCEL' to stop \n";
	print STDOUT "trading (previous selected ships will be freed).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "After tap the same harbour again, you will see the REQUESTED GOODS from the selected harbour. You can change \n";
	print STDOUT "the values like the OFFERS and sell with the <a href=\"javascript:ShowIcon()\"><b>SELL</b></a>-button (same actions like BUY). As additional information  \n";
	print STDOUT "you see your actual stock.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>The harbour 'Kanapos':</i><br>\n";
	print STDOUT "After you tap at the harbout 'Kanapos' you will see your actual stock an all ships at anchor. <br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>The Menu-Buttons:</b></a></i><br>\n";
	print STDOUT "After tap the respective button you will change the menu. You will find this buttons on each menu to toggle \n";
	print STDOUT "as fast as possible between the menu's.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Load game:</b></a></i><br>\n";
	print STDOUT "Hit this button to load a previous saved game (only one game can be saved).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Save game:</b></a></i><br>\n";
	print STDOUT "Hit this button to save the actual game (only one game can be saved).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Pause:</i><br>\n";
	print STDOUT "Hit the pause-button to stop or continue the time laps. If you leave a submenu, the time will run without any \n";
	print STDOUT "action.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Exit:</b></a></i><br>\n";
	print STDOUT "You leave the actual game (the game will not be saved).<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Back</b></a><br><br>\n";
	print STDOUT "<a name=\"schiff\"></a>\n";
	print STDOUT "<b><i>Submenu buy/sell Ship:</b></i><br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Buy Ship:</i><br>\n";
	print STDOUT "Select the ship-type you want and hit the <a href=\"javascript:ShowIcon()\"><b>BUY</b></a>-button. Name the ship using the keyboard at the bottom and hit \n";
	print STDOUT "the 'enter'-button. Now you have a new, more or less fine ship.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>Sell Ship:</i><br>\n";
	print STDOUT "After you tap the the <a href=\"javascript:ShowIcon()\"><b>SELL</b></a>-button, you see a list of your ships. Select the ship you want to sell an hit the \n";
	print STDOUT "SELL-button again.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "BEWARE! You can sell your ship every time. You will loose all your goods on the ship, if the ship is on the way \n";
	print STDOUT "to a harbour.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "After tap on the <a href=\"javascript:ShowIcon()\"><b>EXIT</b></a>-button, you will leave the submenu to the menu 'buy ship'.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Exit:</b></a></i><br>\n";
	print STDOUT "You leave the submenu to the main menu.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Back</b></a><br><br>\n";
	print STDOUT "<a name=\"finanz\"></a>\n";
	print STDOUT "<b><i>Submenu Financial-Report:</i></b><br>\n";
	print STDOUT "In this menu you will see your financial report. You are able to get money using the tax-rate, but remember, \n";
	print STDOUT "that the population affected by the height of the tax-rate.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Back</b></a><br><br>\n";
	print STDOUT "<a name=\"pyra\"></a>\n";
	print STDOUT "<b><i>Submenu Pyramid:</b></i><br>\n";
	print STDOUT "Here the most important menu. Use the arrows to change the number of workers, actually work on your pyramide. \n";
	print STDOUT "Remember, that you need building material as well.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "Use the arrows to change the number of corn-fields an hit 'Buy acre' to give your people something to eat, or 'sell acre', if you need money.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i>The Temple:</i><br>\n";
	print STDOUT "Give alms (gold or corn) to your gods, to prevent disasters.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<i><a href=\"javascript:ShowIcon()\"><b>Exit:</b></a></i><br>\n";
	print STDOUT "You leave the submenu to the main menu.<br>\n";
	print STDOUT "<br>\n";
	print STDOUT "<a href=\"#anleitung\"><b>Back</b></a><br><br>\n";
	print STDOUT "<a name=\"tipps\"></a>\n";
	print STDOUT "<b><i>Some hints:</i></b><br><ul>\n";
	print STDOUT "<li>In the beginning, you don't need more than 100 acre<br>\n";
	print STDOUT "<li>You should have at least up to 3000 gold every time<br>\n";
	print STDOUT "<li>Try to sell ships more than one time, because prices can be change<br>\n";
	print STDOUT "<li>In the beginnig, don't trade with harbours far away<br>\n";
	print STDOUT "<li>Name your ships in this way, that you know the possible height of the loadingspace.<br>\n";
	print STDOUT "</ul>\n";
	print STDOUT "<br><a href=\"#top\"><b>Top</b></a><br><br>\n";
	&TableBottom();
    
    #	print STDOUT "<center><table border=0><tr><td><a href=\"#top\">Top</a></center>\n";
	&PrintEnd();
}
#-------------------------------------------------------------------------------
# Function    : PPCRamsesSymb
# Description : This function show the frame: symbol-list RamsesPPC
#-------------------------------------------------------------------------------
sub PPCRamsesSymb
{
	my $lang = $FORM{'lang'};
	my $align=" align=center";
	print STDOUT $cgibase->header;
	print STDOUT "<html>\n";
	print STDOUT "<head>\n";
	print STDOUT "<title>$titlestring</title>\n";
	print STDOUT "</head>\n";
	print STDOUT "<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" LINK=\"#008080\" VLINK=\"#004080\" ALINK=\"#008080\" background=\"pics/contend_bg.png\">\n";
	if($lang eq 'eng')
	{
		print STDOUT "<center><b><i>Symbols used in RamsesPPC</i></b><br>\n";
		print STDOUT "<table border=1>\n";
		print STDOUT "<tr><th>Symbol</th><th>Action</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symkauf.jpg\" width=64 height=44></img></td><td $align>Buy goods, if the offers of the harbour are listed</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symverkauf.jpg\" width=64 height=44></img></td><td $align>Sell goods, if the requested goods of the harbour are listed</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symschiffk.jpg\" width=46 height=42></img></td><td $align>Submenu sell/buy Ships</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symfinanz.jpg\" width=46 height=42></img></td><td $align>Submenu Financial-Report</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_sympyra.jpg\" width=46 height=42></img></td><td $align>Submenu Pyramid</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symschiffzahl.jpg\" width=46 height=42></img></td><td $align>Buy selected ship</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symschiffbekom.jpg\" width=46 height=42></img></td><td $align>Sell selected ship</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symload.jpg\" width=24 height=42></img></td><td $align>Load game</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symsave.jpg\" width=24 height=42></img></td><td $align>Save game</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symexit.jpg\" width=46 height=22></img></td><td $align>Exit Submenu/Game</th></tr>\n";
	} else
	{
		print STDOUT "<center><b><i>Symbole in RamsesPPC</i></b><br>\n";
		print STDOUT "<table border=1>\n";
		print STDOUT "<tr><th>Symbol</th><th>Aktion</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symkauf.jpg\" width=64 height=44></img></td><td $align>Ware kaufen, wenn Angebot von Hafen angezeigt wird</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symverkauf.jpg\" width=64 height=44></img></td><td $align>Ware verkaufen, wenn Nachfrage von Hafen angezeigt wird</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symschiffk.jpg\" width=46 height=42></img></td><td $align>Untermen&uuml; Schiffkauf / Schiffverkauf</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symfinanz.jpg\" width=46 height=42></img></td><td $align>Untermen&uuml; Finanzen</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_sympyra.jpg\" width=46 height=42></img></td><td $align>Untermen&uuml; Pyramidenbau</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symschiffzahl.jpg\" width=46 height=42></img></td><td $align>Ausgew&auml;hltes Schiff kaufen</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symschiffbekom.jpg\" width=46 height=42></img></td><td $align>Ausgew&auml;hltes Schiff verkaufen</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symload.jpg\" width=24 height=42></img></td><td $align>Spielstand laden</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symsave.jpg\" width=24 height=42></img></td><td $align>Spielstand speichern</th></tr>\n";
		print STDOUT "<tr><td $align><img src=\"pics/ppc_ram_symexit.jpg\" width=46 height=22></img></td><td $align>Untermen&uuml; / Spiel verlassen</th></tr>\n";
	}
	&PrintEnd();
}
#-------------------------------------------------------------------------------
# Function    : SokoEx
# Description : This function show the frame: Sokoex-informations
#-------------------------------------------------------------------------------
sub SokoEx
{
	my $lang = $FORM{'lang'};
	&PlotHead();
	&TableTop();
	print STDOUT "<center>\n";
	print STDOUT "<b><font face=\"Verdana\" size=\"3\">SokoEx f�r PPC</font></b><br>\n";
	print STDOUT "<br><img src=\"pics/sokoex.jpg\" align=bottom border=0></img><br></center>\n";
	print STDOUT "<center><table border=0><tr><td witdh=\"350\">\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><br><ul type=\"square\">\n";
	print STDOUT "<li><a href=\"#vorschau\"><b>Vorschau</a>\n";
	print STDOUT "</ul>\n";
	print STDOUT "</td></tr></table></center>\n";
	print STDOUT "<br><a name=\"vorschau\"></a>\n";
	print STDOUT "<i><b><font face=\"Verdana\" size=\"3\">Vorschau</font></b></i><br>\n";
	print STDOUT "<br><font face=\"Verdana\" size=\"2\">\n";
	print STDOUT "Haben Sie Sich auch immer gefragt, warum Sie bei den meisten Sokoban-Varianten\n";
	print STDOUT "so wenig M�glichkeiten haben, Ihren Weg selbst zu w�hlen? Das hat nun ein Ende,\n";
	print STDOUT "denn bald kommt das neue\n";
	print STDOUT "<br><br><center><b><font face=\"Verdana\" size=\"3\">SokoEx f�r PocketPC (Sokoban extended)</font></b></center><br>\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\">\n";
	print STDOUT "Denn dann k&ouml;nnen Sie problemlos\n";
	print STDOUT "<ul><li>Ihre Kisten durch Teleporter schicken,\n";
	print STDOUT "<li>durch Powerups sogar W&auml;nde verschieben. Und wenn nichts mehr geht\n";
	print STDOUT "<li>die W&auml;nde einfach wegsprengen...</ul>\n";
	print STDOUT "<br>SokoEx f&uuml;r ihren PocketPC erscheint in K�rze!<br>\n";
	print STDOUT "<br><a href=\"#top\"><b>Top</b></a><br><br>\n";
	&TableBottom();
	&PrintEnd();
}
#-------------------------------------------------------------------------------
# Function    : SokoEx_E
# Description : This function show the frame: Sokoex-informations in english
#-------------------------------------------------------------------------------
sub SokoEx_E
{
	my $lang = $FORM{'lang'};
	&PlotHead();
	&TableTop();
	print STDOUT "<center>\n";
	print STDOUT "<b><font face=\"Verdana\" size=\"3\">SokoEx for PPC</font></b><br>\n";
	print STDOUT "<br><img src=\"pics/sokoex.jpg\" align=bottom border=0></img><br></center>\n";
	print STDOUT "<center><table border=0><tr><td witdh=\"350\">\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\"><br><ul type=\"square\">\n";
	print STDOUT "<li><a href=\"#vorschau\"><b>Preview</a>\n";
	print STDOUT "</ul>\n";
	print STDOUT "</td></tr></table></center>\n";
	print STDOUT "<br><a name=\"vorschau\"></a>\n";
	print STDOUT "<i><b><font face=\"Verdana\" size=\"3\">Preview</font></b></i><br>\n";
	print STDOUT "<br><font face=\"Verdana\" size=\"2\">\n";
	print STDOUT "Do you ask yourself, why so many Sokoban-games provides you only one way to\n";
	print STDOUT " solve the actual problem? This will no longer be a problem, because very soon\n";
	print STDOUT "the new\n";
	print STDOUT "<br><br><center><b><font face=\"Verdana\" size=\"3\">SokoEx for PocketPC (Sokoban extended)</font></b></center><br>\n";
	print STDOUT "<font face=\"Verdana\" size=\"2\">\n";
	print STDOUT "will be finished. You will be able to\n";
	print STDOUT "<ul><li>send your box via teleporter,\n";
	print STDOUT "<li>use powerups to push walls away and, if all seems to be hopeless\n";
	print STDOUT "<li>blast the walls away...</ul>\n";
	print STDOUT "<br>SokoEx for your PocketPC will coming soon!<br>\n";
	print STDOUT "<br><a href=\"#top\"><b>Top</b></a><br><br>\n";
	&TableBottom();
	&PrintEnd();
}
#-------------------------------------------------------------------------------
# Function    : Datenschutzbestimmung Ramses
# Description : This function show the data privacy statement 
#-------------------------------------------------------------------------------
sub datenschutz
{
	my $lang = $FORM{'lang'};
	&PlotHead();
	&TableTop();
	print STDOUT "<center>\n";
	print STDOUT "<b><font face=\"Verdana\" size=\"2\">Datenschutzerkl&auml;rung</font></b><br>\n";
	print STDOUT "<br><font face=\"Verdana\" size=\"1\">\n";
	print STDOUT "Da uns Datenschutz extrem wichtig ist, wird durch keine unserer App's Daten<br>\n";
	print STDOUT "vom Mobiltelefon ausgelesen, gespeichert oder anderweitig verwendet. Dem<br>\n";
	print STDOUT "entsprechend werden auch nur Rechte verwendet, die f&uuml;r den Spielablauf notwendig sind.<br><br>\n";
	print STDOUT "Im weiteren &uuml;bernehmen wir keinerlei Gew&auml;hrleistung f&uuml;r Probleme oder etwaigen<br>\n";
	print STDOUT "Datenverlusst, der durch das ausf&uuml;hren unserer App's bzw. etwaiger Wechselwirkungen<br>\n";
	print STDOUT "mit anderen Apps entstehen k&ouml;nnen. Bitte installieren Sie die App nicht, wenn Sie damit<br>\n";
	print STDOUT "nicht einverstanden sind.<br><br>\n";
	print STDOUT "<b><font face=\"Verdana\" size=\"2\">Data privacy statement </font></b><br>\n";
	print STDOUT "<br><font face=\"Verdana\" size=\"1\">\n";
	print STDOUT "Data privacy is for us extreme important. Therefore we never read, store or use<br>\n";
	print STDOUT "any data from your mobile device. This is the reason, why we only use rights <br>\n";
	print STDOUT "which are needed for the proper work of the application.<br><br>\n";
	print STDOUT "We assume no garantee for problems or data loss by running our app's or interaction<br>\n";
	print STDOUT "with other apps installed on your device. Please do not install the app if you not accept<br>\n";
	print STDOUT "this terms.<br>\n";
	&TableBottom();
	&PrintEnd();
}

#-------------------------------------------------------------------------------
# Function    : PrintHeader
# Description : This function write the headerinformations
#-------------------------------------------------------------------------------
sub PrintHeader
{
	print STDOUT $cgibase->header;
	print STDOUT "<html>\n";
	print STDOUT "<head>\n";
	print STDOUT "<title>$titlestring</title>\n";
	print STDOUT "</head>\n";
	print STDOUT "<BODY TEXT=\"#000000\" BGCOLOR=\"#FFFFFF\" LINK=\"#008080\" VLINK=\"#004080\" ALINK=\"#008080\" >\n";
}

#-------------------------------------------------------------------------------
# Function    : PrintEnd
# Description : This function write the document end
#-------------------------------------------------------------------------------
sub PrintEnd
{
	print STDOUT "</body>\n";
	print STDOUT "</html>\n";
}

#-------------------------------------------------------------------------------
# Function    : PrintError
# Description : This function write html-style errorcodes
#               given as parameter
# In-Param    : Errormessage
#-------------------------------------------------------------------------------
sub PrintError
{
	my $Var = '';
	my $step;
	my ($message,$page)=@_;
	my $head = "*** $MODULE V$VERSION: Message ***";

	if(defined $page)
	{
		$head = "<i>*** Notice: ***</i>";
		$page="&subpage=$page";
	}
	print $cgibase->header;
	print "<html>\n";
	print "<head>\n";
	print "<title>$titlestring - Error</title>\n";
	print "</head>\n";
	print "<body bgcolor=#DDDDDD >\n";
	print "<center><h1>$head</h1>\n";
	print "<br>$message<br></center>\n";
	print "</body>\n";
	print "</html>\n";
	exit();
}

#-------------------------------------------------------------------------------
# Function    : GetParameter
# Description : This function receive the parameter from the environment.
#-------------------------------------------------------------------------------
sub GetParameter
{
	my $Buffer;
	my @Values;
	my $Value;
	my $LName="";
	my $Name;
	my $Desc;

	if($ENV{'REQUEST_METHOD'} eq 'GET')
	{
		$Buffer=$ENV{'QUERY_STRING'};
	} else
	{
		read(STDIN,$Buffer,$ENV{'CONTENT_LENGTH'});
	}


	my $LoopA=0;
	@Values=split(/&/,$Buffer);
	foreach $Value (@Values)
	{
		($Name,$Desc)=split(/=/,$Value);
		$Desc=~ tr/+/ /;
		$Desc=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
		$Desc=~ s/<!--(.|\n)*-->//g;
#		if( exists $FORM{$Name} and length $FORM{$Name} > 0)
#		{
#			$FORM{$Name} .= ",".$Desc;
#		} else
#		{
			$FORM{$Name} = $Desc;
#		}
	}
}


#-------------------------------------------------------------------------------
# Function    : params
# Description : execute a sql-command including errorhandling
#-------------------------------------------------------------------------------
sub params
{
	my ($pag,$sep,$dont) = @_;
	my $ret;
	my @tmp;
	$FORM{"page"}=$pag;
	while( ($tmp1,$tmp2) = each %FORM)
	{
		if($tmp1 ne $dont)
		{
			if (grep / /,$tmp2)
			{
				push @tmp,"$tmp1='$tmp2'";
			} else
			{
				push @tmp,"$tmp1=$tmp2";
			}
		}
	}
	$ret = join($sep,@tmp);
	return $ret;
}

exit();
