#!/usr/bin/perl
# Internetový obchod s hrami / různé texty o novinkách, slevách, s poradnou apod.
# (c) 2007 Dan Zeman <zeman@ufal.mff.cuni.cz>
# Licence: GNU GPL

package kecy;
use utf8;
use pomoc;
use kosik;


#------------------------------------------------------------------------------
# Obecné kecy o dodacích podmínkách apod. Píše se doprostřed, když není vybrána
# konkrétní hra.
#------------------------------------------------------------------------------
sub obecne
{
    my $urlpaluba = urlstat("paluba/index.htm");
    my $urlcenikk = urlpar("hra=cenikk");
    my $tabulka_postovneho = postovne();
    print <<EOF
          <h2 align=center>Dodací podmínky</h2>
          <h2>Jak mohu hry získat</h2>
          <h3>Vyzvednout osobně</h3>
          <p>Pokud si objednáte v našem e-shopu hry s osobním odběrem, nabízí se Vám 2 možnosti:</p>
          <ul><li>v&nbsp;<a href="$urlpaluba">Klubu deskových her Paluba</a>
             (Praha, Lidická&nbsp;40 u&nbsp;Anděla, po - st 17 - 22 hod., ne 14 - 20 hod., tel:257324291).
             Tam si hry nejen můžete koupit, ale hlavně si je můžete vyzkoušet, takže nebudete
             kupovat zajíce v&nbsp;pytli. Odborná rada také nebude chybět!           
             </li>
             <li>v&nbsp;našem skladu v&nbsp;Praze na Černém Mostě - potřeba dohodnout předem na 777552729</li>
             <li>Také můžeme tyto hry <b>zaslat na dobírku.</b> Pak k&nbsp;ceně připočteme <b>poštovné.</b></li>
          </ul>
          <p>Po obdržení Vaší objednávky Vás vyrozumíme, zda je v daném místě hra k dispozici, 
            dáme Vám ji stranou na Vaše jméno a takto v rezervaci ji pro Vás necháme cca 14 dní. 
            Pokud hra na deném místě není, dáme Vám vědět, kdy by tam měla opět být.</p>
          <h3>Dobírkou</h3>
          <p>Na dobírku zasíláme (přes Českou poštu) po celé ČR i na Slovensko a případně i do jiných států Evropy. Ceníky jsou dělané na poštovné po ČR. 
          Do jiných států je poštovné mnohem dražší. Záleží na velikosti objednávky a zemi.</p>

          <h2>Kolik co stojí</h2>

          $tabulka_postovneho
          <p>Při objednávce nad $kosik::glob_mnozstevni_sleva_nad&nbsp;Kč <b>sleva $kosik::glob_mnozstevni_sleva&nbsp;%</b></p>
          <p><b>Organizace pracující s dětmi a mládeží obdrží slevu</b> (viz <a href="$urlcenikk">klubový ceník</a>).
             Pokud jste taková organizace, <b>nezapomeňte to uvést při objednávce!</b></p>

          <h2>Dodací lhůty</h2>

          <p>Objednávky se snažíme vyřídit co nejrychleji. Pokud víte, že hry potřebujete do určitého data, budeme rádi, když to uvedete v&nbsp;poznámce objednávky.
          <br>Je-li hra skladem, tak ji většinou odesíláme cca do 2 pracovních dnů a poště trvá dodání 1 - 4 pracovní dny. 
          <br>Tedy <b>zboží obdržíte za 2 - 10 pracovních dní.</b>
          <p>Je-li hra skladem, můžete pak zvolit při objednávce také zrychlené či expresní dodání.</p>
          <p>Není-li hra skladem, pak Vás vyrozumíme e-mailem, za jak dlouho bude hra opět skladem.</p>
          <p>Máte-li zájem o hru, která v&nbsp;nabídce vůbec není, napište nám e-mail:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>. Čas od času přivezeme nějaké hry z&nbsp;Německa, takže Vám třeba budeme moct vyhovět!
          </p>
          

          <h3>Zrychlené dodání</h3>
          <p>U her, které jsou skladem v&nbsp;našem distribučním skladu lze zvolit zrychlené zaslání (ve formuláři v&nbsp;e-shopu). 
          To znamená, že zboží odešleme za 1 - 2 dny po objednávce jako pilný balík (pošta doručuje za 1 - 2 pracovní dny).
          <br>Tedy <b>zboží obdržíte za 2 - 5 pracovních dnů.</b>
          <br>U zrychlených objednávek připočítáváme <b>příplatek $kosik::glob_priplatek_zrychlene&nbsp;Kč.</b>
          <br>Po obdržení Vaší objednávky Vás co nejdříve (do 1 pracovního dne) vyrozuníme e-mailem, 
          je-li v&nbsp;daném případě zrychlené zaslání možné (skladová čísla v&nbsp;našem e-shopu jsou orientační, platí cca na 90%).</p>

          <h3>Expresní dodání</h3>
          U her, které jsou skladem v&nbsp;našem distribučním skladu lze zvolit expresní zaslání (ve formuláři v&nbsp;e-shopu). 
          To znamená, že zboží odešleme následující den po objednávce jako obchodní balík (pošta doručuje za 1 pracovní den).
          <br>Tedy <b>zboží obdržíte do 2 pracovních dnů.</b>
          <br>U zrychlených objednávek připočítáváme <b>expresní příplatek $kosik::glob_priplatek_expres&nbsp;Kč.</b>
          <br>Po obdržení Vaší objednávky Vás co nejdříve (do 1 pracovního dne) vyrozuníme e-mailem, 
          je-li v&nbsp;daném případě zrychlené zaslání možné (skladová čísla v&nbsp;našem e-shopu jsou orientační, platí cca na 90%).</p>


          <p>Hry jsou prodávány jménem Kláry Zemanové, IČO 68873841, Praha.</p>
          
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
          <h2>Zasílání na Slovensko</h2>

EOF
    ;
    slovensko_jadro();
}


