anchor.diff:  
   procedure TKMEvent.SetParams(aTrigger: TKMTrigger; aAction: TKMAction);
   begin
  -  inherited Create;
  -
     fTrigger := aTrigger;
     fAction := aAction;
   end;
  
positive.code: 
  
  implementation
  uses KM_Game, KM_MessageStack, KM_PlayersCollection, KM_TextLibrary;
  
  
  const
  
negative.code:   E: TKMEvent;
    SL: TStringList;
  begin
    if not FileExists(aFilename) then
    begin
      fLog.AddToLog(aFilename + ' was not found. It is okay for mission to have no events.');
      Exit;
    end;
  
    fEvents.Clear;
  
    //Read the file line by line and try to add valid events
  