getvar - friend of getalias

git-svn-id: svn://svn.code.sf.net/p/actiongame/code/trunk/ac@6266 e016b1c5-ed68-44aa-a2f7-31cac88cffde
2011-04-17 15:49:45 +00:00
parent cce5c3ed6b
commit 259fc18ebd
1 changed files with 26 additions and 0 deletions
@@ -290,6 +290,32 @@ void _getalias(char *name)
 }
 COMMANDN(getalias, _getalias, ARG_1STR);

+void _getvar(char *name)
+{
+	string resstr;
+	resstr[0] = '\0';
+    ident *id = idents->access(name); 
+    if(id)
+	{
+		switch(id->type)
+		{
+			case ID_VAR:
+				formatstring(resstr)("%d", *id->storage.i);
+				break;
+			case ID_FVAR:
+				formatstring(resstr)("%.3f", *id->storage.f);
+				break;
+			case ID_SVAR:
+				formatstring(resstr)("%s", *id->storage.s);
+				break;
+
+			default: break;
+		}
+	}
+	result(resstr);
+}
+COMMANDN(getvar, _getvar, ARG_1STR);
+
 bool addcommand(const char *name, void (*fun)(), int narg)
 {
    if(!idents) idents = new hashtable<const char *, ident>;