求助一个循环应该怎么写.

ially · 发表于 2021-5-30 01:18:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

想实现一个功能,不知道怎么写.
比如游戏设置挂机点有4个挂机点.

挂机点1
挂机点2
挂机点3
挂机点4

如何设计循环让人物死亡之后到下一个挂机点,比如点2死了去点3,点4死了去点1 这样一直循环.

谢谢!

紫猫 · 发表于 2021-5-30 09:06:34

do
do
      挂机1
      如果死亡跳出本次循环 exit do
loop

do
      挂机2
      如果死亡跳出本次循环 exit do
loop

do
      挂机3
      如果死亡跳出本次循环 exit do
loop

do
      挂机4
      如果死亡跳出本次循环 exit do
loop
loop

喵了个咪 · 发表于 2021-6-7 20:54:42

Function 挂机_打怪()
Dim 挂机点=0,挂机点上限=4
Do

      If 判断角色已死亡 = True Then
         if 挂机点 >= 挂机点上限 Then
            挂机点 = 0
         Else
            挂机点 = 挂机点 + 1
         End If
      Else
         Select Case 挂机点
        Case 0
            '放入前往0号挂机点的代码
        Case 1
            '放入前往1号挂机点的代码
        Case 2
            '放入前往2号挂机点的代码
        Case 3
            '放入前往3号挂机点的代码
        Case 4
            '放入前往4号挂机点的代码
        End Select
      '==========================
      '这后面放入打怪代码

End If
Delay 1000
Loop
End Function

		自动登录	找回密码
密码			立即注册

[求助] 求助一个循环应该怎么写.

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。