Implement BG callback

2016-12-31 13:50:44 +09:00
parent 4eb6a1fc98
commit e4deae3b69
4 changed files with 36 additions and 2 deletions
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -2223,6 +2223,17 @@ class BuiltinFunction
        }
        BGLOAD(p, layer, 0, 0, p.getBG(layer).width, p.getBG(layer).height, ary, 0);
    }
+    static void BGFUNC(PetitComputer p, int layer, wstring func)
+    {
+        if (!p.isValidLayer(layer))
+        {
+            throw new OutOfRange("BGFUNC", 1);
+        }
+        auto callback = p.vm.createCallback(func);
+        if (callback.type == CallbackType.none)
+            throw new IllegalFunctionCall("BGUNC"/*, 2*/);
+        p.getBG(layer).callback = callback;
+    }
    static void EFCON()
    {
    }