- UID
- 24402
- 帖子
- 74
- 积分
- 60
- 紫菀
- 0 朵
- 花瓣
- 59 片
- 花蕊
- 14 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 7 级
- 在线时间
- 86 小时
- 注册时间
- 2008-3-9
- 蜗居何地
- 广东东莞
- 登录状态
-
当前离线
|
楼主
发表于 2008-6-27 18:40
| 只看该作者
加血辅助脚本代码,仅供学习交流
使用过紫菀的加血加蓝辅助后,有感而发地自己动手做了一个简单的加血脚本,现在发上来让大家完善,
(注:本人是学习紫菀的加血辅助的思路来做的,没有想过侵犯版权的意思,如果版主觉得我这样做不对,
请把贴子删除)
由于时间关系,只做了加血部份,而加蓝可以举一反三,加血部份是最难的,因为血条的色会随血量而改
变,深思了一晚才想出这办法来
脚本代码如下
//=========================================================
#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上,您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
VBS dim hong,Var1,color,color1,color2,color3,t
//start这句请放在一行上,不要分开三行,否则运行出错
UserVar hong=DropList{5%:5|10%:10|15%:15|20%:20|25%:25|30%:30|35%:35|40%:40|45%:45|50%:50|55%:55|60%:60|65%:65|70%:70|75%:75|80%:80|85%:85|90%:90|95%:95}=70 <%自动喝红
//end这句请放在一行上,不要分开三行,否则运行出错
UserVar Var1=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121}=112 补血技能
UserVar t=5000 技能冷却时间(毫秒)
UserVar Var2=DropList{精确:1.0|中等(推荐):0.9|一般:0.7|较差:0.6|差:0.5} 图片配比精确值
//=================================================================================
Delay 500
//VBSCall FindPic(0,0,1279,767,"Attachment:\11.bmp",Var2,intX,intY)
VBSCall FindPic(0,0,1279,767,"Attachment:\qqffo.bmp",Var2,intX,intY)
If intX>=0 and intY>=0
Goto 初始程序
Else
MessageBox 找不到游戏窗口!请更改图片配比精确值再试!!
EndScript
EndIf
//=================================================================================
Rem 初始程序
path="c:/ffo.ini"
Plugin isBeing=File.ExistFile(path)
If isBeing=0
Gosub 配置程序
Else
Goto 读取配置
EndIf
//===================================================================================
Sub 配置程序
MessageBox 第一次启动请按照提示操作,否则100%会出错!
Delay 1000
MessageBox 现在请把血条加满,则血条为绿血状态,然后再按“确定”!
Delay 1000
//C1=GetPixelColor(intX-663,intY-515)
C1=GetPixelColor(intX+82,intY+75)
Delay 1000
Plugin File.WriteINI("COLOR","color1",C1,"C:\ffo.ini")
MessageBox 现在请到野外,把血条弄为黄色状态,然后再按“确定”!
Delay 1000
//C2=GetPixelColor(intX-663,intY-515)
C2=GetPixelColor(intX+82,intY+75)
Delay 1000
Plugin File.WriteINI("COLOR","color2",C2,"C:\ffo.ini")
MessageBox 最后请到野外,把血条弄为红色状态,然后再按“确定”!
Delay 1000
//C3=GetPixelColor(intX-663,intY-515)
C3=GetPixelColor(intX+82,intY+75)
Delay 1000
Plugin File.WriteINI("COLOR","color3",C3,"C:\ffo.ini")
MessageBox 初始化完成!!如果以后在使用中有任何问题,请把C盘中的FFO.ini文件删除则可重新配置
Goto 读取配置
Return 配置程序
//==================================================================================
Rem 读取配置
Plugin color1=File.ReadINI("COLOR","color1","C:/ffo.ini")
Plugin color2=File.ReadINI("COLOR","color2","C:/ffo.ini")
Plugin color3=File.ReadINI("COLOR","color3","C:/ffo.ini")
Delay 500
SayString 程序已启动..当前加血比率为
SayString hong
SayString %
KeyPress 13,1
Goto 程序启动
//==================================================================================
Rem 程序启动
If hong>=70
Gosub 血条绿色
ElseIf hong>=40
Gosub 血条黄色
ElseIf hong>=5
Gosub 血条红色
EndIf
//==================================================================================
Sub 喝红
IfColor hong/100*87-intX+81,intY+75,color,1
//IfColor intX+hong/100*61-664 intY-515 color 1
KeyPress Var1,1
Delay t
Goto 程序启动
Else
Delay 1000
Goto 程序启动
EndIf
Return 喝红
//==================================================================================
Sub 血条绿色
color=color1
Gosub 喝红
Return 血条绿色
//==================================================================================
Sub 血条黄色
//i=GetPixelColor(intX-663,intY-515)
i=GetPixelColor(intX+82,intY+75)
If i=color1
Goto 程序启动
EndIf
color=color2
Gosub 喝红
Return 血条黄色
//==================================================================================
Sub 血条红色
//i=GetPixelColor(intX-663,intY-515)
i=GetPixelColor(intX+82,intY+75)
If i=color1
Goto 程序启动
ElseIf i=color2
Goto 程序启动
EndIf
color=color3
Gosub 喝红
Return 血条红色
//===================================================================================
qqffo.bmp图片为
只要将后缀改为bmp放入脚本附件中就可以.
用过紫菀辅助都可以在辅助目录里的plugin目录下找到该图片
最后一次声名,脚本只是交流学习的,如果有侵犯版权之处,请版主删除
[ 本帖最后由 wom087 于 2008-6-27 18:45 编辑 ] |
|