Make Comparable Device

Module — 2 files

These files compile together (same module folder).

file_1.verse

using { /Fortnite.com/Devices }
using { /Verse.org/Simulation }
using { /Verse.org/Random }
using { /UnrealEngine.com/Temporary/SpatialMath }

MakeUniqueDevice<constructor>(Device:device_type where device_type:subtype(creative_device_base))<transacts> := unique_device(device_type):
    Device := Device

unique_device<public>(DeviceType:subtype(creative_device_base)) := class<unique>:
    Device<public> : DeviceType

ConvertArray(Devices:[]device_type where device_type:subtype(creative_device_base)):[]unique_device(device_type)=
    for(Device : Devices):
        MakeUniqueDevice(Device)

test_device.verse

test_device := class(creative_device):
    @editable
    Triggers : []trigger_device = array{}

    var ConvertedTriggers : []unique_device(trigger_device) = array{}

    OnBegin<override>()<suspends>:void=
        set ConvertedTriggers = ConvertArray(Triggers)

        if:
            TargetTrigger := ConvertedTriggers[GetRandomInt(0, ConvertedTriggers.Length)]
            Index := ConvertedTriggers.Find[TargetTrigger]
            NewElements := ConvertedTriggers.RemoveElement[Index]
            set ConvertedTriggers = NewElements
            TargetTrigger.Device.TeleportTo[vector3{Z := 1000.0}, IdentityRotation()]
        then:
            #この部分！
            TargetTrigger.Device.Enable()
            TargetTrigger.Device.Disable()
            TargetTrigger.Device.TriggeredEvent.Subscribe(OnTriggered)

    OnTriggered(MaybeAgent:?agent):void=
        return

Copy-paste each file above is always free.

Make Comparable Device

Comments