tell application id "com.figure53.QLab.5" to tell front workspacetell application "QLab 4"
tell application id "com.figure53.QLab.5” […]
-- Network patch 2 = "ETC Eos Family"-- Network patch 3 = "QLab 5"-- Network patch 4 = "Plain Text"
tell application id "com.figure53.QLab.5" to tell front workspace
set maListe to {"cue fire", "sub full", "sub min", "sub fade", "go", "START spare son", "UDP"}
choose from list maListe with prompt "Choose from the list."if result is not false thenset moda to item 1 of resultelseerror number -128end if
if moda is in {"cue fire", "sub full", "sub min"} thenset lxnum to text returned of (display dialog "Create LX Cue - (Cuelist/Cue) - Si vous n'utilisez pas de cue listes entrez juste le numéro de cue." buttons {"Create", "Cancel"} default button 1 default answer "" cancel button "Cancel" with icon note)elseset lxnum to text returned of (display dialog "Nom du Cue" buttons {"Create", "Cancel"} default button 1 default answer "" cancel button "Cancel" with icon note)end if
set theOffset to (offset of "/" in lxnum) + 1set theLabel to text theOffset thru end of lxnum
make type "network"set thecue to last item of (selected as list)
if moda is in {"cue fire", "sub full", "sub min", "sub fade", "go"} thenset network patch number of thecue to 2else if moda is "START spare son" thenset network patch number of thecue to 3else if moda is "UDP" thenset network patch number of thecue to 4set udpnum to text returned of (display dialog "message UDP" buttons {"Create", "Cancel"} default button 1 default answer "" cancel button "Cancel" with icon note) -- ### Not entirely clear what purpose lxnum serves for this type? ###end if
if moda is "cue fire" thenset parameter values of thecue to {"cue", "fire", lxnum}else if moda is "sub full" thenset parameter values of thecue to {"sub", "full", lxnum, "1"} -- Extra parameter in QLab 5 for "Button"else if moda is "sub min" thenset parameter values of thecue to {"sub", "min", lxnum, "1"} -- Extra parameter in QLab 5 for "Button"else if moda is "sub fade" then -- ### INFORMATION ABOUT THIS CUE TYPE MISSING FROM ORIGINAL SCRIPT ###set parameter values of thecue to {"sub", "set", lxnum}set parameter fades enabled of thecue to {false, false, false, true}set fade from of thecue to 0 -- ###TBC###set fade to of thecue to 1 -- ###TBC###set duration of thecue to 3 -- ###TBC###else if moda is "go" thenset parameter values of thecue to {"custom", "/eos/key/go"}else if moda is "START spare son" thenset parameter values of thecue to {"cues", "useActive", lxnum, "all", "start"}else if moda is "UDP" thenset custom string of thecue to udpnumend if
if moda is in {"cue fire", "sub full", "sub min"} thenset q name of thecue to "TOP LUX CUE " & theLabelelse if moda is "go" thenset q name of thecue to "LUX " & theLabelelse if (moda = "sub fade") thenset q name of thecue to "LUX SUB " & theLabelelse if moda = "START spare son" thenset q name of thecue to "START Spare Son " & theLabelelse if moda = "UDP" thenset q name of thecue to "Timeline " & theLabelend if
if moda is "START spare son" thenset q color of thecue to "blue"else if moda is "UDP" thenset q color of thecue to "purple"elseset q color of thecue to "orange"end if
if moda is "cue fire" thenset q number of thecue to "LX Cue " & lxnumelse if moda is "UDP" thenset q number of thecue to "V"end if
end tell
-- Network patch 2 = "ETC Eos Family"
set custom string of thecue to "/eos/cue/" & lxnum & "/fire"