Minor header and readme edits

artifacts/scripting/functions.yml

@@ -1280,7 +1280,9 @@
     opcode: 0x822e
   - name: get_array
     detail: mixed get_array(int arrayID, mixed key)
-    doc: 'Returns array value by key or index (shorthand: arrayID[key]).'
+    doc: |
+      Returns array value by key or index (shorthand: arrayID[key]).
+      - If array with given arrayID doesn't exist, returns 0.
     opcode: 0x822f
   - name: resize_array
     detail: void resize_array(int arrayID, int size)

artifacts/scripting/headers/lib.arrays.h

@@ -432,6 +432,14 @@ procedure array_transform_kv(variable arr, variable keyFunc, variable valueFunc)
    return retArr;
 end
 
+procedure array_to_set(variable arr) begin
+   variable v, retArr := temp_array_map;
+   foreach (v in arr) begin
+      retArr[v] := 1;
+   end
+   return retArr;
+end
+
 
 #define ARRAY_EMPTY_INDEX   (-1)
 
@@ -614,9 +622,9 @@ end
 
 procedure debug_array_str_deep(variable arr, variable levels) begin
 #define _newline if (levels > 1) then s += "\n";
-#define _indent string_repeat("   ", levels - 1)
+#define _indent ii := 0; while (ii < levels - 1) do begin s += "   "; ii++; end
 #define _value(v) (v if (levels <= 1 or not array_exists(v)) else debug_array_str_deep(v, levels - 1))
-   variable i := 0, k, v, s, len;
+   variable i := 0, ii, k, v, s, len;
    len := len_array(arr);
    if (array_is_map(arr)) then begin  // print assoc array
       s := "Map("+len+"): {";
@@ -624,7 +632,8 @@ procedure debug_array_str_deep(variable arr, variable levels) begin
          _newline
          k := array_key(arr, i);
          v := get_array(arr, k);
-         s += _indent + k + ": " + _value(v);
+         _indent
+         s += k + ": " + _value(v);
          if i < (len - 1) then s += ", ";
          i++;
       end
@@ -637,7 +646,8 @@ procedure debug_array_str_deep(variable arr, variable levels) begin
       while i < len do begin
          _newline
          v := get_array(arr, i);
-         s += _indent + _value(v);
+         _indent
+         s += _value(v);
          if i < (len - 1) then s += ", ";
          i++;
       end

artifacts/scripting/headers/sfall.h

@@ -25,7 +25,7 @@
 #define COUNTERWIN  (0x100000) // counter window for moving multiple items or setting a timer
 #define SPECIAL     (0x80000000)
 
-// Valid arguments to register_hook
+// Valid arguments to register_hook_proc
 #define HOOK_TOHIT            (0)
 #define HOOK_AFTERHITROLL     (1)
 #define HOOK_CALCAPCOST       (2)