- siwang4149
|
收藏该用户 - 工作者信用:0
认证情况:
服务:无 - 所在地:-- -- 注册时间:2007-06-30 08:55
- 专业才能:--
[General]
Description=华夏2助理-醉月版
BeginHotkey=121
BeginHotkeyMod=0
RunOnce=0
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
Beep
Delay 10
VBSCall MessageBox(" 欢迎使用由本人制作的华夏辅助程序 "&vbcr&"把主攻技能放在快键1上"&vbcr&"如有问题请联系QQ:414872325(醉月清风)")
Rem 开始
//利用小地图扫描屏幕区域内是否有怪
VBSCall FindColorEx(723,70,748,95,"0000ff",1,1,x,y)
If x>=0 and y>=0
//计算出大地图怪的坐标
VBS xa=400+(x-736)*21.111
VBS ya=300+(y-85)*21.111
MoveTo xa ya
Delay 320
LeftClick 1
Delay 20
//判断鼠标是否点到怪了
IfColor 270 30 000000 0
KeyPress 49 1
Delay 20
Else
Goto 开始
EndIf
Rem 等待
Delay 20
//判断怪物是否死亡
IfColor 270 30 000000 0
Goto 等待
Else
Goto 开始
EndIf
//如果屏幕区域内没怪则找怪
ElseIf x<0 and y<0
Gosub 找怪
EndIf
Goto 开始
EndScript
Sub 找怪
Rem 继续找怪
//检测大范围内是否有怪如果有怪人物角色向怪移动
VBSCall FindColorEx(696,38,784,121,"0000ff",1,1,x1,y1)
If x1>=0 and y1>=0
VBS xb=400+(x1-736)*21.111
VBS yb=300+(y1-85)*21.111
If yb>545
MoveTo xb 545
Delay 100
LeftClick 1
ElseIf yb<547
MoveTo xb yb
Delay 100
LeftClick 1
EndIf
EndIf
//检测怪物是否在屏幕内
VBSCall FindColorEx(723,70,748,95,"0000ff",1,1,x2,y2)
If x2>=0 and y2>=0
Goto 开始
Else
Goto 继续找怪
EndIf
Return
-----------------------------------------------
上面是按键脚本 另外送送一个脱机外挂,超好用简单游的如有把明白可咨询QQ124738383
下载附件:
- 悬赏征求华夏收费版挂机打怪脚本.
- 任务序号:7215
- 当前状态:结束
- 任务金额:100.00元
发任务