; Baseball Mogul LP Update Generation Script V3.1
; DH Supremacy Edition
; Created by Cthulhu Dreams
; Revised by Cthulhu Dreams & McFreeze

SetTitleMatchMode, 2
CoordMode, Mouse, Relative

IfWinExist Baseball Mogul
{
	; Main control loop. The Loop index controls team sizes
	WinActivate Baseball Mogul
	Sleep 100

	SetupStart(Gear)


	Sleep 50

	; SET THE NUMBER OF TEAMS HERE
	Loop, 20 {
		WinActivate Baseball Mogul
		TeamID := A_Index
		var := "Team" . TeamID
		ScreenshotTeam(Var)
		ChangeTeam(A_Index)
	}

	ScreenshotOverviewScreens(TheGear)
	BannerCopy()
	UploadFiles(TheGear)


}
else
	Run Notepad
	SendRaw, You need to have BBM open to make this work.
return


BannerCopy(){
	; Copies the banner files into the update directory
	filecopy c:\SuperLeagueBanners\*, c:\SuperLeagueUpdate\
}



UploadFiles(TheGear){
	; Sends the files to rightload
	Global

	Adjust(DateHolder)
	TodaysUpdate := "SuperLeagueUpdate" . DateHolder
	; MsgBox %TodaysUpdate%
	; MsgBox %GlobalFileQueue%
	; MsgBox "C:\Program Files (x86)\Rightload\Rightload.exe" "-Queue %GlobalFileQueue%"

	run, "C:\Program Files (x86)\Rightload\Rightload.exe" -directory=%TodaysUpdate% -Queue %GlobalFileQueue%

}

adjust(ByRef DateHolder)
{
	; Datestamps the update
	formattime,DateHolder,A_now,dd.MM.yy
	return
}

TakeScreenShot(Zeit){

	;run, "C:\Program Files (x86)\IrfanView\i_view64.exe" "/capture=2 /jpgq=75 /convert=c:\SuperLeagueUpdate\%Zeit%.JPG", msgbox, Ctrl Printscreen
	run, "C:\Program Files (x86)\IrfanView\i_view32.exe" "/capture=2 /jpgq=75 /convert=c:\SuperLeagueUpdate\%Zeit%.JPG", msgbox, Ctrl Printscreen
}


ChangeTeam(TeamNumber){
	WinActivate Baseball Mogul
	Send {Down}
	Sleep 100
}

SetupStart(TheGear){

	; Moves to the Calendar screen
	WinActivate Baseball Mogul
	Send, {F2}
	Sleep 200
}

ScreenshotOverviewScreens(TeamID){
	Global
	WinActivate Baseball Mogul
	Send, {F3}
	Sleep 100

	FileName := "ZZDivisionA"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".JPG" . """"  . " "
	GlobalFileQueue := TempVar
	Sleep 50
	TakeScreenShot(FileName)
	Sleep 200

	Click 508, 71
	Sleep 100

	FileName := "ZZDivisionB"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".JPG" . """"  . " "
	GlobalFileQueue := TempVar
	Sleep 50
	TakeScreenShot(FileName)
	Sleep 200

	Click 508, 71
	Sleep 100

	; UNCOMMENT THESE IF WILDCARDS ARE USED
	FileName := "ZZWildCardRaces"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".JPG" . """"  . " "
	GlobalFileQueue := TempVar
	Sleep 50
	TakeScreenShot(FileName)
	Sleep 200

	; WinActivate Baseball Mogul
	; Send {Enter}
	; Sleep 100
}

TeamNumber(TeamID){

	if (StrLen(TeamID) < 6){
		Return "Team0" . SubStr(TeamID, 5)
	}

	Return TeamID
}

ScreenshotTeam(TeamID){

	ScreenshotOverview(TeamID)
	ScreenshotPitching(TeamID)
	ScreenshotLineup(TeamID)
	ScreenshotDefense(TeamID)

	AddBanners(TeamID)

}

AddBanners(TeamID){
	Global
	FileName := TeamNumber(TeamID) . "-ABanner"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".png" . """"  . " "
	GlobalFileQueue := TempVar
}


ScreenshotOverview(TeamID){
	Global
	WinActivate Baseball Mogul
	FileName := TeamNumber(TeamID) . "-BOverview"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".JPG" . """"  . " "
	GlobalFileQueue := TempVar
	Sleep 500
	TakeScreenShot(FileName)
	Sleep 200
	WinActivate Baseball Mogul
	Send {Enter}
	Sleep 100
}


ScreenshotPitching(TeamID){
	Global
	WinActivate Baseball Mogul
	Send, ^p
	FileName := TeamNumber(TeamID) . "-CPitching"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".JPG" . """" . " "
	GlobalFileQueue := TempVar
	Sleep 500
	TakeScreenShot(FileName)
	Sleep 200
	WinActivate Pitching
	Send {Enter}
	Sleep 100

}


ScreenshotLineup(TeamID){
	Global
	WinActivate Baseball Mogul
	Send, ^l
	FileName := TeamNumber(TeamID) . "-DLineup"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".JPG" . """" . " "
	GlobalFileQueue := TempVar
	Sleep 500
	TakeScreenShot(FileName)
	Sleep 200
	WinActivate Lineup
	Send {Enter}
	Sleep 100

}

ScreenshotDefense(TeamID){
	Global
	WinActivate Baseball Mogul
	Send, ^d
	FileName := TeamNumber(TeamID) . "-EDefense"
	TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".JPG" . """" . " "
	GlobalFileQueue := TempVar
	Sleep 500
	TakeScreenShot(FileName)
	Sleep 200
	WinActivate Defense
	Send {Enter}
	Sleep 100

}