征服自動打怪腳本
『壹』 征服自動打怪腳本
要什麼腳本.別的沒有.捐官精靈我到是有.不用手動.開起來只要按F10就會自動開始捐.捐到你沒TS為止.
『貳』 怎麼用TC製作工具製作一個可以自動打怪的輔助器啊！
自動打怪是比較簡單的,TC的自動打怪腳本主要是一下幾天,然後自己去整合就可以了。
1.會TC的找圖找色
2.會TC的模擬滑鼠鍵盤
3.會TC的基本語法
思路
1.根據快捷鍵取怪物(模擬TC按鍵)
2.判斷是否取到怪物,通過怪物固定坐標出現的顏色值(TC找色)
3.如果取到怪物,模擬滑鼠鍵盤,進行自動打怪操作。(模擬TC按鍵)
4. 打怪過程中,判斷自己的人物血量,如果低於某個血量,自動按鍵回血。(TC按鍵,TC找色)
5.判斷怪物是否死亡,如果怪物死亡繼續第一步操作,從下取怪,如果沒有死亡,繼續第三步,繼續自動打怪。(TC找色,TC語法)
『叄』 傳奇自動打怪腳本
橫刀輔助掛機腳本有快捷自動掛機勾選即可自動打怪，也可以錄制進地圖，然後運行腳本即可完成自動打怪
『肆』 求按鍵精靈自動打怪及半手動打怪腳本
1、運行按鍵精靈。在主界面上點選「新建」進入腳本編輯
2、在界面左邊的命令類型里選擇滑鼠命令。常用的就是前2個。假設游戲中人物為中心坐標500，500。我每次選取怪物前需點選角色自己。那麼如圖，滑鼠移動到 那裡可以下拉選擇一個坐標插入命令。（這個坐標可以直接在游戲里截取也可以自己設置。如何在游戲里抓點，後邊會介紹到。）然後滑鼠動作下拉菜單里選擇左鍵單擊==插入命令。
3、如果手動輸入坐標點的話，可以先插入滑鼠移動到x=0 y=0。然後在腳本區直接修改。2種修改方式。一是在源文件中修改，一種是在普通里雙擊命令修改，如圖
4、假設游戲的尋怪快捷鍵為F1。那麼找到鍵盤命令。這里常用的2種命令，一是按鍵，二是按鍵組合。只要把滑鼠點在下圖中空白處，然後在鍵盤上按下需要編輯的鍵，就可以自動記錄了。
5、上一步已經按了自動尋怪了。下一步該進行攻擊了。假設攻擊的快捷鍵是ctrl+1。這就用到按鍵組合的命令了。插入ctrl+1的命令腳本。這里需要注意的是，默認是執行命令腳本時，按下ctrl+1後只彈開ctrl鍵。如圖：
6、我們需要手動輸入彈開1鍵的命令。點選源文件，我們可以看到按下1鍵和彈起ctrl鍵的命令分別是keypress 49，1 和 keyup 17，1 組合一下就得到彈起1鍵的命令為keyup 49，1。這里要注意的是逗號要用半形輸入。
7、一套連貫的攻擊完畢。下邊需要對自動吃葯的腳本進行編輯。在這個命令里我們主要是依靠對顏色的辨別來完成的。在控制命令里選擇需要的點和顏色進行編輯。（點和顏色用抓點功能直接在游戲里抓取）下邊插入的這個命令解讀為若點796，638的顏色為黑色時則如何，否則如何。什麼意思呢？假設游戲人物HP條50%處的點為796，638。那麼如果血掉到50%以下，這個點的顏色就應該是黑的了。這時我就要吃HP葯水了。
8、可以看出，這條命令無法單獨使用。我們需要插入吃葯的腳本命令。先在其他命令中選擇延時100毫秒插入，然後插入游戲中HP葯水的快捷鍵F2。這里說一下延時的用處。延時的設置是因為如果連續運行多條腳本命令時，機器可以能反映不過來而當掉，所以基本每條單獨的命令都會插入適當的延時。
9、若需要設置吃MP葯水，則同上步驟。若需在游戲中喊話，則可在其他命令中選擇文本輸入命令。記著輸入完文本還需設置回車命令將文本發送出去。
10、關於抓點。腳本編輯界面上方直接點選抓點功能，然後切入游戲，將滑鼠放到需要抓的點上，按抓點快捷鍵就可以將滑鼠點的坐標和顏色抓取下來了。
11、腳本編輯完畢，我們還需對腳本的啟動、停止熱鍵，以及對腳本的描述做出修改。熱鍵直接點在右邊編輯窗口需要修改的地方，然後點下滑鼠就可以修改了。熱鍵點完空白地方直接在鍵盤上按一下就可以了。注意腳本循環里一定要選擇循環到按中止鍵為止。
12、OK，全部編輯完畢，保存腳本退出。返回按鍵精靈主界面。現在已經可以看到我們自己製作的腳本了。
以上就是按鍵精靈簡單的游戲腳本製作，要注意的是幾乎所有的網路游戲都可以使用按鍵精靈，但部分帶有比較強的反外掛系統的網游只能使用按鍵精靈的部分功能，比如帶有nProtect或者xTrap反外掛系統的網游，就必須使用按鍵精靈最新版，並且打開神盾自我保護功能，才能使用。
『伍』 征服腳本在那裡找啊
征服掛機腳本
-本腳本可能不適合新游戲版本,我已經沒玩征服快一年了,這里僅僅是提供給初學者的腳本學習,不便之處,請大家原諒!! -每一步基本都有相關注釋 -聯系:[email protected] [replyview] vbs dim r0,l,m,k,dx,dy,x,y,a,b,starttime,sunhao2,xue2,color0,color//固定半徑r0=100VBS l=10 /圓半徑VBS m=5 /圓半徑VBS k=-90 /圓的漸變率vbs dx=1 /區的判斷值 goSub 注冊rem 注冊用戶goSub 加血提示goSub 損耗度提示gosub 半徑a,b /滑鼠初始坐標，開始時取得坐標值輸入// VBSCall Call GetCursorPos(a,b)@<stdlib.vbs>SaveMousePos///儲存此時坐標///////////////////////////////////開始主腳本rem beginIfExpression l<=r0While 1IfExpression k>-91 and k<270Gosub sub1 //獲得動態坐標EndIf IfExpression k>269 and k<630Gosub sub2 //獲得動態坐標EndIf gosub 注冊用戶打怪VBS k=k+1 /圓的漸變率k=k+0.3 IfExpression k=630VBS k=-90EndIf EndFor/////////////////對應開始的循環vbs l=l+10vbs k=k+10else RestoreMousePos delay 5000 VBSCall Call GetCursorPos(a,b)@<stdlib.vbs> SaveMousePos///儲存此時坐標 VBS l=10 /圓半徑 VBS m=5 /圓半徑 VBS k=-90 /圓的漸變率 endifgoto begin ////////以下為非注冊用戶 rem 非注冊用戶gosub 啟動時間goSub 加血提示goSub 損耗度提示 gosub 半徑a,b /滑鼠初始坐標，開始時取得坐標值輸入// VBSCall Call GetCursorPos(a,b)@<stdlib.vbs>SaveMousePos///儲存此時坐標///////////////////////////////////開始主腳本rem beginIfExpression l<=r0While 1IfExpression k>-91 and k<270Gosub sub1 //獲得動態坐標EndIf IfExpression k>269 and k<630Gosub sub2 //獲得動態坐標EndIf gosub 非注冊用戶打怪VBS k=k+1 /圓的漸變率k=k+0.3 IfExpression k=630VBS k=-90EndIf EndFor/////////////////對應開始的循環vbs l=l+10vbs k=k+10else RestoreMousePos delay 5000 VBSCall Call GetCursorPos(a,b)@<stdlib.vbs> SaveMousePos///儲存此時坐標 VBS l=10 /圓半徑 VBS m=5 /圓半徑 VBS k=-90 /圓的漸變率 endifgoto begin /////////////////////////////////////////////////以上為非注冊用戶代碼 Sub sub1VBS x=a+cos((k*3.1415926)/180)*lVBS y=b+sin((k*3.1415926)/180)*lReturn Sub sub2VBS x=a+cos((k*3.1415926)/180)*mVBS y=b+sin((k*3.1415926)/180)*mReturn /////////////////////////////////////////////////////////一下是件東西命令 Sub 撿東西vbs dim gx,gy,cx,xy VBSCall Call GetCursorPos(cx,cy)@<stdlib.vbs> //獲得當前坐標，方便回到以前軌跡 VBSCall Call FindColor(x-100,y+100,x+100,y-100,"8CE3FF",gx,gy)@<stdlib.vbs> //撿金子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"EFE3EF",gx,gy)@<stdlib.vbs>/////撿銀子 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF55F7",gx,gy)@<stdlib.vbs>/////撿流星 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf VBSCall Call FindColor(x-100,y+100,x+100,y-100,"FF75CE",gx,gy)@<stdlib.vbs>/////撿龍豬 If gx>0 VBSCall Call SetCursorPos(gx,gy)@<stdlib.vbs> LeftClick 1 Delay 3000 VBSCall Call SetCursorPos(cx,cy)@<stdlib.vbs> LeftClick 1 Delay 1000 EndIf Return ///////////////////////////////////////////一下是退出遊戲命令 sub 死後回城退出IfColor 63 729 5a7584 0 KeyPress 115 1 Delay 3000 MoveTo 464 709 LeftClick 1 Delay 10000 SayString 大家玩好，我下了，先！！ KeyPress 13 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 關機 EndIf return ////////////////////////////////////////////下面是關機命令 sub 關機Delay 4000KeyDown 91 1KeyPress 82 1KeyUp 91 1Delay 50KeyPress 8 1Delay 100SayString Shutdown.exe -s -t 0Delay 1000KeyPress 13 1return /////////////////////////////////////////////////下面是加血以及損耗度命令 Sub 加血提示vbs dim xue2 VBSCall xue2=InputBox("請輸入補血最低值:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 Delay 1000 If cint(xue2)>=5000 VBSCall Call MessageBox("注意您補血設定值"&xue2&" 太高！")@<stdlib.vbs> ElseIf cint(xue2)<=50 VBSCall Call MessageBox("注意您補血設定值"&xue2&" 太低！")@<stdlib.vbs> EndIf EndIf ReturnSub 加血vbs dim xue1,xue2 VBSCall Call ReadMemory(&h00E50CC0,2,xue1) If cint(xue1)<=cint(xue2) KeyPress 112 1 EndIf Return Sub 損耗度提示vbs dim sunhao2 VBSCall sunhao2=InputBox("請輸入損耗度允許的最低值:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 Delay 1000 If cint(sunhao2)>=100 VBSCall Call MessageBox("注意您損耗度設定值："&sunhao2&" ;設置太高呀！！！")@<stdlib.vbs> ElseIf cint(sunhao2)<=10 VBSCall Call MessageBox("注意您損耗度設定值："&sunhao2&" ;設置太低呀！！！")@<stdlib.vbs> EndIf EndIf Return Sub 損耗度低退出vbs dim sunhao1,sunhao2 VBSCall Call ReadMemory(&h0504D52A,2,sunhao1) If cint(sunhao1)<=cint(sunhao2) KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 2000 MoveTo 621 481 LeftClick 1 Delay 2000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 關機 EndIf Return Sub 技能 vbs dim xf VBSCall Call ReadMemory(&h0053ACA8,2,xf) If cint(xf)=100 KeyPress 121 1 EndIf Return Sub 限時 vbs dim stoptime,starttime VBS stoptime=timer VBS t=stoptime-starttime If t>=600000 VBSCall Call MessageBox("使用時間已到，請注冊，謝謝使用！聯系：[email protected]") MoveTo 671 757 LeftClick 1 Delay 400 MoveTo 621 481 LeftClick 1 Delay 400 MoveTo 469 413 LeftClick 1 Delay 80 KeyDown 91 1 KeyPress 82 1 KeyUp 91 1 Delay 20 KeyPress 8 1 Delay 50 SayString Shutdown.exe -s -t 0 Delay 10 KeyPress 13 1 Gosub 終止腳本 EndIf Return Sub 注冊 VBS dim sn1,sn2,sn3 VBSCall sn1=InputBox("請輸入帳號:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 VBS sn3="ascii"+sn1 VBSCall sn2=InputBox("請輸入注冊碼:") KeyDown 18 1 KeyPress 9 1 KeyUp 18 1 If StrComp(sn2,sn3)=0 VBSCall Call MessageBox("謝謝使用！請注冊！未注冊用戶試用10分鍾,聯系：[email protected]") Goto 非注冊用戶 elseif StrComp(sn2,sn3)=1 VBSCall Call MessageBox("謝謝您的注冊和支持，請關注我們為您提供的升級服務！聯系：[email protected]") Goto 注冊用戶 EndIf Return sub 葯少退出vbs dim yaoVBSCall Call ReadMemory(&h00F92ABC,2,yao) If cint(yao)<=3 KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 關機 EndIf Return sub 半徑vbs dim roVBSCall ro=InputBox("請輸入掛機范圍（建議：100~150）:")Return Sub 血少退出vbs dim blood VBSCall Call ReadMemory(&h00E50CC0,2,blood) If cint(blood)<=800 KeyPress 115 1 Delay 100 MoveTo 671 757 LeftClick 1 Delay 10000 MoveTo 621 481 LeftClick 1 Delay 10000 MoveTo 469 413 LeftClick 1 Delay 100 gosub 關機 EndIf Return sub 終止腳本 VBSCall Call MessageBox("謝謝使用！請提出建議並注冊，聯系：[email protected] 再見！")EndScriptReturn sub 啟動時間vbs dim starttimeVBS starttime=timerReturn Sub 注冊用戶打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在滑鼠移動之前，獲取目標點色值並賦值給color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //馬上移動滑鼠到目標點VBSCall color=GetPixelColor(x,y) //獲取滑鼠移動後該點色值並賦值給color IfExpression color<>color0 //同一點取得的兩次色值比較，不同，則執行以下的打怪腳本 LeftClick 1 //左鍵單擊 goSub 損耗度低退出 gosub 技能 Delay 900 //打怪延時 RightClick 1 gosub 加血 Delay 900 //打怪延時 goSub 限時 goSub 撿東西 gosub 技能 goSub 損耗度低退出 Delay 900 //打怪延時 gosub 加血 gosub 葯少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死後回城退出 Delay 500 goSub 限時 goSub 撿東西 EndIf //該點判斷結束 Delay 10 //循環延時///////////////////////////////////////////while dx>0VBSCall Call FindcenterColor(x-100,y+100,x+100,y-100,「0000BD」,dx,dy)@<stdlib.vbs>IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@<stdlib.vbs> LeftClick 1 //左鍵單擊 goSub 損耗度低退出 gosub 技能 Delay 900 //打怪延時 RightClick 1 gosub 加血 Delay 900 //打怪延時 goSub 限時 goSub 撿東西 gosub 技能 goSub 損耗度低退出 Delay 900 //打怪延時 gosub 加血 gosub 葯少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死後回城退出 Delay 500 goSub 限時 goSub 撿東西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判斷VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始設定的軌跡上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在滑鼠移動之前，獲取目標點色值並賦值給color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //馬上移動滑鼠到目標點VBSCall color=GetPixelColor(x,y) //獲取滑鼠移動後該點色值並賦值給color IfExpression color<>color0 //同一點取得的兩次色值比較，不同，則執行以下的打怪腳本 LeftClick 1 //左鍵單擊 goSub 損耗度低退出 gosub 技能 Delay 900 //打怪延時 RightClick 1 gosub 加血 Delay 900 //打怪延時 goSub 限時 goSub 撿東西 gosub 技能 goSub 損耗度低退出 Delay 900 //打怪延時 gosub 加血 gosub 葯少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死後回城退出 Delay 500 goSub 限時 goSub 撿東西 //打怪延時 EndIf //該點判斷結束 Delay 10 //循環延時VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始設定的軌跡上LeftClick 1Delay 1000 return //////////////////////////////////// Sub 注冊用戶打怪///////////////////////////////////可以做成打怪子程序VBSCall color0=GetPixelColor(x,y) //在滑鼠移動之前，獲取目標點色值並賦值給color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //馬上移動滑鼠到目標點VBSCall color=GetPixelColor(x,y) //獲取滑鼠移動後該點色值並賦值給color IfExpression color<>color0 //同一點取得的兩次色值比較，不同，則執行以下的打怪腳本 LeftClick 1 //左鍵單擊 goSub 損耗度低退出 gosub 技能 Delay 900 //打怪延時 RightClick 1 gosub 加血 Delay 900 //打怪延時 goSub 撿東西 gosub 技能 goSub 損耗度低退出 Delay 900 //打怪延時 gosub 加血 gosub 葯少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死後回城退出 Delay 500 goSub 撿東西 EndIf //該點判斷結束 Delay 10 //循環延時///////////////////////////////////////////while dx>0VBSCall Call FindcenterColor(x-100,y+100,x+100,y-100,「0000BD」,dx,dy)@<stdlib.vbs>IfExpression dx>0 VBSCall Call SetCursorPos(dx,dy)@<stdlib.vbs> LeftClick 1 //左鍵單擊 goSub 損耗度低退出 gosub 技能 Delay 900 //打怪延時 RightClick 1 gosub 加血 Delay 900 //打怪延時 goSub 撿東西 gosub 技能 goSub 損耗度低退出 Delay 900 //打怪延時 gosub 加血 gosub 葯少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死後回城退出 Delay 500 goSub 撿東西 endifendfor/////////////////////////////////////////////vbs dx=1 ///////////////////////回到原始位置再次判斷VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始設定的軌跡上LeftClick 1Delay 1000VBSCall color0=GetPixelColor(x,y) //在滑鼠移動之前，獲取目標點色值並賦值給color0VBSCall Call SetCursorPos(x,y)@<stdlib.vbs> //馬上移動滑鼠到目標點VBSCall color=GetPixelColor(x,y) //獲取滑鼠移動後該點色值並賦值給color IfExpression color<>color0 //同一點取得的兩次色值比較，不同，則執行以下的打怪腳本 LeftClick 1 //左鍵單擊 goSub 損耗度低退出 gosub 技能 Delay 900 //打怪延時 RightClick 1 gosub 加血 Delay 900 //打怪延時 goSub 撿東西 gosub 技能 goSub 損耗度低退出 Delay 900 //打怪延時 gosub 加血 gosub 葯少退出 Delay 900 gosub 技能 goSub 血少退出 gosub 死後回城退出 Delay 500 goSub 撿東西 //打怪延時 EndIf //該點判斷結束 Delay 10 //循環延時VBSCall Call SetCursorPos(x,y)@<stdlib.vbs>//回到原始設定的軌跡上LeftClick 1Delay 1000 return[/replyview]
『陸』 關於魔獸世界自動打怪腳本
打怪.採集.釣魚都可以支持，版本支持1.12~5.48 這個應該就是你需要的
『柒』 求一個征服勇士自動打怪腳本
玩游戲一般是作為適當的娛樂.長時間玩本來就不好,傷害自己的身體,建議健康游戲.最好不要花太多精力在這上面...網游太花時間.
『捌』 誰有徵服游戲按鍵精靈的打怪腳本
我有這個G。
不過是收費的。
你要不要撒。？
我加你了。
要就M我。
『玖』 風雲自動打怪的腳本怎麼做
風雲自動打怪腳本終於搞定
VBS dim r
VBS dim t1
t1=now
Rem start
If DateDiff("s",t1,now)>600
KeyPress 66 1
Delay 500
Rem qd
Delay 500
VBSCall FindPic(721,259,992,468,"qd.bmp",0.9,q1,d1)
If (q1>0)
MoveTo q1+10 d1+10
Delay 500
RightClick 1
Delay 100
MoveTo 515 399
Delay 500
LeftClick 1
Delay 500
Goto qd
Else
Delay 400
KeyPress 66 1
EndIf
t1=now
EndIf
IfColor 181 16 51c26b 2
Else
KeyPress 118 1
EndIf
Delay 50
VBSCall FindPic(50,100,800,700,"222.bmp",0.9,m,n)
If (m>0)
If m<500
MoveTo m+50 n+100
Else
MoveTo m+30 n+100
EndIf
Delay 300
VBSCall FindPic(0,10,900,700,"33.bmp",0.8,o,p)
If (o>0)
KeyPress 112 1
Delay 100
MoveTo 0 0
Delay 1000
Rem 111
VBSCall FindPic(0,10,900,700,"3333.bmp",0.8,o,p)
If (o>0)
Delay 500
r=0
Goto 111
Else
Delay 100
r=r+1
If r>2
r=0
Goto 222
EndIf
Goto 111
EndIf
EndIf
Rem 222
KeyPress 32 1
Delay 100
Else
MoveTo 514 318
Delay 100
RightDown 1
Delay 100
Rem ting
VBSCall FindPic(894,98,961,161,"xiaotu.bmp",0.8,x,y)
If x>0 y>0
MoveTo (x-918)*5+518 (y-118)*5+333
Delay 100
VBSCall FindPic(50,100,800,700,"222.bmp",0.8,x1,y1)
If (x1>0)
Delay 100
MoveTo x1 y1
Delay 200
RightUp 1
Delay 1000
Else
Delay 300
Goto ting
EndIf
EndIf
EndIf
Goto start
如何判斷怪物死亡的方法讓我想了2天;終於有一點訣竅
困擾我的地方是:
無法判斷怪物死亡:
在怪物被選中,但沒有死亡的時候,頭頂上有一個菱形標記,這個標記的顏色和背景色也有重合;
無法用找色;
用找圖的話,打怪傷害的數字偶爾會掩蓋這個圖形;所以會出現當這個菱形被遮擋的時候,怪物沒有死亡,但沒有找到圖形,以為怪物死亡了;
我利用找圖,加了個判斷;如果每隔100毫秒,連續3次都找不到這個圖形,那麼確實是怪物死亡了