如何在TI-BASIC中让蛇生长

Question

我已经尝试在 TI-BASIC 中制作 Snake 几个小时了，但我很难让蛇正常生长。到目前为止，我的

ClrHome
5->Y
4->X
0->L
256->dim(|LSNAKE
X->T
1->A
While 1
    ClrHome
    
    
    Output(Y,X,"O"
    
    
    
    If L>0:Then
        For(Z,1,L
            Output(|LSNAKE(V),|LSNAKE(Z),"O"
        End
    End
    
    A->V
    Y->|LSNAKE(A)
    A+1->A
    X->|LSNAKE(A)
    A->Z
    A+1->A
    Input D
    
    If D=25:Then
        Y-1->Y
    End
    
    If D=34:Then
        Y+1->Y
    End
    
    If D=24:Then
        X-1->X
    End
    
    If D=26:Then
        X+1->X
    End
    
    Output(7,1,|LSNAKE(1)
    Output(8,1,|LSNAKE(2)
    L+1->L
    
End

想法是，使用 A 变量将先前的坐标放入列表 SNAKE 中，并且 V 和 Z 将调用这些值。但这并不奏效。我能在 TI-BASIC 中在线找到的唯一贪吃蛇游戏非常密集且没有任何评论。所以我希望我能在这里得到帮助。

Answer 1

看起来您正在使用

Input D

当您打算使用

getKey->D

时可能还有其他问题我也没有看到。