#Persistent
#NoEnv
#MaxThreadsPerHotkey 20
#MaxHotkeysPerInterval 400
#HotkeyInterval, -1

 Now:=A_Now
  FileAppend,% "<Root>" "`n", Macros%Now%.amc 
  FileAppend,% "	<DefaultMacro>" "`n", Macros%Now%.amc 
  FileAppend,% "		<Major></Major>" "`n", Macros%Now%.amc 
  FileAppend,% "		<Description>Romik" "`n", Macros%Now%.amc 
  FileAppend,% "</Description>" "`n", Macros%Now%.amc 
  FileAppend,% "		<Comment>Romik" "`n", Macros%Now%.amc 
  FileAppend,% "</Comment>" "`n", Macros%Now%.amc 
  FileAppend,% "		<GUIOption>" "`n", Macros%Now%.amc 
  FileAppend,% "			<RepeatType>2</RepeatType>" "`n", Macros%Now%.amc 
  FileAppend,% "		</GUIOption>" "`n", Macros%Now%.amc 
  FileAppend,% "		<KeyUp>" "`n", Macros%Now%.amc 
  FileAppend,% "			<Syntax></Syntax>" "`n", Macros%Now%.amc 
  FileAppend,% "		</KeyUp>" "`n", Macros%Now%.amc 
  FileAppend,% "		<KeyDown>" "`n", Macros%Now%.amc 
  FileAppend,% "			<Syntax>MoveR 0 0" "`n", Macros%Now%.amc 
  FileAppend,% "IfKey 1 1 4" "`n", Macros%Now%.amc 
  FileAppend,% "IfKey 1 0 1" "`n", Macros%Now%.amc 
     return

*~vk60::
  KeyWait, vk60, D 
  MouseGetPos,  pos1, pos2
   WinGet, active_id, ID, A 
if !x0
   x0 := - pos1, y0 := - pos2
Else
 {
    FileAppend, % "MoveR " - pos1 - x0 " " - pos2  - y0 "`n", Macros%Now%.amc 
FileAppend, % "Delay " . A_TimeSincePriorHotkey . " ms" "`n", Macros%Now%.amc
 FileAppend, % "IfKey 1 0 1" "`n", Macros%Now%.amc
x0 := - pos1, y0 := - pos2
    
}
  Return 
*~vk1:: 
     KeyWait, vk1, L
     FileAppend, % "IfKey 1 0 1</Syntax>" "`n", Macros%Now%.amc
     FileAppend, % "		</KeyDown>" "`n", Macros%Now%.amc
     FileAppend, % "		<Software>Warface" "`n", Macros%Now%.amc
     FileAppend, % "</Software>" "`n", Macros%Now%.amc
     FileAppend, % "	</DefaultMacro>" "`n", Macros%Now%.amc
     FileAppend, % "</Root>" "`n", Macros%Now%.amc
      sleep, 1000
ExitApp
    Return