;
; SNGWizard Paster
; Paste stack size text in to the wiz


wizclass := "WindowsForms10.Window.8.app.0.bb8560"
wiz_exe := "C:\Program Files\In The Money\SitNGo Wizard\SitNGoWizard.exe"

#NoEnv 
SendMode Input  
SetWorkingDir %A_ScriptDir% 

; GREP functions thanks to Titan see http://www.autohotkey.net/~Titan/dl/grep.ahk	
grep(h, n, ByRef v, s = 1, e = 0, d = "") {
	v =
	StringReplace, h, h, %d%, , All
	Loop
		If s := RegExMatch(h, n, c, s)
			p .= d . s, s += StrLen(c), v .= d . (e ? c%e% : c)
		Else Return, SubStr(p, 2), v := SubStr(v, 2)
}

grepcsv(h, n, ByRef v, s = 1) {
	v =
	x = 0
	xp = 1
	Loop {
		If xp := InStr(n, "(", "", xp)
			x += SubStr(n, xp + 1, 1) != "?", xp++
		Else {
			Loop
				If s := RegExMatch(h, n, c, s) {
					p = %p%`n"%s%"
					s += StrLen(c)
					StringReplace, c, c, ", "", All
					v = %v%`n"%c%"
					Loop, %x% {
						StringReplace, cx, c%A_Index%, ", "", All
						v = %v%,"%cx%"
					}
				} Else Return, SubStr(p, 2), v := SubStr(v, 2)
		}
	}
}

^+V::

; We first send a CTRL-C to copy whatever text selected to the clipboard
SendInput ^c

; is the analyse game window open?
WinGet sngwiz, ID, New Game ahk_class %wizclass%
if (!sngwiz) {
	; is the SNGW main window open?
	WinGet wizmain, ID, SitNGo Wizard ahk_class %wizclass%
	if (!wizmain) {
		MsgBox, 4,, Wizawoo isn't running. Shall I run it?
		IfMsgBox No
			return
		IfMsgBox Yes
			Run %wiz_exe%
			WinWait SitNGo Wizard ahk_class %wizclass%, , 10
			if (ErrorLevel) {
				MsgBox, Waited 10 seconds for wiz to launch but I can't see it!
				return
			} else {
				WinGet wizmain, ID, SitNGo Wizard ahk_class %wizclass%
			}
		    
	}
	
	if (wizmain) {

		WinActivate, ahk_id %wizmain%
		SendInput !f
		SendInput n
		WinWait New Game ahk_class %wizclass%, , 3
		if (ErrorLevel) {
    			MsgBox, Tried to launch a new game in wiz but it failed!
    			return
		} else {
			WinGet sngwiz, ID, New Game ahk_class %wizclass%
		}
	}
}

