Implement CALL SPRITE

2016-12-31 13:40:44 +09:00
parent 803538d358
commit 4eb6a1fc98
7 changed files with 190 additions and 61 deletions
--- a/SMILEBASIC/systemvariable.d
+++ b/SMILEBASIC/systemvariable.d
@@ -10,6 +10,9 @@ class SystemVariable
    @property
        void value(Value value)
        {
+            //v3.3.2
+            //TIME$=1,TIME$="1"=>Type mismatch(runtime)
+            //MAINCNT=1,MAINCNT="1"=>Syntax error(runtime)
            throw new TypeMismatch();
        }
 }
@@ -139,3 +142,10 @@ class ProgramSlot : SystemVariable
            return Value(vm.petitcomputer.program.currentSlot);
        }
 }
+class CallIndex : SystemVariable
+{
+    @property override Value value()
+    {
+        return Value(vm.petitcomputer.callidx);
+    }
+}