CreateEventPatch.ahk

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SetWorkingDir %a_scriptdir%
loop 3
    arg%A_Index% := %A_Index%
if(!arg1)
{
    FileSelectFile, OldFile , 1, %A_ScriptDir%, Select old file, *.xml
    if(Errorlevel)
        ExitApp
}
else
    OldFile = %1%
if(!arg2)
{
    FileSelectFile, NewFile , 1, %A_ScriptDir%, Select new file, *.xml
    if(Errorlevel)
        ExitApp
}
else
    NewFile = %2%
FileRead, OldXML, %OldFile%
FileRead, NewXML, %NewFile%
OldXMLObject := XML_Read(OldXML)
NewXMLObject := XML_Read(NewXML)
PatchXMLObject := Object("Events", Object("Event", Array()), "Remove", Object("OfficialEvent", Array()), "Message", "Automatically generated")
;Read current version from 7plus.ahk
Loop, Read, 7plus.ahk
{
    if(InStr(A_LoopReadLine, "MajorVersion := "))
        PatchXMLObject.MajorVersion :=  SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
    else if(InStr(A_LoopReadLine, "MinorVersion := "))
        PatchXMLObject.MinorVersion := SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
    else if(InStr(A_LoopReadLine, "BugfixVersion := "))
        PatchXMLObject.BugfixVersion := SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
    else if(InStr(A_LoopReadLine, "BuildVersion := "))
        PatchXMLObject.BuildVersion := SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
}
PatchXMLObject.BuildVersion := BuildVersion

;Convert to array
Loop % NewXMLObject.Events.Event.MaxIndex()
{
    NewEvent := NewXMLObject.Events.Event[A_Index]
    if(!NewEvent.Conditions.Condition.Is(CArray)) ;Single condition
    {
        XMLConditions := Array()
        if(NewEvent.Conditions.HasKey("Condition"))
            XMLConditions.Insert(NewEvent.Conditions.Condition)
        NewEvent.Conditions.Condition := XMLConditions
    }
    if(!NewEvent.Actions.Action.Is(CArray)) ;Single action
    {
        XMLActions := Array()
        if(NewEvent.Actions.HasKey("Action"))
            XMLActions.Insert(NewEvent.Actions.Action)
        NewEvent.Actions.Action := XMLActions
    }
}
Loop % OldXMLObject.Events.Event.MaxIndex()
{
    OldEvent := OldXMLObject.Events.Event[A_Index]
    ;Convert to array
    if(!OldEvent.Conditions.Condition.Is(CArray)) ;Single condition
    {
        XMLConditions := Array()
        if(OldEvent.Conditions.HasKey("Condition"))
            XMLConditions.Insert(OldEvent.Conditions.Condition)
        OldEvent.Conditions.Condition := XMLConditions
    }
    if(!OldEvent.Actions.Action.Is(CArray)) ;Single Action
    {
        XMLActions := Array()
        if(OldEvent.Actions.HasKey("Action"))
            XMLActions.Insert(OldEvent.Actions.Action)
        OldEvent.Actions.Action := XMLActions
    }
    ;Warn if official event is not set
    if(!OldEvent.HasKey("OfficialEvent"))
        Msgbox % OldEvent.ID ": " OldEvent.Name " doesn't have an official id!"
    if(NewEvent := NewXMLObject.Events.Event.GetItemWithValue("OfficialEvent", OldEvent.OfficialEvent)) ;Event exists in both files, look for changes
    {
        PatchEvent := Object("OfficialEvent", OldEvent.OfficialEvent)
        Updated := false
        if(!OldEvent.Conditions.Equals(NewEvent.Conditions))
        {
            PatchEvent.Conditions := NewEvent.Conditions
            Updated := true
        }
        if(!OldEvent.Actions.Equals(NewEvent.Actions))
        {
            PatchEvent.Actions := NewEvent.Actions
            Updated := true
        }
        enum := NewEvent._newEnum()
        while enum[key,value]
        {
            if(key = "OfficialEvent")
                continue
            if(key = "Actions" || key = "Conditions")
                continue
            if(key = "Trigger")
            {
                if(!OldEvent.Trigger.Equals(NewEvent.Trigger))
                {
                    PatchEvent.Trigger := NewEvent.Trigger
                    Updated := true
                }
                continue
            }
            if(IsObject(value))
                msgbox found unexpected object: %key%
            if(!OldEvent.HasKey(key) || OldEvent[key] != value)
            {
                PatchEvent[key] := value
                Updated := true
            }
        }
        if(Updated)
            PatchXMLObject.Events.Event.Insert(PatchEvent)
    }
    else ;Event was deleted
        PatchXMLObject.Remove.OfficialEvent.Insert(OldEvent.OfficialEvent)
}
Loop % NewXMLObject.Events.Event.MaxIndex()
{
    NewEvent := NewXMLObject.Events.Event[A_Index]
    if(!OldXMLObject.Events.Event.GetItemWithValue("OfficialEvent", NewEvent.OfficialEvent)) ;Event was added
        PatchXMLObject.Events.Event.Insert(NewEvent)
}
XML_Save(PatchXMLObject, A_ScriptDir "\Events\ReleasePatch\" PatchXMLObject.MajorVersion "." PatchXMLObject.MinorVersion "." PatchXMLObject.BugfixVersion "." PatchXMLObject.BuildVersion ".xml")
ExitApp

#include %A_ScriptDir%\lib\richobject.ahk
#include %A_ScriptDir%\xml.ahk
#include %A_ScriptDir%\miscfunctions.ahk
#include %A_ScriptDir%\lib\array.ahk
#include %A_ScriptDir%\lib\functions.ahk
#include %A_ScriptDir%\lib\DllCalls.ahk