#SingleInstance Force
;Copyright (c) D.Donchev

loops:= 100000
;test function
funct() {
	return ""
}
fatfu()=>""
;complete argument check ------------------------------------------------------
ff_1(arg:="") {
	return %(type(arg) == "Func"? arg: ()=>)%()
}
;run if only ------------------------------------------------------------------
ff_2(arg:="") {
	if(type(arg) == "Func")
		return %arg%()
}
;try to run -------------------------------------------------------------------
ff_3(arg:="") {
	try return %arg%()
}
;ternary run ------------------------------------------------------------------
ff_4(arg:="") {
	return type(arg) == "Func"? %arg%(): ""
}
loop 4 {
	fn:= A_Index
	elaps:= A_TickCount
	loop loops
		ff_%fn%()				;ternary run faster - fast check
		;ff_%fn%(Func("funct"))	;try run faster - nothing to check
		;ff_%fn%(Func("fatfu"))	;try run faster - nothing to check
		;ff_%fn%(()=>"") 		;try run faster - nothing to check
	elaps:= A_TickCount - elaps
	MsgBox(fn ":=" elaps)
}

snapShot() {
	Suspend("On")  ;disable hotkeys to be used in InputBox
	param:= InputBox("SnapShot",,"W150 H100")
	Suspend("Off") ;enable hotkeys
	
	loop (param:= StrSplit(param, [",",":","|"," "])).length() ;delimiters
		if param[A_Index] {
			goto("CASE_" (++cnt)) ;switch
			CASE_1: ;begin point x coordinate
				x:= param[A_Index]
				continue
			CASE_2: ;begin point y coordinate
				y:= param[A_Index]
				continue
			CASE_3: ;width or end point x coordinate   
				if RegExMatch(param[A_Index], "i)W([\d]+)", arg)
					 w:= arg[1]
				else w:= param[A_Index] - x + 1 ;calculate x2-x1+1
				continue
			CASE_4: ;height or end point y coordinate
				if RegExMatch(param[A_Index], "i)H([\d]+)", arg)
					 h:= arg[1]
				else h:= param[A_Index] - y + 1 ;calculate y2-y1+1
				break ;break loop
		}
	Gdip_SaveBitmapToFile(pBmp:= Gdip_BitmapFromScreen(x "|" y "|" w "|" h), ".\" x "-" y ".bmp")
		Gdip_DisposeImage(pBmp)
}

snapShot() {
	Suspend("On")  ;disable hotkeys to be used in InputBox
	loop Parse, InputBox("SnapShot",,"W150 H100"), ",:| " ;delimiters
		if A_LoopField {
			goto("CASE_" (++cnt)) ;switch
			CASE_1: ;begin point x coordinate
				x:= A_LoopField
				continue
			CASE_2: ;begin point y coordinate
				y:= A_LoopField
				continue
			CASE_3: ;width or end point x coordinate   
				w:= RegExMatch(A_LoopField, "i)W([\d]+)", arg)? arg[1]: A_LoopField - x + 1 ;calculate x2-x1+1
				continue
			CASE_4: ;height or end point y coordinate
				h:= RegExMatch(A_LoopField, "i)H([\d]+)", arg)? arg[1]: A_LoopField - y + 1 ;calculate y2-y1+1
				break ;break loop
		}
	Suspend("Off") ;enable hotkeys	
	Gdip_SaveBitmapToFile(pBmp:= Gdip_BitmapFromScreen(x "|" y "|" w "|" h), ".\" x "-" y ".bmp")
		Gdip_DisposeImage(pBmp)
}

#SingleInstance Force
;Copyright (c) D.Donchev
fun()
fun() {
	x:= y:= w:= h:= 0 ;define variables for fat functions
	;fat functions throws exceptions if not number result
	static xywh :=	[()=>(x:= A_LoopField + 0)
					,()=>(y:= A_LoopField + 0)
					,()=>(w:= RegExMatch(A_LoopField, "i)W([\d]+)", _)? _[1]: A_LoopField - x + 1)
					,()=>(h:= RegExMatch(A_LoopField, "i)H([\d]+)", _)? _[1]: A_LoopField - y + 1)]
	;possible syntaxes
	;100 200 109 209
	;100 200 W10 209
	;100 200 109 H10
	;100 200 W10 H10
	;Suspend("On" ) ;disable hotkeys 
	cntr:= 1
	loop Parse, i:= InputBox("SnapShot",,"W150 H100"), ",:| " 	;i - just for test
		if A_LoopField 			;skip "" (100: 200: W10: H10) 
			try xywh[cntr++]()	;keep 0 for incorrect syntax parameter
			catch
				MsgBox("Incorrect syntax: parameter " cntr-1 ":= " A_LoopField)
	until(cntr > 4)
	MsgBox(i "`nX`t:= " x "`nY`t:= " y "`nW`t:= " w "`nH`t:= " h)
	;Gdip_SaveBitmapToFile(pBmp:= Gdip_BitmapFromScreen(x "|" y "|" w "|" h), ".\" x "-" y ".bmp")
	;	Gdip_DisposeImage(pBmp)
	;Suspend("Off")
}
ExitApp
#!Q::ExitApp ;quit

snapShot() {
	x:= y:= w:= h:= 0 ;define variables for fat functions
	static xywh :=	[()=>(x:= A_LoopField + 0)
					,()=>(y:= A_LoopField + 0)
					,()=>(w:= RegExMatch(A_LoopField, "i)W([\d]+)", _)? _[1]: A_LoopField - x + 1)
					,()=>(h:= RegExMatch(A_LoopField, "i)H([\d]+)", _)? _[1]: A_LoopField - y + 1)]
	Suspend("On" )
	cntr:= 1
	loop Parse, InputBox("SnapShot",,"W150 H100"), ",:| " 	
		if A_LoopField 			
			try xywh[cntr++]()	
	until(cntr > 4)
	Suspend("Off")
	
	Gdip_SaveBitmapToFile(pBmp:= Gdip_BitmapFromScreen(x "|" y "|" w "|" h), ".\" x "-" y ".bmp")
		Gdip_DisposeImage(pBmp)
}

#SingleInstance Force
;Copyright (c) D.Donchev

CoordMode("Mouse", "Screen")
CoordMode("Pixel", "Screen")
	pToken:= Gdip_Startup()
	Gui:= GuiCreate("-Caption +E0x80000 +LastFound +AlwaysOnTop +ToolWindow +OwnDialogs")
	Gui.Show("NA")
  
	hwnd:= WinExist()
	hbm := CreateDIBSection(mwW:=75, mwH:=35)
	hdc := CreateCompatibleDC()
	obm := SelectObject(hdc, hbm)
	G   := Gdip_GraphicsFromHDC(hdc)
  
	Gdip_SetSmoothingMode(G, 4)
	pBrush := Gdip_BrushCreateSolid(0x7FC0C0C0)
	Gdip_FillRectangle(G, pBrush,  0, 0, mwW, mwH), Gdip_DeleteBrush(pBrush)
	MouseGetPos mX, mY
	UpdateLayeredWindow(hwnd, hdc, mX, mY, mwW, mwH)
	OnMessage(0x200, ()=>PostMessage(0xA1, 2))
	ShowHide:= RunStop:= 1
	SetTimer("mainWindowContent", 100)
  
mainWindowContent() {
	global
	MouseGetPos mX, mY
	color  := Gdip_GetPixel(Gdip_BitmapFromScreen(mX "|" mY "|1|1", 0x40CC0020), 0, 0) & 0xFFFFFF
	tcolor := (color > 0x800000)? "FF000000": "FFFFFFFF"
	pBrush := Gdip_BrushCreateSolid(0xFF000000|color)
	Gdip_FillRectangle(G, pBrush,  5,  5, mwW-10, mwH-10), Gdip_DeleteBrush(pBrush)
	Gdip_TextToGraphics(G, format("{1:4d}:{2:4d}", mX, mY), "X0 Y6 Center C" tcolor " R4 S10 Bold", "Verdana", mwW, 47)
	Gdip_TextToGraphics(G, format("{1:06X}", color)       , "X0 Y17 Center C" tcolor " R4 S10 Bold", "Verdana", mwW, 47)
	UpdateLayeredWindow(hwnd, hdc)
}

!Space::RunStop :=!RunStop , GuiControl()
#Space::ShowHide:=!ShowHide, GuiControl()
#M:: ;move mouse pointer to possition
	m:= StrSplit(InputBox("Position(X Y)",,"W150 H100",mX " " mY), [",",":","|"," "])
	MouseMove(m[1], m[m.length()])            
return
#!S::snapShot()		
#!F4::ExitApp
#!F1::msgBOX(""
	. "ALT+Space`tRun/Stop`n"
	. "WIN+Space`tShow/Hide`n"
	. "WIN+M`t`tMouseMove`n"
	. "WIN+ALT+S`tSnapShot`n"
	. "WIN+ALT+F1`tHelp`n"
	. "WIN+ALT+F4`tExit")
GuiControl() {
	global
	SetTimer("mainWindowContent", "Off")
	Gui.Hide()
	if ShowHide {
		SetTimer("mainWindowContent", RunStop? "On": "Off")
		Gui.Show()
} 	}
snapShot() {
	x:= y:= w:= h:= 0 ;define variables for fat functions
	static xywh :=	[()=>(x:= A_LoopField + 0)
					,()=>(y:= A_LoopField + 0)
					,()=>(w:= RegExMatch(A_LoopField, "i)W([\d]+)", _)? _[1]: A_LoopField - x + 1)
					,()=>(h:= RegExMatch(A_LoopField, "i)H([\d]+)", _)? _[1]: A_LoopField - y + 1)]
	Suspend("On" )
	cntr:= 1
	loop Parse, InputBox("SnapShot",,"W150 H100"), ",:| " 	
		if A_LoopField 			
			try xywh[cntr++]()	
	until(cntr > 4)
	Suspend("Off")
	
	Gdip_SaveBitmapToFile(pBmp:= Gdip_BitmapFromScreen(x "|" y "|" w "|" h), ".\" x "-" y ".bmp")
		Gdip_DisposeImage(pBmp)
}

glo:= 7
obj:= {one:"oneVal", two:"twoVal"}

function()
function() {
	global
	extr()
	extr() => (
		(if glo == 13		;no action
			MsgBox("true " (glo==13))
		),
		(loop 10			;no action
			MsgBox("loop A_Index= " A_Index)
		),
		(while glo > 0		;no action
			MsgBox("while A_Index= " A_Index)
		),
		(for k,v in obj		;no action
			MsgBox("key:val= [" k ":" v "]")
	)	)
}

function()
function() {
	;global		
	local sta	;_for use local variable
				;to keep value in recursion
	_for()
	_for() => ( ;for(sta:=10; sta > 2; sta:=sta-1) {
				;	tooltip("sta= " sta)
				;	sleep(mis)
				;}
				;tooltip()
		(sta:= sta? sta-1: 10),
		(sta > 2 ? tooltip("sta= " sta) sleep(1000) _for()
				 : tooltip()
	)	)
}

function()
MsgBox("global= " glo) 
function() {
	global
	out:= 10
	recu()			
	recu() => (
		(glo:= glo? glo: 20), ;create global variable (if global)
							  ;comma is a must
		(out > 0? sub_%mod(out, 2)%()				;new line
				  sleep(1000) out-- recu()			;no comma
				: ""
		),
		;fat arrow function in fat arrow function
		sub_1() => (tooltip("1= " out " glo= " (glo-=1)))					  
	)
	sub_0() => (tooltip("0= " out " glo= " (glo-=1)))
}

;think for fat arrow function as expresion that must return result
FatArrowFunc([byRef]arg) => (	
	;variables
	;	byRef - work as usual
	;	scope - the same as scope of containing scope
	;	create variables -	as part of expression
	;		global 	;no affect even persist
	;		local	;"
	;		static 	;"
	;			 -	newly created variable can be
	;				local for fatArrowFunc()
	;				or
	;				global (if global persyst in containing scope)
	;			 -	there no mechanism subfunction to create
	;				variable into containing function
	
	(<var:= expr/func>), ;comma is a must if new variable created
						 ;() and , is not mandatory but using them
						 ;		   is best for syntax and readability
	(<expr/func>)	;space or new line separate expressions
					;using () and comma is the best and clear syntax
				
	;if/else/loop/for/do/while/until
	;	and so on not expressions not ussable  
	
	((arg)? (<expr/func>): (<expr/func>))
	
	;best syntax - brakets and commas
	;FatArrowFunc(arg) => (
	;	(<expression>),
	;	(<expression>),
	;	((<expression>) ? (<expression>)
	;				  	: (<expression>)
	;	),
	;	"" ;do nothing (NOP)
	;)
	
	;retun		;forbiden
	;			;think that return is at => place
	;					 =>
	;FatArrowFunc(arg) { return (
	;	(<expr>),
	;	(<expr>)
	;)
	;}
	
	;last expression is return value
)

#SingleInstance Force
;Copyright (c) D.Donchev

mis:= 200
sup:= 7
obj:= {one:"oneVal", two:"twoVal"}

function()
msgBox("glo= " glo)	;see recu()

function() {
	global			;function() scope to global
	out:= 10
;scop example ==========
	scop( 5)		;function name is visible
					;inside whole containing body
	scop(arg) => ( 	;scop() variable scope is the same as
					;scope containing scop()
		msgBox("arg= " arg " out= " out " sup= " sup)
	)
;}	
;cycl example ==========	
	cycl(10)		;recursion
	cycl(arg) => (	;recursion instead loop
		arg > 0	? tooltip(arg) sleep(mis) cycl(arg-1) ;no comma 
				: tooltip()
	)
;}	
;recu example ==========	
	recu()			;visibility
	recu() => (
		(glo:= glo? glo: 20), ;create global variable (if global)
							  ;comma is a must
		
		(out > 0? sub%mod(out, 2)%()				;new line
				  sleep(mis) out-- recu()			;no comma
				: ""
		),	;enclosure ternary expression
		;fat arrow function  in fat arrow function
		sub1() => (tooltip("1= " out " glo= " (glo-=1)))					  
	) 
	sub0() => (tooltip("0= " out " glo= " (glo-=1)))
;}
;_for example ==========
	local sta	;_for use local variable
				;to keep value in recursion
	_for()
	_for() => ( ;for(sta:=10; sta > 2; sta:=sta-1) {
				;	tooltip("sta= " sta)
				;	sleep(mis)
				;}
				;tooltip()
		(sta:= sta? sta-1: 10), 
		(sta > 2 ? tooltip("sta= " sta) sleep(mis) _for()
				 : tooltip()
	)	)
;}	
;extr example ==========	
	extr()
	extr() => (
		(if glo == 13		;no action
			MsgBox("true " (glo==13))
		),
		(loop 10			;no action
			MsgBox("loop A_Index= " A_Index)
		),
		(while sup > 0		;no action
			MsgBox("while A_Index= " A_Index)
		),
		(for k,v in obj		;no action
			MsgBox("key:val= [" k ":" v "]")
	)	)
}
ExitApp
#!Q::ExitApp

