Vince's Corner Takeout

[vince]

because I will lose this soon enough

Code: (Select All)

sw = 800
sh = 600
screen _newimage(sw, sh, 32)

x = sw/2
y = sh/2
vx = 0
vy = 0


do
    if _keydown(19200) then vx = vx - 3
    if _keydown(19712) then vx = vx + 3
    if _keydown(18432) then vy = vy - 3
    if _keydown(20480) then vy = vy + 3

    x = x + vx
    y = y + vy

    if vx > 0 then vx = vx - 1
    if vy > 0 then vy = vy - 1
    if vx < 0 then vx = vx + 1
    if vy < 0 then vy = vy + 1

    cls
    line (x, y) - step(100, 100), _rgb(255,255,0),bf

    _limit 30
    _display

loop until _keyhit = 27
system