Baseball Mogul 20 team update generator

; Baseball Mogul LP Update Generation Script V3.0
; Created by Cthulhu Dreams
; Will only run at 1366 x 768 due to BM2013 being written in a non compliant way.
; This version optimised for TWENTY (20) teams.

SetTitleMatchMode, 2
CoordMode, Mouse, Relative

IfWinExist Baseball Mogul
{
; Main control loop. The Loop index controls team sizes
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Sleep 100
    ChangefromDHMode(Gear)
    ChangefromSabreMetricMode(TeamNumber)
    Sleep 100


    Loop, 2 {
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    WinActivate Baseball Mogul
    ChangeTeamLeft(A_Index)
    TeamID := A_Index
    var := "Team" . TeamID
    ScreenshotTeam(Var)
    }

    Loop, 2 {
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    WinActivate Baseball Mogul
    ChangeTeamRight(A_Index)
    TeamID := A_Index + 10
    var := "Team" . TeamID
    ScreenshotTeam(var)
    }

    BannerCopy()
    UploadFiles(TheGear)


}
else
    Run Notepad
    SendRaw, You need to have BBM and MS Paint 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_view32.exe" "/capture=2 /convert=c:\SuperLeagueUpdate\%Zeit%.PNG", msgbox, Ctrl Printscreen
}


ChangeTeamLeft(TeamNumber){
    PixelsDown := (Teamnumber * 25) + 255
    WinActivate Baseball Mogul
    Click 508, 71
    Sleep 100
    Click 577, %PixelsDown%
    Sleep 1000
}

ChangeTeamRight(TeamNumber){
    PixelsDown := (Teamnumber * 25) + 255
    WinActivate Baseball Mogul
    Click 508, 71
    Sleep 100
    Click 777, %PixelsDown%
    Sleep 1000
}


ChangetoDHMode(TeamNumber){
    WinActivate Baseball Mogul
    Send, ^l
    Sleep 200
    WinActivate Lineup
    Click 627, 47
    Sleep 300
    Click 584, 84
    Sleep 300
    Send {Enter}
    Sleep 500
}

ChangefromDHMode(TeamNumber){
    WinActivate Baseball Mogul
    Send, ^l
    Sleep 200
    WinActivate Lineup
    Click 627, 47
    Sleep 300
    Click 584, 69
    Sleep 300
    Send {Enter}
    Sleep 500
}


ChangetoSabreMetricMode(TeamNumber){
    WinActivate Baseball Mogul
    Send, ^d
    Sleep 200
    WinActivate Defense
    Click 651, 137
    Sleep 300
    Click 583, 174
    Sleep 300
    Send {Enter}
    Sleep 500
}

ChangefromSabreMetricMode(TeamNumber){
    WinActivate Baseball Mogul
    Send, ^d
    Sleep 200
    WinActivate Defense
    Click 651, 137
    Sleep 300
    Click 583, 157
    Sleep 300
    Send {Enter}
    Sleep 500
}


ScreenshotTeam(TeamID){

    ScreenshotOverview(TeamID)
    ScreenshotPitching(TeamID)
    ScreenshotLineup(TeamID)
    ChangetoSabreMetricMode(TeamNumber)
    ScreenshotDefence(TeamID)
    ChangetoDHMode(Gear)
    ScreenshotDHDefence(TeamID)
    ChangefromSabreMetricMode(TeamNumber)
    ScreenshotDHLineup(TeamID)
    ChangefromDHMode(Gear)
    AddBanners(TeamID)

}

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

ScreenshotOverview(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    FileName := TeamID . "-BOverview"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".PNG" . """"  . " "
    GlobalFileQueue := TempVar
    Sleep 500
    TakeScreenShot(FileName)
    Sleep 200
    WinActivate Baseball Mogul
    Send {Enter}
    Sleep 100
}


ScreenshotPitching(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, ^p
    FileName := TeamID . "-CPitching"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 500
    TakeScreenShot(FileName)
    Sleep 200
    WinActivate Pitching
    Send {Enter}
    Sleep 100

}



ScreenshotLineup(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, ^l
    FileName := TeamID . "-DLineup"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 500
    TakeScreenShot(FileName)
    Sleep 200
    WinActivate Lineup
    Send {Enter}
    Sleep 100

}

ScreenshotDefence(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, ^d
    FileName := TeamID . "-EDefence"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 500
    TakeScreenShot(FileName)
    Sleep 200
    WinActivate Defense
    Send {Enter}
    Sleep 100

}

ScreenshotDHDefence(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, ^d
    FileName := TeamID . "-EADefenceDESIGNATEDHITTER"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 500
    TakeScreenShot(FileName)
    Sleep 200
    WinActivate Defense
    Send {Enter}
    Sleep 100

}

ScreenshotDHLineup(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, ^l
    FileName := TeamID . "-DHZLineupDESIGNATEDHITTER"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 500
    TakeScreenShot(FileName)
    Sleep 200
    WinActivate Lineup
    Send {Enter}
    Sleep 100

}