From a9d5032b7a0cf131cf2562a86e2f9e287a009dda Mon Sep 17 00:00:00 2001
From: Ryan Shepherd <rotaryprophet@gmail.com>
Date: Thu, 11 Oct 2018 15:50:39 -0400
Subject: [PATCH] ClearScreen script command

---
 PerlRPG/Drawing.pm  |  7 +++++++
 PerlRPG/Script.pm   |  1 +
 Resources/script.gs | 10 +++++-----
 3 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/PerlRPG/Drawing.pm b/PerlRPG/Drawing.pm
index f9a3347..7e43fb1 100644
--- a/PerlRPG/Drawing.pm
+++ b/PerlRPG/Drawing.pm
@@ -168,6 +168,13 @@ sub HideSprite {
 	delete $VisibleSprites{$name};
 }
 
+sub ClearScreen {
+	foreach (keys %VisibleSprites) {
+		next if($_ eq 'Background');
+		HideSprite($_);
+	}
+}
+
 sub MoveSprite {
 	my($name, $x, $y)=@_;
 	return undef unless(exists $VisibleSprites{$name});
diff --git a/PerlRPG/Script.pm b/PerlRPG/Script.pm
index c49d784..9e8ec9b 100644
--- a/PerlRPG/Script.pm
+++ b/PerlRPG/Script.pm
@@ -34,6 +34,7 @@ my %script_commands = (
 	'Show'			=> {'sub' => \&PerlRPG::Drawing::ShowSprite,		'wait'	=> 0},
 	'Hide'			=> {'sub' => \&PerlRPG::Drawing::HideSprite,		'wait'	=> 0},
 	'SetBackground'		=> {'sub' => \&PerlRPG::Drawing::SetBackgroundColor,	'wait'	=> 0},
+	'ClearScreen'		=> {'sub' => \&PerlRPG::Drawing::ClearScreen,		'wait'	=> 0},
 
 	'ScanDirectory'		=> {'sub' => \&PerlRPG::Assets::ScanDirectory,		'wait'	=> 0},
 	'LoadAssets'		=> {'sub' => \&PerlRPG::Assets::LoadAssets,		'wait'	=> 0},
diff --git a/Resources/script.gs b/Resources/script.gs
index 53eb76f..6548b7f 100644
--- a/Resources/script.gs
+++ b/Resources/script.gs
@@ -3,10 +3,10 @@ __init__:
 	TargetFPS = 20
 
 drawroom:
+	ClearScreen
 	SetBackground 0 0 0 255
 	SetAssetOption spritesheet.png Animated
 	AddSayer h "Hermione" aka01.png 255 0 0 255
-	#AddSayer h2 "Hermione2" aka05.png 32 32 255 255 left flip
 
 	SpeechBorderSize = 3
 	SpeechBorderColor = "128 128 128 255"
@@ -21,13 +21,13 @@ drawroom:
 	Show candler	candle.png		400 100 11 flip
 	Show candlel	candle.png		240 100 11
 
-	#Show fireplacea	fireplace_fire.vs	575 147 12
-	#Show candlera	fire.vs			400 95 12 flip
-	#Show candlela	fire.vs			240 95 12
+	Show fireplacea	fireplace_fire.vs	575 147 12 ticks=2
+	Show candlera	fire.vs			400 95 12 flip ticks=2
+	Show candlela	fire.vs			240 95 12 ticks=2
 
 
 	Show desk	11_genie_00.png		230 220 13
-	#Show hermione	spritesheet.png		450 310 14 reverse ticks=4
+	Show hermione	spritesheet.png		450 310 14 reverse ticks=4
 
 convo:
 	Call subtest