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 1280x1024 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, 10 {
- 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, 10 {
- 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 * 30) + 345 ; Magic number for screen position
- WinActivate Baseball Mogul
- Click 508, 71
- Sleep 100
- Click 577, %PixelsDown%
- Sleep 1000
- }
- ChangeTeamRight(TeamNumber){
- PixelsDown := (Teamnumber * 30) + 345 ; Magic number for screen position
- 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 . "-EDefenceDESIGNATEDHITTER"
- 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 . "-DHLineupDESIGNATEDHITTER"
- TempVar := GlobalFileQueue . """" . "C:\SuperLeagueUpdate\" . FileName . ".PNG" . """" . " "
- GlobalFileQueue := TempVar
- Sleep 500
- TakeScreenShot(FileName)
- Sleep 200
- WinActivate Lineup
- Send {Enter}
- Sleep 100
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement