處女作 合成 藥水

這個是用來練合成 30紅水 +30黃水 和基礎藥水
當中的問題是 不知道為何 沒材料時不懂得停下 請大大指教
再來問題是當合成了10紅水或10黃水時 會發生問題
所以請放一支10紅水 及10黃水放再最下

        KeyPress 13,1
        Delay 1000
        Rem Start
        For 9
            KeyPress 115,1
            Delay 1000
            VBSCall FindColor(358,247,1280,1024,"00003F",x,y)
            If x>0 and y>0 Then
                MoveTo x y
                Delay 500
                RightClick 1
                Delay 500
                MoveR 1,130
                Delay 500
                LeftClick 1
                Delay 500
                KeyPress 13,1
                Delay 500
                MoveTo 299 530
                Delay 500
                LeftClick 1
            Else
               EndScript
            Endif   
                VBSCall FindColor(358,247,1280,1024,"00BFF5",x,y)
             If x>0 and y>0 Then   
                MoveTo x y
                Delay 500
                RightClick 1
                Delay 500
                MoveR 1,130
                Delay 500
                LeftClick 1
                Delay 500
                KeyPress 13,1
                Delay 500
                MoveTo 255 527
                Delay 500
                LeftClick 1
            Else
               EndScript
             Endif  
                VBSCall FindColor(600,247,1280,1024,"FFC58B",x,y)
             If x>0 and y>0 Then      
                MoveTo x y
                Delay 500
                RightClick 1
                Delay 500
                MoveR 1,115
                Delay 500
                LeftClick 1
                Delay 500
                KeyPress 13,1
                Delay 500
                MoveTo 199 524
                Delay 500
                LeftClick 1
                MoveTo 191 642
                Delay 500
                LeftClick 1
                Delay 8000
                KeyPress 13,1
             Else
               EndScript
             Endif
            EndFor
            KeyPress 115,1
            Delay 1000
            VBSCall FindColor(358,247,1280,1024,"00003F",x,y)
            MoveTo x y
            Delay 500
            LeftClick 1
            Delay 500
            MoveTo 299 530
            Delay 500
            LeftClick 1
            VBSCall FindColor(358,247,1280,1024,"00BFF5",x,y)
            MoveTo x y
            Delay 500
            LeftClick 1
            Delay 500
            MoveTo 255 527
            Delay 500
            LeftClick 1
            VBSCall FindColor(600,247,1280,1024,"FFC58B",x,y)
            MoveTo x y
            Delay 500
            LeftClick 1
            Delay 500
            MoveTo 199 524
            Delay 500
            LeftClick 1
            MoveTo 191 642
            Delay 500
            LeftClick 1
            Delay 2000
            Goto Start

這種腳本因為會合出其他東西
我比較推薦用找圖...
這樣會比較好...
只不過..
你是1個1個合成
所以當是一組堆疊時..
請務必剩下最後一個
也就是使用9次後
請要使用不按SHIFT(分割)
不然他會一直重複同一個動作

『找色』跟『固定位置』都是可行的方法!!!
會建議固定的方法
是他的未來也可以套用在其它的相關上面!!!
紅黃基
基黃紅
基紅黃
不管哪一種!
只要是橫的擺設方式
其它口味的合成((草系列或其它款的!!!
都可以直接套用!!!
以上=\\\\=

謝謝你的建議 我會改進一下
找色是希望不用買水時留意位置
也希望其他人用時的設定減到最少

裡面會有些許的建議!!!
1.中文說明一下=口=!!!((步驟用
2.如果一開始就固定位置的話!!!可以省略掉辨識顏色的部份!!!
ex:   紅黃基
        紅黃基
        紅黃基
        紅黃基
則可以改用
for組量
       for 9
     endfor
     單一
endfor
//
在最尾的goto start!!!
跳回到一開始的start好像就少按了一次 ""KeyPress 13,1""
如果說想要做有限次數!!!
比較建議在外層加回圈!!!如我上面寫的!!!
以上=\\\=