Question

新飞飞按键精灵脚本

谁能给我一个新飞飞刷怪的脚本啊 新飞飞任务太BT了 一个主线我做了2个多月还没做完 物品掉落率低的吓人啊

Answer 1

　　dim hw
　　Plugin hw=Window.MousePoint()
　　Plugin Window.Active(hw)
　　Plugin Window.Move(hw,0,0)
　　Plugin fontID1=kkSoft.mCreateFontData("宋体",9,12,12,6,400)
　　If fontID1=-1
　　MessageBox "创建字库失败"
　　EndIf
　　While true
　　//-------------------------屏幕清理--------------------------
　　Delay 3000
　　MoveTo 182,97
　　Delay 500
　　LeftClick 1
　　Delay 100
　　MoveTo 15,466
　　Delay 500
　　LeftClick 1
　　Delay 500
　　MoveTo 0,0
　　Delay 100
　　//----------------------去除环境影响-----------
　　KeyDown 27,1
　　Delay 100
　　KeyUp 27,1
　　Delay 100
　　KeyDown 27,1
　　Delay 100
　　KeyUp 27,1
　　Delay 100
　　KeyDown 33,1
　　Delay 2000
　　KeyUp 33,1
　　Delay 100
　　//---------------------加状态-----------------------
　　Plugin BGKM5.KeyClick(hw,53)
　　Delay 3000
　　Plugin BGKM5.KeyClick(hw,58)
　　Delay 3000
　　//--------------------时间判断赋值---------------------
　　t1=now
　　t2=now
　　Dim n=0
　　mystring=""
　　//---------------到达升级场所--------------------------
　　Rem 升级之路
　　Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
　　//MessageBox mystring
　　Plugin BGKM5.KeyClick(hw,49)
　　Delay 100
　　Plugin BGKM5.KeyClick(hw,50)
　　Delay 1000
　　While mystring=""
　　Delay 1000
　　Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
　　Delay 5000
　　Plugin BGKM5.KeyClick(hw,49)
　　Delay 100
　　EndWhile
　　//MessageBox mystring
　　//--------------------开始打怪-------------------------
　　While true
　　Rem 打怪
　　If DateDiff("n",t1,now)>15
　　Plugin BGKM5.KeyClick(hw,53)
　　Delay 3000
　　//Plugin BGKM5.KeyClick(hw,48)
　　//Delay 800
　　t1=now
　　EndIf
　　//----------------判断时间，重新登陆，以免被罚-------------------
　　If DateDiff("n",t2,now)>20
　　Goto Relogin
　　EndIf
　　Delay 100
　　//走路方向的判断
　　If n<6
　　Plugin BGKM5.KeyClick(hw,9)
　　Delay 100
　　//Plugin BGKM5.KeyClick(hw,50)
　　//Delay 3000
　　n=n+1
　　Else
　　n=0
　　KeyDown 37,1
　　Delay 800
　　KeyUp 37,1
　　Plugin BGKM5.KeyClick(hw,49)
　　Delay 100
　　//Plugin BGKM5.KeyClick(hw,50)
　　//Delay 3000
　　EndIf
　　IfColor 540,65,5b6ddc,1
　　Delay 10
　　Goto 打怪
　　EndIf
　　//---------------------判断怪物是否有血需要继续攻击-------------
　　mystring=""
　　Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
　　While mystring<>""
　　Delay 100
　　Plugin BGKM5.KeyClick(hw,50)
　　Delay 2000
　　//KeyPress 32,1
　　//Delay 500
　　//------------加血
　　IfColor 175,83,32240f,2
　　Plugin BGKM5.Keyclick(hw,54)
　　Delay 1000
　　EndIf
　　//-------判断是否死亡
　　IfColor 144,83,32230f,2
　　Goto 判断死亡
　　EndIf
　　For 2
　　Plugin mystring=kkSoft.mOCRText(495,33,565,57,fontID1,"AAD7FD",0.5,"")
　　Delay 10
　　If mystring<>""
　　Goto 继续打怪
　　EndIf
　　EndFor
　　Rem 继续打怪
　　//MessageBox mystring
　　EndWhile
　　// MessageBox mystring
　　//-------------------------加血--------------------
　　IfColor 175,83,32240f,2
　　Plugin BGKM5.Keyclick(hw,54)
　　Delay 100
　　EndIf
　　//------------------------判断是否死亡---------------------
　　Rem 判断死亡
　　IfColor 144,83,32230f,2
　　Plugin BGKM5.Keyclick(hw,54)
　　Delay 4000
　　//--------------------试加血后再次判断
　　IfColor 144,83,32230f,2
　　MoveTo 515,390
　　Delay 1000
　　LeftClick 1
　　Delay 100
　　LeftClick 1
　　Delay 60000
　　MoveTo 0,0
　　Delay 100
　　//-----------------复活后加血
　　Plugin BGKM5.KeyClick(hw,54)
　　Delay 100
　　Plugin BGKM5.KeyClick(hw,54)
　　Delay 8000
　　//---------------判断药瓶是否存在，没有停机挂机--------------
　　IfColor 146,83,32230f,2
　　Delay 1000
　　EndScript
　　EndIf
　　Goto 升级之路
　　EndIf
　　EndIf
　　//---------------------------加蓝---------------------
　　IfColor 143,98,32240f,2
　　Plugin BGKM5.KeyClick(hw,55)
　　Delay 10
　　EndIf
　　//-------------------------加宠物血------------------
　　IfColor 125,112,32240f,2
　　Plugin BGKM5.KeyClick(hw,57)
　　Delay 0
　　EndIf
　　Delay 600
　　//-----------------------------捡东西----------------------
　　Plugin BGKM5.KeyClick(hw,56)
　　Delay 100
　　EndWhile
　　//---------------------------重新登陆----------------------
　　Rem Relogin
　　Delay 15000
　　MoveToS 730,750
　　Delay 300
　　LeftClick 1
　　Delay 300
　　MoveToS 725,625
　　Delay 300
　　LeftClick 1
　　Delay 15000
　　Plugin BGKM5.KeyClick(hw,xx)
　　Delay 300
　　Plugin BGKM5.KeyClick(hw,xx)
　　Delay 300
　　Plugin BGKM5.KeyClick(hw,xx)
　　Delay 300
　　Plugin BGKM5.KeyClick(hw,xx)
　　Delay 300
　　Plugin BGKM5.KeyClick(hw,xx)
　　Delay 300
　　Plugin BGKM5.KeyClick(hw,xx)
　　Delay 300
　　Plugin BGKM5.KeyClick(hw,xx)
　　Delay 2000
　　Plugin BGKM5.KeyClick(hw,13)
　　Delay 100
　　Delay 10000
　　Plugin BGKM5.KeyClick(hw,13)
　　Delay 8000
　　EndWhile

Answer 2

bug了，从开一下

Answer 3

开挂什么的我没干过。但是你去拉个大号来，一起刷，这样会非常快吧·我们都是这样拖小号的

Answer 4

新飞飞垃圾啊

Answer 5

不要玩了，还念几年前的老飞飞