自動練功妖精進階腳本－決戰冰火自動練功外掛的部落格

先把這5個圖下載下來

然後到新建那邊把這五個圖都添加進去

然後一樣按退出保存

不過這個的腳本是要遊戲裡面設定f2為生命的祝福(血不夠)OR心靈轉換(魔不夠)

腳本如下

Rem run
dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY
//NumA--X軸移動的變量，NumB--Y軸移動的變量，NumK--中間變量
NumA=0:NumB=0:NumC=0:CenterX=400:CenterY=200:StepX=42:StepY=36
//CenterX，CenterY---中心坐標(一般是人數) StepY,StepY--步長
//****************************主程序開始**************************************
While NumC<5
    //NumC---三圈，相當會把找怪範圍會成25個格
    NumN=NumC*8:NumK=0
    //NumN---找怪的格子位置
    While NumK<NumN
        //向下移動
        If NumK>0 and NumK<(NumN/4) Then
            NumB=NumB+1
        End If
        //向左移動
        If NumK>=(NumN/4) and NumK<(NumN/2) Then
            NumA=NumA-1
        End If
        //向上移動
        If NumK>=(NumN/2) and NumK<(NumN/4)*3 Then
            NumB=NumB-1
        End If
        //向右移動
        If NumK>=(NumN/4)*3 and NumK<NumN Then
            NumA=NumA+1
        End If
        //每一格的中心坐標
        GBX=CenterX+StepX*NumA
        GBY=CenterY+StepY*NumB
        Delay Time/2
        //***************查看運行效果********************
        //如果想看本腳本的執行路線，請打開圖畫，再打把下面三句前的//去掉
        MoveTo GBX, GBY
        Delay 50

       killcnt =1
       Rem KillMon
       Shape = GetCursorShape(0)
     If Shape = 2147445397 Then

      LeftClick 1
      Delay 100
      For k= 1 to 10
          KeyPress 115, 1
          Delay 50
         Next
            //判斷攻擊次數,超過40則按F5
            killcnt = killcnt + 1
               If killcnt > 40 Then
                      KeyPress 116, 1
                      Delay 1000
                      killcnt =1
                      Goto run
               End If
               //判斷怪物是否已死
               FindPic 122,482,473,582,"Attachment:\cancel.bmp",0.94,intX,intY
      If intX > 0 And intY > 0 Then
        MoveTo CenterX , CenterY
        LeftClick 1
        Delay 200
        KeyPress 113, 1
        Delay 500
        KeyPress 113, 1
        Delay 500
        Shape=GetCursorShape(0)
        shape = 0

        Goto run
      End If
      //判斷攻擊目標是否存在
      FindPic 122,482,473,582,"Attachment:\cancel_2.bmp",0.94,intX,intY
      If intX > 0 And intY > 0 Then
        MoveTo CenterX , CenterY
        LeftClick 1
        Delay 200
        KeyPress 113, 1
        Delay 500
        KeyPress 116, 1
        Delay 500

        Shape=GetCursorShape(0)
        shape = 0
        Goto run
      End If
      //判斷60分鍾活動是否到了
      FindPic 122,482,473,582,"Attachment:\可以動了.bmp",0.9,intX,intY
      If intX > 0 And intY > 0 Then
        Delay 2000
        KeyPress 120, 1
        Delay 500
      End If
      //下線判斷
           FindPic 122,482,473,582, "Attachment:\close.bmp", 0.9, intX, intY
           If intX > 0 And intY > 0 Then
             KeyPress 116,1
            Call 下線
           End If

       //斷線判斷
           FindPic 0,0,1000,700, "Attachment:\斷線判斷.bmp", 0.9, intX, intY
           If intX > 0 And intY > 0 Then
            MoveTo intX+5, intY+5
            Delay 300
            LeftClick 1
            Delay 3000
            Call 下線
           End If

       LeftClick 1
       Delay 100

            Goto KillMon
         End If

         //下線判斷
         FindPic 122,482,473,582, "Attachment:\close.bmp", 0.9, intX, intY
         If intX > 0 And intY > 0 Then
          Call 下線
         End If

         //斷線判斷
         FindPic 0,0,1000,700, "Attachment:\斷線判斷.bmp", 0.9, intX, intY
         If intX > 0 And intY > 0 Then
          MoveTo intX+5, intY+5
          Delay 300
          LeftClick 1
          Delay 3000
          Call 下線
         End If
        NumK=NumK+1
    Wend
    NumA=NumA+1:NumC=NumC+1
Wend
KeyPress 116, 1
Delay 1000
Goto run
Sub 下線()
//移至離開選單按鈕
MoveTo 788, 581
Delay 1000
LeftClick 1
//按下離開鈕
MoveTo 399, 220
Delay 20000
LeftClick 1
Delay 1000
LeftClick 1

FindPic 0,0,1000,700, "Attachment:\斷線判斷.bmp", 0.9, intX, intY
    If intX > 0 And intY > 0 Then
       MoveTo intX+5, intY+5
       Delay 500
       LeftClick 1
       Delay 3000
       LeftClick 1
    End If

Delay 1000
LeftClick 1
Delay 500
LeftClick 1
//等待5分鍾後自動上線
Delay 300000
//執行自動上線.exe
Call RunApp("C:\Documents and Settings\Administrator\桌面\自動上線.exe")
Delay 85000
End Sub