class A {
	static var:= 1
	met() {
		return 2
	}
	fat()=>(3)
}

for k,v in A
	MsgBox(k " : " v " -> " type(v))
	
MsgBox("outside A => " fat()) ;fat() is global becouse class definition is global

#SingleInstance Force
;Copyright (c) D.Donchev

class Def {
	static ClassVar
	one:= 1
	two:= 2

	;Example (1) run last set fat function
	ini(arg:="") {
		if(type(arg) == "Func")
			this.ClassVar:= arg				;set
		if(type(this.ClassVar) != "Func")
			this.ClassVar:= ()=>"default"	;default
			
		MsgBox(%this.ClassVar%())			;action
	}
	;Example (2) run argument fat func or internal
	tos(arg:="") {
		;arg:= type(arg) == "Func"? arg: ()=>"no format"
		if(type(arg) != "Func")
			arg:= ()=>"no format"
		return %arg%(this)
}	}
Ins:= new Def
;Example (1) ----------
Def.ini()	;default
Ins.ini()	;default
;expect: if ClassVar not set then init
;OK
Def.ini(()=>"class new")	;class new
Ins.ini()					;class new
;expect: if class ClassVar is changed then instance ClassVar changed
;OK
Ins.ini(()=>"instanse new") ;instanse new
Def.ini()					;class new
Ins.ini()					;instance new
;expect: ;if instance ClassVar is changed then class ClassVar NOT changeg
;OK
;Examle (2) ----------
MsgBox(Ins.tos())
;expected: run internal default fat func
;OK
MsgBox(Ins.tos((this) => ("myown= " this.one " then " this.two)))
;expected: run argument fat func
;OK
MsgBox(Ins.tos((this) => ( ;recursion demo
	;for(k, v in this)
	;	res.= k " : " v " | "
	;return res
	
	;3 lines - without pushing arguments
	;(_enum:= this._NewEnum()),
	;_act()=>(_enum.Next(k,v)? ((res .= k ":" v "|"), _act()): res),
	;_act()
	
	;2 lines - stack breaker (LOL)
	_act(_enum)=>(_enum.Next(k,v)? ((res .= k ":" v "|"), _act(_enum)): res),
	_act(this._NewEnum())
)))
;expected: recursion must end
;OK

