Add warnings

tell application id "com.figure53.qlab.3" to tell front workspace

    repeat with myCue in (selected as list)
        set myDuration to duration of myCue
        set myDuration to myDuration - 25
        set myQName to q name of myCue
        set myCueID to uniqueID of myCue
        set myNum to q number of myCue
        set post wait of myCue to myDuration
        set continue mode of myCue to auto_continue

        make type "script"
        set warnCue to last item of (selected as list)
        set q name of warnCue to myQName & " WARNING"
        set q number of warnCue to ""
        set script source of warnCue to "
    (display dialog \"Did you cue the flyman?\" with icon 1 ¬
        buttons {\"OK\"} default button \"OK\" cancel button \"OK\")"
        set warnID to uniqueID of warnCue
        tell parent of warnCue
            move cue id warnID to after cue (myNum as text)
        end tell

    end repeat
end tell