紫菀论坛 - Powered by Discuz! Board

标题: 加血辅助脚本代码,仅供学习交流 [打印本页]

作者: wom087 时间: 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 编辑 ]

图片附件: qqffo.jpg (2008-6-27 18:40, 1.04 KB) / 下载次数 92
http://bbs.szyin.com/attachment.php?aid=8723&k=fd3999c5a9e502da6e3d62d9767ccd52&t=1716153375&sid=QdVUOU

作者: lin886 时间: 2008-6-29 08:16

不是电脑毕业的看不懂

作者: 唉呀 时间: 2008-7-13 03:34

老实说，根据实际情况，根本用不了黄血和红血两种情况。
谁都希望在血掉到1瓶红刚好能补满的情时就马上喝红，而在这时，血槽应还是绿的。所以只需识别绿色这种情况应该就可以了。
用 “IfColor x,y,color,1”来判断加血条件好像存在一个问题，当（x,y）还是绿色的时侯，只要角色在掉血，就会喝红，即使血还没掉到设定的位置。角色没被打，（x,y）是绿色就不会喝红。不知的我的按键版本有问题还是TX做了手脚。我肯定SZ不是简单的用“IFCOLOR”来作判断。对于这点，不知老大能否出来答复一声，或是给个提示？

作者: wom087 时间: 2008-7-15 02:50

原帖由唉呀于 2008-7-13 03:34 发表
老实说，根据实际情况，根本用不了黄血和红血两种情况。
谁都希望在血掉到1瓶红刚好能补满的情时就马上喝红，而在这时，血槽应还是绿的。所以只需识别绿色这种情况应该就可以了。
用 “IfColor x,y,color,1”来判断 ...

黄血和红血这两种情况时不排除吃瞬间补给品.我只是懒没有写出来,用“IfColor x,y,color,1”来判断,这个非常的准确,1是表示不等于,当屏幕上X,Y点的色不等于
你所设定的色才会执行下面的程序,也就是说没怪没有打到X,Y点的色变都不会吃药

作者: oncityce 时间: 2008-11-7 11:57

谢谢你啊，请问你的是什么分辨率用的？

作者: suiemail 时间: 2009-1-8 17:10

看不懂哎

作者: qq65331026 时间: 2009-1-14 13:47

菜鸟来学习``` 还是看不懂

作者: larrylongbin 时间: 2009-3-15 11:41

不是很明白这个。

作者: cj19890504 时间: 2009-4-8 18:26

学习到了一直想弄可就是搞不清楚

作者: session 时间: 2009-4-9 09:41

我感觉他可能是模拟鼠标指到那个血条上，然后读取了分子和分母．这样总血量和现血量就出来．

不知道，这个按键是否可以读出来．（当鼠标经过时出现的信息）

作者: session 时间: 2009-4-9 10:16

刚刚在兄弟论坛上看到的．

建议你可以看看．他主要是用图形识别进度信息，比如血条，还有经验之类的，适用出图形识别．
http://bbs.vrbrothers.com/viewthread.php?tid=82638

作者: pandaguo 时间: 2009-4-10 12:31

咨询一下LZ，
你写的 :
//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
应该是区域找图打怪的那个脚本吧？我试着用了一下这个功能，但是总是失败，向请教LZ几个问题啊，谢谢啊。
1.你的 11.bmp，和qqffo.bmp这2个图片是存在哪里的？是存在按键精灵\script 这个文件夹里面的吗？
2.图片是不是要经过什么处理？我到兄弟论坛里看了一下，好像说图片边框要处理一下。
3.区域找图打怪的原理是什么？是找与这个图片相似的图片还是找这个图片相似的边框？

我是一个按键菜鸟啊，谢谢LZ可以在百忙之中帮我一下啊。

作者: as4881699 时间: 2009-4-12 10:17

没看懂啊

作者: jag1009 时间: 2009-4-22 07:33

只会用不会编

作者: konglei999 时间: 2009-5-20 15:37

用CE查基址,内存加红蓝比较好把?

作者: 風雲（E舞） 时间: 2009-6-18 15:48

还是不太明白

作者: 風雲（E舞） 时间: 2009-7-3 02:02

看不懂啊

作者: 422175419 时间: 2009-9-24 16:46

看不懂

作者: ???? 时间: 2009-10-13 20:15

提示: 作者被禁止或删除内容自动屏蔽

作者: wlchuan1001 时间: 2009-11-4 12:01

真厉害可惜偶看不懂

作者: lov88888 时间: 2009-11-8 01:59

啥。。。看了晕晕的？！！好像很多。用CE不就可以了。

作者: tq057cc 时间: 2009-11-10 08:34

学习了。。。。。。。。

欢迎光临紫菀论坛 (http://bbs.szyin.com/)