Как сделать движущуюся змейку?

Категория: Basic
2011-09-16 16:27:13

Змейка должна состоять из линий и передвигаться с помощью того, что последняя линия гаснет и в то же время появляется новая впереди.

code: #basic
SCREEN 12
PAINT (5, 5), 15
 
sections = 10
xh = 50
yh = 100
 
WHILE xh < 640 AND INKEY$ = ""
        FOR i = 0 TO sections - 1
                LINE (xh - 10 * i, yh)-(xh - 10 * i - 10, yh - 10), 6, BF
                LINE (xh - 2 - 10 * i, yh - 2)-(xh + 2 - 10 * i - 10, yh - 10 + 2), 4, BF
        NEXT i
        LINE (xh - 10 * sections, yh)-(xh - 10 * sections - 10, yh - 10), 15, BF
        xh = xh + 10
 
        t = TIMER
        WHILE t = TIMER
        WEND
WEND
Поделиться:

Похожие статьи:

теги: студенты, графика, qbasic