按键精灵打怪代码

1.程序最多可以运行多少个节点？即增长后的节点数的最大值
2.只用输出一个度分布的概率图就行了，其他的都不要输出，节约时间，图不用柱状图，用点表示就行，横纵坐标都要取对数
3.原则上，取了对数的图形的点都应该在一条直线上，对这些点做直线拟合，算出直线的斜率
4.随机删除总节点数N的百分之a的节点，a取整数1

请尽快完成以上内容，周五之前发给我，不清楚的地方电话联系我。
记住程序一定要优化！程序里面添加一个时间函数，看看每次程序运行的时间b



Rem i7

//如何区域内文字为则执行///////////////////

dm_ret = dm.FindStrFast(270,33,357,63,"魔灵秃鹫|魔灵蜘蛛|嗜血金雕","fffff7-000000",0.9,intX6,intY6)

If intX6 >= 0 and intY6 >= 0 Then

Call 打怪()

Else

Goto i7

End If

Next

Sub 打怪()

//打怪程序

End Sub

Sub OnScriptExit()

dm.UnBindWindow

End Sub

[/hide]

Sub 打怪()

//打怪程序还没写有源码的没给一个

End Sub

Sub OnScriptExit()

dm.UnBindWindow

End Sub









////////////////////////////////////////////////////////////////////////////
//1为抢怪技能
UserVar asjdaisd="请设置" ---------技能设置----------
UserVar k=DropList{单开:1|双开:2|三开:3|四开:4|五开:5}=0 设置内容
UserVar jn1="2" 设置技能1键位
UserVar jn2="3" 设置技能2键位
UserVar jn3="4" 设置技能3键位
UserVar s1=60 设置技能1施放间隔时间（单位：秒）
UserVar s2=90 设置技能2施放间隔时间（单位：秒）
UserVar s3=120 设置技能3施放间隔时间（单位：秒）
UserVar y1=10 技能1吟唱时间（秒）
UserVar y2=10 技能2吟唱时间（秒）
UserVar y3=10 技能3吟唱时间（秒）
UserVar jg=1 抢怪间隔（秒）
//---------------[分隔线]--------------------
VBS dim key(2),sj(3)
VBS dim jn1,jn2,jn3,s1,s2,s3,s4,t1,t2,t3,t4,zf,hx
//声明变量
key(0)=Asc(jn1):key(1)=Asc(jn2):key(2)=Asc(jn3)
sj(0)=s1:sj(1)=s2:sj(2)=s3:sj(3)=s4
//把自定义参数的返回值转换成数组元素
t1=now:t2=now:t3=now:t4=now
//返回当前系统日期时间到变量
dim d,k,fs(4)
d=0
While d<=k-1
Delay 10
Plugin hx(d)=Window.Foreground()
KeyDown 18,1
Delay 10
KeyPress 27,1
Delay 10
KeyUp 18,1
d=d+1
EndWhile
//---------------[分隔线]--------------------
Rem 开始挂机
Gosub 抢怪+检查辅助技能
Goto 开始挂机
//---------------[分隔线]--------------------
Sub 抢怪+检查辅助技能
c=0
While c=Plugin Window.SendKeyPress(hx(c),192)

Delay 100
Plugin Window.SendKeyPress(hx(c),49)
Delay jg*1000
If DateDiff("s",t1,now)>=sj(0)
Plugin Window.SendKeyDown(hx(c),key(0))
Delay 32
Plugin Window.SendKeyUp(hx(c),key(0))
Delay y1*1000
t1=now
EndIf
If DateDiff("s",t2,now)>=sj(1)
Delay 10
Plugin Window.SendKeyDown(hx(c),key(1))
Delay 32
Plugin Window.SendKeyUp(hx(c),key(1))
Delay y2*1000
t2=now
EndIf
If DateDiff("s",t3,now)>=sj(2)
Delay 10
Plugin Window.SendKeyDown(hx(c),key(2))
Delay 32
Plugin Window.SendKeyUp(hx(c),key(2))
t3=now
EndIf
If DateDiff("s",t3,now)>=sj(2)
Delay 10
Plugin Window.SendKeyDown(hx(c),key(2))
Delay 32
Plugin Window.SendKeyUp(hx(c),key(2))
Delay y3*1000
t3=now
EndIf
c=c+1
EndWhile
Return