自動喝水 臨時掛+-用 更新共8個技能&mp

網路太lag 不能玩遊戲 . 無聊改改腳本
這次改不多 +了2個計能 共8個 &狂戰0鍵補mp
還是和之前一樣要在視窗化下進行
我沒法進遊戲試 所以只在notepad作測試
所以有問題再跟我說
等我能網路好點我再做別的更新

http://www.savefile.com/files/385120
按下面download 如果跑出新視窗等1下就會自動下載

我沒寫自動尋怪 給你參考1下
[General]
Description=中間漸開找怪（區域找色）
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content====找怪腳本===.
【功能說明】.
通用腳本，把全屏分成很多區域找怪！.
.
【使用說明】.
本腳本不能單獨運行，只能結合到遊戲腳本中~啟動熱鍵為<F10>，中止熱鍵為<F12>。.
.
【作者介紹】.
【按鍵專家團 Jimmyzs】.
.
【製作日期】.
<2006-7-26>
[Script]
VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY
//NumA--X軸移動的變量，NumB--Y軸移動的變量，NumK--中間變量
VBS NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66
//CenterX，CenterY---中心坐標(一般是人數) StepY,StepY--步長
//****************************主程序開始**************************************
While NumC<3
    //NumC---三圈， 相當會把找怪範圍會成25個格
    VBS NumN=NumC*8:NumK=0
    //NumN---找怪的格子位置
    While NumK<NumN
        //向下移動
        If NumK>0 and NumK<(NumN/4)
            VBS NumB=NumB+1
        EndIf
        //向左移動
        If NumK>=(NumN/4) and NumK<(NumN/2)
            VBS NumA=NumA-1
        EndIf
        //向上移動
        If NumK>=(NumN/2) and NumK<(NumN/4)*3
            VBS NumB=NumB-1
        EndIf
        //向右移動
        If NumK>=(NumN/4)*3 and NumK<NumN
            VBS NumA=NumA+1
        EndIf
        //每一格的中心坐標
        VBS GBX=CenterX+StepX*NumA
        VBS GBY=CenterY+StepY*NumB
        Delay Time/2
        //***************查看運行效果********************
        //如果想看本腳本的執行路線，請打開圖畫，再打把下面三句前的//去掉
        //MoveTo GBX GBY
        //Delay 100
        //LeftClick 1
        //*******************************************
        //×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
        //×××××××××××××××××××××××××××××  找怪部分 ××××××××××××××××××××××××××××××
        VBSCall FindColorEx(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2,"FFFFFF",1,0.6,AX,AY)
        //「FFFFFF」----怪的色，其它部分不要動，這裡也可以改成在（GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2）範圍內找圖片
        Delay Time/2
        If AX>0
            //找到色
            MoveTo AX AY
            //移動到AX，AY
            //*****判斷是否是怪********
            //gosub Mon
            //<判斷是否是怪>子程序在這裡調用！
            //*************************
            Delay Time
            Goto KillMon
        EndIf
        //××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
        VBS NumK=NumK+1
    EndFor
    VBS NumA=NumA+1:NumC=NumC+1
EndFor
//************************************主程序結束***************************************
//*************************************************************************************
//******************** 打怪 ********************
Rem KillMon
//下面請自己添加打怪要的動作
//提示：1。可以先判斷是否是怪。[要判斷的話，就寫個子程序，上面有提示<判斷是否是怪>調用的地方。]
//      2。是怪的話就攻擊，殺死後跳到開始，重新開始找怪；不是的話，就跳到下一格接著找！

[General]
Description=方形漸開搜怪
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=1
Number=1943232333
[CallBack]
OnSetup=
[Comment]
Content====網路遊戲腳本===.
【功能說明】.
取用方形漸開搜怪核心.
1、可以設置搜怪範圍（鼠標活動範圍，讓鼠標不移動到你所設的範圍外）.
2、可以設置漸開起點坐標（有些遊戲主角坐標並不是屏幕中點的，通過設置漸開起點坐標能保證先搜身邊的怪）.
3、可以設置搜索點密度（合理設置好點距搜怪效率會更好）.
4、可以設置從第幾圈開始搜索.
.
【使用說明】.
根據不同的遊戲，設置好用戶自定義變量就OK了.
參數格式請參照默認設置，X、Y坐標之間用「，」分隔.
.
【作者介紹】.
【按鍵專家團 星帆】.
.
【製作日期】.
2006.9.15

