UserVar Win=DropList{輸家:0|贏家:1}=1 輸贏家模式設定
UserVar Back=DropList{不回壘:0|回壘:1}=1 回壘設定
UserVar Play=DropList{短打推進1壘:0|短打跑4壘:1}=1 打擊模式設定
Rem start
Gosub 開始
Gosub 十秒
Gosub 沒有對象
Gosub 接受邀請
Gosub 過場
Gosub 投球打球
Gosub 跑壘傳球
Delay 100
Goto start
// ===========副腳本區===========
Sub 開始
    IfColor 941,11,ffa25a,2
        MoveTo 900,735
        Delay 100
        LeftClick 1
        Delay 1000
    EndIf 
Return 開始
Sub 十秒
    IfColor 674,298,846861,2
        KeyPress 27,1
        Delay 100
        MoveTo 900,735
        Delay 100
        LeftClick 1
        Delay 1000
    EndIf 
Return 十秒
Sub 沒有對象
    IfColor 674,316,846861,2
        KeyPress 27,1
        Delay 1000
        MoveTo 946,11
        Delay 100
        LeftClick 1
        Delay 1000
    EndIf 
Return 沒有對象
Sub 接受邀請
    IfColor 455,455,c9b842,2
        MoveTo 455,45
        Delay 100
        LeftClick 1
        Delay 1000
    EndIf 
Return 接受邀請
Sub 過場
    VBSCall FindPic(0,735,1023,767,"Attachment:\skip.bmp",0.9,x,y)
    If x>=0 and y>=735
        KeyPress 27,1
        Delay 1000
    EndIf 
Return 過場
Sub 投球打球
    // 告示版
    IfColor 993,20,ffffff,2
        Delay 100
        // 確認分數
        N=1
        VBSCall color1 = GetPixelColor(729,16)
        VBSCall color2 = GetPixelColor(729,21)
        VBSCall color3 = GetPixelColor(729,26)
        VBSCall color4 = GetPixelColor(726,21)
        VBSCall color5 = GetPixelColor(732,21)
        IfColor 729,43,color1,2
            IfColor 729,48,color2,2
                IfColor 729,53,color3,2
                    IfColor 726,48,color4,2
                        IfColor 732,48,color5,2
                            N=0
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
        // 確認打擊
        P = 0
        VBSCall FindCenterColor(435,520,575,657,"FFFBFF",x,y)
        If x>=435 and y>=520
            P = 1
        EndIf 
        // 投球打球
        IfColor 415,750,ffffff,0
            // F短打
            If Win=1 and P=1
                KeyPress 70,1
            EndIf 
            For 4
                // S投球
                If P=0
                    KeyPress 83,1
                EndIf 
                Delay 1000
            EndFor 
        EndIf 
    EndIf