- UID
- 109377
- 帖子
- 42
- 积分
- 46
- 紫菀
- 0 朵
- 花瓣
- 291 片
- 花蕊
- 0 朵
- 野草莓
- 3 个
- 蒲公英
- 116 朵
- 社区等级
- 5 级
- 在线时间
- 17 小时
- 注册时间
- 2011-8-10
- 登录状态
-
当前离线
|
楼主
发表于 2011-11-5 18:29
| 只看该作者
谁能帮我改下这个脚本啊 谢谢了
//通用后台加血加蓝脚本
//运行前请先设定加血加蓝坐标;运行时应保证人物满血满蓝;运行后不能移动游戏窗口位置。
//加血加蓝点坐标获取方法:
//1、用抓抓分别获取加血加蓝点的屏幕坐标
//2、用抓抓获取游戏当前客户区左上角坐标
//3、加血加蓝点坐标=屏幕坐标-客户区左上角坐标
IfColor 451,192,"0",0 Then
Else
End If
UserVar x1=427 "加蓝点X坐标"
UserVar y1=202 "加蓝点Y坐标"
//---------------------------------------------------------- [脚本主程序]
//-----------------------------------------------------------------------
Hwnd = Plugin.Window.Foreground()
//得到窗口句柄的客户区大小
Rect = Plugin.Window.GetClientRect(Hwnd)
s=split(Rect,"|")
qx=s(0)
qy=s(1)
//得到加血点的色值
GetColor=GetPixelColor(x+qx,y+qy)
//得到加蓝点的色值
GetColor1=GetPixelColor(x1+qx,y1+qy)
////////////////////
Rem 开始
//加血
IfColor x+qx,y+qy,GetColor,2 Then
Else
KeyPress "F7", 1
Call Plugin.Bkgnd.KeyPress(Hwnd, 54)
End If
Delay 1000
//加蓝
IfColor x1+qx,y1+qy,GetColor1,2 Then
Else
KeyPress "F8", 1
Call Plugin.Bkgnd.KeyPress(Hwnd, 55)
End If
Goto 开始 |
|