中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！ QQ三国-巴郡刷回城卷赚钱脚本

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

[General]
Description=巴郡赚钱脚本
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
UserVar Ati=6 挂机分钟 //定义挂机多少分钟后回城
Gosub 找坐标 //找到“生命.bmp”的所在坐标
Delay 32 //停一停
Rem 开始 //记录“开始”位置
Delay 2000 //停一停
Gosub 去挂机 //转到“去挂机”位置
Delay 256 //停一停
Gosub 挂机 //转到“挂机”位置
Delay 256 //停一停
Goto 开始 //转到“开始”位置
EndScript //停止脚本
Sub 去挂机 //子程序“去挂机”
KeyDownH 39,1
Delay 50
KeyDownH 40,1
Delay 20000
KeyUpH 40,1
Delay 50
KeyUpH 39,1
Delay 500
KeyDownH 37,1
For 10
KeyPressH 38,1
Delay 200
EndFor
Delay 4000
KeyDownH 39,1
Delay 50
KeyDownH 40,1
Delay 9000
Return
//
Sub 挂机 //子程序“挂机”
Plugin a=GetSysInfo.GetTime() //取得开始时间
Rem 攻击 //记录“攻击”位置
KeyPressH 65,1 //按攻击键
Delay 32 //停一停
KeyPressH 67,1 //按捡东西
Delay 32 //停一停
KeyPressH 67,1 //按捡东西
Delay 32 //停一停
KeyPressH 67,1 //按捡东西
Delay 32
KeyPressH 9,1 //按换怪键
Delay 100
Plugin b=GetSysInfo.GetTime() //取现在的时间
c=b-a //取现在时间和开始时间的时间差
d=60000*Ati //取挂机分钟的毫秒数
If c>d //如果时间差大于你设的挂机时间
//
Delay 1000
KeyPressH 37,1 //按按左
Delay 500
KeyPressH 39,1 //按按右（如果不这样，很容易因为在追怪而使后面产生问题）
Delay 500
KeyPressH 113,1 //按物品窗口
Delay 500
VBSCall FindPic(0,0,1023,767,"三国币.bmp",0.7,mx,my) //找图“三国币.bmp”，找到物品窗口的相对坐标
Delay 500
MoveToS mx+251,my-274 //移到“道具”上
Delay 500
LeftClickS 1 //点击一下
Delay 500
MoveToS mx+454,my-222 //移动物品上拉滚动条
Delay 500
LeftDownS 1 //按住不要动
Delay 3000
LeftUpS 1 //3秒后松手
VBSCall FindPic(0,0,1023,767,"回城.bmp",0.7,tx,ty) //找图“回城.bmp”是否存在回城卷
If tx>0 //如果有
MoveToS tx+100,ty+10 //移动回城卷的位置
Delay 500
LeftDoubleClickS 1 //双击回城
Delay 500
KeyPressH 27,1 //按一下物品窗口（关闭刚刚开的）
Delay 500
Gosub 卖垃圾 //转到“卖垃圾”的子程序
Else //如果找不到回城卷
MoveToS mx+454,my-17 //移动到道具的下拉滚动条
For 6
Delay 500 //点击6下，即转到下一页
LeftClickS 1
EndFor
Delay 500
VBSCall FindPic(0,0,1023,767,"回城.bmp",0.7,tx,ty) //再找一下有没有回城卷
If tx>0 //如果有
MoveToS tx+100,ty+10 //移动到回城卷位置
Delay 500
LeftDoubleClickS 1 //双击回城卷回去
Delay 500
KeyPressH 27,1 //关闭刚刚的物品窗口
Delay 500
Gosub 卖垃圾 //移动到“卖垃圾”子程序
Else //如果都是找不到回城卷
KeyPressH 27,1 //关闭刚刚的物品窗口
Delay 500
Gosub 挂机 //找不到回城，只能再挂机
EndIf
EndIf
//
EndIf
Goto 攻击 //如果没够时间，再上去攻击
Return
Sub 卖垃圾 //子程序“卖垃圾”....不多说了..很容易明白
Delay 5000
MoveToS hpx+300,hpy
Delay 1500
LeftClickS 1
Delay 1500
KeyPressH 32,1
Delay 1500
KeyPressS 71,1
Delay 1500
MoveToS hpx+300,hpy
Delay 1500
KeyPressS 71,1
Delay 500
KeyPressH 40,1
Delay 500
KeyPressH 13,1
Delay 500
KeyPressH 9,1
Delay 500
For 9
MoveToS hpx+191,hpy+229
Delay 500
LeftDoubleClickS 1
Delay 500
MoveToS hpx+265,hpy+271
Delay 500
LeftClickS 1
Delay 500
MoveToS hpx+244,hpy+239
Delay 500
LeftClickS 1
Delay 500
EndFor
MoveToS hpx+391,hpy+489
Delay 500
LeftClickS 1
Delay 500
MoveToS hpx+252,hpy+486
Delay 500
LeftClickS 1
Delay 500
KeyPressH 27,1
Goto 开始
Return
Sub 找坐标
VBSCall FindPic(0,0,1023,767,"生命.bmp",0.7,hpx,hpy)
Delay 50
If hpx<0
MessageBox "显示设置有问题，请重新设置再开始"
EndScript
EndIf
Return

留学之家留学DIY社区