Ryan
/
PerlRPG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ClearScreen script command

This commit is contained in:
Ryan Shepherd 2018-10-11 15:50:39 -04:00
parent 3af5ced1cd
commit a9d5032b7a
3 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
PerlRPG/Drawing.pm
View File

@ -168,6 +168,13 @@ sub HideSprite {
delete $VisibleSprites{$name}; delete $VisibleSprites{$name};
} }
sub ClearScreen {
foreach (keys %VisibleSprites) {
next if($_ eq 'Background');
HideSprite($_);
}
}
sub MoveSprite { sub MoveSprite {
my($name, $x, $y)=@_; my($name, $x, $y)=@_;
return undef unless(exists $VisibleSprites{$name}); return undef unless(exists $VisibleSprites{$name});

1
PerlRPG/Script.pm
View File

@ -34,6 +34,7 @@ my %script_commands = (
'Show' => {'sub' => \&PerlRPG::Drawing::ShowSprite, 'wait' => 0}, 'Show' => {'sub' => \&PerlRPG::Drawing::ShowSprite, 'wait' => 0},
'Hide' => {'sub' => \&PerlRPG::Drawing::HideSprite, 'wait' => 0}, 'Hide' => {'sub' => \&PerlRPG::Drawing::HideSprite, 'wait' => 0},
'SetBackground' => {'sub' => \&PerlRPG::Drawing::SetBackgroundColor, 'wait' => 0}, 'SetBackground' => {'sub' => \&PerlRPG::Drawing::SetBackgroundColor, 'wait' => 0},
'ClearScreen' => {'sub' => \&PerlRPG::Drawing::ClearScreen, 'wait' => 0},
'ScanDirectory' => {'sub' => \&PerlRPG::Assets::ScanDirectory, 'wait' => 0}, 'ScanDirectory' => {'sub' => \&PerlRPG::Assets::ScanDirectory, 'wait' => 0},
'LoadAssets' => {'sub' => \&PerlRPG::Assets::LoadAssets, 'wait' => 0}, 'LoadAssets' => {'sub' => \&PerlRPG::Assets::LoadAssets, 'wait' => 0},

10
Resources/script.gs
View File

@ -3,10 +3,10 @@ __init__:
TargetFPS = 20 TargetFPS = 20
drawroom: drawroom:
ClearScreen
SetBackground 0 0 0 255 SetBackground 0 0 0 255
SetAssetOption spritesheet.png Animated SetAssetOption spritesheet.png Animated
AddSayer h "Hermione" aka01.png 255 0 0 255 AddSayer h "Hermione" aka01.png 255 0 0 255
#AddSayer h2 "Hermione2" aka05.png 32 32 255 255 left flip
SpeechBorderSize = 3 SpeechBorderSize = 3
SpeechBorderColor = "128 128 128 255" SpeechBorderColor = "128 128 128 255"
@ -21,13 +21,13 @@ drawroom:
Show candler candle.png 400 100 11 flip Show candler candle.png 400 100 11 flip
Show candlel candle.png 240 100 11 Show candlel candle.png 240 100 11
#Show fireplacea fireplace_fire.vs 575 147 12 Show fireplacea fireplace_fire.vs 575 147 12 ticks=2
#Show candlera fire.vs 400 95 12 flip Show candlera fire.vs 400 95 12 flip ticks=2
#Show candlela fire.vs 240 95 12 Show candlela fire.vs 240 95 12 ticks=2
Show desk 11_genie_00.png 230 220 13 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: convo:
Call subtest Call subtest