# Internetový obchod nejen s hrami / různé texty o novinkách, slevách, s poradnou apod.
# Copyright © 2007-2013, 2015 Dan Zeman <zeman@ufal.mff.cuni.cz>
# Licence: GNU GPL
# 3.3.2012: začíná přestavba, na jejímž konci by obchod měl mít několik oddělení, hry budou jedno z nich
# 9.4.2015: přechod na new.kub.cz

package kecy;
use utf8;
use pomoc qw(urlpar urlstat);
use kosik;

# České typografické počáteční a koncové uvozovky.
$uv1 = "\x{201E}";
$uv0 = "\x{201C}";



#------------------------------------------------------------------------------
# Kontaktní e-mail a telefony.
#------------------------------------------------------------------------------
sub obratte_se_na_nas
{
    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
             <!--
             Instagram: <a HREF="https://www.instagram.com/obchod.hrejsi.cz/">obchod.hrejsi.cz</a>,
             Facebook: <a HREF="https://www.facebook.com/Obchod.HrejSi.cz/">Obchod.HrejSi.cz</a>
             -->
          </p>
EOF
    ;
}



#------------------------------------------------------------------------------
# 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 $urlslovensko = urlpar('pohled=slovensko');
    my $urlcenikk = urlpar('odd=hry', 'pohled=cenikk');
    my $tabulka_postovneho = postovne();
    my $varovani_vanoce;
    if(0)
    {
        $varovani_vanoce = '<h3 style="color:red">Do Vánoc stihneme dodat hry skladem u objednávek podaných do 19.12.2017 do 12 hodin. Pouze dodání přes DPD a Uloženku!  (Platby převodem dříve,aby do 19. 12. přišla platba)</h3>';
    }
    print <<EOF
          <h2 align=center>Dodací podmínky</h2>

EOF
;

    print <<EOF
        <div class="blok_note">
          <h2>ZPŮSOB DODÁNÍ</h2>

          <h3>Dobírkou</h3>
             <p>Zboží zasíláme na dobírku (je možná i platba převodem) prostřednictvím České pošty a Zásilkovny po celém území České republiky,
                po dohodě i <a href="$urlslovensko">na Slovensko</a> a případně do dalších zemí.
                Ceníky poštovného platí při doručení v&nbsp;Česku.
                Mezinárodní poštovné je dražší. Záleží na velikosti objednávky a zemi.</p>
          <h3>Osobní odběr</h3>
             <p>Zboží si též můžete vyzvednout osobně:
              <ul><li>ZDARMA v&nbsp;<a href="http://cs.wikipedia.org/wiki/Jen%C5%A1tejn">Jenštejně</a> u Prahy.
                      Po obdržení Vaší objednávky Vás vyrozumíme, zda je vše k&nbsp;dispozici skladem,
                      a domluvíme se s&nbsp;Vámi na čase převzetí.
                      Zpravidla možné hned týž den.
                      <br>Pokud něco není skladem, dáme Vám vědět, kdy očekáváme doskladnění.</p>
                  <li>na některém
                      <a href="https://www.zasilkovna.cz/pobocky" target="mapa">z výdejních míst Zásilkovny v ČR i na Slovensku.</a>
                      Dodání na tato výdejní místa je zpoplatněno. Na výdejní místa Vámi zvolené zboží
                      doputuje cca za 1 - 3 pracovní dny a budete pak vyrozuměni mailem i SMS.
                      Zboží pro Vás na výdejním místě bude uloženo standartně po dobu 2 dní.
               </ul>


        </div>

        <div class="blok_note">
          <h2>POPLATKY A SLEVY</h2>
          <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&nbsp;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>

          $tabulka_postovneho

          <p>

          <img id="trp_01" src="$main::staturl/trpaslici/01_trp.png" />
        </div>

        <div class="blok_note">
          <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 u objednávky.
             Je-li zboží skladem, tak ho většinou odesíláme cca do 1 maximálně 2 pracovních dnů a poště trvá dodání doporučených zásilek 1 až 4 pracovní dny a u balíku do ruky a na poštu 1 - 2 dny. Všechna výdejní místa kromě Jenštejna zajišťuje Zásilkovna a přeprava na vybrané místo trvá vetšinou 1, maximálně 2 dny. <b>Na výdejním místě v Jenštejně</b> bývá objednávka <b>připravena k vyzvednutí týž den.</b>
             <p> Tedy <b>svoji objednávku můžete čekat za 1 - 6 pracovní dny v závislosti na zvoleném dopravci. </b>
             </p>
             $varovani_vanoce

          <p>Není-li zboží skladem, pak Vás vyrozumíme e-mailem, za jak dlouho očekáváme doskladnění.</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 moci vyhovět!
          </p>
          <br/><!-- Vkládáme prázdné řádky, aby trpaslík nezakrýval text. -->
          <br/>
          <br/>
          <img id="trp_03" src="$main::staturl/trpaslici/03_trp.png" />
        </div>