#------------------------------------------------------------------------------
# Obecné kecy o dodacích podmínkách apod. Zkrácená verze.
#------------------------------------------------------------------------------
sub obecne_mini
{
    my $urlpaluba = urlstat("paluba/index.htm");
    my $urlcenikk = urlpar("hra=cenikk");
    my $tabulka_postovneho = postovne();
    print <<EOF
          <p><b>Jak zakoupit hry:</b></p>
          <p><b>Vyzvednout osobně v Praze</b>
          <ul><li>na&nbsp;<a href="$urlpaluba">Palubě</a>, Praha - Anděl</li>
             <li>ve&nbsp;skladu, Praha - Černý Most</li>
           </ul>
          </p>
          <p><b>Zašleme k Vám domů:</b>
          <br>Zboží zasíláme Českou poštu po celé ČR. Platit lze dobírkou či převodem.
          <br>Při objednávce nad $kosik::glob_mnozstevni_sleva_nad&nbsp;Kč <b>sleva $kosik::glob_mnozstevni_sleva&nbsp;%</b>
          <br><b>Organizace pracující s dětmi a mládeží obdrží slevu</b> (viz <a href="$urlcenikk">klubový ceník</a>).
          <p><b>Dodací lhůty</b> (je-li hra skladem): 
          <ul>
            <li>normální (2 - 10 prac. dní)</li>
            <li>zrychlené (2 - 5 prac. dní)</li>
            <li>expresní (do 2 pracovních dní)</li>
            <br>Není-li hra skladem, vyrozumíme Vás e-mailem, za jak dlouho opět bude.
          </ul>
          </p>
          
          <p>Hry jsou prodávány jménem Kláry Zemanové, IČO 68873841, Praha.</p>
          
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             <br>+420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), 
             <br>+420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
          

EOF
;
}



