「Flyff」老飞飞V80版本按键精灵脚本,玩魅力V80做的,其他没测
老飞飞吧
全部回复
仅看楼主
level 1
灬Maxwell 楼主
1、游戏分辨率1400*900窗口模式,小地图放到左上角,放大最大化,只显示怪物。
2、设置挂机的ID或者名字,双引号一定保留,设置HP,MP,FP,要打怪物属性,搜索怪的范围。
3、游戏可以后台,不可以最小化,按Pagdown隐藏窗口,pagup显示窗口
4、脚本开启后鼠标不能操作游戏窗口,键盘可以,所以要操作先停下脚本
5、F10启动脚本,F11关闭脚本
7、F1放技能,F5=HP,F6=MP,F7=FP
要下按键小精灵进群:384296602
源代码如下:
Set dm = createobject("dm.dmsoft")
UserVar searchhwnd="风の牙" "角色ID或者名字,记得引号保留"
HwndEx = Plugin.Window.Search(searchhwnd)
dim MyArray
MyArray = Split(HwndEx, "|")
Hwnd = Clng(MyArray(0))//句柄
Call Plugin.Window.Active(Hwnd)
blind = Lib.大漠插件后台设置.BindWindow(Hwnd, "dx", "dx", "dx", 0)//大漠插件绑定窗口
Delay 2000
///////////////////////////////////////////////////////////////////////////////////////////////
base = &H0084e098
zt = &H0016C440
py1 = &H848//血偏移
py2 = &H84C//蓝偏移
py3 = &H850 //FP偏移
basevalue = Plugin.Memory.Read32Bit(Hwnd, base)
UserVar hp1=1200 "当HP<多少时,使用红药"
UserVar mp1=150 "当MP<多少时,使用蓝药"
UserVar fp1=120 "当FP<多少时,使用FP"
UserVar t2=60 "卡主多久后重新选怪,60=30秒,建议60"
UserVar monster=DropList{"风":1|"水":2|"土":3|"火":4|"雷":5}=0 "打怪物属性"
If monster = 1 Then
S = "73cea8"
ElseIf monster = 2 Then
S = "c7c5e9"
ElseIf monster = 3 Then
S = "b5b39f"
ElseIf monster = 4 Then
S = "f9b5af"
ElseIf monster = 5 Then
S = "f0e992"
End If
Delay 100
UserVar fanwei=DropList{"小50":1|"中70":2|"大90":3}=0 "寻怪范围"
If fanwei = 1 Then
pox1 = 69
poy1 = 86
pox2 = 119
poy2 = 136
ElseIf fanwei = 2 Then
pox1 = 59
poy1 = 76
pox2 = 129
poy2 = 146
ElseIf fanwei = 3 Then
pox1 = 49
poy1 = 66
pox2 = 139
poy2 = 156
End If
///////////////////////////////////////////////////////////////////////////////////////////////
Delay 100
While 1 > 0
///////////////////////////////////////////////////////////////////////////////////////////////
M = GetLastKey()
If M = 33 Then
Call Plugin.Window.Move(Hwnd, 0, 0)
ElseIf M = 34 Then
Call Plugin.Window.Move(Hwnd, 2000, 2000)
End If
Delay 50
hp = Plugin.Memory.Read32Bit(Hwnd, basevalue + py1)
If hp = 0 Then
MessageBox "死了" & searchhwnd
Delay 100
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 100
EndScript
End If
//////////////////////////////////////////////////////////////////////////////////////////////
pos = dm.FindColorE(69, 86, 119, 136, "FFFAA5-000000|FFFC9E-000000|FFCB55-000000|FF8A03-000000|FF6601-000000|FFFAA4-000000|FFFC9F-000000|", 1.0, 4)//在小地图中找到怪并返回位置信息
pos = split(pos, "|")
x = int(pos(0))
y = int(pos(1))
m1 = dm.MoveTo(x, y)
Delay 50
c1 = dm.Leftclick()//鼠标点击小地图的怪
Delay 100
zhuangtai = Plugin.Memory.Read32Bit(Hwnd, zt)//选定状态
yanshe = dm.GetColor(620, 5)//查看顶端颜色是不是五行属性
Delay 50
cishu = 0//计数器开始
//////////////////////////////////////////////////////////////////////////////////////////////
Do While zhuangtai = 88 and yanshe = S
If cishu = t2 Then //当选中了目标但是攻击不到时候循环到25次按ESC
esc1=dm.KeyPress(27)
Delay 100
W1 = dm.KeyDown(87)
Delay 1500
space1 = dm.KeyPress(32)
Delay 1500
space2 = dm.KeyPress(32)
Delay 1500
W2=dm.Keyup(87)
Delay 50
End If
Delay 50
//////////////////////////////////////////////////////////////////////////////////////////////
zhangai1 = dm.GetColor(651, 572)//因为障碍物阻挡无法攻击(3,25)
zhangai2 = dm.GetColor(651, 647)//因为障碍物阻挡无法攻击
bieren1 = dm.GetColor(616, 572)//别人的怪616,572
bieren2 = dm.GetColor(614, 647)//别人的怪614,647
If zhangai1 = "ff0000" and zhangai2 = "ff0000" Then
Delay 100
D1=dm.KeyPress(68)
Delay 100
D2=dm.KeyPress(68)
Delay 100
D3=dm.KeyPress(68)
Delay 100
D4=dm.KeyPress(68)
Delay 100
D5=dm.KeyPress(68)
Delay 100
D6=dm.KeyPress(68)
Delay 100
W1 = dm.KeyDown(87)
Delay 1500
W1=dm.Keyup(87)
Delay 100
F1 = dm.KeyPress(112)
Delay 100
ElseIf bieren1 = "ff0000" and bieren2 = "ff0000" Then
Esc = dm.KeyPress(27)
Delay 1500
Else
F2=dm.KeyPress(112)//没有就攻击
Delay 50
End If
Delay 50
//////////////////////////////////////////////////////////////////////////////////////////////
hp = Plugin.Memory.Read32Bit(Hwnd, basevalue + py1)
hp = int(hp)
If hp<hp1 and hp >0 Then // HP小于750按F5加血,750可以自己修改
F5 = dm.KeyPress(116)
ElseIf hp = 0 Then
MessageBox "死了" & searchhwnd
Delay 100
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 100
EndScript
End If
Delay 50
mp = Plugin.Memory.Read32Bit(Hwnd, basevalue + py2)
mp = int(mp)
If mp<mp1 Then
F6=dm.KeyPress(117)//F6加蓝
End If
Delay 50
fp = Plugin.Memory.Read32Bit(Hwnd, basevalue + py3)
fp = int(fp)
If fp < fp1 Then
F7 = dm.KeyPress(118)
End If
Delay 50
//////////////////////////////////////////////////////////////////////////////////////////////
M = GetLastKey()
If M = 33 Then
Call Plugin.Window.Move(Hwnd, 0, 0)
ElseIf M = 34 Then
Call Plugin.Window.Move(Hwnd, 2000, 2000)
End If
Delay 50
zhuangtai = Plugin.Memory.Read32Bit(Hwnd, zt)
yanshe = dm.GetColor(620,5)
Delay 100
//////////////////////////////////////////////////////////////////////////////////////////////
Loop
Wend
Sub OnScriptExit()
Call Plugin.Window.Move(Hwnd, 0, 0)
End Sub
2016年05月13日 12点05分 1
level 11
66
2016年05月13日 13点05分 2
level 11
66666[喷]
2016年05月13日 22点05分 4
level 1
。。。
2017年03月30日 09点03分 5
level 1
楼主,想问一下我在V17混沌区试了一下,首先报错说大漠插件后台设置那个地方错误,然后我用百度上的一句dm_ret = dm.BindWindow(Hwnd, "dx", "dx", "dx", 0)//大漠插件绑定窗口,把你原来那个替换掉了,结果可以定位到游戏窗口但是过一会什么都没发生然后就显示“xxx死了”,请教一下是什么问题,非常感谢!!!
2017年08月21日 10点08分 6
level 1
灬Maxwell 楼主
我也不知道,百度吧,这个脚本思路很清楚了,你会一点就学学,不会我也懒得解释了,我自己都快忘记了
2017年08月25日 15点08分 7
好的,我自己学一学,谢谢了
2017年08月30日 10点08分
好的,我自己学一学,谢谢了
2017年08月30日 10点08分
@892244470 你的怎么用的额,半自动的脚本有没有
2017年12月13日 13点12分
level 8
楼主,你的半自动挂在哪不能用了,能不能再发一个啊 】
2017年12月13日 13点12分 8
level 1

2019年05月08日 18点05分 9
level 3
请问如何修改脚本把战士的风轮和狂气单独释放???
2021年11月22日 00点11分 10
1