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

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

主要功能如下：
1、单人挂机，组队时加入跟随
2、支持全屏和窗口模式，1024X768、800X600模式下测试通过。
3、自定义按键功能。
4、装备红时回城。野外挂机时设置shiwang=0，把回程卷轴放到第一个包的第一格。
已知问题：
1、无法避免攻击幸运怪和AC怪。
2、角色移动有缺陷。
3、不断攻击队里红名和黄名的召唤兽。
4、跟随有时会跟丢。

VBS dim hp,sp
VBS dim n,m,i,GenSui,GenSuiHuangMing,jn(3)
VBS n=0:m=0:zbh=0
VBS dim a,b,z,h
VBS a="250":b="252":z=3:h=0
VBS dim t1,t2,t3,t4,t5
VBS t1=now:t2=now:t3=now:t4=now:t5=15
UserVar hp=50 红量<%多少时,补红
UserVar sp=0 蓝量<%多少时,用激励
UserVar GenSui=1 设定跟随第几个人
UserVar ZiDongGJ=1 自动攻击按键
UserVar ShiWu=2 拾取物品的按键
UserVar FJ0=3 辅助技能1的按键
UserVar FJ1=4 辅助技能2的按键
UserVar BuXue=9 补红按键
UserVar GenSuiAJ=141 跟随按键（-为141，=为139）
UserVar JiLi=139 激励按键
UserVar ZTAJ0=5 状态1按键
UserVar ZTAJ1=6 状态2按键
UserVar jn(0)=5 技能1的冷却时间(秒)
UserVar jn(1)=7 技能2的冷却时间(秒)
UserVar jn(2)=275 状态1的持续时间(秒)
UserVar jn(3)=245 状态2的持续时间(秒)
UserVar SGSJ=60 锁怪时间(秒)
UserVar TLSJ=4 无怪多少时间开始跑动(秒)
UserVar JiaoYi=0 JiaoYi=0拒绝交易,JiaoYi=1同意交易
UserVar ZuDui=1 ZuDui=0拒绝组队,ZuDui=1同意组队
UserVar SiWang=1 SiWang=0野外复活,SiWang=1副本复活
//******************************************************************
Plugin hwnd=Window.Find("Sun online","奇迹世界")
Plugin string1=Window.GetClientRect(hwnd)
MyArray=Split(string1,"|",-1,1)
nleft=CInt(MyArray(0))
ntop=CInt(MyArray(1))
nwidth=CInt(MyArray(2))
nhight=CInt(MyArray(3))
bili=nwidth/1024
KeyPress 9 1
Rem 挂机脚本
Gosub 选怪1
Gosub 攻击动作
Gosub 状态
KeyPress ShiWu+48 3
Gosub 人物死亡
If zbh
Goto 停止挂机
EndIf
Delay 30
Goto 挂机脚本
Rem 停止挂机
//********************************************************************
Sub 选怪1
VBS t5=now
Rem 是否有怪
IfColor nleft+450*bili,26*bili+ntop,0,0
//VBSCall FindColorEx (nleft+450*bili,20*bili+ntop,nleft+628*bili,32*bili+ntop,"000000",1,0.9,x,y)
VBSCall FindColorEx (nleft+450*bili,20*bili+ntop,nleft+628*bili,32*bili+ntop,"0000FF",1,0.9,x1,y1)
VBSCall FindColorEx (nleft+450*bili,20*bili+ntop,nleft+628*bili,32*bili+ntop,"0082ff",1,0.9,x2,y2)
VBSCall FindColorEx (nleft+450*bili,20*bili+ntop,nleft+628*bili,32*bili+ntop,"ff0080",1,0.9,x3,y3)
VBSCall FindColorEx (nleft+450*bili,20*bili+ntop,nleft+628*bili,32*bili+ntop,"ffffff",1,0.9,x4,y4)
Else
Goto 无怪处理
EndIf
If (x1<0 and y1<0 and x2<0 and y2<0 and x3<0 and y3<0 and x4<0 and y4<0)
//KeyPress 49 1
//Delay 1000
//KeyPress 50 3
//Delay 32
Else
Rem 无怪处理
KeyPress ShiWu+48 1
Delay 100
Gosub 激励
Gosub 交易
Gosub 组队
VBSCall FindColorEx(nleft+283*bili,63*bili+ntop,nleft+292*bili,75*bili+ntop,"4A8A8E",1,0.9,x3,y3)
If x3>0 and y3>0
Gosub 跟随
EndIf
Gosub 长时间无怪跑动
KeyPress 9 1
Delay 100
Goto 是否有怪
EndIf
Return
Sub 长时间无怪跑动
//IfColor nleft+450*bili,20*bili+ntop,0,1
If DateDiff("s",t5,now)>=TLSJ
For 1
KeyDown 87 1
Delay 2000
KeyUp 87,1
Delay 100
EndFor
KeyDown 65 1
Delay 850
KeyUp 65,1
Delay 50
EndIf
//EndIf
Return
Sub 技能
If DateDiff("s",t1,now)>=jn(0)
KeyPress FJ0+48 1
Delay 32
VBS t1=now
EndIf
If DateDiff("s",t2,now)>=jn(1)
KeyPress FJ1+48 1
Delay 32
VBS t2=now
EndIf
Return
Sub 状态
If DateDiff("s",t3,now)>=jn(2)
KeyPress ZTAJ0+48 1
Delay 125
VBS t3=now
EndIf
If DateDiff("s",t4,now)>=jn(3)
KeyPress ZTAJ1+48 1
Delay 125
VBS t4=now
EndIf
Return
Sub 补红
IfColor nleft+(hp*2.06+88)*bili 11*bili+ntop 80c18 2
KeyPress BuXue+48 1
EndIf
Return
Sub 激励
IfColor nleft+(sp*2.06+88)*bili,26*bili+ntop 101c18 2
KeyPress JiLi+48 1
Delay 10000
EndIf
Return
Sub 交易
VBSCall FindColorEx(nleft+515*bili,ntop+131*bili,nleft+517*bili,ntop+133*bili,"3186ff",1,0.8,x,y)
If x>=0 and y>=0
If JiaoYi=0
Delay 32
MoveTo nleft+670*bili ntop+498*bili
LeftClick 1
Else
If JiaoYi=1
Delay 32
MoveTo nleft+640*bili ntop+498*bili
LeftClick 1
EndIf
EndIf
EndIf
Return
Sub 组队
VBSCall FindColorEx(nleft+560*bili,ntop+438*bili,nleft+562*bili,ntop+440*bili,"79c9f0",1,0.8,x,y)
If x>=0 and y>=0
If ZuDui=0
Delay 225
MoveTo nleft+561*bili ntop+440*bili
LeftClick 1
Else
If ZuDui=1
Delay 225
MoveTo nleft+438*bili,ntop+444*bili
LeftClick 1
EndIf
EndIf
EndIf
Return
Sub 人物死亡
VBSCall FindColorEx(nleft+570*bili,ntop+440*bili,nleft+572*bili,ntop+443*bili,"79c9f0",1,0.8,x,y)
If x>=0 and y>=0
If SiWang=0
Delay 750
MoveTo nleft+570*bili ntop+443*bili
LeftClick 1
Else
If SiWang=1
Delay 750
MoveTo nleft+446*bili ntop+442*bili
LeftClick 1
EndIf
EndIf
Delay 1500
Gosub 有装备红了,回城
EndIf
Return
Sub 有装备红了,回城
VBSCall FindColorEx(nleft+840*bili,ntop+200*bili,nleft+876*bili,ntop+252*bili,"3134e7",1,0.8,x,y)
If x>=0 and y>=0
VBS zbh=1
If SiWang=0
Delay 225
KeyPress 73 1
Delay 225
MoveTo nleft+780*bili ntop+478*bili
LeftClick 1
Delay 225
MoveTo nleft+786*bili ntop+543*bili
Delay 225
RightClick 1
EndIf
If SiWang=1
Delay 225
KeyPress 27 1
Delay 225
MoveTo nleft+526*bili ntop+243*bili
Delay 225
LeftClick 1
EndIf
EndIf
Return
Sub 攻击动作
VBS t5=now
Rem 怪未死继续
Gosub 组队
KeyPress ZiDongGJ+48 1
Delay 32
Gosub 技能
Delay 1000
KeyPress ShiWu+48,1
Gosub 补红
VBSCall FindColorEx(nleft+435*bili,ntop+49*bili,nleft+642*bili,ntop+58*bili,"1929b8",1,0.8,x,y)
If x>0 and y>0
If DateDiff("s",t5,now)>=SGSJ
//Gosub 跟随
KeyPress 9,1
Delay 200
Else
Goto 怪未死继续
EndIf
EndIf
KeyPress ShiWu+48 3
VBS t5=now
Return
Sub 跟随
Delay 32
If GenSui=1
KeyPress 113 1
Gosub 跟随队长
Else
If GenSui=2
KeyPress 114 1
Gosub 跟随队长
Else
If GenSui=3
KeyPress 115 1
Gosub 跟随队长
Else
If GenSui=4
KeyPress 116 1
Gosub 跟随队长
Else
If GenSui=5
KeyPress 117 1
Gosub 跟随队长
Else
If GenSui=6
KeyPress 118 1
Gosub 跟随队长
Else
If GenSui=7
KeyPress 119 1
Gosub 跟随队长
Else
If GenSui=8
KeyPress 120 1
Gosub 跟随队长
Else
If GenSui=9
KeyPress 121 1
Gosub 跟随队长
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Return
Sub 跟随队长
Delay 100
IfColor nleft+450*bili,20*bili+ntop,0,0
KeyPress GenSuiAJ+48 1
Delay 1225
EndIf
Return

venkatmba - 2008-6-21 21:47:00

MBA联考案例分析题选编--汇集

EMBA听课记1~~~10汇总

“政治经济学”串讲资料（1~~~5）

07MBA面试邓小平理论概论论述题归纳汇总（一~五）

全国MBA联考英语2000~2008历年真题汇总

MBA联考英语单词特殊记忆法（一）~~~(一百一十四)汇总

MBA联考综合---精华---精品---资料大汇集

奋斗 - 2008-7-3 15:21:00

fdfgdfgret435t4etgrdsg

奋斗 - 2008-7-4 21:06:00

有看得懂的·说哈撒·sdgvfdwetr4343rfefsd

留学之家留学DIY社区