From 735b632f52472ac4403964f5bf806ca15bb0e01a Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Thu, 29 Dec 2016 21:27:16 +0900
Subject: [PATCH] Fix SPCLR

---
 SMILEBASIC/sprite.d | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/SMILEBASIC/sprite.d b/SMILEBASIC/sprite.d
index b50f9d8..5ef554e 100644
--- a/SMILEBASIC/sprite.d
+++ b/SMILEBASIC/sprite.d
@@ -973,9 +973,20 @@ class Sprite
     }
     void spclr()
     {
-        synchronized (this) for(int i = 0; i < sprites.length; i++)
+        auto id = spid(0);
+        if(spmax <= id)
         {
-            sprites[i].clear;
+            synchronized (this) for(int i = id; i < sprites.length; i++)
+            {
+                sprites[i].clear;
+            }
+        }
+        else
+        {
+            synchronized (this) for(int i = 0; i < spmax; i++)
+            {
+                sprites[i].clear;
+            }
         }
     }
     void allclear()