html/menu.epl

   1 [-
   2  use FROGS::Game;
   3  use Aymargeddon;
   4  use FROGS::DataBase;
   5
   6  # my ($aym,$gamename);
   7  $db = DataBase->new();
   8  $db->set_language($udat{-lang});
   9  if($udat{-game} and $udat{-id}){
  10    $aym = Aymargeddon->new($udat{-game},$udat{-id},$db);
  11    $game = $aym;
  12    $db->set_language($udat{-lang});
  13    ($gamename) = $db->read_game($udat{-game},'NAME');
  14  }
  15
  16 -]
  17 <table width=100% border=0><tr>
  18 <td align="left">
  19 <a href="index.epl" target="_top">[+ $db->loc('PAGE_START') +]</a> |
  20 <a href="ruleframe.epl" target="_top">[+ $db->loc('PAGE_RULES') +]</a> |
  21 <a href="reference.epl" target="_top">[+ $db->loc('PAGE_REFERENCE') +]</a> |
  22 [$ if $udat{-id} $]
  23    <a href="player.epl" target="_top">[+ $db->loc('PAGE_PLAYER') +]</a> |
  24    [$ if $udat{-game} and ($udat{-id}==-1 or $game->read_role($udat{-id},'NICKNAME')) $]
  25     <a href="mapframe.epl" target="_top">[+ $db->loc('PAGE_MAP') +]</a> |
  26    [$ endif $]
  27    <a href="login.epl" target="_top">[+ $db->loc('PAGE_LOGOUT') +]</a> |
  28 [$ else $]
  29    <a href="login.epl" target="_top">[+ $db->loc('PAGE_LOGIN') +]</a> |
  30 [$ endif $]
  31 <a href="language.epl" target="_top">[+ $db->loc('PAGE_LANGUAGE') +]</a>
  32 </td><td align="right">
  33 [$ if(defined $aym) $]
  34 [# TODO: this does not work during character-generation #]
  35  <strong>[+ $gamename +]</strong>, [+ $aym->role_string($udat{-id}) +],
  36   [+ $aym->charname($udat{-id}) +]<p>
  37 [$ endif $]
  38 </td>
  39 </tr></table>