新游戲方舟指令腳本ver.1

嘛辨液，B站新游戲呢，模式什么的和艦B幾乎沒有什么區(qū)別箱残，還簡化了滔迈，結(jié)果我這邊整體邏輯都不用改，就改了一小部分代碼就實(shí)現(xiàn)自動選關(guān)練級了被辑。目前燎悍，自動收遠(yuǎn)征還沒改，自動收任務(wù)沒改盼理，選擇陣型沒寫谈山，嘛，無所謂吧宏怔。現(xiàn)在手游同質(zhì)化真嚴(yán)重呢奏路，感覺就像換人物立繪騙錢。

Delay 2000
Dim screenX,screenY,deviceID,first=1
screenX = GetScreenX()
screenY = GetScreenY()
deviceID = GetDeviceID()
TracePrint ""&screenX&"*"&screenY&chr(10)

While 1
    call messagebox ("準(zhǔn)備進(jìn)入出擊")
    TracePrint "準(zhǔn)備進(jìn)入出擊"
    Call zhanyi()
    first = 2
    
    Delay 3000
Wend
//----------------//
Sub zhanyi()
    Dim dijiguan=1,zdd,ty=225,zyi=1,yv //zyi的值影響章節(jié)臊诊。dijiguan的值影響關(guān)卡//
    call messagebox ("點(diǎn)擊出擊")
    TracePrint "點(diǎn)擊出擊"
    Delay 1000
    Touch 567,1757, 100
    call messagebox ("向左滑動歸零")
    TracePrint "向左滑動歸零"
    Delay 1000
    TouchDown 95,198, 1//按住屏幕上的100,100坐標(biāo)不放鸽粉，并設(shè)置此觸點(diǎn)ID=1
    TouchMove 98,1212, 1, 200//將ID=1的觸點(diǎn)花200毫秒移動至300,300坐標(biāo)
    TouchUp 1//松開彈起ID=1的觸點(diǎn)
    Delay 1000
    call messagebox ("歸零關(guān)卡選擇")
    TracePrint "歸零關(guān)卡選擇"
    Touch 86, 225, 100
    call messagebox ("選擇關(guān)卡，注意單復(fù)數(shù)關(guān)卡坐標(biāo)不一致")
    TracePrint "選擇關(guān)卡抓艳，注意單復(fù)數(shù)關(guān)卡坐標(biāo)不一致"
    Delay 1000
    call messagebox ("章節(jié)選擇為第" & zyi & "章")
    TracePrint "章節(jié)選擇"
    ty=ty+(zyi-1)*450
    Touch 99, ty, 100
    yv = zyi mod 2
    If yv=0 Then     //判斷奇偶關(guān)卡
            Select Case dijiguan
        Case 1
            call messagebox ("選擇關(guān)卡一")
            TracePrint "選擇偶數(shù)關(guān)卡一"
            Touch 533,229, 100
            Delay 1000
        Case 2
            call messagebox ("選擇關(guān)卡二")
            Touch 366,707, 100
            Delay 1000
        Case 3
            call messagebox ("選擇關(guān)卡三")
            Touch 617,1059, 100
            Delay 1000
        Case 4
            call messagebox ("選擇關(guān)卡四")
            Touch 403,1557, 100
            Delay 1000
        Case Else
            call messagebox ("關(guān)卡值錯誤触机！")
        End Select
    Else    //偶數(shù)關(guān)
            Select Case dijiguan
        Case 1
            call messagebox ("選擇關(guān)卡一")
            TracePrint "選擇奇數(shù)關(guān)卡一"
            Touch 428,272, 100
            Delay 1000
        Case 2
            call messagebox ("選擇關(guān)卡二")
            Touch 633,719, 100
            Delay 1000
        Case 3
            call messagebox ("選擇關(guān)卡三")
            Touch 361,1102, 100
            Delay 1000
        Case 4
            call messagebox ("選擇關(guān)卡四")
            Touch 605,1571, 100
            Delay 1000
        Case Else
            call messagebox ("關(guān)卡值錯誤！")
        End Select
    End If
    call messagebox ("關(guān)卡介紹頁面")
    TracePrint "關(guān)卡介紹頁面"
    Touch 225,1506, 100
    Delay 1000
    call messagebox ("出擊玷或！")
    TracePrint "出擊儡首！"
    Touch 228,1491, 100 
    Delay 3000
    Touch 76,1756, 100  //打開搜尋敵人
    Delay 3000
    While 1
        zdd = CmpColor(933,1513,"F3F6EE",0.9)
        If zdd > -1 Then 
            zdd = CmpColor(568, 1799, "FFFFFF", 0.9)
            If zdd > -1 Then 
                call messagebox ("回到關(guān)卡界面了，跳出戰(zhàn)斗")
                TracePrint "回到關(guān)卡界面了偏友，跳出戰(zhàn)斗"
                Exit While
            End If
        End If
        call messagebox ("似乎沒有結(jié)束呢蔬胯，繼續(xù)戰(zhàn)斗")
        TracePrint "似乎沒有結(jié)束呢，繼續(xù)戰(zhàn)斗"
        Touch 185, 1649, 100
        Delay 1000
        Touch 830, 1794, 100
        Delay 1000
        zdd = CmpColor(1053,1580, "DDFFFF", 0.9)
        If zdd = -1 Then 
            Touch 1025, 1562, 100
            Delay 1000
            Call messagebox("開啟自動戰(zhàn)斗")
            TracePrint "開啟自動戰(zhàn)斗"
        End If
    Wend
    Touch 1029, 385, 100
    call messagebox ("回到主界面開始下個循環(huán)吧")
    TracePrint "回到主界面開始下個循環(huán)吧"
End Sub
//----------------//
Sub messagebox(box)
    TracePrint box
    ShowMessage box
    Delay 1500
End Sub

最后編輯于：2018.09.28 22:08:53

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者