ExitApp
#!Q::ExitApp ;if something wrong

#SingleInstance Force
;Copyright (c) D.Donchev

formatArr:= {
	;MsgBox with format
	MB	: (arg, var) => MsgBox(
			format("format: {:02d} var:= {:d} arg:= {:d} res:= {:.2f}", A_Index, var, arg, (var+arg)/A_Index)
			,,"T1"),
	;ToolTip without format
	TT	: (arg, var) => (
			tooltip("noformat: " A_Index " var:= " var " arg:= " arg " res:= " (var+arg)/A_Index),
			sleep(1000))	
}

myFunc(100) 				;(1) default format
myFunc(100, formatArr.MB) 	;(2)
myFunc(100, formatArr.TT)	;(3)
 
myFunc(arg, fmt:="") { ;unsuported fat arrow function as default parameter
	;make internal format to avoid checking in any loop
	fmt:= type(fmt) == "Func"? fmt: ()=>"" ;nothing (arguments not needed)
	var:= 20
	loop 5 { 
		;deref and calculate as arguments
		;put all loclal variables and arguments that are needed
		%fmt%(arg, var) ;call fat arrow function
		arg += var		;change arguments
		var *= 2		;change local variables
		;the same with global variables
}	}

SockMove(file, byRef port) {
	addr:= StrSplit(port.dest, ":", " `t")
	VarSetCapacity(wsad, 32)
	if !DllCall("Ws2_32\WSAStartup", "UShort", 0x0002, "UInt", &wsad)
		&& (sock:= DllCall("Ws2_32\socket", "Int", 2, "Int", 1, "Int", 6)) != -1 {
			VarSetCapacity(sadd, 16)
			numPut(										 	2, sadd, 0, 2)
			numPut(DllCall("Ws2_32\htons", "UShort", addr[2]), sadd, 2, 2) ;port
			numPut(DllCall("Ws2_32\inet_addr","AStr",addr[1]), sadd, 4, 4) ;ip
			if !DllCall("Ws2_32\connect", "UInt", sock, "UInt", &sAdd, "Int", 16) {
				Tip("[ " port.sect " ] " port.dest)
				Sleep(100)
				addr:= port.getAddress("data")
				offs:= 0
				while size:= writesize(offs, port.buff, port.size) {
					DllCall("Ws2_32\send", "UInt", sock, "Uint", addr+offs, "Int", size, "Int", 0)
					offs += size
					sleep(100)
					sleep(port.wait)
				}
				FileDelete(file)
	}		}		
	DllCall("Ws2_32\WSACleanup")
}