EOF
    ;
    print("        <div class=\"blok_note\">\n");
    print("          <h2>Zasílání na Slovensko</h2>\n");
    slovensko_jadro();
    print("        </div>\n");
    print("          <p>Hry jsou prodávány jménem Kláry Zemanové, IČO 68873841.</p>\n");
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Obecné kecy o dodacích podmínkách apod. Zkrácená verze.
#------------------------------------------------------------------------------
sub obecne_mini
{
    my $urlpaluba = urlstat("paluba/index.htm");
    my $urlcenikk = urlpar('odd=hry', 'pohled=cenikk');
    my $tabulka_postovneho = postovne();
    print <<EOF
          <h2 align=left><font color=red>Jak zakoupit hry:</font></h2>
          <h3 align=left><font color=red>Vyzvednout osobně</font></h3>
          <p align=left>v&nbsp;Jenštejně u Prahy - pouze platby převodem kvůli EET :-( </p>
          <!--p align=left>v Praze na&nbsp;<a href="$urlpaluba">Palubě</a> (Anděl)</p-->
          <h3 align=left><font color=red>Zašleme k Vám domů:</font></h3>
          <p align=left>Zboží zasíláme Českou poštu po celé ČR. Platit lze dobírkou či převodem.
          <br><b>Organizace pracující s&nbsp;dětmi a mládeží obdrží slevu</b> (viz <a href="$urlcenikk">klubový ceník</a>).
          <p align=left><b>Dodací lhůty</b> (je-li hra skladem):
          <ul>
            <li>1 &ndash; 6 prac. dní v závislosti na zvoleném dopravci. U plateb převodem se dodání prodlouží o dobu, než bude částka připsána na náš účet.
		<!--<font color=red>Do Vánoc stihneme dodat hry skladem u objednávek podaných do 12.12.</font>
	    </li>
            <!--<li>zrychlené (1 &ndash; 3 prac. dny)
		<!--<font color=red>Do Vánoc stihneme dodat hry skladem u objednávek podaných do 18.12.</font>
	    <!--</li>
            <!--<li>expresní (1 &ndash; 3 prac. dny)<font color=red></li>-->
          </ul>
          <p align=left>Není-li hra skladem, vyrozumíme Vás e-mailem, za jak dlouho opět bude.</p>
          <hr>
          <p align=left>Hry jsou prodávány jménem Kláry Zemanové, IČO 68873841, Praha.</p>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# 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 .= "<br/>\n";
    $html .= "<table>\n";
    my $lt = "align=left valign=top";
    my $rt = "align=right valign=top";
    $html .= "  <tr><th $lt>Způsob dopravy</th><th $lt>Předplatba</th><th $lt>&nbsp;&nbsp;&nbsp;Dobírka</th></tr>\n";
    my $postovne;
    for(my $i = 0; $i<=$#{$kosik::glob_doprava_sazebnik{posta}}; $i++)
    {
        $postovne = $kosik::glob_doprava_sazebnik{posta}[$i];
        my $cena = "Nejrychlejší dodání na adresu v ČR do&nbsp;$postovne->[0]&nbsp;Kč (Pošta / Zásilkovna)";
        my $predplatba = "$postovne->[1]&nbsp;Kč";
        my $dobirka = "$postovne->[2]&nbsp;Kč";
        $html .= "  <tr><td $lt>$cena</td><td $rt>$predplatba</td><td $rt>$dobirka</td></tr>\n";
    }
    my %dodavatele =
    (
        'posta_do_ruky' => 'Dodání na adresu v ČR: Česká pošta balík do ruky',
#             'dpd' => 'Dodání na adresu v  ČR:  DPD',
#            'dpdcz' => 'Výdejní místo v  ČR:  DPD - ParcelShop ČR',
#             'dpdsk' => 'Výdejní místo v SR:  DPD - ParcelShop SR',
#             'posta_na_postu' => 'Výdejní místo v  ČR: Česká pošta Balík na poštu',
             'jenstejn' => 'Výdejní místo v  ČR: Jenštejn',
             'zasilkovna' => 'Výdejní místo v  ČR: Zásilkovna ČR',
             'zasilkovnask' => 'Výdejní místo v  SK: Packeta SK'
    );
    foreach my $dodavatel (keys(%dodavatele))
    {
        $postovne = $kosik::glob_doprava_sazebnik{$dodavatel}[0];
        my $predplatba = "$postovne->[1]&nbsp;Kč";
        my $dobirka = "$postovne->[2]&nbsp;Kč";
        $html .= "  <tr><td $lt>$dodavatele{$dodavatel}</td><td $rt>$predplatba</td><td $rt>$dobirka</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><th $lt>Každá objednávka  $cena</th><th $rt>zdarma</th><th $rt>zdarma</th></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();
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Informace o zasílání na Slovensko.
#------------------------------------------------------------------------------
sub slovensko_jadro
{
    print <<EOF
<p>Na Slovensko zasíláme pouze přes <b>Zásilkovnu</b>! Při platbě hotově na místě - budete platit za objednávku ekvivalent v eurech.
<p>Poštovné je bohužel dražší. K poštovnému připočítáváme <b>30 Kč</b>.
<p>Dobírky na Slovensko platíte v&nbsp;eurech a přepočet je podle kurzu dopravce. Dobírky dodáváme zhruba do týdne. 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, jen umožňuje výběr výdejních míst. Pokud požadujete zaslání na Slovensko na adresu, kontaktujte nás prosím e-mailem.</p>-->
EOF
    ;
}



#------------------------------------------------------------------------------
# Informace o prodlevě zasílání o prázdninách
#------------------------------------------------------------------------------
sub prazdniny
{
    print("<h1 align=center><font color=red>Zasílání o prázdninách</font></h1>\n");
    print <<EOF
<p>Omlouváme se, ale o letních prázdninách (28.6.-31.8.), z důvodu dovolených, může trvat dodání i déle než týden.</p>
<p>Děkujeme za pochopení.</p>
<br>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Informace o prodlevě zasílání o prázdninách
#------------------------------------------------------------------------------
sub vanoce
{
    print("<h1 align=center><font color=red>Zasílání o Vánocích</font></h1>\n");
    print <<EOF
<p>Pokud chcete mít jistotu, aby Vám zboží dorazilo do Vánoc, objednejte do neděle <b>15.12.2024</b> večer.</p>
<p>U objednávek převodem se hodí objednat ještě o něco dříve, abyste jí stihli včas zaplatit.</p>
<br>
<p><strong>Od 21.12.2024 do 5.1.2025 neexpedujeme objednávky.</strong></p>
<p>Děkujeme za pochopení.</p>
<br>
EOF
    ;
    obratte_se_na_nas();
}


#------------------------------------------------------------------------------
# Úvodní stránka poradny.
#------------------------------------------------------------------------------
sub poradna
{
    my $urlcenik = urlpar("pohled=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");
    my $urlsberatele = urlpar("hra=sberatelske");
    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.</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>
            <li>Chci koupit <a href="$urlsberatele">zajímavou hru která se nenachází nikde jinde na českém trhu a nevadí mi pravidla v angličtině.</a>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro rodinu.
#------------------------------------------------------------------------------
sub poradna_rodina
{
    my %url;
    foreach my $hra (qw(car kas kid azu avs ale azp osa kzk act rai deti pro2 experti mejdan sberatelske))
    {
        my $parpohled = length($hra)==3 ? 'pohled=hra' : 'pohled=poradna';
        my $parhra = "hra=$hra";
        $url{$hra} = urlpar($parpohled, $parhra);
    }
    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.</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{kas}">Kaskádie</a> Nová oblíbená rodinná hra (pro 1 - 4 hráče od 10 let). Rychlá hra, kde se snažíte vytvořit ideální region pro Vaše zvířata. Různá zvířata žijí v různých symbiózách. Oceněná cenou <a href=\"http://hraroku.cz/\">Hra roku 2022</a>.</li>
            <li><a href="$url{kid}">Kingdomino</a> Ideální rodinná hra (pro 2 - 4 hráče od 8 let). Rychlá a krátká hra, ale přesto velice zábavná. Chcete rozšířit své království, musíte prozkoumat co nejvíce typů krajin, abyste našli to pravé místo.</li>
            <li><a href="$url{azu}">Azul</a> Oblíbená rodinná hra (pro 2 - 4 hráče od 8 let). Jednoduchá, krásná, barevná, rychlá a svižná hra, ve které se vžijete do rolí mistrů obkladačů. Vytvořte tu nejkrásnější mozaiku pro královský palác! Má i několik samostatně hratelných zajímavých variant: <a href="$url{avs}">Vitráže Sintry</a>, <a href="$url{ale}">Letohrádek</a> a <a href="$url{azp}">Zahrady pro královnu</a>.</li>
            <li><a href="$url{kzk}">Kvedlalové z Kvedlinburku</a> Ideální rodinná hra (pro 2 - 4 hráče od 10 let). V roli pokoutních felčarů budete postupně losovat ze svého sáčku přísady do léčivých lektvarů, dokud nedojdete přesvědčení, že nic lepšího už ze svých zásob neuvaříte. Oceněná cenou <a href=\"http://hraroku.cz/\">Hra roku 2021</a>.</li>
            <li><a href="$url{rai}">Railroad Ink</a> Ideální rodinná hra (pro 1 - 6 hráčů od 8 let). Svižná a zábavná hra. Vybudujte dopravní síť, pomocí cest, které padly na kostkách!</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 (např.: <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{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>
          </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>
            <li><a href="$url{sberatelske}">ty, kterým nevadí pravidla a herní materiál v angličtině</a></li>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro děti.
#------------------------------------------------------------------------------
sub poradna_deti
{
    my %url;
    foreach my $hra (qw(dgm kid clv act duh pan kvi haf rodina pro2 experti mejdan sberatelske))
    {
        my $parpohled = length($hra)==3 ? 'pohled=hra' : 'pohled=poradna';
        my $parhra = "hra=$hra";
        $url{$hra} = urlpar($parpohled, $parhra);
    }
    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 zajít do nějakého herního klubu a hru si zahrát.</p>
          <p>Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů:
          <ul>
            <li><a href="$url{dgm}">Dragomino</a> Modifikace oblíbené hry <a href="$url{kid}">Kingdomino</a>. Vhodné pro děti od 4 let! Najděte na dračím ostrově vzácná dračí vejce a ochočte si neposedná dráčata!</li>
            <li><a href="$url{clv}">Chyť lva!</a> Strategická hra pro děti od 5 let! Tato hra je na způsob japonských šachů. Máte 4 žetony, představující zvířátka, musíte zachránit svého lva a chytit lva protivníka.</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>
           </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>
            <li><a href="$url{sberatelske}">ty, kterým nevadí pravidla a herní materiál v angličtině</a></li>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro dva.
#------------------------------------------------------------------------------
sub poradna_pro2
{
    my %url;
    foreach my $hra (qw(mss rai hll qor aba oth qar sqd rodina deti experti mejdan sberatelske))
    {
        my $parpohled = length($hra)==3 ? 'pohled=hra' : 'pohled=poradna';
        my $parhra = "hra=$hra";
        $url{$hra} = urlpar($parpohled, $parhra);
    }
    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.</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{mss}">Moře a Souš</a> Rychlá hra, kde soupeří moře proti souši. Každá kartička, kterou položíte může přinést body i druhému týmu! Lze hrát i ve větším počtu (2-4 hráči).</li>
            <li><a href="$url{rai}">Railroad Ink</a> Svižná a zábavná hra, která zabaví jak 2 hráče tak i klidně větší skupinu (1-6 hráčů). Vybudujte dopravní síť, pomocí cest, které padly na kostkách!</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{sqd}">Squadro</a> Rychlá logická hra, kde se snažíte dostat na druhou stranu a zpět.</li>
            <li><a href="http://obchod.hrejsi.cz/cgi/hry/prodej.pl?pohled=hra&hra=7wo&odd=hry">7 divů světa - DUEL</a> (<a href=\"http://hraroku.cz/\">Hra roku 2017</a>) Rychlá, strategická hra. Rozviňte svou vědu a svou armádu, postavte vznešené budovy a veďte svou civilizaci k vítězství!</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>
            <li><a href="$url{sberatelske}">ty, kterým nevadí pravidla a herní materiál v angličtině</a></li>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro experty.
#------------------------------------------------------------------------------
sub poradna_experti
{
    my %url;
    foreach my $hra (qw(trm cav agr mrs nkr zoa pcr ano rodina deti pro2 mejdan sberatelske))
    {
        my $parpohled = length($hra)==3 ? 'pohled=hra' : 'pohled=poradna';
        my $parhra = "hra=$hra";
        $url{$hra} = urlpar($parpohled, $parhra);
    }
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <h1 align=center>Hry pro náročné hráče</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.</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{mrs}">Mars: Teraformace</a> Meziplanetární korporace soutěží v přetváření Marsu na obyvatelnou planetu. Používají nejnovější technologie, aby zvýšily teplotu, obsah kyslíku v atmosféře a vytvořily oceány vody.</li>
            <li><a href="$url{ano}">Archa Nova</a> Budete projektovat a stavět moderní zoologickou zahradu. Budete budovat výběhy pro zvířata podle jejich životních potřeb, zabydlovat je zvířaty a podporovat ochranářské projekty na zachování rozmanitých živočišných druhů, aby vaše zoo byla nejvyhlášenější!</li>
            <li><a href="$url{trm}">Terra Mystica</a> Strategická hra s minimálním vlivem náhody a s fantasy tematikou a velkou znovuhratelností díky 14 rasám s odlišnými schopnostmi.</li>
            <li><a href="$url{cav}">Caverna</a> Caverna navazuje na legendární hru Agricola. Staňte se hlavou trpasličí rodiny, která se usadila v menší jeskyni.</li>
            <li><a href="$url{pcr}">Praga Caput Regni</a> V Praze za Karla IV. oragnizujete různé stavební projekty. Získejte si tím královu přízeň!</li>
            <li><a href="$url{zoa}">Ztracený ostrov Arnak</a> Stojíš v čele expedice, která se snaží důkladně prozkoumat ostrov a odhalit jeho tajemství.</li>
            <li><a href="$url{nkr}">Na křídlech</a> Stanete se ornitology, kteří se snaží přilákat do své voliéry co nejúžasnější ptáky!</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>
            <li><a href="$url{sberatelske}">ty, kterým nevadí pravidla a herní materiál v angličtině</a></li>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna na mejdany.
#------------------------------------------------------------------------------
sub poradna_mejdan
{
    my %url;
    foreach my $hra (qw(ban bko jun sbt szd dix cna act rodina deti pro2 experti sberatelske))
    {
        my $parpohled = length($hra)==3 ? 'pohled=hra' : 'pohled=poradna';
        my $parhra = "hra=$hra";
        $url{$hra} = urlpar($parpohled, $parhra);
    }
    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.</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á řadu rozšíření i verzí, jako například <a href="$url{bko}">kostkovou verzi</a> a hru na podobném principu Samurajský meč.</li>
            <li><a href="$url{dix}">Dixit</a> je hrou vyprávěcí. Hráči se snaží podle karet nastínit příběh - ale musí si počínat obezřetně, aby jejich příběh nebyl ani příliš komplikovaný, ani příliš jednoduchý.</li>
            <li><a href="$url{cna}">Krycí jména</a> Dvě skupiny hráčů soupeří o to kdo první kontaktuje své agenty, které zná jen pod jejich krycím jménem. Oblíbená hra oceněná mnoha cenami (<a href=\"http://hraroku.cz/\">Hra roku 2016</a>, Spiel des Jahres 2015).</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{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>
          </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>
            <li><a href="$url{sberatelske}">ty, kterým nevadí pravidla a herní materiál v angličtině</a></li>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro sběratelské hry.
#------------------------------------------------------------------------------
sub poradna_sberatelske
{
    my %url;
    foreach my $hra ('rox', 'aaf', 'urp', 'sld', 'cft', 'ipr', 'dai', '7dw', 'rodina', 'deti', 'pro2', 'experti', 'mejdan')
    {
        my $parpohled = length($hra)==3 ? 'pohled=hra' : 'pohled=poradna';
        my $parhra = "hra=$hra";
        $url{$hra} = urlpar($parpohled, $parhra);
    }
    print <<EOF
          <h1 align=center><font color=green>Herní poradna</font></h1>
          <h1 align=center>Sběratelské hry</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.</p>
          <p>Pokud si nemůžete hry vyzkoušet, nabízíme zde pár konkrétních tipů.</p>
          <p>Jsou zde ty nejzajímavější hry, které nemají pravidla v češtině.</p>
          <ul>
            <li><a href="$url{rox}">X Robot</a> Rychlá karetní hra (30-45 min, od 8 let). Stavíte vlastního robota z vydražených částí. Některé jsou ale hodnotnější než jiné. Ten kdo postaví nejhodnotnějšího robota vyhrává!</li>
            <li><a href="$url{aaf}">Across Africa</a> Rychlá hra pro děti (30-45 min, od 6 let). Putujete po Africe a snažíte se vyfotit exotická zvířata co nejlépe.</li>
            <li><a href="$url{urp}">Urban Panic</a> Hra pro 2-4 hráče (40-60 min, od 10 let). Postavte město svých snů! Vtělíte se do investorů. S pomocí architekta, starosty, plánovače, inženýra a špióna se musí postarat o každý aspekt života obyvatel.</li>
            <li><a href="$url{sld}">Steel Driver</a> Hra pro 3-6 hráčů (60-90 min, od 12 let). Stavíte americké železnice a snažíte se ovládnout želzniční společnosti, které vám pak přinášejí peníze.</li>
            <li><a href="$url{cft}">Craftsmen</a> Hra pro 2-5 hráčů (2-3 hod, od 10 let). Stanete se administrátory malého městečka. Zvládnete v 5 odvětvích město zlepšit, aby bylo významné na mapě království?</li>
            <li><a href="$url{ipr}">Imperialism</a> Hra pro 2-4 hráče (1-2 hod, od 12 let). Jako vládci největších evropských mocností organizujete expedice do zámoří, abyste objevili nové kouty země.</li>
            <li><a href="$url{dai}">Daimyo</a> Hra pro 2-4 hráče (60 min, od 12 let). Strategická hra odehrávající se ve feudálním Japonsku. Poražte ostatní vojevůce!</li>
            <li><a href="$url{'7dw'}">7 days of Westerplatte</a> <strong>Kooperativní hra</strong> pro 1-4 hráče (45-60 min, od 8 let). Stanete polskými veliteli, kteří spolupracují, aby porazili německou armádu. Podaří se vám svou zem ubránit celých 7 dní?</li>
          </ul>
          <h3>Kromě sběratelský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>
            <li><a href="$url{mejdan}">kamaráda - hry, které se hodí na párty a mejdany</a></li>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Informace o slevách.
#------------------------------------------------------------------------------
sub slevy
{
    my $urlcenikk = urlpar('odd=hry', 'pohled=cenikk');
    my $urlnovinky = urlpar('odd=hry', 'pohled=novinky');
    my $urlpodminky = urlpar('pohled=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 $kosik::glob_mnozstevni_sleva_nad&nbsp;Kč <b>sleva $kosik::glob_mnozstevni_sleva&nbsp;%.</b></li>
            </ul>
          </h3>
          <p><b>Při předplatbě na účet platíte nižsí poštovné.</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>
EOF
    ;
    obratte_se_na_nas();
}



1;