From e294e63159e9596dd23bdb33e6ac3c574c32289f Mon Sep 17 00:00:00 2001
From: Pixel <pixel@nobis-crew.org>
Date: Mon, 21 Dec 2009 21:22:38 +0100
Subject: Various fixes.

---
 dalos.lua | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'dalos.lua')

diff --git a/dalos.lua b/dalos.lua
index 7f554d1..06058de 100644
--- a/dalos.lua
+++ b/dalos.lua
@@ -16,6 +16,8 @@ dalosp.WEST = 3
 dalosp.EAST = 4
 dalosp.cross = { }
 
+dalos.version = { MAJOR = 0, MINOR = 1, suffix = "alpha" }
+
 function dalos:register_obj(name, constructor)
     if self.objectstypes_by_name[name] then
         error("An object type of that name already exists: " .. name)
@@ -502,7 +504,9 @@ dalosp.menu = {
         if dlg.status ~= -1 then
             local s, v = pcall(Output, dlg.value)
             if s then
-                v:write "local "
+                v:write "---- Dalos save\nlocal "
+                dumpvars(v, dalos.version, "version")
+                v:write "if dalos.version.MAJOR < version.MAJOR or dalos.version.MAJOR == version.MAJOR and dalos.version.MINOR < version.MINOR then error 'Dalos version too old for this save.' end\n\nlocal "
                 dumpvars(v, save, "save")
                 v:write "return save"
             end
@@ -519,7 +523,7 @@ dalosp.menu = {
             ButtonDefault = "1",
             Buttons = "OK",
             Title = "About",
-            Value = 'DALOS (c) 2009-2010 Nicolas "Pixel" Noble.\nThis is free software with ABSOLUTELY NO WARRANTY.\nPlease look at the COPYRIGHT file for details.',
+            Value = 'DALOS ' .. dalos.version.MAJOR .. '.' .. dalos.version.MINOR .. dalos.version.suffix .. ' (c) 2009-2010 Nicolas "Pixel" Noble.\nThis is free software with ABSOLUTELY NO WARRANTY.\nPlease look at the COPYRIGHT file for details.',
         }
         dlg:popup()
         return iup.DEFAULT
-- 
cgit v1.2.3