помогите , напишите координаты в кубесике 64, чтобы сделать движу,щийся квадрат

+ 0 -

DashaSag2003

06 сент. 2016 г., 18:06:32 (7 лет назад)

SCREEN 12
RANDOMIZE TIMER
X = 100
Y = 100
DX = 1
DY = 1
1:X1 = X + DX
IF X1 < 20 OR X1 > 620 THEN DX = -DX: DY = INT(RND * 2)
Y1 = Y + DY
IF Y1 < 20 OR Y1 > 450 THEN DY = -DY: DX = INT(RND * 2)
LINE (X, Y)-(X + 10, Y + 10),0, B
LINE (X1, Y1)-(X1 + 10, Y1 + 10), 10, B
X = X1
Y = Y1
FOR I = 1 TO 3000000
'Число 3000000 можно менять, чем оно больше, тем скорость движения меньше
NEXT I
GOTO 1