CommMove(file, ByRef port) {
	if comm:= FileOpen(port.dest, "w") {
		Tip("[ " port.sect " ] " port.dest)
		VarSetCapacity(DCB, 80, 0) ;DCB structure - init port settings for example: 9600,n,8,1 
		if port.init && DllCall("BuildCommDCB", "str", port.init, "UInt", &DCB)
				DllCall("SetCommState", "UInt", comm.Handle, "UInt", &DCB) ; ---------------
		addr:= port.getAddress("data")		
		offs:= 0		
		while size:= writesize(offs, port.buff, port.size) {
			comm.RawWrite(addr+offs, size)
			comm.Handle
			offs += size
			sleep(port.wait)
		}	
		comm.Close()
		FileDelete(file) ;input file will be deleted only when transfer is complete
}	}

#SingleInstance Force
;Copyright (c) D.Donchev

html:= A_ScriptFullPath ".html"
xOut:= FileOpen(A_ScriptFullPath ".txt", "w")

loop read, A_ScriptFullPath ".ini" {
	if A_LoopReadLine {
		if inStr(A_LoopReadLine, "|") {
			machine:= strSplit(A_LoopReadLine, "|", " `t")
			TrayTip("Take counters from: " machine[1])
			Download(machine[2], html)
			if (counters:= !ErrorLevel) {
				text:= FileRead(html)
				xOut.Write((nextLine? "`r`n": "") machine[1])
				nextLine:= 1
		}	} else if counters {
			if RegExMatch(text, "[0-9]+", match, inStr(text, A_LoopReadLine) + strLen(A_LoopReadLine)) {
				xOut.Write("," match.Value)
}	}	}	}
xOut.Close()
FileDelete(html)
TrayTip("Take counters DONE!")
msgBox("Done!")
ExitApp
#!F4::ExitApp

