'M01 !!! DO NOT EDIT THE FIRST 4 LINES OF THIS FILE !!! 'CHARSET:ANSI 'ONLOAD:DISABLE_DB_LINK 'RESET:NO Sub move_user 'DESC:12:20:55 Feb 06, 2010 'ICON:WHITE 'HKEY:F3 ActiveCanvas.Scene.Select "2D Text 1" ActiveCanvas.Scene.Select "BACKPLATE", scShift Lyric.ActivateFrame "Canvas" ActiveCanvas.Selection.Left scShift ActiveCanvas.Selection.Left scShift ActiveCanvas.Selection.Left ActiveCanvas.Selection.Left End Sub Sub DISABLE_DB_LINK 'DESC:16:36:46 Nov 01, 2007 'ICON:WHITE 'HKEY:F9 set WshShell=CreateObject ("WScript.Shell") WshShell.SendKeys "{F6}" WshShell.SendKeys "%E" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{down}" WshShell.SendKeys "{enter}" End Sub Sub Drop_On_Off 'DESC:15:51:32 Nov 22, 2007 'ICON:WHITE 'HKEY:F8 ActiveCanvas.Scene("DROP_BAR_1").Visible = NOT ActiveCanvas.Scene("DROP_BAR_1").Visible ActiveCanvas.Scene("DROP_BAR_1_MASK").Visible = NOT ActiveCanvas.Scene("DROP_BAR_1_MASK").Visible ActiveCanvas.Scene("DROP_TEXT").Visible = NOT ActiveCanvas.Scene("DROP_TEXT").Visible End Sub Sub DropStat_On_Off 'DESC:16:44:51 Nov 22, 2007 'ICON:WHITE 'HKEY:Shift+F8 ActiveCanvas.Scene("DROP_TEXT").Visible = NOT ActiveCanvas.Scene("DROP_TEXT").Visible ActiveCanvas.Scene("DROP_BAR_HILITE").Visible = NOT ActiveCanvas.Scene("DROP_BAR_HILITE").Visible ActiveCanvas.Scene("DROP_BAR_1_MASK").Visible = NOT ActiveCanvas.Scene("DROP_BAR_1_MASK").Visible ActiveCanvas.Scene("DROP_BAR_1").Visible = NOT ActiveCanvas.Scene("DROP_BAR_1").Visible ActiveCanvas.Scene.Select "DROP_BAR_HILITE" End Sub Sub Erase_Outputs 'DESC:22:34:32 Mar 17, 2003 'DESC: 'DESC:This macro erases outputs but leaves canvas alone. 'DESC:Message "CMIX to reset mix" is a CMIX message that routes Layer 1 to Output 1 'ICON:WHITE 'HKEY: MsgBox "Press Spacebar to erase Outputs" wait (0) set WshShell= CreateObject ("WScript.Shell") WshShell.SendKeys("%^q") Lyric.Open "I:\ESPN_CBB_V12\MESSAGES\CMIX to reset Mix.lyr" End Sub Sub ExecMacInV5 'DESC:15:40:42 Aug 21, 2007 'ICON:WHITE 'HKEY:F5 set n = ActiveCanvas.Scene.Element("Global Light") set p = n.Properties( "Chyron.Lyric::Internal Properties") mac = p.Value("onRead Macro") ExecuteGlobal(mac) End Sub Sub POP_2 'DESC:14:06:45 Sep 17, 2007 'ICON:WHITE 'HKEY: ActiveCanvas.Scene.GetTemplate("HERO_LINE_1").setactive ActiveCanvas.Selection = "2nd Personal Foul" ActiveCanvas.Scene.Refresh End Sub Sub POP_3 'DESC:14:16:23 Sep 17, 2007 'ICON:WHITE 'HKEY: ActiveCanvas.Scene.GetTemplate("HERO_LINE_1").setactive ActiveCanvas.Selection = "3rd Personal Foul" ActiveCanvas.Scene.Refresh End Sub Sub Top_Red_On_Off 'DESC:16:40:26 Nov 22, 2007 'ICON:WHITE 'HKEY:F4 ActiveCanvas.Scene("TOP_RED_BAR_TEXT").Visible = NOT ActiveCanvas.Scene("TOP_RED_BAR_TEXT").Visible ActiveCanvas.Scene("TOP_RED_BAR_MASK").Visible = NOT ActiveCanvas.Scene("TOP_RED_BAR_MASK").Visible ActiveCanvas.Scene("TOP_RED_BAR").Visible = NOT ActiveCanvas.Scene("TOP_RED_BAR").Visible End Sub