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

ially

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

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

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

谢谢!

紫猫

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

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

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

喵了个咪

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