From 198ae5c7821f778408bba8a9c59294eeaf732c9e Mon Sep 17 00:00:00 2001
From: silverwizard <silverwizard@pinebook.belchatow.vectranet.pl>
Date: Sat, 30 Nov 2019 02:24:54 -0500
Subject: [PATCH] Added a bunch of defaults

---
 CardGen.pl   | 25 +++++++++++++++++++++----
 shopping.yml |  7 ++++---
 2 files changed, 25 insertions(+), 7 deletions(-)

diff --git a/CardGen.pl b/CardGen.pl
index c269ce3..4daa02f 100644
--- a/CardGen.pl
+++ b/CardGen.pl
@@ -5,14 +5,31 @@ use Text::Wrap;
 $Text::Wrap::columns = 30;
 
 my $cards = LoadFile('shopping.yml');
-$bgcolour = $cards->{Deck}->{Background};
-$mainfont = $cards->{Deck}->{Font};
-$txtcolour = $cards->{Deck}->{TextColour};
+if($cards->{Deck}->{Background}){
+	$bgcolour = $cards->{Deck}->{Background};
+}else{
+	$bgcolour='white';
+}
+if($cards->{Deck}->{Font}){
+	$mainfont = $cards->{Deck}->{Font};
+}else{
+	$mainfont = 'Courier';
+}
+if($cards->{Deck}->{TextColour}){
+	$txtcolour = $cards->{Deck}->{TextColour};
+}else{
+	$txtcolour = 'black';
+}
+if($cards->{Deck}->{BorderColour}){
+	$bordercolour = $cards->{Deck}->{BorderColour};
+}else{
+	$bordercolour = 'red';
+}
 
 foreach my $card (keys %{$cards->{Deck}->{Cards}}){
 	my $image = Image::Magick->new(size=>'600x825');
 	$image->ReadImage('canvas:' . $bgcolour);
-	$image->Draw(stroke=>'red', fill => 'none', strokewidth=>1, primitive=>'rectangle', points=>'38,38 562,787');
+	$image->Draw(stroke=>$bordercolour, fill => 'none', strokewidth=>1, primitive=>'rectangle', points=>'38,38 562,787');
 	my $surface = Image::Magick->new;
 	$surface->Rotate(90);
 	$surface->Resize('600x825!');
diff --git a/shopping.yml b/shopping.yml
index 3dc4402..b550fca 100644
--- a/shopping.yml
+++ b/shopping.yml
@@ -1,7 +1,8 @@
 Deck:
-  Background: black
-  Font: Courier 
-  TextColour: white
+  #Background: black
+  #Font: Courier 
+  #TextColour: DarkGoldenRod3
+  #BorderColour: green
   Cards:
     Leg Boost:
       - Grants +1d6 when jumping