【魔幻小鱉】的部落格

問題描述：
我能設 怪物 的顏色 去打怪 (因為怪物顏色都不一樣)
找到著個怪物時 滑鼠按左鍵2下去打他
在按(鍵盤1) 3秒放開 在(按鍵盤3) 6秒放開 (這是放法術的技能鍵) 剛好殺1隻怪物
打3到4隻怪物 按鍵盤X鍵 休息10秒
如果在休息中,被怪物打,就會停止休息 在打怪物

腳本如下：

VBS ts=0
// -----------------------主程式開始----------------------------------
Rem start
// 在範圍搜尋怪物 ,找怪的顏色，並將鼠標移至怪物，進行打怪
VBSCall FindCenterColor(0,0,800,600,"0000FF",x,y)
If x>=0 and y>=0
    MoveTo x y
    Delay 100
    Gosub 打怪
    // 打完怪，累計1次
    VBS ts=ts+1
EndIf
// 打怪超過3隻，則按X鍵打坐休息10秒(10000毫秒)
If ts >=3
    KeyPress 88,1
    // 每隔1秒檢查是否被打
    For 10
        Gosub 被打
        Delay 1000
    EndFor
    // 按X鍵停止休息，起立，打怪次數歸0
    KeyPress 88,1
    Delay 1000
    VBS ts=0
EndIf
// 回到主程式開始，重覆打怪
Goto start
//
// ----------------副程序--------------------
Sub 打怪
    // 按滑鼠左鍵打2下怪
    LeftClick 1
    Delay 100
    LeftClick 1
    Delay 100
    // 按(鍵盤1) 3秒放開
    KeyDown 49,1
    Delay 3000
    KeyUp 49,1
    // 按(鍵盤3) 6秒放開
    KeyDown 51,1
    Delay 6000
    KeyUp 51,1
Return 打怪
//
Sub 被打
    // 休息時，檢查身旁有怪或被怪打(小範圍搜尋怪物)，則停止休息起立打怪
    VBSCall FindCenterColor(300,200,500,400,"0000FF",x,y)
    If x>=300 and y>=200
        // 按X鍵停止休息，起立
        KeyPress 88,1
        Delay 1000
        // 回主程式打怪
        Goto start
    EndIf
Return 被打