Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; 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
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement