這角本能用嗎?

VBS的暗淡ss_x，ss_y，SX的，Bx的，學年中，，惠普，小孤山，高盛，
VBSCall呼叫ReadMemory（＆h004E92B0，2，ss_x）
VBSCall呼叫ReadMemory（＆h004E92B4，2，ss_y）
VBSCall呼叫ReadMemory（＆h0108B690，2，馬力）
VBSCall MessageBox的調用（“當前 X座標”）
延遲 500
VBSCall MessageBox的調用（CStr的（ss_x））
延遲 500
VBSCall MessageBox的調用（“當前 ?座標”）
延遲 500
VBSCall MessageBox的調用（CStr的（ss_y））
延遲 500
VBSCall MessageBox的調用（“當前血量”）
延遲 500
VBSCall MessageBox的調用（CStr的（馬力））
延遲 500
VBSCall小孤山=輸入框（“請輸入惠普要低於多少自動??喝水”）
延遲 500
VBSCall廣深高速 =輸入框（“請輸入範圍 20∼60”）
延遲 500
VBS的SX的= ss_x - GS的
VBS的= ss_x + Bx的廣深高速
VBS的學年 = ss_y - GS的
由= ss_y + VBS的廣深高速
雷姆開始練功
延遲 500
對於 5
    Gosub打怪程式
    雷姆右
    moveTo的744 204
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的744 204
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    雷姆上
    moveTo的499 128
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的499 128
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    雷姆左
    moveTo的266 242
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的266 242
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    moveTo的269 545
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的269 545
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    雷姆下
    moveTo的501 576
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的501 576
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
對於 5
    Gosub打怪程式
    moveTo的705 505
    延遲 500
    LeftClick 1
    延遲 1000
    moveTo的705 505
    延遲 500
    LeftClick 1
    延遲 1000
EndFor
轉到開始練功
小組打怪程式
    Gosub補血
    Gosub範圍
    雷姆打小範圍
    的KeyPress 121 1
    VBSCall呼叫FindColor（390224624449“，0000BD”，緩存器INTX，緩存器INTY）
    IfExpression緩存器INTX> = 0和緩存器INTY> = 0
        VBSCall調用 SetCursorPos（緩存器INTX 10，緩存器INTY +70）
        LeftClick 1
        延遲 500
        的KeyPress 113 1
        轉到打小範圍
    EndIf
    LeftClick 1
    IfExpression緩存器INTX =- 1和緩存器INTY =- 1
        VBSCall呼叫FindColor（216175735532“，0000BD”，緩存器INTX，緩存器INTY）
        IfExpression緩存器INTX> = 0和緩存器INTY> = 0
            VBSCall調用 SetCursorPos（緩存器INTX 10，緩存器INTY +70）
            LeftClick 1
            延遲 500
            的KeyPress 113 1
            延遲 500
            轉到打小範圍
        EndIf
        IfExpression緩存器INTX =- 1和緩存器INTY =- 1
            VBSCall呼叫FindColor（6,68,1007,624，“0000BD”，緩存器INTX，緩存器INTY）
            IfExpression緩存器INTX> = 0和緩存器INTY> = 0
                VBSCall調用 SetCursorPos（緩存器INTX 10，緩存器INTY +70）
                LeftClick 1
                延遲 500
                的KeyPress 113 1
                延遲 500
                轉到打小範圍
            EndIf
            IfExpression緩存器INTX =- 1和緩存器INTY =- 1
                延遲 300
            返回
        EndIf
    EndIf
EndIf
小組範圍
    VBSCall呼叫ReadMemory（＆h004E92B0，2，ss_x）
    VBSCall呼叫ReadMemory（＆h004E92B4，2，ss_y）
    IfExpression ss_x <= SX的
        轉到下
    EndIf
    IfExpression ss_x> = Bx的
        轉到上
    EndIf
    IfExpression ss_y <=學年
        轉到左
    EndIf
    IfExpression ss_y> =通過
        轉到右
    EndIf
返回
子補血
    VBSCall呼叫ReadMemory（＆h0108B690，2，馬力）
    IfExpression惠普<=小孤山
        的KeyPress 112 1
    EndIf
可以用的話...會的..麻煩教我一下!! 謝謝!