This will create a midi cue to execute a cue on a lighting console. They must have some kind of midi interface, of course.
# First - change the device ID #then, change the repeat to whatever number you want # Choose and open the QLab file set theFile to (choose file with prompt "Select the QLab File:" without invisibles) tell application "QLab" activate open theFile # First, Create a first cue. This is due to the requirements of QLab cue selections. It will be deleted later. tell front workspace make type "memo" set firstCue to first item of (selected as list) set q number of firstCue to 1.0E-5 set theID to the uniqueID of firstCue set the notes of firstCue to theID tell cue list 1 move cue id theID to before the first cue end tell #get the last cue in the list end tell (* display dialog "How many cues do you have to create?" default answer "" set xRepititions to the text returned of the result as real repeat xRepititions times *) repeat 1 times tell front workspace repeat with xSelection in every cue moveSelectionUp end repeat display dialog "Enter Cue Number" default answer "" set theCueNumber to (the text returned of the result) as real # real is a real number, as opposed to integer # make type "midi" # set q number of last item of (selected as list) to theCueNumber repeat with xCue in every cue if q number of xCue is less than 1 then #beep else set xCueNumber to the q number of xCue as real if theCueNumber > xCueNumber then moveSelectionDown end if if theCueNumber = xCueNumber then beep display dialog (theCueNumber as string) & " already exists!" tell cue list 1 delete the first cue end tell error end if end if end repeat (* set lastCue to the last cue if theCueNumber < q number of lastCue then moveSelectionUp end if *) set newCue to make type "midi" set newCue to last item of (selected as list) set q number of newCue to theCueNumber #set q number of selected to theCueNumber set message type of newCue to msc set command format of newCue to 1 set deviceID of newCue to 1 set q_number of newCue to theCueNumber set the q name of newCue to "LX " & theCueNumber end tell end repeat tell front workspace tell cue list 1 delete the first cue end tell end tell end tell