Input

local TRIGGER = script:GetCustomProperty("Trigger"):WaitForObject()
local UIPANEL = script:GetCustomProperty("UIPanel"):WaitForObject()
local CLOSE_BUTTON = script:GetCustomProperty("CloseButton"):WaitForObject()

UIPANEL.visibility = Visibility.FORCE_OFF

local function OnBeginOverlap()
    Input.DisableVirtualControls()
    UI.SetCursorVisible(true)
    UI.SetCanCursorInteractWithUI(true)
    UIPANEL.visibility = Visibility.FORCE_ON
end

local function OnButtonClicked()
    Input.EnableVirtualControls()
    UI.SetCursorVisible(false)
    UI.SetCanCursorInteractWithUI(false)
    UIPANEL.visibility = Visibility.FORCE_OFF
end

TRIGGER.beginOverlapEvent:Connect(OnBeginOverlap)
CLOSE_BUTTON.clickedEvent:Connect(OnButtonClicked)

local function OnActionPressed(player, action)
    if action == "Shoot" then
        local cursorPos = Input.GetCursorPosition()
        if cursorPos then
            print("Clicked at: " .. cursorPos.x .. ", " .. cursorPos.y)
        else
            print("Clicked at an undefined position.")
        end
    end
end

Input.actionPressedEvent:Connect(OnActionPressed)

local UIIMAGE = script:GetCustomProperty("UIImage"):WaitForObject()

UIIMAGE.anchor = UIPivot.MIDDLE_CENTER

local isPinching = false
local isRotating = false
local startingWidth
local startingHeight
local startingAngle

function Tick()
    -- Position
    local touch1 = Input.GetTouchPosition(1)
    local touch2 = Input.GetTouchPosition(2)

    if touch1 ~= nil and touch2 ~= nil then
        local position = (touch1 + touch2) / 2
        UIIMAGE:SetAbsolutePosition(position)
    end

    -- Scale
    if isPinching then
        local pinchPercent = Input.GetPinchValue()
        UIIMAGE.width = CoreMath.Round(startingWidth * pinchPercent)
        UIIMAGE.height = CoreMath.Round(startingHeight * pinchPercent)
    end

    -- Rotate
    if isRotating then
        local angle = Input.GetRotateValue()
        UIIMAGE.rotationAngle = startingAngle + angle
    end
end

local function PinchStarted()
    isPinching = true
    startingWidth = UIIMAGE.width
    startingHeight = UIIMAGE.height
end

local function PinchStopped()
    isPinching = false
end

-- Detect pinch gesture start/end
Input.pinchStartedEvent:Connect(PinchStarted)
Input.pinchStoppedEvent:Connect(PinchStopped)

local function RotateStarted()
    isRotating = true
    startingAngle = UIIMAGE.rotationAngle
end

local function RotateStopped()
    isRotating = false
end

-- Detect rotation gesture start/end
Input.rotateStartedEvent:Connect(RotateStarted)
Input.rotateStoppedEvent:Connect(RotateStopped)

local POWER_METER = script:GetCustomProperty("PowerMeter"):WaitForObject()
local POWER_SPEED = script:GetCustomProperty("PowerSpeed")

local mouseDown = false

function Tick(deltaTime)
    if mouseDown then
        POWER_METER.progress = POWER_METER.progress + deltaTime / POWER_SPEED
    end
end

local function OnMousePressed()
    POWER_METER.progress = 0
    mouseDown = true
end

local function OnMouseReleased()
    mouseDown = false
end

Input.mouseButtonPressedEvent:Connect(OnMousePressed)
Input.mouseButtonReleasedEvent:Connect(OnMouseReleased)

local function OnPointerMoved(offsetVector, touchIndex)
    local distance = offsetVector.size

    if touchIndex == nil then
        print("Mouse traveled " .. distance)
    else
        print("Touch index " .. touchIndex .. " traveled " .. distance)
    end
end

Input.pointerMovedEvent:Connect(OnPointerMoved)

