using { /Fortnite.com/Devices }
using { /Fortnite.com/UI }
using { /UnrealEngine.com/Temporary/UI }
using { /UnrealEngine.com/Temporary/SpatialMath }
using { /Verse.org/Colors }
using { /Verse.org/Simulation }
pinpad_device := class(creative_device):
@editable
OpenTrigger : trigger_device = trigger_device{}
@editable
FailedTrigger : trigger_device = trigger_device{}
@editable
PinCodes : []string = array{}
@editable
SuccessTriggers : []trigger_device = array{}
@editable
TitleText : string = "PIN PAD"
@editable
MaxDigits : int = 8
var PlayerRoots : [player]widget = map{}
var PlayerInputTexts : [player]text_block = map{}
var PlayerInputs : [player]string = map{}
var PlayerUIs : [player]player_ui = map{}
ToMessage<localizes>(S:string) : message = "{S}"
OnBegin<override>()<suspends>:void =
OpenTrigger.TriggeredEvent.Subscribe(OnOpenTriggered)
OnOpenTriggered(MaybeAgent:?agent):void =
if (A := MaybeAgent?):
if (P := player[A]):
OpenForPlayer(P)
OpenForPlayer(P:player):void =
CloseForPlayer(P)
if (UI := GetPlayerUI[P]):
if (set PlayerUIs[P] = UI):
Root := BuildRootWidget(P)
UI.AddWidget(
Root,
player_ui_slot{
ZOrder := 100,
InputMode := ui_input_mode.All
}
)
if (set PlayerRoots[P] = Root):
if (set PlayerInputs[P] = ""):
UpdateDisplay(P)
CloseForPlayer(P:player):void =
if (UI := PlayerUIs[P]):
if (Root := PlayerRoots[P]):
UI.RemoveWidget(Root)
UpdateDisplay(P:player):void =
if (TB := PlayerInputTexts[P]):
if (Current := PlayerInputs[P]):
if (Current.Length > 0):
TB.SetText(ToMessage(Current))
else:
TB.SetText(ToMessage(""))
AppendDigit(P:player, Digit:string):void =
if (Current := PlayerInputs[P]):
if (Current.Length >= MaxDigits):
return
NewValue : string = "{Current}{Digit}"
if (set PlayerInputs[P] = NewValue):
UpdateDisplay(P)
DeleteLastDigit(P:player):void =
if (Current := PlayerInputs[P]):
if (Current.Length <= 0):
return
NewValue : string = Substring(Current, 0, Current.Length - 1)
if (set PlayerInputs[P] = NewValue):
UpdateDisplay(P)
Substring(S:string, Start:int, L:int):string =
if ((Start >= 0) and (L >= 0) and (Start < S.Length)):
var End : int = Start + L
if (End > S.Length):
set End = S.Length
var Result : string = ""
var I : int = Start
loop:
if (I >= End):
break
if (C := S[I]):
set Result = "{Result}{C}"
set I = I + 1
return Result
return ""
SubmitPin(P:player):void =
if (Current := PlayerInputs[P]):
for (Index -> ExpectedPin : PinCodes):
if (Current = ExpectedPin):
if (Agent := agent[P]):
if (SuccessTrigger := SuccessTriggers[Index]):
SuccessTrigger.Trigger(Agent)
else:
FailedTrigger.Trigger(Agent)
CloseForPlayer(P)
return
if (Agent := agent[P]):
FailedTrigger.Trigger(Agent)
CloseForPlayer(P)
BuildRootWidget(P:player):canvas =
Dimmer : color_block = color_block{
DefaultColor := color{R := 0.0, G := 0.0, B := 0.0},
DefaultOpacity := 0.60,
DefaultDesiredSize := vector2{X := 1920.0, Y := 1080.0}
}
Panel : color_block = color_block{
DefaultOpacity := 0.98,
DefaultDesiredSize := vector2{X := 560.0, Y := 800.0},
DefaultColor := color{R := 0.0, G := 0.0, B := 1.0}
}
Title : text_block = text_block{
DefaultText := ToMessage(TitleText),
DefaultTextColor := color{R := 1.0, G := 1.0, B := 1.0},
DefaultTextSize := 36.0,
DefaultJustification := text_justification.Center
}
DisplayBG : color_block = color_block{
DefaultColor := color{R := 0.0, G := 0.0, B := 0.0},
DefaultOpacity := 1.0,
DefaultDesiredSize := vector2{X := 420.0, Y := 74.0}
}
DisplayText : text_block = text_block{
DefaultText := ToMessage(""),
DefaultTextColor := color{R := 1.0, G := 1.0, B := 1.0},
DefaultTextSize := 34.0,
DefaultJustification := text_justification.Center
}
if (set PlayerInputTexts[P] = DisplayText):
ButtonWidth : float = 120.0
ButtonHeight : float = 90.0
SmallButtonWidth : float = 140.0
SmallButtonHeight : float = 90.0
Btn1 : button_loud = button_loud{ DefaultText := ToMessage(" 1 ") }
Btn2 : button_loud = button_loud{ DefaultText := ToMessage(" 2 ") }
Btn3 : button_loud = button_loud{ DefaultText := ToMessage(" 3 ") }
Btn4 : button_loud = button_loud{ DefaultText := ToMessage(" 4 ") }
Btn5 : button_loud = button_loud{ DefaultText := ToMessage(" 5 ") }
Btn6 : button_loud = button_loud{ DefaultText := ToMessage(" 6 ") }
Btn7 : button_loud = button_loud{ DefaultText := ToMessage(" 7 ") }
Btn8 : button_loud = button_loud{ DefaultText := ToMessage(" 8 ") }
Btn9 : button_loud = button_loud{ DefaultText := ToMessage(" 9 ") }
Btn0 : button_loud = button_loud{ DefaultText := ToMessage(" 0 ") }
BtnDelete : button_regular = button_regular{ DefaultText := ToMessage("DELETE") }
BtnEnter : button_loud = button_loud{ DefaultText := ToMessage("ENTER") }
BtnClose : button_quiet = button_quiet{ DefaultText := ToMessage(" X ") }
Btn1.OnClick().Subscribe(OnDigit1)
Btn2.OnClick().Subscribe(OnDigit2)
Btn3.OnClick().Subscribe(OnDigit3)
Btn4.OnClick().Subscribe(OnDigit4)
Btn5.OnClick().Subscribe(OnDigit5)
Btn6.OnClick().Subscribe(OnDigit6)
Btn7.OnClick().Subscribe(OnDigit7)
Btn8.OnClick().Subscribe(OnDigit8)
Btn9.OnClick().Subscribe(OnDigit9)
Btn0.OnClick().Subscribe(OnDigit0)
BtnDelete.OnClick().Subscribe(OnDeletePressed)
BtnEnter.OnClick().Subscribe(OnEnterPressed)
BtnClose.OnClick().Subscribe(OnClosePressed)
Root : canvas = canvas:
Slots := array:
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.0, Y := 0.0}, Maximum := vector2{X := 0.0, Y := 0.0}}
Offsets := margin{Left := 0.0, Top := 0.0, Right := 1920.0, Bottom := 1080.0}
Alignment := vector2{X := 0.0, Y := 0.0}
SizeToContent := false
Widget := Dimmer
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := 0.0, Right := 560.0, Bottom := 800.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := false
Widget := Panel
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := -320.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Title
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 212.0, Top := -325.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := BtnClose
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := -230.0, Right := 420.0, Bottom := 74.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := false
Widget := DisplayBG
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := -230.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := DisplayText
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := -130.0, Top := -110.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn1
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := -110.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn2
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 130.0, Top := -110.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn3
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := -130.0, Top := 0.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn4
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := 0.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn5
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 130.0, Top := 0.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn6
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := -130.0, Top := 110.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn7
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := 110.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn8
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 130.0, Top := 110.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn9
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 0.0, Top := 220.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := Btn0
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := -130.0, Top := 330.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := BtnDelete
canvas_slot:
Anchors := anchors{Minimum := vector2{X := 0.5, Y := 0.5}, Maximum := vector2{X := 0.5, Y := 0.5}}
Offsets := margin{Left := 130.0, Top := 330.0, Right := 0.0, Bottom := 0.0}
Alignment := vector2{X := 0.5, Y := 0.5}
SizeToContent := true
Widget := BtnEnter
Root
OnDigit1(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "1")
OnDigit2(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "2")
OnDigit3(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "3")
OnDigit4(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "4")
OnDigit5(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "5")
OnDigit6(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "6")
OnDigit7(Msg:widget_message):void =
if ( P := player[Msg.Player]):
AppendDigit(P, "7")
OnDigit8(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "8")
OnDigit9(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "9")
OnDigit0(Msg:widget_message):void =
if (P := player[Msg.Player]):
AppendDigit(P, "0")
OnDeletePressed(Msg:widget_message):void =
if (P := player[Msg.Player]):
DeleteLastDigit(P)
OnEnterPressed(Msg:widget_message):void =
if (P := player[Msg.Player]):
SubmitPin(P)
OnClosePressed(Msg:widget_message):void =
if (P := player[Msg.Player]):
CloseForPlayer(P)
