added cutom top hak for 2das

Added size scaling to some creatures

_module/are/area.are.json

@@ -2913,7 +2913,7 @@
   },
   "Version": {
     "type": "dword",
-    "value": 48
+    "value": 51
   },
   "Width": {
     "type": "int",

_module/gic/area.gic.json

@@ -2,7 +2,29 @@
   "__data_type": "GIC ",
   "Creature List": {
     "type": "list",
-    "value": []
+    "value": [
+      {
+        "__struct_id": 4,
+        "Comment": {
+          "type": "cexostring",
+          "value": ""
+        }
+      },
+      {
+        "__struct_id": 4,
+        "Comment": {
+          "type": "cexostring",
+          "value": ""
+        }
+      },
+      {
+        "__struct_id": 4,
+        "Comment": {
+          "type": "cexostring",
+          "value": ""
+        }
+      }
+    ]
   },
   "Door List": {
     "type": "list",

_module/ifo/module.ifo.json

@@ -4449,6 +4449,13 @@
   "Mod_HakList": {
     "type": "list",
     "value": [
+      {
+        "__struct_id": 8,
+        "Mod_Hak": {
+          "type": "cexostring",
+          "value": "aantioch_top"
+        }
+      },
       {
         "__struct_id": 8,
         "Mod_Hak": {

_module/nss/creatediremace.nss

@@ -21,7 +21,6 @@ void main()
 //Get the first itemproperty on the weapon
 itemproperty ipLoop=GetFirstItemProperty(oOldWeapon);
 object oNewWeapon = CreateItemOnObject (sItemTemplate1, oForge, 1);
- //object oNewWeapon = GetNextItemInInventory (oForge);
 
 //Loop for as long as the ipLoop variable is valid
  while (GetIsItemPropertyValid(ipLoop))

_module/nss/createlongbow.nss

@@ -24,10 +24,10 @@ object oNewWeapon = CreateItemOnObject (sItemTemplate1, oForge, 1);
  //object oNewWeapon = GetNextItemInInventory (oForge);
 
 //Loop for as long as the ipLoop variable is valid
- while (GetIsItemPropertyValid(ipLoop))
+ while (GetIsPlaceableObjectActionPossible(oForge, PLACEABLE_ACTION_USE))
    {
    //Add itemprops to new weapon
-   IPSafeAddItemProperty(oNewWeapon, ipLoop);
+   AddItemProperty(DURATION_TYPE_PERMANENT,ipLoop, oNewWeapon);
 
    //Next itemproperty on the list...
    ipLoop=GetNextItemProperty(oOldWeapon);

_module/uti/ALongbow.uti.json

@@ -114,6 +114,26 @@
     "type": "resref",
     "value": "alongbow"
   },
+  "VarTable": {
+    "type": "list",
+    "value": [
+      {
+        "__struct_id": 0,
+        "Name": {
+          "type": "cexostring",
+          "value": "keen"
+        },
+        "Type": {
+          "type": "dword",
+          "value": 1
+        },
+        "Value": {
+          "type": "int",
+          "value": 1
+        }
+      }
+    ]
+  },
   "xModelPart1": {
     "type": "word",
     "value": 23