按键精灵 Goto Sub 的使用问题
Rem开始挂机IfColor365,490,9cc0,2Gosub检查组队邀请Delay100Gosub检查红蓝Delay100Gosub走路ElseGosub战斗Del...
Rem 开始挂机
IfColor 365,490,9cc0,2
Gosub 检查组队邀请
Delay 100
Gosub 检查红蓝
Delay 100
Gosub 走路
Else
Gosub 战斗
Delay 100
EndIf
Goto 开始挂机
//------------[子程序]
Sub 查找宝宝
VBSCall FindPic(0,0,650,502,"Attachment:\宝宝.bmp",0.5,bx,by)
If bx>0 and by>0
MoveTo bx by
For 10
Beep
Delay 10
EndFor
EndIf
Return
//----------------------[战斗]
Sub 战斗
VBSCall FindPic(527,81,630,358,"Attachment:\法术.bmp",1,x,y)
If x>0 and y>0
KeyDown 18,1
Delay 100
KeyPress Rz,1
Delay 100
KeyUp 18,1
Delay 500
KeyDown 18,1
Delay 100
KeyPress Bz,1
Delay 100
KeyUp 18,1
Else
Gosub 等待
//调用等待子程序,等待战斗指令框出现
Delay 100
//延时防卡
EndIf
Return 战斗
//子程序完结回到调用处
Sub 等待
Delay 500
Return 等待
我想问主程序执行到goto应该回到rem开始挂机在goto和rem之间循环,是不是下面的sun内的程序都要用go sun调用啊 ? 主程序不会距续向下执行sub的内容了吧? 如果向下运行遇到sub是否会跳过啊? 展开
IfColor 365,490,9cc0,2
Gosub 检查组队邀请
Delay 100
Gosub 检查红蓝
Delay 100
Gosub 走路
Else
Gosub 战斗
Delay 100
EndIf
Goto 开始挂机
//------------[子程序]
Sub 查找宝宝
VBSCall FindPic(0,0,650,502,"Attachment:\宝宝.bmp",0.5,bx,by)
If bx>0 and by>0
MoveTo bx by
For 10
Beep
Delay 10
EndFor
EndIf
Return
//----------------------[战斗]
Sub 战斗
VBSCall FindPic(527,81,630,358,"Attachment:\法术.bmp",1,x,y)
If x>0 and y>0
KeyDown 18,1
Delay 100
KeyPress Rz,1
Delay 100
KeyUp 18,1
Delay 500
KeyDown 18,1
Delay 100
KeyPress Bz,1
Delay 100
KeyUp 18,1
Else
Gosub 等待
//调用等待子程序,等待战斗指令框出现
Delay 100
//延时防卡
EndIf
Return 战斗
//子程序完结回到调用处
Sub 等待
Delay 500
Return 等待
我想问主程序执行到goto应该回到rem开始挂机在goto和rem之间循环,是不是下面的sun内的程序都要用go sun调用啊 ? 主程序不会距续向下执行sub的内容了吧? 如果向下运行遇到sub是否会跳过啊? 展开
展开全部
//主程序---------------开始
Rem 开始挂机
IfColor 365,490,9cc0,2
Gosub 检查组队邀请
Gosub 等待
Gosub 检查红蓝
Gosub 等待
Gosub 查找宝宝
Gosub 等待
Gosub 走路
Else
Gosub 战斗
EndIf
Goto 开始挂机
//-------------------------------主程序完
//------------[子程序]
Sub 查找宝宝
VBSCall FindPic(0,0,650,502,"Attachment:\宝宝.bmp",0.5,bx,by)
If bx>0 and by>0
MoveTo bx by
For 10
Beep
Delay 10
EndFor
EndIf
Return
//----------------------[战斗]
Sub 战斗
VBSCall FindPic(527,81,630,358,"Attachment:\法术.bmp",1,x,y)
If x>0 and y>0
KeyDown 18,1
Delay 100
KeyPress Rz,1
Delay 100
KeyUp 18,1
Delay 500
KeyDown 18,1
Delay 100
KeyPress Bz,1
Delay 100
KeyUp 18,1
Else
Gosub 等待
//调用等待子程序,等待战斗指令框出现
Delay 100
//延时防卡
EndIf
Return 战斗
//子程序完结回到调用处
Sub 等待
Delay 500
Return
Rem 开始挂机
IfColor 365,490,9cc0,2
Gosub 检查组队邀请
Gosub 等待
Gosub 检查红蓝
Gosub 等待
Gosub 查找宝宝
Gosub 等待
Gosub 走路
Else
Gosub 战斗
EndIf
Goto 开始挂机
//-------------------------------主程序完
//------------[子程序]
Sub 查找宝宝
VBSCall FindPic(0,0,650,502,"Attachment:\宝宝.bmp",0.5,bx,by)
If bx>0 and by>0
MoveTo bx by
For 10
Beep
Delay 10
EndFor
EndIf
Return
//----------------------[战斗]
Sub 战斗
VBSCall FindPic(527,81,630,358,"Attachment:\法术.bmp",1,x,y)
If x>0 and y>0
KeyDown 18,1
Delay 100
KeyPress Rz,1
Delay 100
KeyUp 18,1
Delay 500
KeyDown 18,1
Delay 100
KeyPress Bz,1
Delay 100
KeyUp 18,1
Else
Gosub 等待
//调用等待子程序,等待战斗指令框出现
Delay 100
//延时防卡
EndIf
Return 战斗
//子程序完结回到调用处
Sub 等待
Delay 500
Return
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |