warcraft-3-w3ts-utils 0.1.7 → 0.1.8

package/dist/lua_modules/w3ts/handles/weathereffect.lua

@@ -0,0 +1,42 @@
+local ____lualib = require("lualib_bundle")
+local __TS__Class = ____lualib.__TS__Class
+local __TS__ClassExtends = ____lualib.__TS__ClassExtends
+local __TS__ObjectAssign = ____lualib.__TS__ObjectAssign
+local ____exports = {}
+local ____handle = require("lua_modules.w3ts.handles.handle")
+local Handle = ____handle.Handle
+____exports.WeatherEffect = __TS__Class()
+local WeatherEffect = ____exports.WeatherEffect
+WeatherEffect.name = "WeatherEffect"
+__TS__ClassExtends(WeatherEffect, Handle)
+function WeatherEffect.prototype.____constructor(self, where, effectID)
+    if Handle:initFromHandle() then
+        Handle.prototype.____constructor(self)
+        return
+    end
+    local handle = AddWeatherEffect(where.handle, effectID)
+    if handle == nil then
+        error("w3ts failed to create unit handle.", 3)
+    end
+    Handle.prototype.____constructor(self, handle)
+end
+function WeatherEffect.create(self, where, effectID)
+    local handle = AddWeatherEffect(where.handle, effectID)
+    if handle then
+        local obj = self:getObject(handle)
+        local values = {}
+        values.handle = handle
+        return __TS__ObjectAssign(obj, values)
+    end
+    return nil
+end
+function WeatherEffect.prototype.destroy(self)
+    RemoveWeatherEffect(self.handle)
+end
+function WeatherEffect.prototype.enable(self, flag)
+    EnableWeatherEffect(self.handle, flag)
+end
+function WeatherEffect.fromHandle(self, handle)
+    return self:getObject(handle)
+end
+return ____exports

package/dist/lua_modules/w3ts/handles/widget.lua

@@ -0,0 +1,53 @@
+local ____lualib = require("lualib_bundle")
+local __TS__Class = ____lualib.__TS__Class
+local __TS__ClassExtends = ____lualib.__TS__ClassExtends
+local __TS__SetDescriptor = ____lualib.__TS__SetDescriptor
+local ____exports = {}
+local ____handle = require("lua_modules.w3ts.handles.handle")
+local Handle = ____handle.Handle
+____exports.Widget = __TS__Class()
+local Widget = ____exports.Widget
+Widget.name = "Widget"
+__TS__ClassExtends(Widget, Handle)
+__TS__SetDescriptor(
+    Widget.prototype,
+    "life",
+    {
+        get = function(self)
+            return GetWidgetLife(self.handle)
+        end,
+        set = function(self, value)
+            SetWidgetLife(self.handle, value)
+        end
+    },
+    true
+)
+__TS__SetDescriptor(
+    Widget.prototype,
+    "x",
+    {get = function(self)
+        return GetWidgetX(self.handle)
+    end},
+    true
+)
+__TS__SetDescriptor(
+    Widget.prototype,
+    "y",
+    {get = function(self)
+        return GetWidgetY(self.handle)
+    end},
+    true
+)
+function Widget.fromEvent(self)
+    return self:fromHandle(GetTriggerWidget())
+end
+function Widget.fromHandle(self, handle)
+    local ____handle_0
+    if handle then
+        ____handle_0 = self:getObject(handle)
+    else
+        ____handle_0 = nil
+    end
+    return ____handle_0
+end
+return ____exports

package/dist/lua_modules/w3ts/hooks/index.lua

