22 Man Script

; 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.
; Use LARGE taskbar icons in windows vista/seven
; This version optimised for Twenty Two (22) teams/
; This uses c:\SuperLeagueBannersDiv1\ and c:\SuperLeagueUpdateDiv1\ for files.

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

    ; Replaced by SetupStart
    ; ChangefromDHMode(Gear)
    ; ChangefromSabreMetricMode(TeamNumber)


    SetupStart(Gear)
    Sleep 50

    ; Click 330, 155


    Sleep 50


    Loop, 11 {
    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, 11 {
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    WinActivate Baseball Mogul
    ChangeTeamRight(A_Index)
    TeamID := A_Index + 11
    var := "Team" . TeamID
    ScreenshotTeam(var)
    }

    ScreenshotOverviewScreens(TheGear)
    ScreenshotBattingTripleCrown(TheGear)
    ScreenshotPitchingTripleCrown(TheGear)
    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:\SuperLeagueBannersDiv1\*, c:\SuperLeagueUpdateDiv1\
}



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:\SuperLeagueUpdateDiv1\%Zeit%.PNG", msgbox, Ctrl Printscreen
}


ChangeTeamLeft(TeamNumber){
    PixelsDown := (Teamnumber * 23) + 262
    WinActivate Baseball Mogul
    Click 508, 71
    Sleep 50
    Click 577, %PixelsDown%
    Sleep 100
}

ChangeTeamRight(TeamNumber){
    PixelsDown := (Teamnumber * 23) + 262
    WinActivate Baseball Mogul
    Click 508, 71
    Sleep 50
    Click 777, %PixelsDown%
    Sleep 100
}


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

ChangefromDHMode(TeamNumber){
    WinActivate Baseball Mogul
    Send, ^l
    Sleep 100
    WinActivate Lineup

    Sleep 100
    Click 627, 47
    Sleep 100
    Click 584, 84
    Sleep 100
    Send {Enter}
    Sleep 100
}


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

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

SetupStart(TheGear){

    ; Sets to use no DH mode and stats as an initalisation on the defence window

    WinActivate Baseball Mogul
    Send, {F2}
    Sleep 100
    Send, ^d
    Sleep 100
    WinActivate Defense

    ; Changes to no DH

    ; Click 627, 47
    ; Sleep 100
    ; Click 584, 69
    ; Sleep 100

    ; changes to stats display mode

    Click 651, 137
    Sleep 100
    Click 583, 170
    Sleep 100

    ; closes the defence window

    Send {Enter}
    Sleep 100
}

ScreenshotOverviewScreens(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, {F3}
    Sleep 100

    ; Defensive Efficency

    Click 655, 115
    Sleep 75
    Click 460, 430
    Sleep 75

    ; OOBA

    Click 755, 115
    Sleep 75
    Click 700, 450
    Sleep 75

    ; OOSA

    Click 870, 115
    Sleep 75
    Click 700, 470
    Sleep 75

    FileName := "DivisionA"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """"  . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200

    Click 508, 71
    Sleep 100

    FileName := "DivisionB"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """"  . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200

    Click 508, 71
    Sleep 100

    ; UNCOMMENT THESE IF WILDCARDS ARE USED
    FileName := "WildCardRaces"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """"  . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200

    WinActivate Baseball Mogul
    Send {Enter}
    Sleep 100
}

ScreenshotBattingTripleCrown(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, {F5}
    Sleep 100

    ; OBA
    Click 470, 140
    Sleep 100

    Click 690, 220
    Sleep 100

    ; OPS
    Click 870, 140
    Sleep 100

    Click 680, 350
    Sleep 100

    ; RC
    Click 470, 365
    Sleep 100

    Click 900, 400
    Sleep 100

    ; TB

    Click 870, 365
    Sleep 100

    Click 1140, 450
    Sleep 100

    FileName := "BattingTripleCrown"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """"  . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200

}


