From b4d283daad37c2e7ab102b2b5af7b22e31ec94b5 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Fri, 16 Dec 2016 23:14:35 +0900
Subject: [PATCH] Implement MILLISEC system variable

---
 SMILEBASIC/compiler.d       | 1 +
 SMILEBASIC/systemvariable.d | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/SMILEBASIC/compiler.d b/SMILEBASIC/compiler.d
index ebac7bd..c9158ca 100644
--- a/SMILEBASIC/compiler.d
+++ b/SMILEBASIC/compiler.d
@@ -228,6 +228,7 @@ class Compiler
         addSystemVariable("TABSTEP", new TabStep());
         addSystemVariable("RESULT", new Result());
         addSystemVariable("HARDWARE", new Hardware());
+        addSystemVariable("MILLISEC", new MilliSecond());
     }
     void addSystemVariable(wstring name, SystemVariable var)
     {
diff --git a/SMILEBASIC/systemvariable.d b/SMILEBASIC/systemvariable.d
index 6de74d6..3e4f314 100644
--- a/SMILEBASIC/systemvariable.d
+++ b/SMILEBASIC/systemvariable.d
@@ -124,3 +124,12 @@ class Hardware : SystemVariable
             return Value(cast(int)vm.petitcomputer.hardware);
         }
 }
+class MilliSecond : SystemVariable
+{
+    @property
+        override Value value()
+        {
+            import derelict.sdl2.sdl;
+            return Value(cast(int)SDL_GetTicks());
+        }
+}