處女作合成藥水

sammytong

這個是用來練合成 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

外掛聯合國

處女作 合成 藥水

處女作合成藥水