if (sngwiz) {
	WinActivate, ahk_id %sngwiz%

	but_pos := 0
	utg_pos := 0
	co_pos := 0
	stack_count := 0
	stacks := ""
	;dummy_clip := "Hero (BB) (t1515)`r`nUTG (t7300)`r`nButton (t1495)`r`nSB (t3190)"
	Loop, parse, clipboard, `n, `r
	{
		line = %A_LoopField%
		rep := ","
		StringReplace, line, line, %rep%, , A
		grepcsv(line, "^(Hero \(([A-Za-z0-9\+]{2,6})\)|([A-Za-z0-9\+]{2,6})):?[ ]\(?t?(\d+)\)?$", res)
		del := ","
		index := 0
		pos := ""
		stack := ""

		Loop, Parse, res, %del% 
		{
			var := A_loopField
			if (index == 2 or index == 3) {
				if (var != """""") {
					StringMid pos, var, 2, StrLen(var) - 2
				}
			} else if (index == 4) {
				StringMid stack, var, 2, StrLen(var) - 2
			}	
			index += 1
		}
		
		if (pos && stack) {
			
			stack_count += 1
			if (pos == "Button" || pos == "BTN") {
				btn_pos := stack_count
			} else if (pos == "UTG") {
				utg_pos := stack_count
			} else if (pos == "CO") {
				co_pos := stack_count
			}
			
			stacks%stack_count% := stack
		}
	}
	
	if (stack_count > 0) {
		; reorder the stacks at the splitting point (either UTG or on the button if 3 players or less
		split_point := utg_pos
		if (split_point < 1) {
			split_point := co_pos
		}
		if (split_point < 1) {
			split_point := btn_pos 
		}
		orderedstacks_count = 0
		Loop %stack_count% {
			if (A_index < split_point) {
				newindex := A_index + stack_count - split_point + 1
			} else {
				newindex := A_index - split_point + 1
			}
			orderedstacks_count += 1
			orderedstacks%newindex% := stacks%A_index%
			
			x := stacks%A_index%
		}
		
		Loop %orderedstacks_count% {
			stack := orderedstacks%A_Index%
			if (A_index != 1) {
				SendInput {down}
			}
			SendInput %stack%

		}
	}
} 
return

;
; SNGWizard Paster
; Paste stack size text in to the wiz


wiz_exe := "C:\Program Files\In The Money\SitNGo Wizard\SitNGoWizard.exe"

#NoEnv 
SendMode Input  
SetWorkingDir %A_ScriptDir% 

; GREP functions thanks to Titan see http://www.autohotkey.net/~Titan/dl/grep.ahk	
grep(h, n, ByRef v, s = 1, e = 0, d = "") {
	v =
	StringReplace, h, h, %d%, , All
	Loop
		If s := RegExMatch(h, n, c, s)
			p .= d . s, s += StrLen(c), v .= d . (e ? c%e% : c)
		Else Return, SubStr(p, 2), v := SubStr(v, 2)
}

grepcsv(h, n, ByRef v, s = 1) {
	v =
	x = 0
	xp = 1
	Loop {
		If xp := InStr(n, "(", "", xp)
			x += SubStr(n, xp + 1, 1) != "?", xp++
		Else {
			Loop
				If s := RegExMatch(h, n, c, s) {
					p = %p%`n"%s%"
					s += StrLen(c)
					StringReplace, c, c, ", "", All
					v = %v%`n"%c%"
					Loop, %x% {
						StringReplace, cx, c%A_Index%, ", "", All
						v = %v%,"%cx%"
					}
				} Else Return, SubStr(p, 2), v := SubStr(v, 2)
		}
	}
}

^+V::

; We first send a CTRL-C to copy whatever text selected to the clipboard
SendInput ^c
Sleep 10
stored_clipboard := clipboard

; is the analyse game window open?
WinGet sngwiz, ID, New Game
if (!sngwiz) {
	; is the SNGW main window open?
	WinGet wizmain, ID, SitNGo Wizard
	if (!wizmain) {
		MsgBox, 4,, Wizawoo isn't running. Shall I run it?
		IfMsgBox No
			return
		IfMsgBox Yes
			Run %wiz_exe%
			WinWait SitNGo Wizard, , 10
			if (ErrorLevel) {
				MsgBox, Waited 10 seconds for wiz to launch but I can't see it!
				return
			} else {
				WinGet wizmain, ID, SitNGo Wizard
			}
		    
	}
	
	if (wizmain) {

		WinActivate, ahk_id %wizmain%
		SendInput !f
		SendInput n
		WinWait New Game, , 3
		if (ErrorLevel) {
    			MsgBox, Tried to launch a new game in wiz but it failed!
    			return
		} else {
			WinGet sngwiz, ID, New Game
		}
	}
}

if (sngwiz) {
	WinActivate, ahk_id %sngwiz%

	; First we check the first line - if it has a line that just says "Hero", assume
	; it's from the ongame firefox extension
	use_ongame := false
	Loop, parse, stored_clipboard, `n, `r
	{
		line = %A_LoopField%
		if (line == "Hero") {
			new_board := ""
			Loop, parse, stored_clipboard, `n, `r
			{
				if (A_index > 1 && mod(A_index, 4) == 1) {
					new_board := new_board . "`n`r"
				} else if (A_index > 1) {
					new_board := new_board . "-"
				}
				line = %A_LoopField%
				new_board := new_board . line
			}
			stored_clipboard := new_board
			use_ongame == true
			break	
		}
	}
	but_pos := 0
	utg_pos := 0
	co_pos := 0
	stack_count := 0
	stacks := ""
	Loop, parse, stored_clipboard, `n, `r
	{
		line = %A_LoopField%
		
		if (!use_ongame) {
			rep := ","
			StringReplace, line, line, %rep%, , A
		}
		if (!use_ongame) {
			grepcsv(line, "^(Hero \(([A-Za-z0-9\+]{2,6})\)|([A-Za-z0-9\+]{2,6})):?[ ]\(?t?(\d+)\)?", res)
		} else {
			grepcsv(line, "^([A-Za-z0-9\+]{2,6})-.*-\$(\d+)-.*bbs$", res)
		}
		
		del := ","
		index := 0
		pos := ""
		stack := ""
		Loop, Parse, res, %del% 
		{
			var := A_loopField
			if ((use_ongame && index == 1) || (!use_ongame && (index == 2 or index == 3))) {
				if (var != """""") {
					StringMid pos, var, 2, StrLen(var) - 2
				}
			} else if ((use_ongame && index == 2) || (!use_ongame && index == 4)) {
				StringMid stack, var, 2, StrLen(var) - 2
				
			}
			index += 1
		}
			
		if (pos && stack) {
			stack_count += 1
			if (pos == "Button" || pos == "BTN") {
				btn_pos := stack_count
			} else if (pos == "UTG") {
				utg_pos := stack_count
			} else if (pos == "CO") {
				co_pos := stack_count
			}
			stacks%stack_count% := stack
		}
	}
	
	
	
	if (stack_count > 0) {
		; reorder the stacks at the splitting point (either UTG or on the button if 3 players or less
		split_point := utg_pos
		if (split_point < 1) {
			split_point := co_pos
		}
		if (split_point < 1) {
			split_point := btn_pos 
		}
		orderedstacks_count = 0
		Loop %stack_count% {
			if (A_index < split_point) {
				newindex := A_index + stack_count - split_point + 1
			} else {
				newindex := A_index - split_point + 1
			}
			orderedstacks_count += 1
			orderedstacks%newindex% := stacks%A_index%
			
			x := stacks%A_index%
		}
		
		Loop %orderedstacks_count% {
			stack := orderedstacks%A_Index%
			if (A_index != 1) {
				SendInput {down}
			}
			SendInput %stack%

		}
	}
} 
return