Implement animation_time (nextanim) exposure.
@@ -205,6 +205,13 @@ HRESULT openbor_get_entity_property(ScriptVariant **varlist , ScriptVariant **pr
break;
+ case _ENTITY_ANIMATION_TIME:
+
+ ScriptVariant_ChangeType(*pretvar, VT_INTEGER);
+ (*pretvar)->lVal = (LONG)handle->nextanim;
+
+ break;
+
case _ENTITY_ARROW_ON:
ScriptVariant_ChangeType(*pretvar, VT_INTEGER);
@@ -767,6 +774,15 @@ HRESULT openbor_set_entity_property(ScriptVariant **varlist, ScriptVariant **pre
break;
+ case _ENTITY_ANIMATION_TIME:
+
+ if (SUCCEEDED(ScriptVariant_IntegerValue(varlist[ARG_VALUE], &temp_int)))
+ {
+ handle->nextanim = temp_int;
+ }
+
+ break;
+
case _ENTITY_ARROW_ON:
if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[ARG_VALUE], &temp_int)))
