From 2d689f2ba483997f2fad02fddf99b701f88b9f9a Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 11 May 2022 23:34:14 +0200
Subject: [PATCH] dieren: derived additions (leeuwerik, draak*, behemoth)

---
 dieren.plp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/dieren.plp b/dieren.plp
index 8abcdfd..4332d56 100644
--- 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
-- 
2.30.0