# 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
          </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 DPD 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. <b>Bohužel díky EET nemůžeme akceptovat platby v hotovosti,</b> proto je při tomto způsobu vyzvednutí možná <b>pouze platba převodem předem.</b> Moc se omlouváme. Podklady k platbě zasíláme ihned, jak zkontrolujeme, že máme pro Vás zboží skladem. 
                      <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.ulozenka.cz/pro-prijemce-zasilek">z 484 výdejních míst HeurékaPointu, Uloženky a UloženkaPartner 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 po dobu 7 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. DPD a všechna výdejní místa kromě Jenštejna zajišťuje Uloženka 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> Bohužel při vyzvednutí v Jenštejně akceptujeme <b>pouze platby PŘEVODEM PŘEDEM.</b> Bohužel platby hotově jsme byli nuceni zrušit díky EET. Omlouváme se!
             <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 moct 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 / Uloženka / DPD)";
        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 - platby POUZE PŘEDEM PŘEVODEM!',
             'ulozenka' => 'Výdejní místo v  ČR: HeurékaPoint - Uloženka ČR i SR'
    );
    foreach my $dodavatel (sort {$dodavatele{$a} cmp $dodavatele{$b}} (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> Nejjednodušší a nejlevnější je vybrat si některou pobočku Uloženky - jsou na výběr při výběru způsobu vyzvedutí v Uložence - Heuréka Point na Slovensku a Uloženka - ParcelShop v SR. Při platbě hotově na místě - budete platit za objednávku ekvivalent v eurech.
<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 dle aktuálního ceníku České pošty.
<p>Dobírky na Slovensko platíte v&nbsp;eurech a přepočet je podle kurzu dopravce. Pro únor 2018 platí: <b>1 EUR = 25,10 CZK.</b> 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, 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
    ;
}



#------------------------------------------------------------------------------
# Ú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");
    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>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro rodinu.
#------------------------------------------------------------------------------
sub poradna_rodina
{
    my %url;
    foreach my $hra (qw(car osa tre eme crt act spe psi 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>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{tre}">Trans Evropa</a> Ideální rodinná hra (pro 2 - 6 hráčů od 7 let). Jednoduchá, rychlá a zábavná, nominovaná na cenu německé kritiky Spiel des Jahres 2002, oblíbená po celém světě.</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{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{tre}">Trans Evropa</a> Ideální rodinná hra (pro 2 - 6 hráčů od 7 let). Jednoduchá, rychlá a zábavná, nominovaná na cenu německé kritiky Spiel des Jahres 2002, oblíbená po celém světě.</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>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# 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))
    {
        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{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{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{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>
          </ul>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro dva.
#------------------------------------------------------------------------------
sub poradna_pro2
{
    my %url;
    foreach my $hra (qw(hll qor aba oth qar rodina deti 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>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{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{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>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna pro experty.
#------------------------------------------------------------------------------
sub poradna_experti
{
    my %url;
    foreach my $hra (qw(trm cav agr pur eti spe lui amu lcr bud oma raz rodina deti pro2 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>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.</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{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{agr}">Agricola</a> Hra vás zavede na zemědělskou usedlost 17. století. Budete pečovat o své hospodářství tak, aby nikdo z domácnosti nezemřel hlady a váš statek prosperoval a rozvíjel se. Budete pěstovat obilí a zeleninu, chovat zvířata, starat se o rodinu a její živobytí.</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>
EOF
    ;
    obratte_se_na_nas();
}



#------------------------------------------------------------------------------
# Poradna na mejdany.
#------------------------------------------------------------------------------
sub poradna_mejdan
{
    my %url;
    foreach my $hra (qw(ban rpo fif jun sbt rodina deti pro2 experti))
    {
        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 kostkovou verzi a hru na podobném principu Samurajský meč.</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{jun}">Jungle Speed</a> Zábavná hra na postřeh, která rozehřeje každou společnost.</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>
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;