dieren: derived additions (leeuwerik, draak*, behemoth)

diff --git a/dieren.plp b/dieren.plp
index 8abcdfdbd28835213669fe1cfe6c3679d5ecf2d5..4332d5613a58d8faa9b974e9a32231aa42d8cade 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -96,16 +96,20 @@ my @table = qw(
        #>olifant: olifant    zeeolifant   olifantsvis    kamerolifant? -           #olifantsoor
         >beer:    beer       zeebeer      waterbeertje   ijsbeer      wasbeer      #neusbeer
         >leeuw:   leeuw      zeeleeuw     waterleeuw??   aardleeuw??=kameleon
-                                                                      mierenleeuw  #
+                                                                      mierenleeuw  #leeuwerik
         >wolf:    wolf       zeewolf      waterwolf??=snoek  aardwolf korenwolf    #strandwolf=bruine_hyena
         >haan:    haan       zeehaan      waterhaan      rotshaan     sprinkhaan   #wilde_haan??=wildrooster
        #>pad:     pad        zebrapad?    waterpad?      landpad      schildpad    #paddenstoel
-       #>draak:   draak      zeedraak     waterdraak=agame          - komododraak=varaan #
-       #>vlo:     vlo        zeevlo       watervlo       aardvlo      vlok?        #
-       #>mot:     mot        marmot       watermot       bergamot     -            #
+        >draak:   draak      zeedraak     waterdraak=agame aarddraak?=戊辰
+                                                          komododraak=varaan       #drakenkop
+       #>vlo:     vlo        zeevlo       watervlo       aardvlo      -            vlok?
+       #>mot:     mot        marmot       watermot       bergamot     behemoth?    #
        #>bij:     bij        -            waterbij       aardbei      moerbei      hommelbij
 );
-$table[4 + 9*7] = 'grasmodderpaard?=草泥马' if $Request eq 'standaard'; # replace turnpaard
+if ($Request eq 'standaard') {
+       $table[4 + 9*7] = 'grasmodderpaard?=草泥马'; # replace turnpaard
+       $table[1 + 18*7] = 'draak_'; # irl animal
+}
 
 @table = qw(
        >hond    zeehond    prairiehond