;Copyright (c) D.Donchev
class Task {
	static List:= []   ;static list
	;mode
	;		0x01 - terminate task and delete from list (keep/kill child when parent close)
	;		0x02 - delete default VAR file
	;		0x04 - delete script file
	;		0x08 - kill task
	;
	;		0x10 - runwait
	;		0x20 - run when new Task() (run without using this.run())
	;		0x40 - end when new Task() (end without using this.end())
	;example:
	;		new Task(".\test.ahk", 0x73) ;just one line
	;			run test.ahk
	;			wait to close
	;			delete from list
	;			delete var file
	;default
	;		0x13 - runwait|delete var file|close task
	;most used
	;		0x73 - run auto|end auto|runwait|delete var file|close task
	__new(name, mode:= 0x13) {
		this.mode:= mode
		this.name:= name
		Task.List[this]:= ""
		this.ini()			;set default values
		if this.mode & 0x20
			this.run()		;run task
		if this.mode & 0x40
			this.end()		;end task
	}
	set(var, val, opt:="") { ;var val [ini:iniName sec:iniSection]
		this.ini(ini, sec, opt)
		iniWrite(val, ini, sec, var)
		return   val
	}
	get(var,      opt:="") { ;var [ini:iniName sec:iniSection]
		this.ini(ini, sec, opt)
		return iniRead(ini, sec, var)
	}
	;mode   1 - wait
	;		0 - dont wait
	;	   -1 - use this.mode (default)
	run(para:="", wait:= -1) { 					;execute task
		run("autohotkey.exe " this.name " " para,,,pid) ;send parameters correctly
		this.PID:= pid 										  ;take PID immediately 
		if (wait == -1? this.mode & 0x10: wait)
			ProcessWaitClose(this.PID) 						  ;runwait
		return this	
	}
	static 	end:= func("__Task_end") ; byRef this external function
	__delete() {
		if this.mode != "" {			;prevent second run
			;0x08 - kill or 0x01 - close
			if this.mode & 0x80
				ProcessClose(this.pid)
			else if this.mode & 0x09 {	
				DetectHiddenWindows("On")
				winClose("ahk_pid " this.PID)
			}
			if this.mode & 0x02		;0x02 - delete default task.ahk.VAR !!!
				FileDelete(this.name ".VAR")	
			if this.mode & 0x04		;0x04 - delete task.ahk
				FileDelete(this.name)
			this.mode:= this.name:= ""	;prevent second run
	}	}
	; ini(ini, sec)								;current values
	; ini(ini, sec, "ini:file.ini|sec:input")	;temporary values
	; ini(ini, sec, "set:|ini:ini.ext|sec:1")	;set new values
	;		|									;delimiter (space is not delimiter)
	;		set:								;set command
	;		ini:c:\long path\long name.ini		;ini file name
	;		sec:some text						;section name
	; ini(ini, sec, 0)							;reset values
	ini(byRef ini:= "", byRef sec:= "", opt:= "") { ;DRY set:|ini:iniName|sec:iniSection
		;if this.file not set OR opt == 0 (0 or "0")
		if !this.file || opt == 0 ;set default values
			this.file:= "ini:" this.name "|sec:VAR"
		;if opt != 0 (0 or "0" or "") use opt else use this.file	
		opt:= opt? opt: this.file
		if RegExMatch(opt, "i)ini:([\w\\:. ]+)(p*)", arg) ;ini:
			ini:= arg[1]
		if RegExMatch(opt, "i)sec:([\w ]+)(p*)"    , arg) ;sec:
			sec:= arg[1]
		if RegExMatch(opt, "i)set:",                 arg) ;set:
			this.file:= "ini:" ini "|sec:" sec
		;dont forget it is your script - using it incorrect doing incorrect
	}
} 
__Task_end(byRef this) { ;clear reference in list and in calling var
	if type(this) != "Class" {
		Task.List.Delete(this)
		this.__delete() ;forced   __delete() if other references
		this:= ""		;autocall __delete() if no more references
}	} ;class Task ------------------------------------------------------------------
__onExit() {
	;Task.List:= [] ;https://autohotkey.com/boards/viewtopic.php?p=192750#p192750
	while !isEmpty {
	isEmpty:= 1
	for key in Task.List {
		key.end()
		isEmpty:= 0 
}	}	}
OnExit(         "__onExit")
__scExit() { ;script exit
	ExitApp
}
OnMessage(0x10, "__scExit") ;WM_CLOSE 
OnMessage(0x11, "__scExit") ;WM_QUERYENDSESSION

