[- use FROGS::Game; use Aymargeddon; use FROGS::DataBase; # my ($aym,$gamename); $db = DataBase->new(); $db->set_language($udat{-lang}); if($udat{-game} and $udat{-id}){ $aym = Aymargeddon->new($udat{-game},$udat{-id},$db); $game = $aym; $db->set_language($udat{-lang}); ($gamename) = $db->read_game($udat{-game},'NAME'); } -]
[+ $db->loc('PAGE_START') +] | [+ $db->loc('PAGE_RULES') +] | [+ $db->loc('PAGE_REFERENCE') +] | [$ if $udat{-id} $] [+ $db->loc('PAGE_PLAYER') +] | [$ if $udat{-game} and ($udat{-id}==-1 or $game->read_role($udat{-id},'NICKNAME')) $] [+ $db->loc('PAGE_MAP') +] | [$ endif $] [+ $db->loc('PAGE_LOGOUT') +] | [$ else $] [+ $db->loc('PAGE_LOGIN') +] | [$ endif $] [+ $db->loc('PAGE_LANGUAGE') +] [$ if(defined $aym) $] [# TODO: this does not work during character-generation #] [+ $gamename +], [+ $aym->role_string($udat{-id}) +], [+ $aym->charname($udat{-id}) +]

[$ endif $]