緣份遊戲網 - 備份站

//以石器時代2為例
//須具備抓坐標，抓色，抓圖的概念就可以了
//基本上語言是對的，會錯或不能用就是前項用錯了
//模式:左右移動遇怪→戰鬥→查看寵物血量(用精靈補血不是肉)→查看人物魔力→
//→遇怪
//秒數可以自已重設，看自已的需求。我電腦比較爛所以都延遲很久。
//不管誰放出來的按精腳本都要自已重新抓點，因為每個人的電腦不一樣。
//※在運行之前一定要有，人物，寵物，精靈的圖，不然會出錯。
//紅色部份是要改的
//看不懂就貼上去繁體中文的按精就很清楚了
[Script]
Rem 腳本開始
For 5
    Rem 遇怪                  //以下遇怪點要自已抓
    Delay 300
    MoveTo 206 314            //往左的點
    Delay 300
    LeftClick 1
    Delay 500
    MoveTo 576 314            //往右的點
    Delay 300
    LeftClick 1
    Delay 500
    IfColor 164,51,52616b,1   //這裡要抓在戰鬥中，不會有的顏色，我是抓石器商店。
        Goto 戰鬥了
    Else
        Goto 遇怪            
    EndIf
    //分隔-----------------------以下戰鬥腳本-----------------------
    Rem 戰鬥了
    Delay 1000
    KeyPress 27,1             //這裡是【esc】自已要先手動戰鬥一次，會玩的因該知道。
    Delay 1000
    IfColor 750,118,0,1       //這裡是戰鬥完的點，我是抓【石器裡】右上角x坐標白色部份。
        Goto 戰鬥了
    Else
        Delay 500
        RightClick 1          //【右鍵】因為上一段語言會有衝突所以他是解決的方法之一。
        Delay 500
    EndIf
    Delay 1000
    Gosub 寵物                //調用副程式
    Delay 500
    For 1                     //這裡的運行次數是補血的時候，要讓他補幾次，運行一次就補一次。
        Gosub 寵物1           // ※不過如果要設吃肉，沒肉會出問題，切記要有肉才設定。
    EndFor                  
    Delay 500
    For 1
        Gosub 寵物2           //調用副程式
    EndFor
    Delay 500
    Gosub 寵物3               //調用副程式
    Delay 500
    Gosub 人物                //調用副程式
    Delay 2000
    KeyPress 83,1             //【S鍵】
    Delay 500
    KeyPress 84,1             //【T鍵】
    Delay 500
EndFor
// 分隔-------------------------補魔-------------------
KeyPress 84,1                 //【T鍵】
Delay 500
KeyPress 65,1                 //【A鍵】
Delay 500
IfColor 244,260,393c39,0      //【T鍵】裡的魔力，我抓空魔力的狀態。
    Rem 補魔
    Delay 1000
    MoveTo 697,335            //【坐下】的坐標，可以用抓圖會比較完美!!
    Delay 1000
    LeftClick 1
    Delay 90000
Else
EndIf
IfColor 260,260,393c39,0      //【T鍵】裡的魔力，上面那段是最左邊的點，這段是右邊的點。
    Goto 補魔                 //※我設90秒應該補的滿，這段是如果沒到右邊點標準就會在坐下
Else                          //  直到右邊標準為止。
    Delay 500
    KeyPress 65,1             //【A鍵】
    Delay 500
    KeyPress 84,1             //【T鍵】
    Delay 500
    Goto 腳本開始             //回到最上面
    Delay 500
EndIf
//------------------------------寵物補血【以下都是副程式】---------------------
Sub 寵物
    KeyPress 84,1             //【T鍵】
    Delay 500
    KeyPress 83,1             //【S鍵】
    Delay 500
    IfColor 186,308,393c39,0  //【T鍵】裡寵物的血條，空的狀態，取一點寵物不會死的點。
        Delay 1000
        Gosub 滋潤精靈        //調用副程式【滋潤精靈】在下面
        Delay 1000
        LeftDown 1
        Delay 1000            //抓烏力的圖
        VBSCall FindPic(0,0,907,691,"烏力.bmp",0.9,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
        EndIf
        Delay 1000
        LeftUp 1
        Delay 1000
    Else
    EndIf
Return 寵物
//------------------------------同上寵物-----------------------
Sub 寵物1
    IfColor 200,405,393c39,0
        Delay 1000
        Gosub 滋潤精靈
        Delay 1000
        LeftDown 1
        Delay 1000
        VBSCall FindPic(0,0,907,691,"烏力烏力.bmp",0.9,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
        EndIf
        Delay 1000
        LeftUp 1
        Delay 1000
    Else
    EndIf
Return 寵物1
//-----------------------------同上寵物-----------------------
Sub 寵物2
    IfColor 182,452,393c39,0
        Delay 1000
        Gosub 滋潤精靈
        Delay 1000
        LeftDown 1
        Delay 1000
        VBSCall FindPic(0,0,907,691,"邦奇諾.bmp",0.9,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
        EndIf
        Delay 1000
        LeftUp 1
    Else
    EndIf
Return 寵物2
//-----------------------------同上寵物-----------------------
Sub 寵物3
    IfColor 178,356,393c39,0
        Delay 1000
        Gosub 滋潤精靈
        Delay 1000
        LeftDown 1
        Delay 1000
        VBSCall FindPic(0,0,907,691,"奇拉索.bmp",0.9,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
        EndIf
        Delay 1000
        LeftUp 1
    Else
    EndIf
Return 寵物3
//-----------------------------同上寵物-----------------------
Sub 人物
    IfColor 181,260,393c39,0
        Delay 1000
        Gosub 滋潤精靈
        Delay 1000
        LeftDown 1
        Delay 1000
        VBSCall FindPic(0,0,907,691,"人物1.bmp",0.9,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
        EndIf
        Delay 1000
        LeftUp 1
    Else
    EndIf
Return 人物
//----------------------副程式------------------
Sub 滋潤精靈                 //滑鼠移到滋潤精靈↓
    VBSCall FindPic(0,0,907,691,"滋潤.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
    EndIf
    Delay 500
Return 滋潤精靈
//----------------------副程式------------------
Sub 抓圖吃肉              //此腳本沒用到這個副程式，放出來是給有須要的人。
    i = 1                     //※這段是要設吃肉的人才須要的，【肉】的圖都要用1.2
    For 15                  //3...以此類推，例如:你肉設到15個圖，那迴圈是要設15。
        myPic = i & ".bmp"   //【滋潤精靈】換【抓圖吃肉】
        VBSCall FindPic(0,0,601,459,myPic,0.9,x,y)
        If x>=0 and y>=0
            MoveTo x+5 y+5
        EndIf
        i = i + 1
    EndFor
Return 抓圖吃肉