Keys:
F1 - 1-camera layout  
F2 - 4-camera layout
F3 - 9-camera layout 
F4 - 16-camera layout 
F5 - show all cameras on the monitor

0-9 - to specity monitor, camera or preset id 

# - select monitor id
Press digits, then # to select monitor id
Press digits, then camera button to select camera id 
Press digits, then dot (next to the camera button) to go to preset
The clock button to set the archive time is not working
Settings button - save camera preset
Tab - select archive or live video
=============================================================================

if (Event.SourceType=="TELEMETRY_EXT" && Event.Action=="KEY_PRESSED")
{
 if (Event.GetParam("guid_pk")!="")
 {
 var key=Event.GetParam("param0");
 key=parseInt(key);
 var type=Event.GetParam("device"); //0-8312 1-8313
 type=parseInt(type);

 DebugLogString("Device:"+type+" Key:"+key);
  
 if (key<10 && type==0) 
 {   if (Var_var("arch")==1) 
  { var WshShell = new ActiveXObject("WScript.Shell");
   WshShell.SendKeys(key);  }   
  else Var_var("cam")+=key; 
 }

 if (type==1)
 {
  switch(key)
  {
    case 1:
	DoReactStr("MONITOR",Itv_var("mon"),"EXPORT_FRAME","cam<"+Itv_var("cam")+">"); 
	break;
    case 2:
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<STOP>");
	Var_var("play")=0;
	break;
    case 3:
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<REW>");
	break;
    case 4:
	if (Var_var("play")==1)
	{ Var_var("play")=0;
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<PAUSE>");
	} else
	{ Var_var("play")=1;
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<PLAY_NONSTOP>");
	}
	break;
    case 5:
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<FF>");
	break;
    case 6:
	//DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<PRINT>");
        var WshShell = new ActiveXObject("WScript.Shell");
  	WshShell.SendKeys("^E")
	break;
  }
 }

 switch(key)
 {
  case 10: //Tab - àðõèâ\æèâîå âèäåî
                if (Var_var("arch")==1)
		{
		  Var_var("arch")=0;
		  DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<MODE_VIDEO>");
		  DebugLogString("### æèâîå âèäåî");
		}
		else
		{
		  Var_var("arch")=1;
		  DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<MODE_ARCH>");   
		  DebugLogString("### ðåæèì àðõèâà");       
		}
                break;
  case 11:  //Alt - Ýìóëÿöèÿ êëàâèøè Enter
                var WshShell = new ActiveXObject("WScript.Shell");
  		WshShell.SendKeys("{ENTER}")
                break;
  case 12: //Mon - set monitor id
                Itv_var("mon")=Var_var("cam");
                Var_var("cam")="";         
                break;
  case 13: //Eneter - set camera id
                Itv_var("cam")=Var_var("cam");
                Var_var("cam")="";
                DoReactStr("MONITOR",Itv_var("mon"),"ACTIVATE_CAM","cam<"+Itv_var("cam")+">");
                break;
  case 14: //Shot - go_preset
                DoReactStr("TELEMETRY",GetPTZdevice(Itv_var("cam")),"GO_PRESET","preset<"+Var_var("cam")+">,tel_prior<3>");
                Itv_var("pre")=Var_var("cam");
                Var_var("cam")="";
                break;
  case 15: //Time - âûáîð âðåìåíè àðõèâà
               // DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<ARCH_EDIT_DATE>");
                Var_var("cam")="";
                break;
  case 16: //Setup - çàïèñü ïðåñåòà
                DoReactStr("TELEMETRY",GetPTZdevice(Itv_var("cam")),"SET_PRESET","preset<"+Var_var("cam")+">,tel_prior<3>");
		DebugLogString("PTZ:"+GetPTZdevice(Itv_var("cam"))+" PRESET:"+Var_var("cam"));
                Itv_var("pre")=Var_var("cam");
                Var_var("cam")="";
                break;
  case 17: //F1
                DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<SCREEN.1>");  
                break;
  case 18:  //F2
                DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<SCREEN.4>");  
                break;
  case 19:  //F3
                DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<SCREEN.9>");  
                break;
  case 20:  //F4
                DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<SCREEN.16>");
                break;
  case 21:  //F5
                DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<SCREEN.25>");
                break;
 } 
 }
}

if (Event.SourceType=="TELEMETRY_EXT" && Event.Action=="MOVED")
{
 if (Event.GetParam("guid_pk")!="")
 {
 var key=Event.GetParam("param0");
 key=parseInt(key);
 var type=Event.GetParam("device"); //0-8312 1-8313
 type=parseInt(type);
 DebugLogString("Device:"+type+" Key:"+key);
 }
 if (type==0)
 {
   if (key==-1)
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<REW>");
   else
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<FF>");
 }
 else
 {
   if (key>0)
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<WINDOW_ZOOM_IN>");
   if (key<0)
	DoReactStr("MONITOR",Itv_var("mon"),"KEY_PRESSED","key<WINDOW_ZOOM_OUT>");
 }
}


function GetPTZdevice(camId)
{
if (Var_var("PTZ_" + camId) == "") 
 {
  DebugLogString("PTZ device for camera " + camId + " is unknown!");
  var re = /id\.[0-9]+<(.+?)>/g;
  var sObjId = GetObjectIds("TELEMETRY");
  var Id;

  while (Id = re.exec(sObjId)) {
   if (GetObjectParam("TELEMETRY",Id[1],"cam") == camId)  {
    Lock();
    Var_var("PTZ_" + camId) = Id[1];
    Unlock();
    DebugLogString("PTZ device for camera " + camId + " -- " + Id[1]);
    return Id[1];
   }
  }
}
else {
  return Var_var("PTZ_" + camId); }
}