git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
637b74f
)
dieren: derived additions (leeuwerik, draak*, behemoth)
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 11 May 2022 21:34:14 +0000
(23:34 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 1 Jun 2022 18:05:15 +0000
(20:05 +0200)
dieren.plp
patch
|
blob
|
history
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
#>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
>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
);
#>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
@table = qw(
>hond zeehond prairiehond