ScreenshotPitchingTripleCrown(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, {F5}
    Sleep 50

    ; DICE
    Click 470, 140
    Sleep 75

    Click 260, 290
    Sleep 75

    ; K/9
    Click 870, 140
    Sleep 75

    Click 1110, 400
    Sleep 75

    ; Opp OBA
    Click 470, 365
    Sleep 75

    Click 700, 310
    Sleep 75

    ; W/9

    Click 870, 365
    Sleep 75

    Click 1110, 520
    Sleep 75

    FileName := "PitchingTripleCrown"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """"  . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200

}

ScreenshotTeam(TeamID){

    ScreenshotOverview(TeamID)
    ScreenshotPitching(TeamID)

    ScreenshotBothDefence(TeamID)
    ScreenshotBothLineup(TeamID)



    ; ScreenshotLineup(TeamID)
    ; ScreenshotDefence(TeamID)

    ; ChangetoDHMode(Gear)


    ; The following has been replaced by ScreenshotBothDefence for efficency
    ; ChangetoSabreMetricMode(TeamNumber)
    ; ScreenshotDefence(TeamID)
    ;
    ; ScreenshotDHDefence(TeamID)
    ; ChangefromSabreMetricMode(TeamNumber)



    ; ScreenshotDHLineup(TeamID)

    ; Folded into ScreenshotDHLineup for efficency
    ; ChangefromDHMode(Gear)


    AddBanners(TeamID)

}

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


ScreenshotBothDefence(TeamID){
    Global

    ; Pops Up the Defence Screen

    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, ^d

    Sleep 100
    WinActivate Defense
    Click 651, 137
    Sleep 100
    Click 583, 174
    Sleep 100

    ; Changes to no DH mode

    Sleep 100
    WinActivate Lineup
    Click 580, 50
    Sleep 100
    Click 580, 70
    Sleep 100


    ; Captures the No DH Defensive lineup

    FileName := TeamID . "-EDefence"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)

    ; Changes to DH Mode

    Sleep 200
    WinActivate Lineup
    Click 580, 50
    Sleep 100
    Click 580, 85
    Sleep 100

    ; Screenshots the DH Defensive Lineup
    FileName := TeamID . "-EDefenceDESIGNATEDHITTER"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200


    ; Exits


    Sleep 100
    WinActivate Defense
    Click 651, 137
    Sleep 100
    Click 583, 157
    Sleep 100


    Send {Enter}
    Sleep 50

}

ScreenshotBothLineup(TeamID){
    Global

    ; Pops Up the Defence Screen

    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    Send, ^l


    ; Changes to no DH mode

    Sleep 100
    WinActivate Lineup
    Click 580, 50
    Sleep 100
    Click 580, 70
    Sleep 100



    ; Captures the No DH Offensive lineup

    FileName := TeamID . "-DLineup"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)

    ; Changes to DH Mode

    Sleep 200
    WinActivate Lineup
    Click 580, 50
    Sleep 100
    Click 580, 85
    Sleep 100

    ; Screenshots the DH Offensive  Lineup
    FileName := TeamID . "-DLineupDESIGNATEDHITTER"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200


    ; Exits


    Sleep 50
    WinActivate Lineup
    Click 651, 137
    Sleep 100
    Click 583, 137
    Sleep 100


    Send {Enter}
    Sleep 100

}



ScreenshotOverview(TeamID){
    Global
    WinActivate Baseball Mogul
    WinMaximize ; automatically uses the window found above.
    FileName := TeamID . "-BOverview"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """"  . " "
    GlobalFileQueue := TempVar
    Sleep 50
    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
    Sleep 50
    FileName := TeamID . "-CPitching"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 300
    TakeScreenShot(FileName)
    Sleep 250
    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:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    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:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    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 . "-EDefenceDESIGNATEDHITTER"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    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 . "-DHLineupDESIGNATEDHITTER"
    TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
    GlobalFileQueue := TempVar
    Sleep 50
    TakeScreenShot(FileName)
    Sleep 200
    WinActivate Lineup
    Click 627, 47
    Sleep 100
    Click 584, 69
    Sleep 100
    Send {Enter}

}