Question

按键精灵 多命令 选择对话框

Answer 1

dim
NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,StepX,StepY
//NumA--X轴移动的变量，NumB--Y轴移动的变量，NumK--中间变量
NumA=0:NumB=0:NumC=0:CenterX=385:CenterY=310:StepX=82:StepY=66
//CenterX，CenterY---中心坐标(一般是人数)
StepY,StepY--步长
//****************************主程序开始**************************************
While
NumC<3
//NumC---三圈，
相当会把找怪范围会成25个格
NumN=NumC*8:NumK=0
//NumN---找怪的格子位置
While
NumK
0
and
NumK<(NumN/4)
Then
NumB=NumB+1
End
If
//向左移动
If
NumK>=(NumN/4)
and
NumK<(NumN/2)
Then
NumA=NumA-1
End
If
//向上移动
If
NumK>=(NumN/2)
and
NumK<(NumN/4)*3
Then
NumB=NumB-1
End
If
//向右移动
If
NumK>=(NumN/4)*3
and
NumK
0
Then
//找到色
MoveTo
AX,AY
//移动到AX，AY
//*****判断是否是怪********
//gosub
Mon
//<判断是否是怪>子程序在这里调用！
//*************************
Delay
Time
Goto
KillMon
End
If
//××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
NumK=NumK+1
Wend
NumA=NumA+1:NumC=NumC+1
Wend
//************************************主程序结束***************************************
//*************************************************************************************
//********************
打怪
********************
Rem
KillMon
//下面请自己添加打怪要的动作
//提示：1。可以先判断是否是怪。[要判断的话，就写个子程序，上面有提示<判断是否是怪>调用的地方。]
//
2。是怪的话就攻击，杀死后跳到开始，重新开始找怪；不是的话，就跳到下一格接着找！