修改亂套的完美腳本（（山下秀貴出品））００１∼只差沒有定點~使用者請回覆

此版有~閃NPC~不搶怪~坐下反擊~休息反擊再反擊再反擊~還會精準撿寶物喔~大家請記得抓色~還有修改撿寶物距離~如果怕卡怪~攻擊可以再加個後退∼他就會一直後退２前進３不怕卡住搂∼有問題再問我搂∼４服掛機代表∼

#[HOTKEY]HOME
function main
        SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
        while true    //循環開始
                State()//子函數狀態
        wend        //返回while開始循環
end function
function State//休息攻擊+喝水
        //取窗口原點坐標
        GetActiveWindowXY(WinX0, WinY0)
        
        print("執行攻擊")
        if not CheckColor(WinX0+228, WinY0+674, Color(193, 15, 45), 10) then
                Wait(500)
                KeyDown("x")
                Wait(500)
                KeyUp("x")
                Wait(2000)
                GetActiveWindowXY(WinX0, WinY0)
                if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
                        
                        do
                                Print("主動怪反擊迴圈")
                                KeyDown("1")
                                Wait(300)
                                KeyDown("2")
                                Wait(300)
                                KeyUp("2")
                                Wait(300)
                                KeyDown("3")
                                Wait(300)
                                KeyUp("3")
                                Wait(100)
                                //取窗口原點坐標
                                GetActiveWindowXY(WinX0, WinY0)
                                //補血技能,沒有就放紅水
                                //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
                                if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
                                        KeyDown("6")
                                        Wait(300)
                                        KeyUp("6")
                                end if
                                
                        loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
                        KeyDown("1")
                        Wait(300)
                        KeyPress("F")
                        Wait(300)
                        KeyPress("F")
                        Wait(300)
                        Keypress("ESC")
                        Wait(100)
                        KeyDown("x")
                        Wait(500)
                        KeyUp("x")
                        Wait(2000)
                        
                end if
                GetActiveWindowXY(WinX0, WinY0)
                if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
                        
                        do
                                Print("主動怪反擊迴圈")
                                KeyDown("1")
                                Wait(300)
                                KeyDown("2")
                                Wait(300)
                                KeyUp("2")
                                Wait(300)
                                KeyDown("3")
                                Wait(300)
                                KeyUp("3")
                                Wait(100)
                                //取窗口原點坐標
                                GetActiveWindowXY(WinX0, WinY0)
                                //補血技能,沒有就放紅水
                                //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
                                if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
                                        KeyDown("6")
                                        Wait(300)
                                        KeyUp("6")
                                end if
                                
                        loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
                        KeyDown("1")
                        Wait(300)
                        KeyPress("F")
                        Wait(300)
                        KeyPress("F")
                        Wait(300)
                        Keypress("ESC")
                        Wait(100)
                        KeyDown("x")
                        Wait(500)
                        KeyUp("x")
                        Wait(2000)
                        
                end if
                GetActiveWindowXY(WinX0, WinY0)
                if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
                        
                        do
                                Print("主動怪反擊迴圈")
                                KeyDown("1")
                                Wait(300)
                                KeyDown("2")
                                Wait(300)
                                KeyUp("2")
                                Wait(300)
                                KeyDown("3")
                                Wait(300)
                                KeyUp("3")
                                Wait(100)
                                //取窗口原點坐標
                                GetActiveWindowXY(WinX0, WinY0)
                                //補血技能,沒有就放紅水
                                //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
                                if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
                                        KeyDown("6")
                                        Wait(300)
                                        KeyUp("6")
                                end if
                                
                        loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
                        KeyDown("1")
                        Wait(300)
                        KeyPress("F")
                        Wait(300)
                        KeyPress("F")
                        Wait(300)
                        Keypress("ESC")
                        Wait(100)
                        KeyDown("x")
                        Wait(500)
                        KeyUp("x")
                        
                end if


                do  //循環
                        //等待2000毫秒                                                                                                                                                                                                                                
                        Wait(2000)
                        //直到窗口坐標(188, 42)的顏色等於(166, 60, 23)
                loop until CheckColor(WinX0+253, WinY0+674, Color(103, 9, 25), 10)

        end if
        
        //取窗口原點坐標
        GetActiveWindowXY(WinX0, WinY0)
        
        //如果窗口坐標(86, 50)的顏色不等於(57, 121, 132) 那麼
        
        
        //如果怪物狀態條的滿血位置找不到?
        if not CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10) then
               
                //執行段內語句，當運行至LOOP時，如果表達式為false則跳回DO進行下一次執行，
                //直至LOOP後的表達式為true(真)時運行完畢。
                do  
                        
                        KeyPress("TAB")
                        Wait(800)
                loop until CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10)//怪物滿血的位置


                        GetActiveWindowXY(WinX0, WinY0)
                        if not CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10) then//npc特定圖形判斷
                                do
                                        print("判斷是否為npc")
                                        Keypress("tab")
                                        Wait(100)
                                        Wait(300)
                                
                                loop until CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10)//如果符合怪的圖行及執行下一行
                        end if
                        
                else //找到的話…
                do//執行攻擊
                for ForCount = 1 to 3
                        KeyDown("1")
                        Wait(300)
                        KeyDown("2")
                        Wait(300)
                        KeyUp("2")
                        Wait(300)
                        KeyDown("3")
                        Wait(300)
                        KeyUp("3")
                        Wait(100)
                        //取窗口原點坐標
                        GetActiveWindowXY(WinX0, WinY0)
                        //補血技能,沒有就放紅水
                        //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
                        if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
                                KeyDown("6")
                                Wait(300)
                                KeyUp("6")
                        end if
                        
