灬Maxwell 灬Maxwell
只为阳光宅男。。。
关注数: 32 粉丝数: 3 发帖数: 366 关注贴吧数: 13
「Flyff」老飞飞V80版本按键精灵脚本,玩魅力V80做的,其他没测 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
1 下一页