中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！刀剑online--自动点升天任务V5

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

[General]
Description=自动点升天任务
BeginHotkey=37
BeginHotkeyMod=8
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Attachment]
UEsDBBQAAgAIAKR0MThD+oaGRwAAAO4DAAAGABEA1f0uYm1wVVQNAAc+aI9HgHuPRzxoj0dz8n3HzAAGZkCsAcRCQCwIxIwMEmDxHVB5ZPCfoYEMRKm+7///E4Nw2Icsg8wm5M4Rpg9rSFLTPlxmDAt9xCdOKuQH0vUBAFBLAwQUAAIACAAIdTE49xvXDF0AAAA2AwAABgARALrDLmJtcFVUDQAH9GiPR4B7j0fzaI9Hc/I1Y2YAAzMg1gBifiAWAGJGBgmIBFQeGfxnaCAeka3++///mLJAQTRxZPPhUshqCKpHU4BHPVZXUct8XG4m0r+4EOXhQ6R6NHtxeZlgeKKJ41GP6VnizackfQIAUEsDBBQAAgAIAJRNMTi822PkdQAAAO4DAAAGABEAw9wuYm1wVVQNAAdqI49HgHuPR+v/jkdz8n3HzAAGZkCsAcRCQCwIxIwMEmDxHVB5ZNDgQA6imj6G2v9oXDgipA+uClktEfqQDSBCH0E7UEzFrg9OohmDTR+yDC59OPyHFnSYLiAuHtAMwB0uaLFFnD489pHoTjRf4ggXrOkJq0mE0hkuTdTMD0TrAwBQSwMEFAACAAgAdHQxONA7MhZSAAAA7gMAAAYAEQDIzi5ibXBVVA0AB85nj0eAe49HzWePR3PyfcfMAAZmQKwBxEJALAjEjAwSYPEdUHlk8J+hgQxEHX3f//+nTB+QgYlIsQ+XC4ayPqyBghY0MH1wHaTbhxnYgzZcsAYNKfrQRAilM3rkIwBQSwMEFAACAAgAJHQxOJ+JwfZvAAAA7gMAAAYAEQDM0y5ibXBVVA0ABx5nj0eAe49HUmaPR3PyfcfMAAZmQKwBxEJALAjEjAwSYPEdUHlk8J+hgQxEBX3f//+HM/AgHPrgMqS4E5dWZJtw60PTilUQhz6syonTh9/HOPyHrAOrbtTwRHMnmjFExzvR7sSqgwj70IIOj2688Y6Vizt9UuA/GuYjAFBLAwQUAAIACAB0bTI4bUBvNWQAAAASBAAABwARAMLlMi5ibXBVVA0AB/6skEcAzZBHQamQR3PyFWJhAAMzINYAYkEgFgZiRgYJsPgdZgYMcIB0MBj0cPz/joyw60GWQOMOrB64o9EYBPyDbB6anchmMWANLvL9AxdBEyesB1OQAU8o4fIbsWGAzz9otmENbgaCATA48wJOPQBQSwMEFAACAAgAFG8yOD7l0I1lAAAAdgMAAAcAEQDC5TEuYm1wVVQNAAf6r5BHAM2QR56okEdz8i1jZgADMyDWAGJBIBYAYkYGCbC4A1D+CB8Ew8D//yQjdA5OOSQpAnpwsemsB+5oNAYB/yCbh2YnHrNwaiPWP3ARfHGAxz3Y9WC6BJffiA0DfP7BF6ZIxhEIAAJplJx0TaweAFBLAQIXCxQAAgAIAKR0MThD+oaGRwAAAO4DAAAGAAkAAAAAAAAAIACAgQAAAADV/S5ibXBVVAUABz5oj0dQSwECFwsUAAIACAAIdTE49xvXDF0AAAA2AwAABgAJAAAAAAAAACAAgIF8AAAAusMuYm1wVVQFAAf0aI9HUEsBAhcLFAACAAgAlE0xOLzbY+R1AAAA7gMAAAYACQAAAAAAAAAgAICBDgEAAMPcLmJtcFVUBQAHaiOPR1BLAQIXCxQAAgAIAHR0MTjQOzIWUgAAAO4DAAAGAAkAAAAAAAAAIACAgbgBAADIzi5ibXBVVAUAB85nj0dQSwECFwsUAAIACAAkdDE4n4nB9m8AAADuAwAABgAJAAAAAAAAACAAgIE/AgAAzNMuYm1wVVQFAAceZ49HUEsBAhcLFAACAAgAdG0yOG1AbzVkAAAAEgQAAAcACQAAAAAAAAAgAICB4wIAAMLlMi5ibXBVVAUAB/6skEdQSwECFwsUAAIACAAUbzI4PuXQjWUAAAB2AwAABwAJAAAAAAAAACAAgIF9AwAAwuUxLmJtcFVUBQAH+q+QR1BLBQYAAAAABwAHAK0BAAAYBAAAAAA=