next
                                
        loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去
        //等待500毫秒
        Print("死亡")
        KeyDown("1")//補打一下免的誤判
        Wait(300)
        KeyPress("F")
        Wait(300)
        KeyDown("w")
        Wait(1600)
        KeyUp("w")
        KeyPress("F")
        Wait(300)
        KeyPress("F")
        Wait(300)
        Keypress("ESC")
        Wait(2000)
        
        //取窗口原點坐標
        GetActiveWindowXY(WinX0, WinY0)
        //補血技能,沒有就放紅水
        //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
        if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
                KeyDown("6")
                Wait(300)
                KeyUp("6")
        end if
        
        GetActiveWindowXY(WinX0, WinY0)
        if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
               
                do
                        Print("主動怪反擊迴圈")
                        KeyDown("1")
                        Wait(300)
                        KeyDown("2")
                        Wait(300)
                        KeyUp("2")
                        Wait(300)
                        KeyDown("3")
                        Wait(300)
                        KeyUp("3")
                        Wait(100)
                        //取窗口原點坐標
                        GetActiveWindowXY(WinX0, WinY0)
                        //補血技能,沒有就放紅水
                        //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
                        if not CheckColor(WinX0+185, WinY0+674, Color(222, 17, 50), 10) then
                                KeyDown("6")
                                Wait(300)
                                KeyUp("6")
                        end if
                        
                        
                loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
                KeyDown("1")
                Wait(300)
                KeyPress("F")
                Wait(300)
                KeyPress("F")
                Wait(300)
                Keypress("ESC")

               
        end if

        
end if
end function

不要懷疑我不是轉貼也沒有盜用~我就是山下秀貴

請問一下大大~因為我第一次接觸這種程式~看不太懂~
請問那些打中文的部分是要自己修改~還是一樣貼上去呢?
還是有哪個網站有提供解說??(中文解說)
不然我都看沒有>"<
能否知道的人幫我一下..感謝

首先 謝謝板大的發布 讓我一點一滴的學習
以及開始學著手動調整腳本
但還是有些地方不懂...例如:
if not CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10) then//npc特定圖形判斷
            do
                print("判斷是否為npc")
                Keypress("tab")
                Wait(100)
                Wait(300)
               
            loop until CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10)//如果符合怪的圖行及執行下一行
        end if

這個部分...
1.我不懂是怎麼判斷 是否為NPC
2.照這樣來看 如果想加入"忽略特定怪"這個功能的話 是不是也可以放在這邊?

對不起 自問自答....剛問的2個問題...已經找到答案..
1. 用顏色區分 (一開始以為是 用圖形)
2.把座標跟顏色改成這樣 (WinX0+489, WinY0+7, Color(88, 84, 74), 2)
   他就會區分 2種怪名字的差異... 最後面的 "2" 應該是經準度吧 QQ
目前是利用 工廠的 重武裝兵 和警衛兵 試驗 因為字數不同
所以我用Color(88, 84, 74)這個部分區分在座標下的 灰色(沒有字)的怪

請問大大可以幫忙註明 您的腳本哪一方需要抓圖~如何抓圖?哪一段需要抓色調如何抓?謝謝您了!!麻煩

感謝大大無私ㄉ分享
小弟爬文爬了好久還是不會寫腳本ˊˋ

都沒人回應耶~~~~到底是怎嚜了~~~~~~為什麼到現在還是不能掛唉唉唉

謝謝大大的分享~~謝謝大大的分享~~

推推~~~~~~~~
感謝大大分享~~~~~~~~~~