Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; 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 SIXTEEN (16) 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
- Loop, 8 {
- 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, 8 {
- WinActivate Baseball Mogul
- WinMaximize ; automatically uses the window found above.
- WinActivate Baseball Mogul
- ChangeTeamRight(A_Index)
- TeamID := A_Index + 8
- 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, "D:\Program Files (x86)\IrfanView\i_view32.exe" "/capture=2 /convert=c:\SuperLeagueUpdateDiv1\%Zeit%.PNG", msgbox, Ctrl Printscreen
- }
- ChangeTeamLeft(TeamNumber){
- PixelsDown := (Teamnumber * 25) + 280
- WinActivate Baseball Mogul
- Click 508, 71
- Sleep 100
- Click 577, %PixelsDown%
- Sleep 300
- }
- ChangeTeamRight(TeamNumber){
- PixelsDown := (Teamnumber * 25) + 280
- WinActivate Baseball Mogul
- Click 508, 71
- Sleep 100
- Click 777, %PixelsDown%
- Sleep 300
- }
- ChangetoDHMode(TeamNumber){
- WinActivate Baseball Mogul
- Send, ^l
- Sleep 200
- WinActivate Lineup
- Click 627, 47
- Sleep 300
- Click 584, 84
- Sleep 300
- Send {Enter}
- Sleep 300
- }
- ChangefromDHMode(TeamNumber){
- WinActivate Baseball Mogul
- Send, ^l
- Sleep 200
- WinActivate Lineup
- Click 627, 47
- Sleep 300
- Click 584, 69
- Sleep 300
- Send {Enter}
- Sleep 300
- }
- ChangetoSabreMetricMode(TeamNumber){
- WinActivate Baseball Mogul
- Send, ^d
- Sleep 200
- WinActivate Defense
- Click 651, 137
- Sleep 300
- Click 583, 174
- Sleep 300
- Send {Enter}
- Sleep 300
- }
- ChangefromSabreMetricMode(TeamNumber){
- WinActivate Baseball Mogul
- Send, ^d
- Sleep 200
- WinActivate Defense
- Click 651, 137
- Sleep 300
- Click 583, 157
- Sleep 300
- Send {Enter}
- Sleep 300
- }
- SetupStart(TheGear){
- ; Sets to use no DH mode and stats as an initalisation on the defence window
- WinActivate Baseball Mogul
- Send, {F2}
- Sleep 200
- Send, ^d
- Sleep 200
- WinActivate Defense
- ; Changes to no DH
- ; Click 627, 47
- ; Sleep 200
- ; Click 584, 69
- ; Sleep 200
- ; changes to stats display mode
- Click 651, 137
- Sleep 200
- Click 583, 157
- Sleep 200
- ; closes the defence window
- Send {Enter}
- Sleep 300
- }
- ScreenshotOverviewScreens(TeamID){
- Global
- WinActivate Baseball Mogul
- WinMaximize ; automatically uses the window found above.
- Send, {F3}
- Sleep 200
- FileName := "DivisionA"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
- GlobalFileQueue := TempVar
- Sleep 500
- TakeScreenShot(FileName)
- Sleep 200
- Click 508, 71
- Sleep 100
- FileName := "DivisionB"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
- GlobalFileQueue := TempVar
- Sleep 500
- 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 500
- ; 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 200
- ; 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 500
- TakeScreenShot(FileName)
- Sleep 200
- }
- ScreenshotPitchingTripleCrown(TeamID){
- Global
- WinActivate Baseball Mogul
- WinMaximize ; automatically uses the window found above.
- Send, {F5}
- Sleep 200
- ; DICE
- Click 470, 140
- Sleep 100
- Click 260, 290
- Sleep 100
- ; K/9
- Click 870, 140
- Sleep 100
- Click 1110, 400
- Sleep 100
- ; Opp OBA
- Click 470, 365
- Sleep 100
- Click 700, 310
- Sleep 100
- ; W/9
- Click 870, 365
- Sleep 100
- Click 1110, 520
- Sleep 100
- FileName := "PitchingTripleCrown"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
- GlobalFileQueue := TempVar
- Sleep 500
- TakeScreenShot(FileName)
- Sleep 200
- }
- ScreenshotTeam(TeamID){
- ScreenshotOverview(TeamID)
- ScreenshotPitching(TeamID)
- ScreenshotLineup(TeamID)
- ChangetoSabreMetricMode(TeamNumber)
- ScreenshotDefence(TeamID)
- ChangefromSabreMetricMode(TeamNumber)
- ; The following has been replaced by ScreenshotBothDefence for efficency
- ; ChangetoSabreMetricMode(TeamNumber)
- ; ScreenshotDefence(TeamID)
- ; ChangetoDHMode(Gear)
- ; ScreenshotDHDefence(TeamID)
- ; ChangefromSabreMetricMode(TeamNumber)
- ; ScreenshotBothDefence(TeamID)
- ; 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 200
- WinActivate Defense
- Click 651, 137
- Sleep 300
- Click 583, 174
- Sleep 300
- ; Captures the No DH Defensive lineup
- FileName := TeamID . "-EDefence"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
- GlobalFileQueue := TempVar
- Sleep 300
- TakeScreenShot(FileName)
- ; Changes to DH Mode
- Sleep 200
- Click 627, 47
- Sleep 300
- Click 584, 84
- Sleep 300
- ; Screenshots the DH Defensive Lineup
- FileName := TeamID . "-EDefenceDESIGNATEDHITTER"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
- GlobalFileQueue := TempVar
- Sleep 100
- TakeScreenShot(FileName)
- Sleep 300
- ; Exits
- Sleep 200
- WinActivate Defense
- Click 651, 137
- Sleep 300
- Click 583, 157
- Sleep 300
- 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 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:\SuperLeagueUpdateDiv1\" . 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:\SuperLeagueUpdateDiv1\" . 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:\SuperLeagueUpdateDiv1\" . 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 . "-EDefenceDESIGNATEDHITTER"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . 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 . "-DHLineupDESIGNATEDHITTER"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdateDiv1\" . FileName . ".PNG" . """" . " "
- GlobalFileQueue := TempVar
- Sleep 500
- TakeScreenShot(FileName)
- Sleep 200
- WinActivate Lineup
- Click 627, 47
- Sleep 300
- Click 584, 69
- Sleep 300
- Send {Enter}
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement