中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！奇迹世界副本挂机脚本(窗口版)

djlz2008 - 2008-4-14 13:23:00

奇迹世界人物死亡次数过多，系统会收去装备，基于此，写了下边副本挂机脚本
我是在挂空虚时写的，当附近没怪的时候打坐休息，可以自定义死亡几次后退出副本

//1红 2普通攻击 3,4技能 7打坐 8嘲讽(技能) 9,0状态 -激励 =捡东西
VBS dim hp,sp,o,p
VBS o=0:p=0
VBS dim jn(4)
VBS dim t1,t2,t3,t4,t5
VBS t1=now:t2=now:t3=now:t4=now:t5=now
UserVar hp=65 红量<%多少时,补红
UserVar sp=65 蓝量<%多少时,用激励
UserVar jn(0)=5 技能1的冷却时间(秒)
UserVar jn(1)=7 技能2的冷却时间(秒)
UserVar jn(2)=7 技能3的冷却时间(秒)
UserVar jn(3)=275 状态1的持续时间(秒)
UserVar jn(4)=245 状态2的持续时间(秒)
UserVar q=4 死亡几次退出副本
KeyPress 57 1
KeyPress 48 1
Rem 副本
KeyPress 187 3
Gosub 选怪1
Gosub 选怪2
Gosub 选怪3
Gosub 选怪4
Gosub 无怪打坐
Gosub 攻击
Gosub 状态
Gosub 补红
Gosub 激励
Gosub 拒绝交易
Gosub 人物死亡
Gosub 退出副本
Delay 32
Goto 副本
Sub 选怪1
VBSCall FindColorEx(622,24,622,24,"0",1,0.8,x,y)
If x<0 and y<0
KeyPress 9 1
EndIf
Return
Sub 选怪2
VBSCall FindColorEx(503,13,570,31,"FFFFFF",1,0.8,x,y)
If x>=0 and y>=0
KeyPress 9 1
EndIf
Return
Sub 选怪3
VBSCall FindColorEx(503,13,570,31,"82ff",1,0.8,x,y)
If x>=0 and y>=0
KeyPress 9 1
EndIf
Return
Sub 选怪4
VBSCall FindColorEx(503,13,570,31,"ff",1,0.8,x,y)
If x>=0 and y>=0
KeyPress 9 1
EndIf
Return
Sub 无怪打坐
VBSCall FindColorEx(622,24,622,24,"0",1,0.8,x,y)
If x<0 and y<0
Delay 125
VBS o=o+1
If o=5
KeyPress 55 1
EndIf
EndIf
Return
Sub 攻击
IfColor 622 24 0 0
VBS o=0
KeyPress 50 1
Gosub 技能
EndIf
Return
Sub 技能
If DateDiff("s",t1,now)>=jn(0)
KeyPress 51 1
Delay 32
VBS t1=now
EndIf
If DateDiff("s",t2,now)>=jn(1)
KeyPress 52 1
Delay 32
VBS t2=now
EndIf
If DateDiff("s",t3,now)>=jn(2)
KeyPress 56 1
Delay 32
VBS t3=now
EndIf
Return
Sub 状态
If DateDiff("s",t4,now)>=jn(3)
KeyPress 57 1
Delay 125
VBS t4=now
EndIf
If DateDiff("s",t5,now)>=jn(4)
KeyPress 48 1
Delay 125
VBS t5=now
EndIf
Return
Sub 补红
IfColor hp*2.07+88 15 80c18 2
KeyPress 49 1
EndIf
Return
Sub 激励
IfColor sp*2.07+88 29 101c18 2
KeyPress 189 1
EndIf
Return
Sub 拒绝交易
VBSCall FindColorEx(513,131,519,138,"3186ff",1,0.8,x,y)
If x>=0 and y>=0
Delay 32
MoveTo 670 498
LeftClick 1
EndIf
Return
Sub 人物死亡
VBSCall FindColorEx(558,438,574,448,"79c9f0",1,0.8,x,y)
If x>=0 and y>=0
Delay 32
VBS p=p+1
If p<q-1
MoveTo 438 444
LeftClick 1
EndIf
EndIf
Return
Sub 退出副本
VBSCall FindColorEx(558,440,574,448,"79c9f0",1,0.8,x,y)
If x>=0 and y>=0
If p>=q
MoveTo 288 49
LeftClick 1
VBSCall FindColorEx(568,440,574,448,"79c9f0",1,0.8,x,y)
If x>=0 and y>=0
MoveTo 438 444
LeftClick 1
EndIf
EndIf
EndIf
Return

留学之家留学DIY社区