function OnTappedEvent(location, touchIndex)
    UI.PrintToScreen("Tap ".. touchIndex ..": ".. tostring(location))
end

function OnFlickedEvent(angle)
    UI.PrintToScreen("Flick: " .. angle)
end

Input.tappedEvent:Connect(OnTappedEvent)
Input.flickedEvent:Connect(OnFlickedEvent)

local touchCount = 0
local activeTouches = {}

function OnTouchStarted(screenPosition, touchId)
    touchCount = touchCount + 1
    activeTouches[touchId] = true
    PrintTouchInfo()
end

function OnTouchStopped(screenPosition, touchId)
    touchCount = touchCount - 1
    activeTouches[touchId] = nil
    PrintTouchInfo()
end

Input.touchStartedEvent:Connect(OnTouchStarted)
Input.touchStoppedEvent:Connect(OnTouchStopped)

function PrintTouchInfo()
    local str = touchCount .. ": ["
    local addComma = false
    for id,_ in pairs(activeTouches) do
        if addComma then
            str = str .. ", "
        end
        addComma = true
        str = str .. id
    end
    str = str .. "]"
    UI.PrintToScreen(str)
end

local JUMP_PERIOD = 1
local nextJumpTime = 0

function OnAction(player, actionList)
    -- Verbose output of all actions to the Event Log
    for k,v in ipairs(actionList) do
        print(tostring(k), tostring(v.action), tostring(v.value))
    end

    -- Everyone periodically jumps automatically
    if time() > nextJumpTime then
        -- Jump
        nextJumpTime = time() + JUMP_PERIOD
        actionList[1] = {
            action = "Jump",
            value = 1.0
        }
    else
        -- No jump
        actionList[1] = {
            action = "Jump",
            value = 0.0
        }
    end
end

Input.actionHook:Connect(OnAction)

local JUMP_ICON = script:GetCustomProperty("JumpIcon"):WaitForObject()

function Tick()
    if Input.IsActionEnabled("Jump") then
        JUMP_ICON.visibility = Visibility.INHERIT
    else
        JUMP_ICON.visibility = Visibility.FORCE_OFF
    end
end

function OnAction(player, actionList)
    for k,v in ipairs(actionList) do
        -- Verbose output of all actions to the Event Log
        print(tostring(k), tostring(v.action), tostring(v.value))

        -- Toggle jump on/off, depending on movement
        if v.action == "Move" then
            if v.value == Vector2.ZERO then
                Input.EnableAction("Jump")
            else
                Input.DisableAction("Jump")
            end
        end
    end
end

Input.actionHook:Connect(OnAction)

local UI_TEXT = script:GetCustomProperty("UIText"):WaitForObject()

local label = Input.GetActionInputLabel("jump", {inputType = InputType.KEYBOARD_AND_MOUSE})
print(tostring(label))

UI_TEXT.text = label

-- Client script.

-- The container that holds the slots.
local SLOTS_CONTAINER = script:GetCustomProperty("SlotsContainer"):WaitForObject()

-- The color of the slot frame when it is active.
local ACTIVE_COLOR = script:GetCustomProperty("ActiveColor")

-- The color of the slot frame when it is inactive.
local INACTIVE_COLOR = script:GetCustomProperty("InactiveColor")

-- The current active slot index.
local currentSlotIndex = 1

-- All the slots in the container.
local slots = SLOTS_CONTAINER:GetChildren()

-- Total slots, just caching it here for use later.
local totalSlots = #slots

-- Sets a slot to become active based on the index passed in.
local function SetActiveSlot(index)
    slots[index]:FindChildByName("Frame"):SetColor(ACTIVE_COLOR)
end

-- Clears the last active slot based on the index passed in.
local function ClearActiveSlot(index)
    slots[index]:FindChildByName("Frame"):SetColor(INACTIVE_COLOR)
end

