AHK: Запись текста в массив и удаление через 5 минут

#Persistent

Time := 5 * 60 * 1000   ;  5 минут
oArr := []
SetTimer, Remove, -%Time% 
oArr[A_TickCount] := "Text 1"  ; пример записи в такой массив 
Return

Remove:  
 	If (A_TickCount - oArr.MinIndex() >= Time)
		oArr.RemoveAt(oArr.MinIndex())
	SetTimer, Remove, % "-" (!oArr.MinIndex() ? Time : Time - (A_TickCount - oArr.MinIndex())) 
	Return

(!oArr.MinIndex() ? Time : Time - (A_TickCount - oArr.MinIndex())) 

#Persistent
MyArray := new DeleteKey(5000)  ; удалять через 5 секунд
MyArray.MyKey := 1   ; если нужно своё название ключа, кроме зарезервированного "_time"
MyArray.Push(10)		; если название ключа не имеет значения
Return

class DeleteKey
{
	__New(time)  {
		this._time := time
	}
	__Set(key)  {
		if (key != "_time")  {
			Timer := Func("Timer").Bind(this, key)
			SetTimer, % Timer, % "-" this._time
		}
	}
	Push(value)  {
		var := this.MaxIndex()
		this[(var = "" ? 0 : var) + 1] := value
	}
}

Timer(obj, key)  {
	obj.Delete(key)
}

#Persistent
SetTimer, Timer

MyArray := new DeleteKey(5000)  ; удалять через 5 секунд
Loop 1000  {
	Sleep, 10
	MyArray.Push(A_Index)
}

class DeleteKey
{
	__New(time)  {
		this._time := time
	}
	__Set(key)  {
		if (key != "_time")  {
			Timer := Func("Delete").Bind(this, key)
			SetTimer, % Timer, % "-" this._time
		}
	}
	Push(value)  {
		var := this.MaxIndex()
		this[(var = "" ? 0 : var) + 1] := value
	}
}

Delete(obj, key)  {
	obj.Delete(key)
}

Timer:
	CoordMode, ToolTip
	text := ""
	for k, v in MyArray
		if (k != "_time")
			text .= "MyArray." k " = " v "`n"
	ToolTip % text, A_ScreenWidth//2, A_ScreenHeight//2, 1
	Return

#Persistent

Time := 5000   ;  5 минут
oArr := []
SetTimer, Remove, -%Time% 
oArr[A_TickCount] := 0
Sleep, 2000
oArr[A_TickCount] := 1

Loop 1000  {
	Sleep, 10
	oArr[A_TickCount] := A_Index
}
Return

Remove:
 	If (A_TickCount - oArr.MinIndex() >= Time)
		oArr.RemoveAt(oArr.MinIndex())
	SetTimer, Remove, % "-" (!oArr.MinIndex() ? Time : Time - (A_TickCount - oArr.MinIndex())) 
	ToolTip % oArr[oArr.MinIndex()]
	Return

#Persistent

SetTimer, Timer

Time := 1000
oArr := []

Loop 500  {
	Sleep, 10
	oArr[A_TickCount] := A_Index
} 
SetTimer, Remove, -%Time%  
Return

Remove:
 	If (A_TickCount - oArr.MinIndex() >= Time)
	{
		oArr.RemoveAt(oArr.MinIndex()), ++i
		ToolTip % i " удалено из массива"
	}
	SetTimer, Remove, % "-" (!oArr.MinIndex() ? Time : (N := Time - (A_TickCount - oArr.MinIndex())) < 1 ? 1 : N)  
	Return
	
Timer:
	For k, v in oArr, content := ""
		content .= "Добавлено " (A_TickCount - k) // 1000 " секунд назад:`t`t" v "`n" 
	ToolTip % "Прошло секунд: " (A_TickCount - Start) // 1000 "`nСодержимое массива:`n`n" content
	Return