Qb64 Как переместить спрайт из таблиц данных - PullRequest
Новая
       24

Qb64 Как переместить спрайт из таблиц данных

1 голос
/ 03 июля 2019

Я пытаюсь создать тестовую игру «сверху вниз», но я хочу использовать спрайт, созданный таблицей данных, как мне это сделать, это то, что у меня сейчас. 

SCREEN 12
DIM keypress AS STRING
DIM x AS INTEGER
DIM y AS INTEGER
DIM c AS INTEGER
CONST size = 5
x = 320
y = 200
c = 5
CLS



DO

    keypress = UCASE$(INKEY$)
    IF keypress = "A" AND x > size THEN
        x = x - 1
        CLS
    ELSEIF keypress = "D" AND x < 480 - size THEN
        x = x + 1
        CLS
    ELSEIF keypress = "W" AND y > size THEN
        y = y - 1
        CLS
    ELSEIF keypress = "S" AND y < 640 - size THEN
        y = y + 1
        CLS
        CIRCLE (x, y), size, c
    END IF

    COLOR
LOOP UNTIL keypress = "Q"



sprite_1:
DATA line (320,200)-(350,200)
DATA line (350,200)-(350,210)
DATA line (360,210)-(350,210)
DATA line (350,210)-(250,200)

Должен ли я сделать каждую точку таблицы данных переменной и определить их?

...