hedgewars/uScript.pas
changeset 4453 15a483b2558a
parent 4450 b8d30b0e4829
child 4456 b69f43f07cd7
--- a/hedgewars/uScript.pas	Thu Dec 02 20:29:46 2010 -0500
+++ b/hedgewars/uScript.pas	Thu Dec 02 20:40:30 2010 -0500
@@ -1215,6 +1215,7 @@
 
 procedure initModule;
 var at : TGearType;
+    vgt: TVisualGearType;
     am : TAmmoType;
     st : TSound;
     he: THogEffect;
@@ -1285,6 +1286,9 @@
 for at:= Low(TGearType) to High(TGearType) do
     ScriptSetInteger(EnumToStr(at), ord(at));
 
+for vgt:= Low(TVisualGearType) to High(TVisualGearType) do
+    ScriptSetInteger(EnumToStr(vgt), ord(vgt));
+
 // register sounds
 for st:= Low(TSound) to High(TSound) do
     ScriptSetInteger(EnumToStr(st), ord(st));