#SingleInstance Force
;Copyright (c) D.Donchev

CoordMode("Pixel", "Screen")
msgBOX(ColorIs(10, IniReadPixel(, "IE8-W7", "OPEN_chk", p), "Wait ")) ;ini is A_ScriptName
for key, val in  p
	msgBOX(key ":=" val)
ExitApp

IniReadPixel(f:="", s:="", varr:="", byRef pixl:= "") { ;set f and s for further use
	static file:= A_ScriptName, sect:= ""
		if f
			file:= f
		if s
			sect:= s
	if varr != "" {
		pixl:= [] ;create object
		loop parse, IniRead(file, sect, varr), ",| " ;replace StrSplit and for
			if A_LoopField != "" 
				if ++cnt == 1
					pixl.x:= A_LoopField 
				else if cnt == 2
					pixl.y:= A_LoopField 
				else {
					val:= strSplit(A_LoopField, ":", " ")
					pixl[val[1]]:= val[2]
	}			}
	return pixl
}
ColorIs(sec, byRef pix, txt:= "", mis:= 998) { 
	if isObject(pix) {
		while sec { ;negative value check infinitely
			if pix[pix.c:= PixelGetColor(pix.x, pix.y)] != "" { ;add c to pix
				tooltip()
				return pix[pix.c] ;if pix.c not exist and/or pix[pix.c] not exist return ""
			}	
			tooltip(txt sec--)
			sleep(mis)
	}
	tooltip()	
	return ""
}
/* ;This line prevent AutoHotkey.exe to void errors. NEXT IS INI
[IE8-W7]
OPEN_chk	= 645, 354, 0xFFFFF1:1, 0xC9CED4:0

#SingleInstance Force
;Copyright (c) D.Donchev

class t {
	__new(arg) {
		this.valu:= arg
}	}

a:= [{"asd":[{new t("zxc"):234}, {"sdf":789}, 2, 3]}, {"qwe":345}, 1, 2, 3, 4, 12.34]
;b:= [2, 3, 4]
b:= new t("zxc")

msgBOX(toStr(a))
msgBOX(toStr(b))
msgBOX(contain(a, b)) ; if contain(a, b)

contain(this, needle) {
	return inStr(toStr(this), toStr(needle))
}

toStr(this) {
	if isObject(this) {
			for key, val in this 
				str .= (type(key) != "Integer"? toStr(key): "") toStr(val)
			return str		
	} else	return "|" this "|"
}

#SingleInstance Force
;Copyright (c) D.Donchev

SendMode("Event")
CoordMode("Mouse", "Screen")
CoordMode("Pixel", "Screen")
SetKeyDelay(150, 90)
Sleep(500)
goSub("!B")
goSub("$CapsLock")

$CapsLock::
	tooltip("<<< " ((State:=!State)? "Kill": "Pause") " >>>", midx(State? -62: -71), A_ScreenHeight-75, 20)
GRB_KILL:
	SetTimer("GRB_KILL", "OFF") ;label not init so name needed (only in global scope)
	if State {
		if pixelGetColor(midx(-4), 28) != 0x252525
			Send(1) ;attack
	SetTimer("GRB_KILL",   100) ;
	}
return

!B::
	loop 4 {
		Sleep(500)
		GoSub("$Numpad" A_Index) ;gosub init labels
	}
return

!G::ExitApp

$Numpad1::Send("{Numpad1 5}"), SetTimer(, 180000) ;no label name needed
$Numpad2::Send("{Numpad2 5}"), SetTimer(, 170000)
$Numpad3::Send("{Numpad3 5}"), SetTimer(, 300000)
$Numpad4::Send("{Numpad4 5}"), SetTimer(, 900000)	

midx(x:=0) {
	static mx:= A_ScreenWidth//2
	return mx+x
}
midy(y:=0) {
	static my:= A_ScreenHeight//2
	return my+y
}