@@ -0,0 +1,52 @@
+local ____lualib = require("lualib_bundle")
+local __TS__ArrayForEach = ____lualib.__TS__ArrayForEach
+local ____exports = {}
+local oldMain = main
+local oldConfig = config
+local hooksMainBefore = {}
+local hooksMainAfter = {}
+local hooksConfigBefore = {}
+local hooksConfigAfter = {}
+____exports.executeHooksMainBefore = function() return __TS__ArrayForEach(
+    hooksMainBefore,
+    function(____, func) return func() end
+) end
+____exports.executeHooksMainAfter = function() return __TS__ArrayForEach(
+    hooksMainAfter,
+    function(____, func) return func() end
+) end
+function ____exports.hookedMain()
+    ____exports.executeHooksMainBefore()
+    oldMain()
+    ____exports.executeHooksMainAfter()
+end
+____exports.executeHooksConfigBefore = function() return __TS__ArrayForEach(
+    hooksConfigBefore,
+    function(____, func) return func() end
+) end
+____exports.executeHooksConfigAfter = function() return __TS__ArrayForEach(
+    hooksConfigAfter,
+    function(____, func) return func() end
+) end
+function ____exports.hookedConfig()
+    ____exports.executeHooksConfigBefore()
+    oldConfig()
+    ____exports.executeHooksConfigAfter()
+end
+main = ____exports.hookedMain
+config = ____exports.hookedConfig
+____exports.W3TS_HOOK = W3TS_HOOK or ({})
+____exports.W3TS_HOOK.MAIN_BEFORE = "main::before"
+____exports.W3TS_HOOK.MAIN_AFTER = "main::after"
+____exports.W3TS_HOOK.CONFIG_BEFORE = "config::before"
+____exports.W3TS_HOOK.CONFIG_AFTER = "config::after"
+local entryPoints = {[____exports.W3TS_HOOK.MAIN_BEFORE] = hooksMainBefore, [____exports.W3TS_HOOK.MAIN_AFTER] = hooksMainAfter, [____exports.W3TS_HOOK.CONFIG_BEFORE] = hooksConfigBefore, [____exports.W3TS_HOOK.CONFIG_AFTER] = hooksConfigAfter}
+function ____exports.addScriptHook(entryPoint, hook)
+    if not (entryPoints[entryPoint] ~= nil) then
+        return false
+    end
+    local ____entryPoints_entryPoint_0 = entryPoints[entryPoint]
+    ____entryPoints_entryPoint_0[#____entryPoints_entryPoint_0 + 1] = hook
+    return true
+end
+return ____exports

package/dist/lua_modules/w3ts/index.lua

@@ -0,0 +1,36 @@
+local ____exports = {}
+local tsGlobals = require("lua_modules.w3ts.globals.index")
+do
+    local ____export = require("lua_modules.w3ts.handles.index")
+    for ____exportKey, ____exportValue in pairs(____export) do
+        if ____exportKey ~= "default" then
+            ____exports[____exportKey] = ____exportValue
+        end
+    end
+end
+do
+    local ____export = require("lua_modules.w3ts.hooks.index")
+    for ____exportKey, ____exportValue in pairs(____export) do
+        if ____exportKey ~= "default" then
+            ____exports[____exportKey] = ____exportValue
+        end
+    end
+end
+do
+    local ____export = require("lua_modules.w3ts.system.index")
+    for ____exportKey, ____exportValue in pairs(____export) do
+        if ____exportKey ~= "default" then
+            ____exports[____exportKey] = ____exportValue
+        end
+    end
+end
+do
+    local ____export = require("lua_modules.w3ts.utils.index")
+    for ____exportKey, ____exportValue in pairs(____export) do
+        if ____exportKey ~= "default" then
+            ____exports[____exportKey] = ____exportValue
+        end
+    end
+end
+____exports.tsGlobals = tsGlobals
+return ____exports

package/dist/lua_modules/w3ts/system/base64.lua

@@ -0,0 +1,108 @@
+local ____lualib = require("lualib_bundle")
+local __TS__StringCharAt = ____lualib.__TS__StringCharAt
+local __TS__StringAccess = ____lualib.__TS__StringAccess
+local __TS__StringSubstr = ____lualib.__TS__StringSubstr
+local ____exports = {}
+---
+-- @noSelfInFile
+local chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="
+--- Encode a string to base64.
+-- 
+-- @param input The string to encode.
+function ____exports.base64Encode(input)
+    local output = ""
+    do
+        local block = 0
+        local charCode = 0
+        local idx = 0
+        local map = chars
+        while true do
+            local ____temp_2 = #__TS__StringCharAt(
+                input,
+                math.floor(idx) | 0
+            ) > 0
+            if not ____temp_2 then
+                map = "="
+                local ____ = map
+                ____temp_2 = idx % 1
+            end
+            if not ____temp_2 then
+                break
+            end
+            local ____string_byte_1 = string.byte
+            local ____input_0 = input
+            idx = idx + 3 / 4
+            charCode = ____string_byte_1(
+                ____input_0,
+                math.floor(idx) + 1
+            ) or 0
+            if math.floor(idx) > #input and charCode == 0 then
+                if #output % 4 == 1 then
+                    return output .. "="
+                end
+                return output .. "=="
+            end
+            if charCode > 255 then
+                print("'base64Encode' failed: The string to be encoded contains characters outside of the Latin1 range.")
+                return output
+            end
+            block = block << 8 | charCode
+            output = output .. __TS__StringCharAt(
+                map,
+                math.floor(63 & block >> 8 - idx % 1 * 8)
+            )
+        end
+    end
+    return output
+end
+--- Decode a base64 string.
+-- 
+-- @param input The base64 string to decode.
+function ____exports.base64Decode(input)
+    local i = #input
+    do
+        while i > 0 and __TS__StringAccess(input, i) ~= "=" do
+            i = i - 1
+        end
+    end
+    local str = __TS__StringSubstr(input, 0, i - 1)
+    local output = ""
+    if #str % 4 == 1 then
+        print("'base64Decode' failed: The string to be decoded is not correctly encoded.")
+        return output
+    end
+    local bs = 0
+    do
+        local bc = 0
+        local buffer
+        local idx = 0
+        while true do
+            buffer = __TS__StringCharAt(str, idx)
+            if not buffer then
+                break
+            end
+            if #buffer == 0 then
+                break
+            end
+            buffer = (string.find(chars, buffer, nil, true) or 0) - 1
+            idx = idx + 1
+            local ____temp_5
+            local ____temp_4 = ~buffer
+            if ____temp_4 then
+                bs = bc % 4 ~= 0 and bs * 64 + buffer or buffer
+                local ____ = bs
+                local ____bc_3 = bc
+                bc = ____bc_3 + 1
+                ____temp_4 = ____bc_3 % 4 ~= 0
+            end
+            if ____temp_4 then
+                output = output .. string.char(255 & bs >> (-2 * bc & 6))
+                ____temp_5 = output
+            else
+                ____temp_5 = 0
+            end
+        end
+    end
+    return output
+end
+return ____exports

