你的位置：
按照官网彩虹岛教程弄的脚本用不了啊求高手帮忙或者给个能用的（外服伤不起）
22:26:25 |
来源: 按键精灵资源站
下边是我照官网弄的代码
我玩的是GP彩虹岛 美服的 求高手指点 或者给个能用的脚本我 =3=
SetSimMode 2
Hwnd=Plugin.Window.GetKeyFocusWnd ()
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,&|&)
Ux = CLng(MyArray(0))
Uy = CLng(MyArray(1))
Rem 开始右跑
KeyPress &Right&, 1
KeyDown &Right&, 1
Rem 继续右跑
Call 自动吃药()
Call 出界判定()
Call 攻击子程序()
If i=1 Then
& && & Goto 开始右跑
Goto 继续右跑
Rem 开始左跑
KeyPress &Left&, 1
KeyDown &Left&, 1
Rem 继续左跑
Call 自动吃药()
Call 出界判定()
Call 攻击子程序()
If i=1 Then
& && & Goto 开始左跑
Goto 继续左跑
Sub 出界判定()
FindColor 614+Ux,37+Uy,789+Ux,48+Uy,&01FD56&,pointX,pointY
If pointX & 786 + Ux Then
& &KeyUp &Left&, 1
& &Delay 200
& &Goto 开始左跑
If pointX & 0 AND pointX & 627 + Ux Then
& &KeyUp &Right&, 1
& &Delay 200
& &Goto 开始右跑
Sub 攻击子程序()
Rem 攻击开始
Call 自动吃药()
FindPic Ux,Uy,Ux+800,Uy+600,&Attachment:\1.bmp&,1,zijiX,zijiY
If zijiX & 0 And zijiY & 0 Then
FindPic zijiX-370,zijiY-100,zijiX+230,zijiY+100,&Attachment:\2.bmp&,1,guaiX,guaiY
If guaiX & 0 And guaiY & 0 Then
KeyUp &Left&, 1
KeyUp &Right&, 1
If guaiX & zijiX - 70 Then
& && &&&KeyDown &Right&, 1
& && &&&KeyDown &Left&, 1
KeyPress &F&, 1
KeyPress &D&, 1
KeyPress &S&, 1
KeyPress &A&, 1
KeyPress &V&, 1
KeyPress &C&, 1
KeyPress &X&, 1
KeyPress &Z&, 1
KeyUp &Right&, 1
KeyUp &Left&, 1
Goto 攻击开始
Goto 攻击结束
Goto 攻击结束
Rem 攻击结束
Sub 自动吃药()
IfColor 590+Ux,176+Uy,&8ECAFF&,1 Then
KeyPress &1&, 1
IfColor 560+Ux,176+Uy,&8ECAFF&,1 Then
KeyPress &2&, 1
IfColor 516+Ux,176+Uy,&8ECAFF&,1 Then
KeyPress &3&, 1
IfColor 560+Ux,190+Uy,&EDBD8F&,1 Then
KeyPress &4&, 1
IfColor 500+Ux,190+Uy,&EDBD8F&,1 Then
KeyPress &5&, 1