PLSQL - "jOKER" - Kashub's Code Barn

IF NOT storage.doorIds THEN
    storage.doorIds = { 5129, 5102, 5111, 5120, 1644, 1648, 1646, 6262}
END
 
local moveTime = 2000     -- Wait time between Move, 2000 milliseconds = 2 seconds
local moveDist = 1        -- How far to Walk
local useTime = 2000     -- Wait time between Use, 2000 milliseconds = 2 seconds
local useDistance = 1     -- How far to Use
 
local FUNCTION properTable(t)
    local r = {}
    FOR _, entry IN pairs(t) DO
        TABLE.INSERT(r, entry.id)
    END
    RETURN r
END
 
UI.Label("Door IDs")
 
local doorContainer = UI.Container(FUNCTION(widget, items)
    storage.doorIds = items
    doorId = properTable(storage.doorIds)
END, TRUE)
 
doorContainer:setHeight(35)
doorContainer:setItems(storage.doorIds)
doorId = properTable(storage.doorIds)
 
clickDoor = macro(1000, "Use Doors", FUNCTION()
    FOR i, tile IN ipairs(g_map.getTiles(posz())) DO
        local item = tile:getTopUseThing()
        IF item AND TABLE.find(doorId, item:getId()) THEN
            local tPos = tile:getPosition()
            local distance = getDistanceBetween(pos(), tPos)
            IF (distance <= useDistance) THEN
                USE(item)
                RETURN delay(useTime)
            END
 
            IF (distance <= moveDist AND distance > useDistance) THEN
                IF findPath(pos(), tPos, moveDist, { ignoreNonPathable = TRUE, precision = 1 }) THEN
                    autoWalk(tPos, moveTime, { ignoreNonPathable = TRUE, precision = 1 })
                    RETURN delay(waitTime)
                END
            END
        END
    END
END)
Kashub's Code Barn - "jOKER"

podświetlone jako plsql (dodał(a) ESSA @ 2022-02-09 16:16:12)