package/dist/lua_modules/w3ts/system/binaryreader.lua

@@ -0,0 +1,74 @@
+local ____lualib = require("lualib_bundle")
+local __TS__Class = ____lualib.__TS__Class
+local ____exports = {}
+--- Reads primitive types from a packed binary string.
+-- 
+-- @example ```ts
+-- // Write the values
+-- const writer = new BinaryWriter();
+-- writer.writeUInt8(5);
+-- writer.writeUInt8(32);
+-- writer.writeUInt8(78);
+-- writer.writeUInt8(200);
+-- writer.writeUInt32(12345678);
+-- writer.writeString("hello");
+-- writer.writeUInt16(45000);
+-- 
+-- // Read the values
+-- const binaryString = writer.toString();
+-- const reader = new BinaryReader(binaryString);
+-- const values: any[] = [];
+-- 
+-- values[0] = reader.readUInt8(); // 5
+-- values[1] = reader.readUInt8(); // 32
+-- values[2] = reader.readUInt8(); // 78
+-- values[3] = reader.readUInt8(); // 200
+-- values[4] = reader.readUInt32(); // 12345678
+-- values[5] = reader.readString(); // hello
+-- values[6] = reader.readUInt16(); // 45000
+-- ```
+____exports.BinaryReader = __TS__Class()
+local BinaryReader = ____exports.BinaryReader
+BinaryReader.name = "BinaryReader"
+function BinaryReader.prototype.____constructor(self, binaryString)
+    self.pos = 1
+    self.data = binaryString
+end
+function BinaryReader.prototype.read(self, fmt, size)
+    local unpacked = {string.unpack(fmt, self.data, self.pos)}
+    self.pos = self.pos + size
+    if #unpacked <= 0 then
+        return 0
+    end
+    return unpacked[1]
+end
+function BinaryReader.prototype.readDouble(self)
+    return self:read(">d", 4)
+end
+function BinaryReader.prototype.readFloat(self)
+    return self:read(">f", 4)
+end
+function BinaryReader.prototype.readInt16(self)
+    return self:read(">h", 2)
+end
+function BinaryReader.prototype.readInt32(self)
+    return self:read(">i4", 4)
+end
+function BinaryReader.prototype.readInt8(self)
+    return self:read(">b", 1)
+end
+function BinaryReader.prototype.readString(self)
+    local value = self:read(">z", 0)
+    self.pos = self.pos + (#value + 1)
+    return value
+end
+function BinaryReader.prototype.readUInt16(self)
+    return self:read(">H", 2)
+end
+function BinaryReader.prototype.readUInt32(self)
+    return self:read(">I4", 4)
+end
+function BinaryReader.prototype.readUInt8(self)
+    return self:read(">B", 1)
+end
+return ____exports

package/dist/lua_modules/w3ts/system/binarywriter.lua

@@ -0,0 +1,88 @@
+local ____lualib = require("lualib_bundle")
+local __TS__Class = ____lualib.__TS__Class
+local ____exports = {}
+--- Packs primitive types into a binary string.
+-- 
+-- @example ```ts
+-- // Write the values
+-- const writer = new BinaryWriter();
+-- writer.writeUInt8(5);
+-- writer.writeUInt8(32);
+-- writer.writeUInt8(78);
+-- writer.writeUInt8(200);
+-- writer.writeUInt32(12345678);
+-- writer.writeString("hello");
+-- writer.writeUInt16(45000);
+-- 
+-- // Read the values
+-- const binaryString = writer.toString();
+-- const reader = new BinaryReader(binaryString);
+-- const values: any[] = [];
+-- 
+-- values[0] = reader.readUInt8(); // 5
+-- values[1] = reader.readUInt8(); // 32
+-- values[2] = reader.readUInt8(); // 78
+-- values[3] = reader.readUInt8(); // 200
+-- values[4] = reader.readUInt32(); // 12345678
+-- values[5] = reader.readString(); // hello
+-- values[6] = reader.readUInt16(); // 45000
+-- ```
+____exports.BinaryWriter = __TS__Class()
+local BinaryWriter = ____exports.BinaryWriter
+BinaryWriter.name = "BinaryWriter"
+function BinaryWriter.prototype.____constructor(self)
+    self.values = {}
+    self.fmj = ">"
+end
+function BinaryWriter.prototype.__tostring(self)
+    return string.pack(
+        self.fmj,
+        table.unpack(self.values)
+    )
+end
+function BinaryWriter.prototype.writeDouble(self, value)
+    self.fmj = self.fmj .. "d"
+    local ____self_values_0 = self.values
+    ____self_values_0[#____self_values_0 + 1] = value
+end
+function BinaryWriter.prototype.writeFloat(self, value)
+    self.fmj = self.fmj .. "f"
+    local ____self_values_1 = self.values
+    ____self_values_1[#____self_values_1 + 1] = value
+end
+function BinaryWriter.prototype.writeInt16(self, value)
+    self.fmj = self.fmj .. "h"
+    local ____self_values_2 = self.values
+    ____self_values_2[#____self_values_2 + 1] = value
+end
+function BinaryWriter.prototype.writeInt32(self, value)
+    self.fmj = self.fmj .. "i4"
+    local ____self_values_3 = self.values
+    ____self_values_3[#____self_values_3 + 1] = value
+end
+function BinaryWriter.prototype.writeInt8(self, value)
+    self.fmj = self.fmj .. "b"
+    local ____self_values_4 = self.values
+    ____self_values_4[#____self_values_4 + 1] = value
+end
+function BinaryWriter.prototype.writeString(self, value)
+    self.fmj = self.fmj .. "z"
+    local ____self_values_5 = self.values
+    ____self_values_5[#____self_values_5 + 1] = value
+end
+function BinaryWriter.prototype.writeUInt16(self, value)
+    self.fmj = self.fmj .. "H"
+    local ____self_values_6 = self.values
+    ____self_values_6[#____self_values_6 + 1] = value
+end
+function BinaryWriter.prototype.writeUInt32(self, value)
+    self.fmj = self.fmj .. "I4"
+    local ____self_values_7 = self.values
+    ____self_values_7[#____self_values_7 + 1] = value
+end
+function BinaryWriter.prototype.writeUInt8(self, value)
+    self.fmj = self.fmj .. "B"
+    local ____self_values_8 = self.values
+    ____self_values_8[#____self_values_8 + 1] = value
+end
+return ____exports

package/dist/lua_modules/w3ts/system/file.lua

@@ -0,0 +1,88 @@
+local ____lualib = require("lualib_bundle")
+local __TS__Class = ____lualib.__TS__Class
+local __TS__StringSubstr = ____lualib.__TS__StringSubstr
+local ____exports = {}
+--- A system which provides the ability to read and write files. There are no standard IO natives
+-- so this system relies on an exploit which ended up being sanctioned by Blizzard, and because of this
+-- there are some caveats.
+-- 
+-- - All files are confined to the `Documents\Warcraft III\CustomMapData` folder.
+-- - The only allowed file extensions are `.txt` and `.pld`.
+-- - Generated files contain boilerplate JASS code.
+-- - You cannot delete files but you can empty their contents.
+-- 
+-- @example ```ts
+-- // Write to the file
+-- File.write("data.txt", "Hello world!");
+-- 
+-- // Read it's contents
+-- const contents = File.read("data.txt");
+-- 
+-- // Display the contents
+-- if (contents) {
+--  print(contents);
+-- }
+-- ```
+____exports.File = __TS__Class()
+local File = ____exports.File
+File.name = "File"
+function File.prototype.____constructor(self)
+end
+function File.escape(self, contents)
+    contents = (string.gsub(contents, ____exports.File.escapeCharacter, ____exports.File.escapedSelf))
+    contents = (string.gsub(contents, "\"", ____exports.File.escapedQuote))
+    return contents
+end
+function File.unescape(self, contents)
+    contents = (string.gsub(contents, ____exports.File.escapedQuote, "\""))
+    contents = (string.gsub(contents, ____exports.File.escapedSelf, ____exports.File.escapeCharacter))
+    return contents
+end
+function File.read(self, filename)
+    local originalIcon = BlzGetAbilityIcon(self.dummyAbility)
+    if originalIcon == nil then
+        return nil
+    end
+    Preloader(filename)
+    local preloadText = BlzGetAbilityIcon(self.dummyAbility)
+    if preloadText == nil then
+        return nil
+    end
+    BlzSetAbilityIcon(self.dummyAbility, originalIcon)
+    if preloadText ~= originalIcon then
+        return ____exports.File:unescape(preloadText)
+    end
+    return nil
+end
+function File.writeRaw(self, filename, contents, allowReading)
+    if allowReading == nil then
+        allowReading = false
+    end
+    PreloadGenClear()
+    PreloadGenStart()
+    if allowReading then
+        Preload("\")\n//! beginusercode\nlocal o=''\nPreload=function(s)o=o..s end\nPreloadEnd=function()end\n//!endusercode\n//")
+        contents = ____exports.File:escape(contents)
+    end
+    do
+        local i = 0
+        while i < #contents / ____exports.File.preloadLimit do
+            Preload(__TS__StringSubstr(contents, i * ____exports.File.preloadLimit, ____exports.File.preloadLimit))
+            i = i + 1
+        end
+    end
+    if allowReading then
+        Preload(("\")\n//! beginusercode\nBlzSetAbilityIcon(" .. tostring(self.dummyAbility)) .. ",o)\n//!endusercode\n//")
+    end
+    PreloadGenEnd(filename)
+    return self
+end
+function File.write(self, filename, contents)
+    return self:writeRaw(filename, contents, true)
+end
+File.dummyAbility = FourCC("Amls")
+File.preloadLimit = 259
+File.escapeCharacter = string.char(27)
+File.escapedSelf = ____exports.File.escapeCharacter .. ____exports.File.escapeCharacter
+File.escapedQuote = ____exports.File.escapeCharacter .. "q"
+return ____exports

package/dist/lua_modules/w3ts/system/gametime.lua

@@ -0,0 +1,27 @@
+local ____exports = {}
+local ____timer = require("lua_modules.w3ts.handles.timer")
+local Timer = ____timer.Timer
+local ____index = require("lua_modules.w3ts.hooks.index")
+local addScriptHook = ____index.addScriptHook
+local W3TS_HOOK = ____index.W3TS_HOOK
+local elapsedTime = 0
+local gameTimer
+function ____exports.getElapsedTime()
+    if not gameTimer then
+        return 0
+    end
+    return elapsedTime + gameTimer.elapsed
+end
+addScriptHook(
+    W3TS_HOOK.MAIN_AFTER,
+    function()
+        gameTimer = Timer:create():start(
+            30,
+            true,
+            function()
+                elapsedTime = elapsedTime + 30
+            end
+        )
+    end
+)
+return ____exports

package/dist/lua_modules/w3ts/system/host.lua

@@ -0,0 +1,104 @@
+local ____lualib = require("lualib_bundle")
+local __TS__New = ____lualib.__TS__New
+local __TS__ArrayForEach = ____lualib.__TS__ArrayForEach
+local ____exports = {}
+local ____index = require("lua_modules.w3ts.handles.index")
+local MapPlayer = ____index.MapPlayer
+local ____timer = require("lua_modules.w3ts.handles.timer")
+local Timer = ____timer.Timer
+local ____index = require("lua_modules.w3ts.hooks.index")
+local addScriptHook = ____index.addScriptHook
+local W3TS_HOOK = ____index.W3TS_HOOK
+local ____base64 = require("lua_modules.w3ts.system.base64")
+local base64Decode = ____base64.base64Decode
+local base64Encode = ____base64.base64Encode
+local ____binaryreader = require("lua_modules.w3ts.system.binaryreader")
+local BinaryReader = ____binaryreader.BinaryReader
+local ____binarywriter = require("lua_modules.w3ts.system.binarywriter")
+local BinaryWriter = ____binarywriter.BinaryWriter
+local ____sync = require("lua_modules.w3ts.system.sync")
+local SyncRequest = ____sync.SyncRequest
+local lobbyTimes = {}
+local hostCallbacks = {}
+local localJoinTime = 0
+local localStartTime = 0
+local host
+local checkTimer
+local isChecking = false
+function ____exports.onHostDetect(callback)
+    if host then
+        callback()
+    else
+        hostCallbacks[#hostCallbacks + 1] = callback
+    end
+end
+local function onConfig()
+    if localJoinTime == 0 then
+        localJoinTime = os.clock()
+    end
+end
+local function findHost()
+    isChecking = true
+    if localStartTime == 0 then
+        localStartTime = os.clock()
+    end
+    local writer = __TS__New(BinaryWriter)
+    writer:writeFloat(localStartTime - localJoinTime)
+    local ____self_0 = __TS__New(
+        SyncRequest,
+        MapPlayer:fromLocal(),
+        base64Encode(tostring(writer))
+    )
+    ____self_0["then"](
+        ____self_0,
+        function(res, req)
+            local data = base64Decode(res.data)
+            local reader = __TS__New(BinaryReader, data)
+            local syncedTime = reader:readFloat()
+            local from = MapPlayer:fromEvent()
+            lobbyTimes[from.id + 1] = syncedTime
+            local hostTime = 0
+            local hostId = 0
+            do
+                local i = 0
+                while i < bj_MAX_PLAYERS do
+                    do
+                        local p = MapPlayer:fromIndex(i)
+                        if p == nil or p.slotState ~= PLAYER_SLOT_STATE_PLAYING or p.controller ~= MAP_CONTROL_USER then
+                            goto __continue11
+                        end
+                        if not lobbyTimes[p.id + 1] then
+                            return
+                        end
+                        if lobbyTimes[p.id + 1] > hostTime then
+                            hostTime = lobbyTimes[p.id + 1]
+                            hostId = p.id
+                        end
+                    end
+                    ::__continue11::
+                    i = i + 1
+                end
+            end
+            host = MapPlayer:fromIndex(hostId)
+            if checkTimer then
+                checkTimer:destroy()
+            end
+            __TS__ArrayForEach(
+                hostCallbacks,
+                function(____, cb)
+                    cb()
+                end
+            )
+        end
+    ):catch(function(res)
+        print("findHost Error: " .. tostring(res.status))
+        isChecking = false
+    end)
+end
+local function onMain()
+    checkTimer = Timer:create()
+    checkTimer:start(0, false, findHost)
+end
+addScriptHook(W3TS_HOOK.MAIN_AFTER, onMain)
+addScriptHook(W3TS_HOOK.CONFIG_BEFORE, onConfig)
+return ____exports