
按键精灵如何选怪物名称打怪?大神请指教!谢谢
1个回答
推荐于2017-12-15
展开全部
脚本源码.NO.1
--------------
VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY
//NumA--X轴移动的变量,NumB--Y轴移动的变量,NumK--中间变量
VBS NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66
//CenterX,CenterY---中心坐标(一般是人数) StepY,StepY--步长
//****************************主程序开始**************************************
While NumC<3
//NumC---三圈, 相当会把找怪范围会成25个格
VBS NumN=NumC*8:NumK=0
//NumN---找怪的格子位置
While NumK<NumN
//向下移动
If NumK>0 and NumK<(NumN/4)
VBS NumB=NumB+1
EndIf
//向左移动
If NumK>=(NumN/4) and NumK<(NumN/2)
VBS NumA=NumA-1
EndIf
//向上移动
If NumK>=(NumN/2) and NumK<(NumN/4)*3
VBS NumB=NumB-1
EndIf
//向右移动
If NumK>=(NumN/4)*3 and NumK<NumN
VBS NumA=NumA+1
EndIf
//每一格的中心坐标
VBS GBX=CenterX+StepX*NumA
VBS GBY=CenterY+StepY*NumB
Delay Time/2
//***************查看运行效果********************
//如果想看本脚本的执行路线,请打开图画,再打把下面三句前的//去掉
//MoveTo GBX GBY
//Delay 100
//LeftClick 1
//*******************************************
//×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
//××××××××××××××××××××××××××××× 找怪部分 ××××××××××××××××××××××××××××××
VBSCall FindColorEx(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2,"FFFFFF",1,0.6,AX,AY)
//“FFFFFF”----怪的色,其它部分不要动,这里也可以改成在(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2)范围内找图片
Delay Time/2
If AX>0
//找到色
MoveTo AX AY
//移动到AX,AY
//*****判断是否是怪********
//gosub Mon
//<判断是否是怪>子程序在这里调用!
//*************************
Delay Time
Goto KillMon
EndIf
//××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
VBS NumK=NumK+1
EndFor
VBS NumA=NumA+1:NumC=NumC+1
EndFor
//************************************主程序结束***************************************
//*************************************************************************************
//******************** 打怪 ********************
Rem KillMon
//下面请自己添加打怪要的动作
//提示:1。可以先判断是否是怪。[要判断的话,就写个子程序,上面有提示<判断是否是怪>调用的地方。]
// 2。是怪的话就攻击,杀死后跳到开始,重新开始找怪;不是的话,就跳到下一格接着找!
--------------
脚本源码.NO.2
--------------
VBSCall FindPic(0,0,1024,768,"神盾.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x y
Delay 50
MessageBox 已经找到图形!鼠标移到了图形之上
Else
MessageBox 没找到图形!
EndIf
--------------
只错这个比较麻烦.因为你要把怪物的3个角度的动作都要抓下来
然后存起来~
但是游戏离的怪物类型多了
所以此办法不推荐
--------------
--------------
VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY
//NumA--X轴移动的变量,NumB--Y轴移动的变量,NumK--中间变量
VBS NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66
//CenterX,CenterY---中心坐标(一般是人数) StepY,StepY--步长
//****************************主程序开始**************************************
While NumC<3
//NumC---三圈, 相当会把找怪范围会成25个格
VBS NumN=NumC*8:NumK=0
//NumN---找怪的格子位置
While NumK<NumN
//向下移动
If NumK>0 and NumK<(NumN/4)
VBS NumB=NumB+1
EndIf
//向左移动
If NumK>=(NumN/4) and NumK<(NumN/2)
VBS NumA=NumA-1
EndIf
//向上移动
If NumK>=(NumN/2) and NumK<(NumN/4)*3
VBS NumB=NumB-1
EndIf
//向右移动
If NumK>=(NumN/4)*3 and NumK<NumN
VBS NumA=NumA+1
EndIf
//每一格的中心坐标
VBS GBX=CenterX+StepX*NumA
VBS GBY=CenterY+StepY*NumB
Delay Time/2
//***************查看运行效果********************
//如果想看本脚本的执行路线,请打开图画,再打把下面三句前的//去掉
//MoveTo GBX GBY
//Delay 100
//LeftClick 1
//*******************************************
//×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
//××××××××××××××××××××××××××××× 找怪部分 ××××××××××××××××××××××××××××××
VBSCall FindColorEx(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2,"FFFFFF",1,0.6,AX,AY)
//“FFFFFF”----怪的色,其它部分不要动,这里也可以改成在(GBX-StepX/2,GBY-StepY/2,GBX+StepX/2,GBY+StepY/2)范围内找图片
Delay Time/2
If AX>0
//找到色
MoveTo AX AY
//移动到AX,AY
//*****判断是否是怪********
//gosub Mon
//<判断是否是怪>子程序在这里调用!
//*************************
Delay Time
Goto KillMon
EndIf
//××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
VBS NumK=NumK+1
EndFor
VBS NumA=NumA+1:NumC=NumC+1
EndFor
//************************************主程序结束***************************************
//*************************************************************************************
//******************** 打怪 ********************
Rem KillMon
//下面请自己添加打怪要的动作
//提示:1。可以先判断是否是怪。[要判断的话,就写个子程序,上面有提示<判断是否是怪>调用的地方。]
// 2。是怪的话就攻击,杀死后跳到开始,重新开始找怪;不是的话,就跳到下一格接着找!
--------------
脚本源码.NO.2
--------------
VBSCall FindPic(0,0,1024,768,"神盾.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x y
Delay 50
MessageBox 已经找到图形!鼠标移到了图形之上
Else
MessageBox 没找到图形!
EndIf
--------------
只错这个比较麻烦.因为你要把怪物的3个角度的动作都要抓下来
然后存起来~
但是游戏离的怪物类型多了
所以此办法不推荐
--------------
追问
我的是回合制游戏,需要点开,地图上会有2个怪物重叠,我该如何点到我需要的怪?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询