#------------------------------------------------------------------------------
# Informace o cenách poštovného.
#------------------------------------------------------------------------------
sub postovne
{
    my $html;
    $html .= "<p>Aktuální ceny poštovného a balného se liší podle ceny zakoupeného zboží a podle toho, zda platíte předem převodem na účet, nebo zda jde o dobírku:</p>\n";
    $html .= "<table>\n";
    my $lt = "align=left valign=top";
    my $rt = "align=right valign=top";
    $html .= "  <tr><th $lt>Cena zboží</th><th $lt>Dobírka</th><th $lt>Předplatba</th></tr>\n";
    my $postovne;
    for(my $i = 0; $i<=$#kosik::glob_postovne; $i++)
    {
        $postovne = $kosik::glob_postovne[$i];
        my $cena = "do&nbsp;$postovne->[0]&nbsp;Kč";
        my $dobirka = "$postovne->[1]&nbsp;Kč";
        my $predplatba = "$postovne->[2]&nbsp;Kč";
        $html .= "  <tr><td $rt>$cena</td><td $rt>$dobirka</td><td $rt>$predplatba</td></tr>\n";
    }
    # Proměnná $postovne ještě stále ukazuje na poslední řádek tabulky za předpokladu, že tabulka alespoň 1 řádek měla.
    my $cena = "nad&nbsp;$postovne->[0]&nbsp;Kč";
    $html .= "  <tr><td $rt>$cena</td><td $rt>zdarma</td><td $rt>zdarma</td></tr>\n";
    $html .= "</table>\n";
    return $html;
}



#------------------------------------------------------------------------------
# Informace o zasílání na Slovensko.
#------------------------------------------------------------------------------
sub slovensko
{
    print("<h1 align=center><font color=red>Zasílání na Slovensko</font></h1>\n");
    slovensko_jadro();
    print <<EOF
<p>Máte-li jakékoliv dotazy, obraťte se na nás:
   <a href="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
   +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
</p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Informace o zasílání na Slovensko.
#------------------------------------------------------------------------------
sub slovensko_jadro
{
    print <<EOF
<p>Dobírky zasíláme i na Slovensko, ale poštovné je bohužel mnohem dražší.
<p>Poštovné a balné připočítáváme na Slovensko takto:
<ul>
  <li>280&nbsp;Kč do 2&nbsp;Kg a 2000&nbsp;Kč
  <li>300&nbsp;Kč do 5&nbsp;Kg a 10&nbsp;000&nbsp;Kč
  <li>Nad 10&nbsp;000&nbsp;Kč je poštovné zdarma.
</ul>
<p>Dobírky na Slovensko platíte ve slovenských korunách a přepočet je podle kurzu ČSOB valuty střed ke dni odeslání. Dobírky dodáváme zhruba do 14 dnů. O přesné ceně i termínu dodání budete vyrozuměni e-mailem.</p>
<p>Omlouváme se, ale náš objednávkový formulář momentálně nepracuje se slovenskými adresami. Pokud požadujete zaslání na Slovensko, kontaktujte nás prosím e-mailem.</p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Úvodní stránka poradny.
#------------------------------------------------------------------------------
sub poradna
{
    my $urlcenik = urlpar("hra=cenik");
    my $urlrodina = urlpar("hra=rodina");
    my $urldeti = urlpar("hra=deti");
    my $urlpro2 = urlpar("hra=pro2");
    my $urlexperti = urlpar("hra=experti");
    my $urlmejdan = urlpar("hra=mejdan");
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <p>Chcete koupit nějakou hru a vůbec nevíte jakou? V&nbsp;obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?</p>
          <p>Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V&nbsp;<a HREF="http://www.paluba.cz/">Klubu deskových her Paluba</a>
          si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!</p>
          <p>Pokud nemáte tuto možnost, pokusíme se Vám zde dát pár užitečných tipů. Jsou členěny podle toho, pro koho jsou hry určeny.
          Někdy také chcete koupit hru jen do určitého cenového limitu. Pak Vám určitě ve výběru pomůže  
          <a href="$urlcenik">ceník (řazený dle cen).</a></p>
          <p>Vyberte si z&nbsp;následujících odkazů podle toho, komu chcete hru koupit:</p>
          <ul>
            <li>Chci koupit <a href="$urlrodina">hru pro celou rodinu, která s&nbsp;hraním začíná.</a>
            <li>Chci koupit <a href="$urldeti">hru pro malé dítě (2 - 7 let).</a>
            <li>Chci koupit <a href="$urlpro2">hru pro dva.</a>
            <li>Chci koupit <a href="$urlexperti">hru pro celou rodinu či skupinu přátel, kteří už hrají nějaký ten pátek.</a>
            <li>Chci koupit <a href="$urlmejdan">pro kamaráda hru, která se hodí na párty a mejdany.</a>
          </ul>
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Poradna pro rodinu.
#------------------------------------------------------------------------------
sub poradna_rodina
{
    my %url;
    foreach my $hra qw(car osa trn eme crt act spe psi deti pro2 experti mejdan)
    {
        $url{$hra} = urlpar("hra=$hra");
    }
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <h1 align=center>Hry pro celou rodinu</h1>
          <p>Chcete koupit nějakou hru a vůbec nevíte jakou? V&nbsp;obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?</p>
          <p>Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V&nbsp;<a HREF="http://www.paluba.cz/">Klubu deskových her Paluba</a>
             si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!</p>
          <p>Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.</p>
          <p>Jsou zde hry, které nemají složitá pravidla, dají se hrát i bez "zkušeností s&nbsp;hraním" a kromě toho jsou "osvědčené". 
             Tedy většině lidí (od dětí přes teenagery a dospěláky až po babičky) se líbí.</p>
          <ul>
            <li><a href="$url{car}">Carcassonne</a> Ideální rodinná hra (pro 2 - 5 hráčů od 6 let). Jednoduchá, zábavná, oceněná mnoha cenami, oblíbená po celém světě. Má řadu rozšíření a variant, takže pokud vás chytne, můžete rozšiřovat a zesložiťovat.</li>
            <li><a href="$url{car}">Carcassonne Město</a> NOVINKA! Samostatná hra pro 2 - 4 hráče. Je nejen herně zajímavá, ale také luxusně provedená: v&nbsp;dřevěné krabičce, dřevěné hradby a věže.</li>
            <li><a href="$url{osa}">Osadníci z&nbsp;Katanu</a> O malinko složitější rodinná hra (pro 3 - 4 hráče od 8 let), která vás chytne a nepustí. Oceněná mnoha cenami (<a href=\"http://hraroku.cz/\">Hra roku 2004</a>), oblíbená po celém světě. Má řadu rozšíření a variant, takže pokud vás chytne, můžete rozšiřovat a zesložiťovat.</li>
            <li><a href="$url{trn}">Trans America</a> Ideální rodinná hra (pro 2 - 6 hráčů od 7 let). Jednoduchá, rychlá a zábavná, nominovaná na cenu německé kritiky <a href=\"http://www.spiel-des-jahres.de/front_content.php?idcatart=124&amp;lang=1&amp;client=1\">Spiel des Jahres 2002</a>, oblíbená po celém světě.</li>
            <li><a href="$url{eme}">Emerald</a> Ideální rodinná hra (pro 2 - 5 hráčů). Určitě svým námětem zaujme i mladší hráče. Kradete totiž drakovi zlato a drahokamy.</li>
            <li><a href="$url{crt}">Cartagena</a> Dobrodružná rodinná hra (pro 2 - 5 hráčů od 8 let). Hra s&nbsp;netradičním vtipně řešeným herním systémem na motivy útěku z&nbsp;vězení.</li>
            <li><a href="$url{act}">Activity</a> Zábavná hra pro vetší skupinu lidí (pro 3 - 16 hráčů). Hra prohlubující komunikační schopnosti. Vylosujete si pojem, který musíte namalovat, popsat či předvést. Má několik variant pro různé věkové skupiny.</li>
            <li><a href="$url{spe}">Sankt Petersburg</a> Novinka. Trochu složitější, ale velice zajímavá hra pro 2 - 4 hráče od 10 let. Byla nominována na cenu německé kritiky <a href=\"http://www.spiel-des-jahres.de/front_content.php?idcatart=148&amp;lang=1&amp;client=1\">Spiel des Jahres 2004</a></li>
            <li><a href="$url{psi}">Psí život</a> Zábavná a vtipná hra hra pro 2 - 6 hráčů od 10 let.</li>
          </ul>
          <h3>Kromě rodinných her se můžete podívat na zajímavé hry pro:</h3>
          <ul>
            <li><a href="$url{deti}">malé děti (2 - 7 let)</a></li>
            <li><a href="$url{pro2}">dva</a></li>
            <li><a href="$url{experti}">celou rodinu či skupinu přátel, kteří už hrají nějaký ten pátek</a></li>
            <li><a href="$url{mejdan}">kamaráda - hry, které se hodí na párty a mejdany</a></li>
          </ul>
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Poradna pro děti.
#------------------------------------------------------------------------------
sub poradna_deti
{
    my %url;
    foreach my $hra qw(mme mte kuo mdn vst act duh pan kvi haf rodina pro2 experti mejdan)
    {
        $url{$hra} = urlpar("hra=$hra");
    }
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <h1 align=center>Hry pro děti ve věku 2 - 7 let</h1>
          <p>Deskové hry jsou nejen zábava, ale také rozvíjejí mnohé schopnosti (paměť, logické myšlení, koncentraci, pozorovací schopnosti, komunikační dovednosti, 
            jemnou motoriku, postřeh...). Kromě toho je pro vývoj dítěte velmi důležité, když se sejde celá rodina a něco aktivního dělá pohromadě. 
            Žádný sebedražší dárek nenahradí příjemnou a láskyplnou rodinnou atmosféru! Půl hodinky denně "celorodinného hraní" je pro dítě mnohem cennější, 
            než jakýkoliv dárek.</p>
          <p>Hrajeme s&nbsp;dětmi Pexeso či Člověče, nezlob se! A ani nevíme, že her pro tuto věkovou skupinu jsou desítky a velké množství z&nbsp;nich stojí za to. 
            Her je mnoho a v&nbsp;obchodě podle krabice poznáte málo.
          <p>Nejlepší je si hry vyzkoušet. Můžete tak učinit například v&nbsp;<a HREF="http://www.paluba.cz">Klubu deskových her Paluba</a>,
             kde si hry zahrajete i si je můžete rovnou koupit. Odborná rada zde nikdy nechybí!</p>
          <p>Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů:
          <ul>
            <li><a href="$url{mme}">Medoví Medvídci</a> Baví všechny děti od 3 let. Moc dobře udělaný strom (55 cm vysoký), skrz který propadávají medové kuličky i sami medvídci.</li>
            <li><a href="$url{mte}">Mám tě!</a> Zábavná hra na postřeh pro děti od 4 let. Kdo pochytá plácačkou víc much?</li>
            <li><a href="$url{kuo}">Kuřecí olympiáda</a> Kvalitní hra na paměť pro děti od 4 let, určitě bude bavit i 8 leté a rodičům taky protáhne mozkové závity.</li>
            <li><a href="$url{mdn}">Měsíčkova hra na dobrou noc</a> Rychlá hra (na cca 10 min.) s&nbsp;fosforeskujícími hvězdičkami, vhodná na večerní zklidnění. V&nbsp;první půlce hry hvězdičky věšíte na oblohu a v druhé půlce je zhasínáte. Pro děti od 3 let.</li>
            <li><a href="$url{vst}">Veselý statek</a> Velice hezky vyrobená hra s dřevěnými zvířátky a papírovým domečkem. Trochu složitější hra na paměť i trochu taktiky. Vhodná od 4 či 5 let, dle vyspělosti dítěte.</li>
            <li><a href="$url{act}">Activity děti</a> Zdařilá modifikace hry pro děti od 4 let. Předvádíte, malujete či popisujete, co je na obrázku, aby to ostatní uhodli. Má kromě verze Activity Original i verzi Junior, která je ideální pro  hráče od 8 let.</li>
            <li><a href="$url{duh}">Duha</a> Hra na paměť. Pamatované předměty se neustále mění, což dělá problém skoro víc dospělým než dětem. Hra má i jednoduchou variantu na poznávání barev, která je vhodná už od 2 let. Varianta na paměť od cca 3 let.</li>
            <li><a href="$url{pan}">Panáčci</a> Zaujme každou holčičku. Jde o oblékání panáčků. Hra s&nbsp;velkým prvkem náhody, která procvičuje jemnou motoriku. Pro děti od 2,5 let.</li>
            <li><a href="$url{kvi}">Hádanky dráčka Fráčka</a> Pěkně udělané hádanky v&nbsp;básničkách vhodné od 4 let.</li>
            <li><a href="$url{haf}">Haf haf!</a> Novinka, která se dětem velice líbí. Je částečně na paměť a částečně na náhodě. Psí máma uprostřed opravdu štěká, kolikrát štěkne, o tolik políček popojdou štěňátka, která hledají kostičku své barvy. Kosti se pejskům přichytávají k&nbsp;čumáčkům magnetem.</li>
          </ul>
          <h3>Kromě dětských her se můžete podívat na zajímavé hry pro:</h3>
          <ul>
            <li><a href="$url{rodina}">celou rodinu, která s&nbsp;hraním začíná</a></li>
            <li><a href="$url{pro2}">dva</a></li>
            <li><a href="$url{experti}">celou rodinu či skupinu přátel, kteří už hrají nějaký ten pátek</a></li>
            <li><a href="$url{mejdan}">kamaráda - hry, které se hodí na párty a mejdany</a></li>
          </ul>
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Poradna pro dva.
#------------------------------------------------------------------------------
sub poradna_pro2
{
    my %url;
    foreach my $hra qw(hll qor aba oth qar rodina deti experti mejdan)
    {
        $url{$hra} = urlpar("hra=$hra");
    }
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <h1 align=center>Hry pro dva</h1>
          <p>Chcete koupit nějakou hru a vůbec nevíte jakou? V&nbsp;obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?</p>
          <p>Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V&nbsp;<a HREF="http://www.paluba.cz/">Klubu deskových her Paluba</a>
             si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!</p>
          <p>Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.</p>
          <ul>
            <li><a href="$url{hll}">Halali</a> Novinka. Velice zajímavá hra pro 2 hráče. Hra je neobvyklá tím, že hráči mají odlišné možnosti tahů.</li>
            <li><a href="$url{qor}">Quoridor</a> Velice zajímavá a svižná hra pro 2 nebo 4 hráče. Snažíte se dostat na druhou stranu hracího plánu a místo tahu můžete také postavit překážku. Jestli to bude překážka pro protivníka nebo nakonec vaše, záleží na vašich schopnostech.</li>
            <li><a href="$url{aba}">Abalone</a> Jednoduchá svižná hra.</li>
            <li><a href="$url{oth}">Othello</a> Hra s&nbsp;velice jednoduchými pravidly, ale velkou hloubkou. Její kvality jsou prověřeny časem (pochází z&nbsp;viktoriánské Anglie).</li>
            <li><a href="$url{qar}">Quarto!</a> Rychlá, zajímavě řešená logická hra.</li>
          </ul>
          <h3>Kromě her pro 2 se můžete podívat na zajímavé hry pro:</h3>
          <ul>
            <li><a href="$url{rodina}">celou rodinu, která s&nbsp;hraním začíná</a></li>
            <li><a href="$url{deti}">malé děti (2 - 7 let)</a></li>
            <li><a href="$url{experti}">celou rodinu či skupinu přátel, kteří už hrají nějaký ten pátek</a></li>
            <li><a href="$url{mejdan}">kamaráda - hry, které se hodí na párty a mejdany</a></li>
          </ul>
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Poradna pro experty.
#------------------------------------------------------------------------------
sub poradna_experti
{
    my %url;
    foreach my $hra qw(pur eti spe lui amu lcr bud oma raz rodina deti pro2 mejdan)
    {
        $url{$hra} = urlpar("hra=$hra");
    }
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <h1 align=center>Hry pro fajnšmekry</h1>
          <p>Chcete koupit nějakou hru a vůbec nevíte jakou? V&nbsp;obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?</p>
          <p>Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V&nbsp;<a HREF="http://www.paluba.cz/">Klubu deskových her Paluba</a>
             si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!</p>
          <p>Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.</p>
          <ul>
            <li><a href="$url{pur}">Puerto Rico</a> Velice kvalitní hra, která právem vyhrála <a href=\"http://hraroku.cz/\">Hru roku 2005</a>. Jde o velice propracovanou hru, která potěší i náročné hráče.</li>
            <li><a href="$url{eti}">Eufrat a Tigris</a> Velmi pěkná hra, která je na českém trhu teprvo krátkou dobu, ale i tak už je oblíbená!</li>
            <li><a href="$url{spe}">Sankt Petersburg</a> Velice zajímavá hra pro 2 - 4 hráče od 10 let. Byla nominována na cenu německé kritiky <a href=\"http://www.spiel-des-jahres.de/front_content.php?idcatart=148&amp;lang=1&amp;client=1\">Spiel des Jahres 2004</a>.</li>
            <li><a href="$url{lcr}">Lara Croft Tomb Raider The Angel of Darkness</a> Máme omezený počet kusů této deskové hry na motivy oblíbené počítačové hry The Angel of Darkness.</li>
            <li><a href="$url{bud}">Blitz und Donner</a> Dovezli jsme pouze omezený počet kusů této kvalitní hry!</li>
            <li><a href="$url{oma}">Oltre Mare</a> Dovezli jsme pouze omezený počet kusů této kvalitní hry!</li>
            <li><a href="$url{raz}">Razzia</a> Dovezli jsme pouze omezený počet kusů této zábavné karetní hry!</li>
          </ul>
          <h3>Můžete se také podívat na zajímavé hry pro:</h3>
          <ul>
            <li><a href="$url{rodina}">celou rodinu, která s&nbsp;hraním začíná</a></li>
            <li><a href="$url{deti}">malé děti (2 - 7 let)</a></li>
            <li><a href="$url{pro2}">dva</a></li>
            <li><a href="$url{mejdan}">kamaráda - hry, které se hodí na párty a mejdany</a></li>
          </ul>
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Poradna na mejdany.
#------------------------------------------------------------------------------
sub poradna_mejdan
{
    my %url;
    foreach my $hra qw(ban rpo fif jun sbt rodina deti pro2 experti)
    {
        $url{$hra} = urlpar("hra=$hra");
    }
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <h1 align=center>Hry na párty a mejdany</h1>
          <p>Chcete koupit nějakou hru a vůbec nevíte jakou? V&nbsp;obchodech jsou jen zabalené krabice, tak jak zjistit, která stojí za to?</p>
          <p>Nejlepší je zajít do nějakého herního klubu a hru si zahrát. V&nbsp;<a HREF="http://www.paluba.cz/">Klubu deskových her Paluba</a>
             si hry zahrajete a můžete si je rovnou i koupit. Odborná rada zde nikdy nechybí!</p>
          <p>Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.</p>
          <ul>
            <li><a href="$url{ban}">Bang!</a> Královna mejdanů. Hra, která nezkazí žádnou legraci. Vhodná pro větší skupinku hráčů (4 - 7, ideální 6 či 7). Má i rozšíření.</li>
            <li><a href="$url{rpo}">Rodinný podnik</a> Bezvadná hra na večírky, mejdany, Silvestra... zkrátka do společnosti pro pobavení.</li>
            <li><a href="$url{fif}">Finstere Flure (Dvorana děsu)</a> Hráči se snaží přeběhnout Dvoranu děsu, aby je nechytla zlá obluda zvaná Furunkulus. Ale pozor, ať neuklouznete po krvi. Zábavná poziční hra pro 2 - 7 hráčů.</li>
            <li><a href="$url{jun}">Jungle Speed</a> Zábavná hra na postřeh, která rozehřeje každou společnost.</li>
            <li><a href="$url{sbt}">Saboteur</a> Nebudete se nudit a lze hrát i s&nbsp;mladšími hráči zhruba od 6 let! trochu blafování, trochu náhody, trochu škodolibosti, ...</li>
          </ul>
          <h3>Kromě mejdanových her se můžete podívat na zajímavé hry pro:</h3>
          <ul>
            <li><a href="$url{rodina}">celou rodinu, která s&nbsp;hraním začíná</a></li>
            <li><a href="$url{deti}">malé děti (2 - 7 let)</a></li>
            <li><a href="$url{pro2}">dva</a></li>
            <li><a href="$url{experti}">celou rodinu či skupinu přátel, kteří už hrají nějaký ten pátek</a></li>
          </ul>
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
EOF
    ;
}



#------------------------------------------------------------------------------
# Informace o slevách.
#------------------------------------------------------------------------------
sub slevy
{
    my $urlcenikk = urlpar("hra=cenikk");
    my $urlnovinky = urlpar("hra=novinky");
    my $urlpodminky = urlpar("hra=obecne");
    print <<EOF
          <h1 align=center><font color=red>Slevy</font></h1>
          <h2>Akční slevy</h2>
          <p>Akční slevy najdete vždy aktuálně na stránce <a href="$urlnovinky">NOVINKY</a>.</p>
          <h3>Při objednávce 
            <ul>
              <li>nad 3000&nbsp;Kč je <b>poštovné zdarma.</b></li>
              <li>nad 6000 Kč <b>sleva 3%.</b></li>
            </ul>
          </h3>
          <p><b>Při předplatbě na účet platíte nižsí poštovné o 30&nbsp;Kč.</b> Více najdete v&nbsp;<a href="$urlpodminky">DODACÍCH PODMÍNKÁCH.</a>
          <p><b>Organizace pracující s dětmi a mládeží také obdrží slevu.</b>
             <a href="$urlcenikk">(Klubový ceník)</a>
             Pokud jste taková organizace, <b>nezapomeňte to uvést při objednávce!</b></p>
          <p>Máte-li jakékoliv dotazy, obraťte se na nás:
             <a HREF="mailto:obchod\@hrejsi.cz">obchod\@hrejsi.cz</a>,
             +420&nbsp;777&nbsp;552&nbsp;729 (dobírky, sklad), +420&nbsp;777&nbsp;692&nbsp;337 (odběr Paluba).
          </p>
EOF
    ;
}

1;