[Script]
UserVar Var1=DropList{一般:400|快速:250|极快:100}=0 点击速度设置
//---------------------------------------------------------
//#游戏设置为16位颜色下的脚本
//
//---------------------------------------------------------
dim i,j,k,d,f
i=0,j=0,k=0,d=0,f=0
Delay 20
//提示
MoveTo 580 560
Delay 20
LeftClick 2
Delay 20
SayString "/自己脚本使用中有问题请联系QQ80433743"
Delay 500
KeyPress 13,2
//喊话延时
Delay 2000
//
MoveTo 580 560
Delay 20
LeftClick 2
Delay 20
SayString "/自己脚本启动中......."
Delay 500
KeyPress 13,2
Delay 100
//---------------------------------------------------------
//#先全屏幕移动鼠标找NPC名字，然后记下找到的坐标
//---------------------------------------------------------
Gosub 小地图检查
Delay 50
Rem 先按F2不显人名
VBSCall Call FindColorEx(380,190,420,200,"f7fbff",1,0.8,x,y)
If x>=0 and y>=0
//如果检测到有开启人物显名，就提示让他关掉
Delay 10
MoveTo 580 560
Delay 20
LeftClick 3
Delay 20
SayString "/自己如果你有开启人物名称显示的话，请在10秒内，按F2键关掉"
MoveR 0 -50
Delay 10000
KeyPress 13,2
Delay 1700
Goto 查找NPC
Else
EndIf
//提示信息
Rem 再按F2不显人名
VBSCall Call FindColorEx(380,190,420,200,"ffffff",1,0.8,x,y)
If x>=0 and y>=0
//如果检测到有开启人物显名，就提示让他关掉
Delay 10
MoveTo 580 560
Delay 20
LeftClick 3
Delay 20
SayString "/自己如果你有开启人物名称显示的话，请在10秒内，按F2键关掉"
MoveR 0 -50
Delay 10000
KeyPress 13,2
Delay 1700
Goto 查找NPC
Else
EndIf
Delay 1700
//提示
Rem 查找NPC
//找NPC之前再次进行小地图检查，防止已经进入任务
//////////进任务了吗，检测洛字就可以了，d=0找不到洛字////////
d=0
Gosub 检测地图
If d = 1
Delay 10
//找到洛字了就是没进去，继续执行
Else
Goto 结束
EndIf
//
MoveTo 580 560
Delay 20
LeftClick 2
Delay 20
SayString "/自己任务NPC搜索中..."
Delay 500
KeyPress 13,2
Delay 300
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
Gosub NPC名字找图
Delay 10
//出发坐标
k=1
MoveTo 400 250
Delay 10
Gosub 移动总循环
//如果找到NPC就点击，并记下坐标
Rem 记NPC
//
Delay 20
//获得当前鼠标坐标
VBSCall Call GetCursorPos(a,b)
Delay 500
//提示
MoveTo 580 560
Delay 20
LeftClick 2
Delay 20
SayString "/自己搜索到NPC！开始接任务......"
Delay 200
KeyPress 13,2
Delay 50
//是否打开NPC对话
VBSCall Call FindColorEx(140,40,140,40,"63a2bd",1,0.8,x,y)
If x>=0 and y>=0
Delay 50
//移动到设置的坐标
VBSCall Call SetCursorPos(a,b)
Else
Goto 查找NPC
EndIf
////////////////////////////////////////////////////////
//##进入抢点循环，速度要快
///////////////////////////////////////////////////////
Rem 抢点循环
Delay 200
//找逃字，并点击
VBSCall FindPic(20,150,200,250,"Attachment:\逃.bmp",1,x,y)
If x>=0 and y>=0
MoveTo x,y
Delay 20
MoveR 30 10
LeftClick 2
Delay Var1
MoveTo 580 560
Else
EndIf
//
Gosub 面版消失检测
//找任字，并点击
VBSCall FindPic(20,150,150,250,"Attachment:\任.bmp",1,x,y)
If x>=0 and y>=0
MoveTo x,y
Delay 20
LeftClick 2
Delay Var1
MoveTo 580 560
Else
EndIf
//
Gosub 面版消失检测
//找正字，并点击
VBSCall FindPic(20,150,150,250,"Attachment:\正.bmp",1,x,y)
If x>=0 and y>=0
MoveTo x,y
Delay 20
LeftClick 2
Delay Var1
MoveTo 580 560
Else
EndIf
//
Gosub 面版消失检测
//找好字，并点击
VBSCall FindPic(20,150,150,250,"Attachment:\好.bmp",1,x,y)
If x>=0 and y>=0
MoveTo x,y
Delay 20
LeftClick 2
Delay Var1
MoveTo 580 560
Else
EndIf
//还有面版吗
Delay 10
VBSCall Call FindColorEx(140,40,140,40,"63a2bd",1,0.8,x,y)
If x>=0 and y>=0
Goto 抢点循环
Else
EndIf
//////////进任务了吗，检测洛字就可以了，d=0找不到洛字////////
d=0
Gosub 检测地图
If d = 1
Delay 20
//找到洛字了就是没进去，取NPC坐标，放在上面
VBSCall Call SetCursorPos(a,b)
Delay 10
Goto 检测对话框
Else
Goto 结束
EndIf
//
Rem 检测对话框
//看看能否找到原来的NPC
Delay 300
VBSCall FindPic(20,20,770,500,"Attachment:\密.bmp",1,x,y)
If x>=0 and y>=0
//能找到原来的NPC就继续点吧
Delay 20
LeftClick 2
Delay 300
Else
//找不到原来的NPC，返回到前面再找
Goto 查找NPC
EndIf
//
//点的开面版的话就继续循环
VBSCall Call FindColorEx(140,40,140,40,"63a2bd",1,0.8,x,y)
If x>=0 and y>=0
Delay 10
Goto 抢点循环
Else
//点不开面版，就再检查下
VBSCall Call SetCursorPos(a,b)
Delay 20
Goto 检测对话框
EndIf
//
//
////////////////////////
Rem 结束
//提示信息
Delay 500
//提示
MoveTo 580 560
Delay 20
LeftClick 2
Delay 20
SayString "/自己恭喜！您已经进入任务场景..."
Delay 500
KeyPress 13,2
Delay 10
////////////////////////
//脚本结束
EndScript
//
//
//////////////////////////////////////////////////////
//========================================================
//###一些过程的定义
//========================================================
//找名字//////////////////////////////////////////////
Sub NPC名字找图
Delay 20
VBSCall FindPic(20,20,770,500,"Attachment:\密.bmp",1,x,y)
If x>=0 and y>=0
Delay 300
LeftClick 2
Delay 400
Goto 记NPC
Else
EndIf
Return
/////////////////////////////////////////////////////
Sub 移动总循环
While k < 19
Gosub 循环移动鼠标
k=k+1
Delay 10
EndWhile
MessageBox "无法找到NPC，请将人物移动到任务NPC附近，再启动脚本"
EndScript
Return
//////////////////////////////////////////////////////
Sub 循环移动鼠标
//X的移动循环
While i < k
//方向变量标记，0为正，1为负
If f=0
MoveR 30 0
Delay 200
Gosub NPC名字找图
Delay 20
Else
MoveR -30 0
Delay 200
Gosub NPC名字找图
Delay 20
EndIf
i=i+1
EndWhile
i=0
// Y的移动循环
While j < k
If f=0
MoveR 0 30
Delay 200
Gosub NPC名字找图
Delay 20
Else
MoveR 0 -30
Delay 200
Gosub NPC名字找图
Delay 20
EndIf
j=j+1
EndWhile
j=0
//改变方向
If f=0
f=1
Else
f=0
EndIf
//
Return

留学之家留学DIY社区