[Script]
UserVar LTop=200,100 鼠標活動範圍：左上角坐標
UserVar RBot=700,500 鼠標活動範圍：右下角坐標
UserVar Center=300,200 方形漸開搜怪起點
UserVar L=20 2個搜怪點之間的距離
UserVar M=3 從第幾圈開始搜索
//變量定義
Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2
//在鼠標左上角活動範圍變量「LTop」內查找逗號，用於區分左上角的X、Y坐標
s=InStr(LTop,",")
//Mid(參數1，參數2，參數3）：從字符串中返回指定數目的字符
//參數1（字符串表達式，從中返回字符）
//參數2（參數1中被提取的字符部分的開始位置）
//參數3（要返回的字符數，若省略將返回字符串中從參數2 到字符串結束的所有字符）
//「Mid(LTop,1,s-1)」從字符串「LTop」中的第1個字符開始取s-1個字符
//int(Mid(LTop,1,s-1)):將取到的字符轉換成整數
//取鼠標活動範圍左上角橫坐標賦值到變量a1
a1=int(Mid(LTop,1,s-1))
//取鼠標活動範圍左上角縱坐標賦值到變量b1
b1=int(Mid(LTop,s+1))
s=InStr(RBot,",")
//取鼠標活動範圍右下角橫坐標賦值到變量a2
a2=int(Mid(RBot,1,s-1))
//取鼠標活動範圍右下角縱坐標賦值到變量b2
b2=int(Mid(RBot,s+1))
s=InStr(Center,",")
//取起點坐標賦值到x0,y0
x0=int(Mid(Center,1,s-1))
y0=int(Mid(Center,s+1))
//比較x0到a1和x0到a2的長度，取最長的距離來限制方形漸開的範圍，保證漸開線能全部覆蓋鼠標活動範圍
If x0-a1>=a2-x0
    n=a1
Else
    //將x0到a2的距離轉換到左邊，方便下面的While x>=n的循環判斷
    n=x0-(a2-x0)
EndIf
Rem 開始搜怪
//將點距賦值到v
v=L
//將漸開起點圈數賦值到i
i=M
//將漸開起點坐標賦值到x,y
x=x0:y=y0-v
While x>=n
    k1=0:k2=v
    For 2
        For i
            x=x+k1:y=y+k2
            //只有（x，y）點在鼠標活動範圍內才移動鼠標和執行顏色變化判斷
            If x>=a1 and x<=a2 and y>=b1 and y<=b2
                //計算出x，y後，先取x，y點的顏色賦值到c1
                VBSCall c1=GetPixelColor(x,y)
                MoveTo x y
                Delay 10
                //移動到x,y延時10毫秒後再次取x,y點的顏色並賦值到c2
                VBSCall c2=GetPixelColor(x,y)
                //如果x,y點的顏色鼠標移動前和鼠標移動後的顏色不同，則執行打怪動作
                If c1<>c2
                    //打怪代碼
                    Delay 1000
                    //打完怪後再重新開始搜索
                    Goto 開始搜怪
                EndIf
                Delay 1
            EndIf
        EndFor
        k1=v:k2=0
    EndFor
    i=i+1:v=v*(-1)
EndWhile
Delay 200
//搜索完鼠標活動範圍後重新開始搜索
Goto 開始搜怪

[General]
Description=區域找圖打怪
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=1
Number=1943232333
[CallBack]
OnSetup=
[Comment]
Content=.
【功能說明】.
在屏幕指定區域尋找圖形，找到後移動過去點擊。可以在遊戲中將怪物的頭像做成圖片，然後用這個腳本實現找怪打怪功能。.
.
【使用說明】.
這個例子無法直接試用，供大家學習參考。.
.
【作者介紹】.
摘自兄弟論壇，POST網址：.
http://bbs.vrbrothers.com/viewthread.php?tid=20488.
作者： 晨風 .
.

[Script]
VBSCall FindPic(0,0,1024,768,"神盾.bmp",0.9,x,y)
//區域找圖  0,0,1024,768為區域範圍  "神盾.bmp"為圖片名（路徑）  0.9為找圖的相似度 x,y為找到圖片後的坐標變量
If x>=0 and y>=0
    MoveTo x y
    Delay 50
    MessageBox 已經找到圖形！鼠標移到了圖形之上
Else
    MessageBox 沒找到圖形！
EndIf

[General]
Description=區域模糊找色打怪
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=.
【功能說明】.
在屏幕的固定區域使用模糊找色功能尋找怪物，並將鼠標移過去點擊打怪.
.
【使用說明】.
這是個腳本例子，無法直接運行，供大家學習參考.
.
【作者介紹】.
摘自兄弟論壇，POST網址：.
http://bbs.vrbrothers.com/viewthread.php?tid=20488.
作者： 晨風 .
.
.

[Script]
VBSCall FindColorEx(0,0,1024,768,"FFFFFF",1,0.8,x,y)
//區域模□找色  0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.8為模□值 x,y為找到顏色後的坐標變量
If x>=0 and y>=0
    //如果找到顏色  比如找到顏色就會賦值給坐標變量  通過判斷坐標變量可以知道有沒有找到怪
    MoveTo x y
    //把鼠標移動到該色的坐標 如果找的是怪名字或血條  可能移動不到怪身上 這時就要用鼠標偏移 如：MoveTo x+10 y+10
    Delay 50
    //延時
    LeftClick 1
    //左鍵單擊進行攻擊
EndIf
//條件結束

真多文  但是有些還是看不太董呢 只能乖乖的自己慢慢摸索  看能不能正常使用...::44.gif
不過還真的很感謝樓主 你的分享 先謝了