Implement BACKCOLOR

2016-12-07 22:31:51 +09:00
parent 1c5c0935de
commit 02fad28c82
2 changed files with 22 additions and 0 deletions
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -315,6 +315,14 @@ class BuiltinFunction
        p.BGvisible = cast(bool)BG;
        p.sprite.visible = cast(bool)sprite;
    }
+    static void BACKCOLOR(PetitComputer p, int color)
+    {
+        p.backcolor = color;
+    }
+    static int BACKCOLOR(PetitComputer p)
+    {
+        return p.backcolor;
+    }
    static void XON(PetitComputer p, Value mode/*!?!???!?*/)
    {
    }