local function OnActionPressed(player, action, value)
    -- Checks to see if the action is the Zoom action.
    -- This could be a custom action, doesn't need to be named "Zoom".
    if action == "Zoom" then
        -- Need to store the old slot to compare later on.
        local oldSlotIndex = currentSlotIndex

        -- Scroll wheel will either be -1 or 1.
        if value > 0 then
            currentSlotIndex = currentSlotIndex == totalSlots and 1 or (currentSlotIndex + 1)
        elseif value < 0 then
            currentSlotIndex = currentSlotIndex == 1 and totalSlots or (currentSlotIndex - 1)
        end

        -- If the slot has changed, clear the old one and set the new one.
        if oldSlotIndex ~= currentSlotIndex then
            ClearActiveSlot(oldSlotIndex)
            SetActiveSlot(currentSlotIndex)
        end
    end
end

-- Listens for when an action is pressed.
Input.actionPressedEvent:Connect(OnActionPressed)

-- Set the active slot from the start (1 in this case).
SetActiveSlot(currentSlotIndex)

function OnActionPressed(player, action, value)
    print("Action: " .. action .. ", value: " .. tostring(value))
end

function OnActionReleased(player, action)
    print("Action: " .. action)
end

Input.actionPressedEvent:Connect(OnActionPressed)
Input.actionReleasedEvent:Connect(OnActionReleased)

-- "MenuPanel" is a UI Panel assigned as a custom property to the script.
local CUSTOM_MENU = script:GetCustomProperty("MenuPanel"):WaitForObject()
-- "ExitButton" is a UI Button within that panel. Also assigned as a custom property.
local EXIT_BUTTON = script:GetCustomProperty("ExitButton"):WaitForObject()

CUSTOM_MENU.visibility = Visibility.FORCE_OFF
local isShowingMenu = false

function ShowMenu()
    -- Show our custom menu and enable mouse control
    isShowingMenu = true
    CUSTOM_MENU.visibility = Visibility.INHERIT
    UI.SetCanCursorInteractWithUI(true)
    UI.SetCursorVisible(true)
end

function HideMenu()
    -- Hide our custom menu and disable mouse control
    isShowingMenu = false
    CUSTOM_MENU.visibility = Visibility.FORCE_OFF
    UI.SetCanCursorInteractWithUI(false)
    UI.SetCursorVisible(false)
end

function OnEscape(localPlayer, params)
    -- Prevents Core's default pause from appearing
    params.openPauseMenu = false

    -- Toggle the custom menu on/off
    if isShowingMenu then
        HideMenu()
    else
        ShowMenu()
    end
end

-- Intercept the ESC key being pressed
Input.escapeHook:Connect(OnEscape)

local function DoTransfer()
    Game.GetLocalPlayer():TransferToGame("e39f3e/core-world")
end

-- Send players to Core World when they press the custom "Exit" button
EXIT_BUTTON.clickedEvent:Connect(DoTransfer)

-- Client script.

-- UI image for mouse input.
local MOUSE_IMAGE = script:GetCustomProperty("MouseImage"):WaitForObject()

-- UI image for controller input.
local CONTROLLER_IMAGE = script:GetCustomProperty("ControllerImage"):WaitForObject()

-- Fired when the input has changed.
local function UpdateInputImage(player, changedInputType)
    -- Check the changed input type by comparing with the
    -- InputType enum.
    if changedInputType == InputType.KEYBOARD_AND_MOUSE then
        MOUSE_IMAGE.visibility = Visibility.FORCE_ON
        CONTROLLER_IMAGE.visibility = Visibility.FORCE_OFF
    elseif changedInputType == InputType.CONTROLLER then
        MOUSE_IMAGE.visibility = Visibility.FORCE_OFF
        CONTROLLER_IMAGE.visibility = Visibility.FORCE_ON
    end
end

Input.inputTypeChangedEvent:Connect(UpdateInputImage)

-- Update the input type image first time
UpdateInputImage(Game.GetLocalPlayer(), Input.GetCurrentInputType())