求一个新惊天动地免费辅助，自动刷怪脚本也可以~~~~~~~~~
\u60ca\u5929\u52a8\u5730\u600e\u4e48\u6539\u811a\u672c\u8fd9\u4e2a\u5c31\u6709\u70b9\u56f0\u96be\u4e86\uff0c\u8981\u6539\u811a\u6b65\uff0c\u8981\u5148\u77e5\u9053\u670d\u52a1\u7aefIP\uff0c\u672c\u673a\u548c\u670d\u52a1\u7aef\u8054\u673a\uff0c\u7b49\u4e8e\u8bf4\u5c31\u662fGM\u7c7b\u578b\u7684\uff0c\u8fde\u63a5\u540e\u5c31\u53ef\u4ee5\u4efb\u610f\u6539\u811a\u672c\u4e86\uff0c\u3002 \u6216\u8005\u5c31\u662f\u81ea\u5df1\u5f00\u4e2a\u60ca\u5929\u52a8\u5730\u79c1\u670d\uff0c\u6216\u5355\u673a\u7684\uff0c\u81ea\u5df1\u4e00\u4e2a\u4eba\u73a9\uff0c\u81ea\u5df1\u505aGM\uff0c\u627e\u4e2a\u670d\u52a1\u7aef\u81ea\u5df1\u5b89\u88c5\u81ea\u5df1\u73a9\u3002\u3002
\u6700\u65b0\u7248\u7684\u60ca\u5929\u52a8\u5730\u811a\u672c\uff01'\u6e38\u620f\u4e3a800*600\u7a97\u53e3\u6a21\u5f0f
'\u5c4f\u5e55\u989c\u8272\u8d28\u91cf\u4e3a32
'\u8fdb\u5165\u6e38\u620f\u8ba9\u4eba\u7269\u4fef\u89c6\uff0c\u5e76\u4e14\u4f7f\u5f97\u6e38\u620f\u91cc\u7684\u4eba\u7269\u5c3d\u91cf\u6700\u5c0f\u3002
'\u6302\u673a\u524d\u9f20\u6807\u70b9\u4e2d\u4e00\u4e2a\u602a\uff0c\u6309\u4e0b\u70ed\u952e\u6302\u673a\uff01
'1\u653e\u666e\u901a\u653b\u51fb\uff0c2\u653e\u6280\u80fd\u653b\u51fb\uff0c4\u653e\u7ea2\uff0c5\u653e\u84dd\u3002
'\u6ce8\u610f\u4e8b\u9879\uff1a\u6302\u673a\u65f6\u5343\u4e07\u522b\u52a8\u9f20\u6807\uff0c\u5426\u5219\u4f1a\u9020\u6210\u9f20\u6807\u4e71\u52a8\u54e6\u3002\u540c\u65f6\u5fc5\u987b\u5f00\u76fe\u724c\uff01\u4e5f\u5fc5\u987b\u7528350\u7248\u672c\u7684\u6e38\u4fa0
Dim Attack,CTime,X,Y
Dim HWND,X0,Y0,X1,Y1,X2,Y2,PX1,PY1,PX2,PY2
Dim CT,CTPick,AttackS
Dim HPColor,MonColor
Sub Main() '\u811a\u672c\u4e3b\u7a0b\u5e8f\uff0c\u8bf7\u5728\u6b64\u4e0b\u5199\u5165\u4e3b\u7a0b\u5e8f\u4ee3\u7801
HWindow.GEtClientRect X0,Y0,X1,Y1
HPColor = GetPixelColor(X0+93,Y0+18) '\u83b7\u5f97\u4eba\u7269\u7684\u8840\u6761\u989c\u8272
MonColor = GetPixelColor(X0+292,Y0+15)
Do While 1=1
AttackS = 0
SetInPos
Loop
End Sub '\u811a\u672c\u4e3b\u7a0b\u5e8f\u7ed3\u675f
Sub SetInPos()'\u8bbe\u7f6e\u5185\u5708\u653b\u51fb
MoveToH 350+X0,250+Y0 '\u9f20\u6807\u79fb\u52a8
AttackMon '\u8c03\u7528\u653b\u51fb\u51fd\u6570
If AttackS = 1 Then Exit Sub
MoveToH 400+X0,250+Y0
attackMon
If AttackS = 1 Then Exit Sub
MoveToH 450+X0,250+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 450+X0,300+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 450+X0,350+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 400+X0,350+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 350+X0,350+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 350+X0,300+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 310+X0,210+Y0 '\u9f20\u6807\u79fb\u52a8
AttackMon '\u8c03\u7528\u653b\u51fb\u51fd\u6570
If AttackS = 1 Then Exit Sub
MoveToH 370+X0,210+Y0
attackMon
If AttackS = 1 Then Exit Sub
MoveToH 430+X0,210+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 490+X0,210+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 490+X0,270+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 490+X0,330+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 490+X0,390+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 430+X0,390+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 370+X0,390+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 310+X0,390+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 310+X0,330+Y0
AttackMon
If AttackS = 1 Then Exit Sub
MoveToH 310+X0,270+Y0
AttackMon
If AttackS = 0 Then
KeyDownH "LArrow"
Delay 500
KeyUpH "LArrow"
End If
End Sub
Sub AttackMon() '\u653b\u51fb\u602a\u7269\u51fd\u6570
Dim cc,kk,tm
cc=0
AddBlood
MoveRH 1,1
Delay 60
If GetCursorShape() = 851941188 Then
AttackS = 1
LeftClickH 1
tm= GetTime
Do While IsColor(X0+292,Y0+15,MonColor,1) 1 And GetTime -tm <1000
Delay 10
Loop
Do While IsColor(X0+292,Y0+15,MonColor,1) = 1
AddBlood
KeyPressH "2",1 '\u6280\u80fd\u653b\u51fb\uff0c\u7ec3\u6280\u80fd\u7528
Delay 1600
KeyPressH "1",1 '\u666e\u901a\u653b\u51fb
Delay 100
Loop
KeyPressH "",1 '\u6309\u952e\u6267\u884c1\u6b21
Delay 100
End If
If GetTime - CTPick > 2000 Then
KeyPressH "",1
CTPick = GetTime
End If
End Sub
Sub AddBlood()
If IsColor(X0+93,Y0+18,HPColor,1) 1 And GetTime - CTime > 2000 Then
KeyPressH "4",1
Delay 100
CTime = GetTime
End If
End Sub
Sub MoveToH(byval X,byval Y)
Dim X0,Y0,zx,zy,MX,MY,Count
Count = 0
Do While 1=1
Count = Count +1
GetMousePos X0,Y0
zx=X-X0
zy=Y-Y0
If ABS(zx)<15 And ABS(zy)<15 Then Exit Do
Select Case True
Case abs(zx)<=10
zx=zx
Case abs(zx)>10 And abs(zx)<=50
zx=zx/1.30
Case abs(zx)>50 And abs(zx)<=100
zx=zx/1.38
Case abs(zx)>100 And abs(zx)<=150
zx=zx/1.5
Case abs(zx)>150 And abs(zx)<=200
zx=zx/1.56
Case abs(zx)>200 And abs(zx)<=250
zx=zx/1.62
End Select
Select Case True
Case abs(zY)<=10
zY=zY
Case abs(zY)>10 And abs(zY)<=50
zY=zY/1.30
Case abs(zY)>50 And abs(zY)<=100
zY=zY/1.38
Case abs(zY)>100 And abs(zY)<=150
zY=zY/1.5
Case abs(zY)>150 And abs(zY)<=200
zY=zY/1.56
Case abs(zY)>200 And abs(zY)<=250
zY=zY/1.62
End Select
MoveRH zx,zy
'Delay 50
If Count >=4 Then Exit Do
Loop
End Sub
绛旓細鏂版儕澶╁姩鍦娆茬伀BT鎸傛満杈呭姪鏄竴娆句笓涓哄悓鍚嶆父鎴忔儕澶╁姩鍦扮殑娓告垙杈呭姪宸ュ叿锛岃繖娆捐緟鍔╂敮鎸鑷姩寰幆鎵撴佽嚜鍔ㄤ拱鍗栥佽嚜鍔ㄦ寕鏈恒佽嚜鍔ㄦ妧鑳芥敾鍑汇佸叏灞忔敾鍑汇佺灛绉汇佹妧鑳藉彔鍔犵瓑绛夊姛鑳斤紝鍠滄鐜╂儕澶╁姩鍦扮殑鏈嬪弸鍙互鏉ヨ瘯璇曡繖娆捐緟鍔╋紒娓告垙浠嬬粛锛氥婃儕澶╁姩鍦般嬫槸鐢遍煩鍥紼STsoft鍘嗘椂浜屽勾寮鍙戠殑鏈潵MMORPG锛屾槸涓娆惧叿鏈夋祿鍘氭湭鏉ュ...
绛旓細1.鏀寔鍥芥湇,鍙版湇,绉佹湇 2.鎸傛満鍙互鍚庡彴,鍙互鏈灏忓寲 3.鑷姩鎶鑳,琛ヨ嵂,鎷惧彇杩囨护绛 4.鑷姩杩炲嚮缁冩妧鑳 5.鍖呮弧鑷姩鍒嗚В 6.鎬墿杩囨护,鍙嚜琛岄夋嫨瑕佹墦鍝鎬 鏂版儕澶╁姩鍦鏈ㄧ杩炲嚮鎸傛満杈呭姪甯歌闂锛1.寮鍚剼鏈煇浜涙潃杞/闃茬伀澧欓樆姝㈣剼鏈彃浠惰繍琛,鍑虹幇鐩稿叧鎻愮ず鏃跺姟蹇呴夊厑璁 2.濡傛灉鏄痸ista鍜寃in7绯荤粺锛屽惎鍔ㄦ父鎴...
绛旓細娆茬伀鍚э紝涓嶄細琚皝鐨勶紝鎸傛寕鏈猴紝杩樻槸涓嶉敊鐨勶紝60鍧楅挶涓涓湀
绛旓細鎸傛満鐨勮瘽鐢ㄦ鐏紝璇曠敤1澶銆傚彲浠ュ紑楂樼鎶锛屼絾鏄皝鍙峰嚑鐜囨瀬澶э紝鎸傛満涓嶄細銆
绛旓細濂芥寕鏃鍏嶈垂锛屽厤璐规棤濂芥寕 鏀惰垂鐨勮瘽鎺ㄨ崘鎯婂ぉ鐜嬶紝锛岋紝寰堝ソ鐢ㄧ殑
绛旓細2015-08-17 鏂版儕澶╁姩鍦娆茬伀vlp鐧诲綍鍣ㄦ庝箞瀹夎 2017-01-27 鏂版儕澶╁姩鍦 娴寸伀杈呭姪w8鍙互寮鍚 2013-04-24 鎴戠帺鏂版儕澶╁姩鍦扮殑娓告垙,鏅氫笂鐢ㄦ鐏寕鏈,鐒跺悗璁剧疆鎺夌嚎鑷姩鍏虫満,... 1 2013-10-14 鏂版儕澶╁姩鍦 娆茬伀鏈堝崱鎺ㄥ箍鐮丵KPXX5ZEB2 鏈夌敤鐨勬嬁鍘,... 3 2016-10-08 鏂版儕澶╁姩鍦 娆茬伀鎸傜幇鍦ㄨ繕鍙互绌垮鍚...
绛旓細鏈枃灏嗕负鎮ㄨ缁嗕粙缁嶃鏂版儕澶╁姩鍦銆嬪壇鏈杈呭姪鍔熻兘锛屽府鍔╂偍鎻愬崌娓告垙浣撻獙銆傞鍏堬紝SP楠板瓙鍦ㄥ壇鏈竻闄ゆ椂鏄叧閿紝閫氳繃鐐瑰嚮鎴樻枟褰㈡佷笅鐨勬幏楠板瓙鎸夐挳锛岃兘澶熼殢鏈鸿幏寰0鑷30,000鐨凷P锛屾湁鍔╀簬鎮ㄩ噸鏂拌繘鍏ュ壇鏈傚湪闈炴甯哥粨鏉熸父鎴忓悗锛屽彧瑕佸湪鍗佸垎閽熷唴閲嶆柊鐧诲綍瀵瑰簲棰戦亾锛屽嵆鍙户缁壇鏈紝浣嗛渶纭鏄惁娑堣楀壇鏈繘鍏ョ墿鍝併傚壇鏈俊鎭...
绛旓細鏂版儕澶╁姩鍦杈呭姪娆茬伀锛屽湪缃戜笂涓婃悳锛屽彲浠ユ壘鍒帮紝浣嗘槸鏈夊緢澶氶兘鏄亣缃戠珯锛岀湡姝ｇ殑鍙仛缁胯壊杈呭姪锛杩欎釜鎸傛柊瀹㈡埛鍏嶈垂浣跨敤涓澶╋紝鏃犳瘨锛屽姛鑳藉緢寮哄ぇ锛屽彧瑕佷笉寮鐨勫お杩囩伀锛屽氨涓嶄細灏佸彿涓鑸繖鏍风殑绗笁鏂硅蒋浠讹紝鍏跺埗浣滃師鐞嗗氨鏄璋冪敤鐢ㄦ埛淇℃伅锛屼篃灏辨槸璇达紝杈呭姪鏈韩灏辨槸鏈澶х殑鏈ㄩ┈銆傚缓璁笉瑕佺敤杈呭姪棣栧厛锛屾寕鏄彲浠ョ敤鐨勶紝浣...
绛旓細鍒氮璐规椂闂存壘杈呭姪浜嗭紝鐢ㄤ簡灏变細琚皝鐨勶紝鍨冨溇浠ｇ悊锛侀兘娌″嚑涓汉浜嗐
绛旓細鏈鑷姩鎸傛満鐨 涓撲笟鑴辨満鎸ｉ挶鐢ㄧ殑 浣犲幓1绾垮啺灏 鍩烘湰24灏忔椂閮芥湁浜哄枈 浣犳壘涓湁缇ょ殑 鍔犵兢闂棶淇¤獕鍦ㄤ拱 涓鑸兘鏄竴涓湀80鍏冨乏鍙 甯屾湜閲囩撼
